Metrics for Maksimov and Kolovsky, Equation (4)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory

0.6MiB live, 0.6MiB allocated; 0ms 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)

sample1.9s (41.3%)

Memory

53.3MiB live, 1 810.1MiB allocated; 1.0s collecting garbage

Samples

883.0ms	6 361×	0	valid
664.0ms	1 895×	1	valid

Precisions

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

ival-cos: 556.0ms (43.9% of total)

ival-exp: 396.0ms (31.3% of total)

ival-mult!: 130.0ms (10.3% of total)

adjust: 50.0ms (3.9% of total)

ival-div!: 50.0ms (3.9% of total)

ival-neg: 33.0ms (2.6% of total)

ival-sub!: 28.0ms (2.2% of total)

ival-add!: 23.0ms (1.8% of total)

Bogosity

preprocess68.0ms (1.5%)

Memory

27.0MiB live, 72.3MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	67	199
1	266	195

Stop Event

1×	iter-limit
1×	iter-limit
1×	unsound

Alt Table

Click to see full alt table

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

Symmetry

(abs K)

Compiler

Compiled 28 to 28 computations (0% saved)

series23.0ms (0.5%)

Memory

-10.7MiB live, 36.2MiB allocated; 2ms collecting garbage

Counts

14 → 54

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)))) (/ 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 (* -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 (+ (* -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 (* -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 (+ (* (* 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
6.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	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)
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)

rewrite264.0ms (5.7%)

Memory

-3.8MiB live, 239.5MiB allocated; 67ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	235	1413
0	248	1256
1	1542	1255
0	7065	1178
1	15872	1178

Stop Event

1×	saturated
1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

68 → 150

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

eval17.0ms (0.4%)

Memory: -14.9MiB live, 30.4MiB allocated; 6ms collecting garbage
Compiler: Compiled 1 316 to 613 computations (53.4% saved)

prune7.0ms (0.1%)

Memory

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

Pruning

8 alts after pruning (8 fresh and 0 done)

	Pruned	Kept	Total
New	125	8	133
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	126	8	134

Accuracy

100.0%

Counts

134 → 8

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	100.0%	(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (sinh.f64 l) U)
▶	100.0%	(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
▶	64.0%	(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
▶	88.3%	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
	84.0%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (*.f64 l J) l) #s(literal 1/3 binary64) (+.f64 J J)) l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
	79.5%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
	62.2%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (+.f64 l l) J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)) U))
▶	33.5%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Compiler

Compiled 272 to 272 computations (0% saved)

series64.0ms (1.4%)

Memory

-26.9MiB live, 65.2MiB allocated; 9ms collecting garbage

Counts

38 → 97

Calls

Call 1

Inputs
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (*.f64 (sinh.f64 l) #s(literal 2 binary64)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
(*.f64 #s(literal -1/2 binary64) K)
#s(literal -1/2 binary64)
K
(*.f64 (sinh.f64 l) #s(literal 2 binary64))
(sinh.f64 l)
l
#s(literal 2 binary64)
J
U
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))
(exp.f64 l)
(exp.f64 (neg.f64 l))
(neg.f64 l)
#s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))
(*.f64 K K)
#s(literal -1/8 binary64)
#s(literal 1 binary64)
(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 J #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 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))
(.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)
(fma.f64 (*.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64))
(*.f64 l l)
#s(literal 1/3 binary64)
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (sinh.f64 l) U)
(.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))
(+.f64 J J)

Outputs
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 U))
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx J #s(hole binary64 J))
#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 J) (cos (* -1/2 K))) #s(hole binary64 (* 2 (* J (cos (* -1/2 K))))))
#s(approx (+ J J) #s(hole binary64 (* 2 J)))
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (* J (+ (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U 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)))) (/ U J)))))
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ 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 (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* -1/2 K))))))))
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* -1/2 K))))) (* 2 (* J (cos (* -1/2 K)))))))))
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) 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 (* (cos (* -1/2 K)) (* (sinh l) 2)) #s(hole binary64 (* 2 (* l (cos (* -1/2 K))))))
#s(approx (* (cos (* -1/2 K)) (* (sinh l) 2)) #s(hole binary64 (* l (+ (* 1/3 (* (pow l 2) (cos (* -1/2 K)))) (* 2 (cos (* -1/2 K)))))))
#s(approx (* (cos (* -1/2 K)) (* (sinh l) 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 (* (cos (* -1/2 K)) (* (sinh l) 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 (* (sinh l) 2) #s(hole binary64 (* 2 l)))
#s(approx (* (sinh l) 2) #s(hole binary64 (* l (+ 2 (* 1/3 (pow l 2))))))
#s(approx (* (sinh l) 2) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* 1/60 (pow l 2))))))))
#s(approx (* (sinh l) 2) #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 (+ (* (* 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) #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 (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 (+ (* (* l l) 1/3) 2) #s(hole binary64 2))
#s(approx (+ (* (* l l) 1/3) 2) #s(hole binary64 (+ 2 (* 1/3 (pow l 2)))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx (* (cos (* -1/2 K)) (* (sinh l) 2)) #s(hole binary64 (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))))
#s(approx (* (sinh l) 2) #s(hole binary64 (- (exp l) (/ 1 (exp l)))))
#s(approx (sinh l) #s(hole binary64 (* 1/2 (- (exp l) (/ 1 (exp 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 (* (+ (* (* l l) 1/3) 2) l) #s(hole binary64 (* 1/3 (pow l 3))))
#s(approx (* (+ (* (* l l) 1/3) 2) l) #s(hole binary64 (* (pow l 3) (+ 1/3 (* 2 (/ 1 (pow l 2)))))))
#s(approx (+ (* (* l l) 1/3) 2) #s(hole binary64 (* 1/3 (pow l 2))))
#s(approx (+ (* (* l l) 1/3) 2) #s(hole binary64 (* (pow l 2) (+ 1/3 (* 2 (/ 1 (pow l 2)))))))
#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 (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* J (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) 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 (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) 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 (* -1/2 K)) (* (sinh l) 2)) #s(hole binary64 (- (+ (exp l) (* -1/8 (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (/ 1 (exp l)))))
#s(approx (* (cos (* -1/2 K)) (* (sinh l) 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 (* (cos (* -1/2 K)) (* (sinh l) 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 (cos (* -1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (* -1/2 K) #s(hole binary64 (* -1/2 K)))
#s(approx K #s(hole binary64 K))
#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 (+ (* -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 (* K K) #s(hole binary64 (pow K 2)))
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K)))
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J))))
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2))))))))
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J))))))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (cos (* -1/2 K))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (+ (* (* K K) -1/8) 1) #s(hole binary64 (* -1/8 (pow K 2))))
#s(approx (+ (* (* K K) -1/8) 1) #s(hole binary64 (* (pow K 2) (- (/ 1 (pow K 2)) 1/8))))
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) 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 (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) U)) 1)))))
#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
5.0ms	l	@	0	((+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (* (cos (* -1/2 K)) (* (sinh l) 2)) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* (sinh l) 2) (sinh l) l 2 J U (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* 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)))) (- (exp l) (exp (neg l))) (exp l) (exp (neg l)) (neg l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (- (exp l) (exp (neg l))) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (/ K 2)) (/ K 2) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ J J))
5.0ms	l	@	-inf	((+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (* (cos (* -1/2 K)) (* (sinh l) 2)) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* (sinh l) 2) (sinh l) l 2 J U (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* 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)))) (- (exp l) (exp (neg l))) (exp l) (exp (neg l)) (neg l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (- (exp l) (exp (neg l))) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (/ K 2)) (/ K 2) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ J J))
4.0ms	l	@	inf	((+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (* (cos (* -1/2 K)) (* (sinh l) 2)) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* (sinh l) 2) (sinh l) l 2 J U (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* 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)))) (- (exp l) (exp (neg l))) (exp l) (exp (neg l)) (neg l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (- (exp l) (exp (neg l))) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (/ K 2)) (/ K 2) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ J J))
4.0ms	J	@	0	((+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (* (cos (* -1/2 K)) (* (sinh l) 2)) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* (sinh l) 2) (sinh l) l 2 J U (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* 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)))) (- (exp l) (exp (neg l))) (exp l) (exp (neg l)) (neg l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (- (exp l) (exp (neg l))) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (/ K 2)) (/ K 2) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ J J))
4.0ms	K	@	inf	((+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (* (cos (* -1/2 K)) (* (sinh l) 2)) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* (sinh l) 2) (sinh l) l 2 J U (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* 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)))) (- (exp l) (exp (neg l))) (exp l) (exp (neg l)) (neg l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (- (exp l) (exp (neg l))) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (/ K 2)) (/ K 2) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ J J))

rewrite139.0ms (3%)

Memory

33.0MiB live, 175.3MiB allocated; 14ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	456	2741
0	498	2482
1	3114	2474
0	8318	2376
1	13120	2376

Stop Event

1×	saturated
1×	node-limit
1×	iter-limit

Counts

135 → 316

Calls

Call 1

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

eval92.0ms (2%)

Memory: 4.3MiB live, 49.7MiB allocated; 4ms collecting garbage
Compiler: Compiled 2 650 to 1 235 computations (53.4% saved)

prune69.0ms (1.5%)

Memory

-23.3MiB live, 27.7MiB allocated; 10ms collecting garbage

Pruning

13 alts after pruning (12 fresh and 1 done)

	Pruned	Kept	Total
New	278	11	289
Fresh	2	1	3
Picked	4	1	5
Done	0	0	0
Total	284	13	297

Accuracy

100.0%

Counts

297 → 13

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.9%	(fma.f64 (.f64 (+.f64 J J) (fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (sinh.f64 l) U)
▶	62.2%	(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
	62.2%	(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (* (sinh l) 2) (+.f64 l l))) J U)
▶	68.8%	(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
	90.3%	(fma.f64 #s(approx (* (cos (* -1/2 K)) (* (sinh l) 2)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) (.f64 l l)) (cos.f64 (.f64 K #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) #s(literal 1/3 binary64))) (.f64 l l) (.f64 (cos.f64 (*.f64 K #s(literal -1/2 binary64))) #s(literal 2 binary64))) l)) J U)
	88.3%	(fma.f64 J (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 K #s(literal -1/2 binary64)))) U)
	49.2%	(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
▶	61.0%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
▶	47.6%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
	68.2%	#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (.f64 (.f64 (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sinh.f64 l)) #s(literal 2 binary64)) J))
	99.2%	#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (.f64 U (fma.f64 J (/.f64 (.f64 (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sinh.f64 l)) #s(literal 2 binary64)) U) #s(literal 1 binary64))))
	79.5%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
✓	33.5%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Compiler

Compiled 509 to 493 computations (3.1% saved)

series85.0ms (1.8%)

Memory

38.3MiB live, 126.3MiB allocated; 12ms collecting garbage

Counts

46 → 112

Calls

Call 1

Inputs
(fma.f64 (.f64 (+.f64 J J) (fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (sinh.f64 l) U)
(.f64 (+.f64 J J) (fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(+.f64 J J)
J
(fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 K #s(literal -1/2 binary64)))
(*.f64 K #s(literal -1/2 binary64))
K
#s(literal -1/2 binary64)
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(PI.f64)
#s(literal 1/2 binary64)
(.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 K #s(literal -1/2 binary64)))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(sinh.f64 l)
l
U
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))
#s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 (+.f64 J J) l))
(*.f64 (+.f64 J J) l)
#s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))
(*.f64 K K)
#s(literal -1/8 binary64)
#s(literal 1 binary64)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l))
(.f64 (fma.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)
(fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J))
(.f64 (.f64 l l) J)
(*.f64 l l)
#s(literal 1/3 binary64)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
#s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J)))
(fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))
(.f64 (.f64 K K) J)
#s(literal -1/4 binary64)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
(.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
(*.f64 #s(literal -1/2 binary64) K)
#s(approx (sinh l) l)

Outputs
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 U))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* J (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l))))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (* 2 (* J (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))))
#s(approx (+ J J) #s(hole binary64 (* 2 J)))
#s(approx J #s(hole binary64 J))
#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 J) l) #s(hole binary64 (* 2 (* J l))))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* J (* l (+ 2 (* 1/3 (pow l 2)))))))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (* J (+ 2 (* 1/3 (pow l 2))))))
#s(approx (* (* l l) J) #s(hole binary64 (* J (pow l 2))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (+ U (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (* 2 (* J (cos (* -1/2 K))))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) #s(hole binary64 (* J (+ 2 (* -1/4 (pow K 2))))))
#s(approx (* (* K K) J) #s(hole binary64 (* J (pow K 2))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* J (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* J (+ (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l)))) (/ U 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)))) (/ U J)))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (* J (+ (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l))))) (* -1 (/ 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 (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* -1 (* J (* l (- (* -1/3 (pow l 2)) 2))))))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (* -1 (* J (- (* -1/3 (pow l 2)) 2)))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) #s(hole binary64 (* -1 (* J (- (* 1/4 (pow K 2)) 2)))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* 2 (* J (* l (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))) (* 2 (* J (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))) (* 1/3 (* J (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))))))))))))
#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 (+ (* (* 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 (* 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 (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (+ (* 1/3 (* J (pow l 2))) (* 2 J))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* -1/2 K))))))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) 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 J) (cos (* -1/2 K))) (sinh l)) 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 (sinh l) #s(hole binary64 (* 1/2 (- (exp l) (/ 1 (exp l))))))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* 1/3 (* J (pow l 3)))))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* (pow l 3) (+ (* 1/3 J) (* 2 (/ J (pow l 2)))))))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (* 1/3 (* J (pow l 2)))))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (* (pow l 2) (+ (* 1/3 J) (* 2 (/ J (pow l 2)))))))
#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 (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* -1 (* (pow l 3) (+ (* -2 (/ J (pow l 2))) (* -1/3 J))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (+ (* -1/2 (* J (* K (* (cos (* 1/2 (PI))) (- (exp l) (/ 1 (exp l))))))) (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (+ (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l))))) (* K (+ (* -1/2 (* J (* (cos (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))) (* -1/8 (* J (* K (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (+ (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l))))) (* K (+ (* -1/2 (* J (* (cos (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))) (* K (+ (* -1/8 (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))) (* 1/48 (* J (* K (* (cos (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))))))))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (* 2 (* J (sin (* 1/2 (PI)))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (+ (* -1 (* J (* K (cos (* 1/2 (PI)))))) (* 2 (* J (sin (* 1/2 (PI))))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (+ (* 2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* -1/4 (* J (* K (sin (* 1/2 (PI)))))))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (+ (* 2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* K (+ (* -1/4 (* J (sin (* 1/2 (PI))))) (* 1/24 (* J (* K (cos (* 1/2 (PI)))))))))))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* K (cos (* 1/2 (PI))))))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* -1/2 (cos (* 1/2 (PI)))) (* -1/8 (* K (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* -1/2 (cos (* 1/2 (PI)))) (* K (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/48 (* K (cos (* 1/2 (PI))))))))))))
#s(approx (sin (* K -1/2)) #s(hole binary64 (* -1/2 K)))
#s(approx (sin (* K -1/2)) #s(hole binary64 (* K (- (* 1/48 (pow K 2)) 1/2))))
#s(approx (sin (* K -1/2)) #s(hole binary64 (* K (- (* (pow K 2) (+ 1/48 (* -1/3840 (pow K 2)))) 1/2))))
#s(approx (sin (* K -1/2)) #s(hole binary64 (* K (- (* (pow K 2) (+ 1/48 (* (pow K 2) (- (* 1/645120 (pow K 2)) 1/3840)))) 1/2))))
#s(approx K #s(hole binary64 K))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/8 (* (pow K 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/384 (* (pow K 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (sin (* 1/2 (PI))))) (* 1/384 (sin (* 1/2 (PI)))))))))))
#s(approx (cos (* K -1/2)) #s(hole binary64 1))
#s(approx (cos (* K -1/2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* K -1/2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* K -1/2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#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 (+ (* -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 (* K K) #s(hole binary64 (pow K 2)))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (+ U (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) 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 J) (cos (* -1/2 K))) (sinh l)) 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 J) (cos (* -1/2 K))) (sinh l)) 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 (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J))))
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2))))))))
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J))))))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))
#s(approx (sin (* K -1/2)) #s(hole binary64 (sin (* -1/2 K))))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) #s(hole binary64 (* (cos (* -1/2 K)) (sin (* 1/2 (PI))))))
#s(approx (cos (* K -1/2)) #s(hole binary64 (cos (* -1/2 K))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (+ (* (* K K) -1/8) 1) #s(hole binary64 (* -1/8 (pow K 2))))
#s(approx (+ (* (* K K) -1/8) 1) #s(hole binary64 (* (pow K 2) (- (/ 1 (pow K 2)) 1/8))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) #s(hole binary64 (* -1/4 (* J (pow K 2)))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) #s(hole binary64 (* (pow K 2) (+ (* -1/4 J) (* 2 (/ J (pow K 2)))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l))))) 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 J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) U)))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l))))) U)) 1)))))
#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)))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) 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
16.0ms	l	@	-inf	((+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (+ J J) J (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (sin (* K -1/2)) (* K -1/2) K -1/2 (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) 1/2 (* (cos (* K -1/2)) (sin (* (PI) 1/2))) (cos (* K -1/2)) (sin (* (PI) 1/2)) (sinh l) l U (+ (* (* 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 J) l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (+ (* (* (* l l) J) 1/3) (+ J J)) (* (* l l) J) (* l l) 1/3 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* K K) J) -1/4 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (cos (* -1/2 K)) (* -1/2 K) (sinh l))
14.0ms	J	@	0	((+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (+ J J) J (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (sin (* K -1/2)) (* K -1/2) K -1/2 (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) 1/2 (* (cos (* K -1/2)) (sin (* (PI) 1/2))) (cos (* K -1/2)) (sin (* (PI) 1/2)) (sinh l) l U (+ (* (* 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 J) l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (+ (* (* (* l l) J) 1/3) (+ J J)) (* (* l l) J) (* l l) 1/3 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* K K) J) -1/4 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (cos (* -1/2 K)) (* -1/2 K) (sinh l))
11.0ms	J	@	inf	((+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (+ J J) J (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (sin (* K -1/2)) (* K -1/2) K -1/2 (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) 1/2 (* (cos (* K -1/2)) (sin (* (PI) 1/2))) (cos (* K -1/2)) (sin (* (PI) 1/2)) (sinh l) l U (+ (* (* 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 J) l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (+ (* (* (* l l) J) 1/3) (+ J J)) (* (* l l) J) (* l l) 1/3 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* K K) J) -1/4 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (cos (* -1/2 K)) (* -1/2 K) (sinh l))
8.0ms	J	@	-inf	((+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (+ J J) J (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (sin (* K -1/2)) (* K -1/2) K -1/2 (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) 1/2 (* (cos (* K -1/2)) (sin (* (PI) 1/2))) (cos (* K -1/2)) (sin (* (PI) 1/2)) (sinh l) l U (+ (* (* 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 J) l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (+ (* (* (* l l) J) 1/3) (+ J J)) (* (* l l) J) (* l l) 1/3 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* K K) J) -1/4 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (cos (* -1/2 K)) (* -1/2 K) (sinh l))
6.0ms	l	@	inf	((+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (+ J J) J (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (sin (* K -1/2)) (* K -1/2) K -1/2 (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) 1/2 (* (cos (* K -1/2)) (sin (* (PI) 1/2))) (cos (* K -1/2)) (sin (* (PI) 1/2)) (sinh l) l U (+ (* (* 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 J) l) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* K K) -1/8 1 (+ (* (* 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)))) (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (+ (* (* (* l l) J) 1/3) (+ J J)) (* (* l l) J) (* l l) 1/3 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* K K) J) -1/4 (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (cos (* -1/2 K)) (* -1/2 K) (sinh l))

rewrite156.0ms (3.4%)

Memory

-6.8MiB live, 137.1MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	588	4177
0	646	3499
0	3911	3308
1	8545	3308

Stop Event

1×	saturated
1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

158 → 279

Calls

Call 1

Inputs
(fma.f64 (.f64 (+.f64 J J) (fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (sinh.f64 l) U)
(.f64 (+.f64 J J) (fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(+.f64 J J)
J
(fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 K #s(literal -1/2 binary64)))
(*.f64 K #s(literal -1/2 binary64))
K
#s(literal -1/2 binary64)
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(PI.f64)
#s(literal 1/2 binary64)
(.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 K #s(literal -1/2 binary64)))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(sinh.f64 l)
l
U
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))
#s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 (+.f64 J J) l))
(*.f64 (+.f64 J J) l)
#s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))
(*.f64 K K)
#s(literal -1/8 binary64)
#s(literal 1 binary64)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l))
(.f64 (fma.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)
(fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J))
(.f64 (.f64 l l) J)
(*.f64 l l)
#s(literal 1/3 binary64)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
#s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J)))
(fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))
(.f64 (.f64 K K) J)
#s(literal -1/4 binary64)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
(.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
(*.f64 #s(literal -1/2 binary64) K)
#s(approx (sinh l) l)
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 U))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* J (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l))))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (* 2 (* J (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))))
#s(approx (+ J J) #s(hole binary64 (* 2 J)))
#s(approx J #s(hole binary64 J))
#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 J) l) #s(hole binary64 (* 2 (* J l))))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* J (* l (+ 2 (* 1/3 (pow l 2)))))))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (* J (+ 2 (* 1/3 (pow l 2))))))
#s(approx (* (* l l) J) #s(hole binary64 (* J (pow l 2))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (+ U (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (* 2 (* J (cos (* -1/2 K))))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) #s(hole binary64 (* J (+ 2 (* -1/4 (pow K 2))))))
#s(approx (* (* K K) J) #s(hole binary64 (* J (pow K 2))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* J (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* J (+ (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l)))) (/ U 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)))) (/ U J)))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (* J (+ (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l))))) (* -1 (/ 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 (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* -1 (* J (* l (- (* -1/3 (pow l 2)) 2))))))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (* -1 (* J (- (* -1/3 (pow l 2)) 2)))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) #s(hole binary64 (* -1 (* J (- (* 1/4 (pow K 2)) 2)))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* 2 (* J (* l (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))) (* 2 (* J (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))) (* 1/3 (* J (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))))))))))))
#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 (+ (* (* 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 (* 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 (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (+ (* 1/3 (* J (pow l 2))) (* 2 J))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* -1/2 K))))))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) 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 J) (cos (* -1/2 K))) (sinh l)) 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 (sinh l) #s(hole binary64 (* 1/2 (- (exp l) (/ 1 (exp l))))))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* 1/3 (* J (pow l 3)))))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* (pow l 3) (+ (* 1/3 J) (* 2 (/ J (pow l 2)))))))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (* 1/3 (* J (pow l 2)))))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) #s(hole binary64 (* (pow l 2) (+ (* 1/3 J) (* 2 (/ J (pow l 2)))))))
#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 (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) #s(hole binary64 (* -1 (* (pow l 3) (+ (* -2 (/ J (pow l 2))) (* -1/3 J))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (+ (* -1/2 (* J (* K (* (cos (* 1/2 (PI))) (- (exp l) (/ 1 (exp l))))))) (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (+ (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l))))) (* K (+ (* -1/2 (* J (* (cos (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))) (* -1/8 (* J (* K (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (+ U (+ (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l))))) (* K (+ (* -1/2 (* J (* (cos (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))) (* K (+ (* -1/8 (* J (* (sin (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))) (* 1/48 (* J (* K (* (cos (* 1/2 (PI))) (- (exp l) (/ 1 (exp l)))))))))))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (* 2 (* J (sin (* 1/2 (PI)))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (+ (* -1 (* J (* K (cos (* 1/2 (PI)))))) (* 2 (* J (sin (* 1/2 (PI))))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (+ (* 2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* -1/4 (* J (* K (sin (* 1/2 (PI)))))))))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) #s(hole binary64 (+ (* 2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* K (+ (* -1/4 (* J (sin (* 1/2 (PI))))) (* 1/24 (* J (* K (cos (* 1/2 (PI)))))))))))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* K (cos (* 1/2 (PI))))))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* -1/2 (cos (* 1/2 (PI)))) (* -1/8 (* K (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* -1/2 (cos (* 1/2 (PI)))) (* K (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/48 (* K (cos (* 1/2 (PI))))))))))))
#s(approx (sin (* K -1/2)) #s(hole binary64 (* -1/2 K)))
#s(approx (sin (* K -1/2)) #s(hole binary64 (* K (- (* 1/48 (pow K 2)) 1/2))))
#s(approx (sin (* K -1/2)) #s(hole binary64 (* K (- (* (pow K 2) (+ 1/48 (* -1/3840 (pow K 2)))) 1/2))))
#s(approx (sin (* K -1/2)) #s(hole binary64 (* K (- (* (pow K 2) (+ 1/48 (* (pow K 2) (- (* 1/645120 (pow K 2)) 1/3840)))) 1/2))))
#s(approx K #s(hole binary64 K))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/8 (* (pow K 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/384 (* (pow K 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (sin (* 1/2 (PI))))) (* 1/384 (sin (* 1/2 (PI)))))))))))
#s(approx (cos (* K -1/2)) #s(hole binary64 1))
#s(approx (cos (* K -1/2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* K -1/2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* K -1/2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#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 (+ (* -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 (* K K) #s(hole binary64 (pow K 2)))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (+ U (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) 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 J) (cos (* -1/2 K))) (sinh l)) 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 J) (cos (* -1/2 K))) (sinh l)) 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 (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J))))
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2))))))))
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J))))))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) #s(hole binary64 (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K))))))
#s(approx (sin (* K -1/2)) #s(hole binary64 (sin (* -1/2 K))))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) #s(hole binary64 (* (cos (* -1/2 K)) (sin (* 1/2 (PI))))))
#s(approx (cos (* K -1/2)) #s(hole binary64 (cos (* -1/2 K))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (+ (* (* K K) -1/8) 1) #s(hole binary64 (* -1/8 (pow K 2))))
#s(approx (+ (* (* K K) -1/8) 1) #s(hole binary64 (* (pow K 2) (- (/ 1 (pow K 2)) 1/8))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) #s(hole binary64 (* -1/4 (* J (pow K 2)))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) #s(hole binary64 (* (pow K 2) (+ (* -1/4 J) (* 2 (/ J (pow K 2)))))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l))))) 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 J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) U)))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (+ (* (cos (* -1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* -1/2 K)))) (- (exp l) (/ 1 (exp l))))) U)) 1)))))
#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)))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) U)) 1)))))

Outputs
(fma.f64 (+.f64 J J) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sinh.f64 l)) U)
(fma.f64 (.f64 (+.f64 J J) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sinh.f64 l) U)
(fma.f64 (sinh.f64 l) (.f64 (+.f64 J J) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64))))) U)
(-.f64 (.f64 (+.f64 J J) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sinh.f64 l))) (neg.f64 U))
(+.f64 (.f64 (+.f64 J J) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sinh.f64 l))) U)
(+.f64 U (.f64 (+.f64 J J) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sinh.f64 l))))
(.f64 (+.f64 J J) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64)))) J) #s(literal 2 binary64))
(.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))) (+.f64 J J))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64)))) J))
(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K))) (.f64 (+.f64 J J) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) K)))))
(fma.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))) J (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64)))) J))
(fma.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K))) (+.f64 J J) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) K))) (+.f64 J J)))
(fma.f64 J (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64)))) J))
(+.f64 (.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K)))) (.f64 (+.f64 J J) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K))) (+.f64 J J)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (+.f64 J J)))
(+.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))) J) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))) J))
(*.f64 #s(literal 2 binary64) J)
(*.f64 J #s(literal 2 binary64))
(-.f64 J (neg.f64 J))
(+.f64 J J)
J
(sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) K))))
(fma.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) K))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) K)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) K))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) K))))
(-.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K))) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (.f64 (neg.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) K))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K)))))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) K))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) K))
(*.f64 #s(literal -1/2 binary64) K)
(*.f64 K #s(literal -1/2 binary64))
K
#s(literal -1/2 binary64)
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(PI.f64)
#s(literal 1/2 binary64)
(.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) K)))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) K)))
(cos.f64 (fabs.f64 (*.f64 #s(literal -1/2 binary64) K)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) #s(literal 2 binary64))
(sinh.f64 l)
l
U
(fma.f64 #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) #s(approx ( J (- (exp l) (exp (neg l)))) (*.f64 (+.f64 J J) l)) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(-.f64 (.f64 #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) #s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 (+.f64 J J) l))) (neg.f64 U))
(+.f64 (.f64 #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) #s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 (+.f64 J J) l))) U)
(+.f64 U (.f64 #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) #s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 (+.f64 J J) l))))
(.f64 #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) #s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 (+.f64 J J) l)))
(.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))
#s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 (+.f64 J J) l))
(.f64 (.f64 l J) #s(literal 2 binary64))
(*.f64 (+.f64 J J) l)
(.f64 #s(literal 2 binary64) (.f64 l J))
(*.f64 l (+.f64 J J))
(fma.f64 l J (*.f64 l J))
(fma.f64 J l (*.f64 l J))
(+.f64 (.f64 l J) (.f64 l J))
#s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64))
(fma.f64 K (*.f64 K #s(literal -1/8 binary64)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/8 binary64) (.f64 K K)))
(-.f64 #s(literal 1 binary64) (neg.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64))))
(+.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64)))
(*.f64 (fabs.f64 K) (fabs.f64 K))
(*.f64 (neg.f64 K) (neg.f64 K))
(*.f64 K K)
(pow.f64 (fabs.f64 K) #s(literal 2 binary64))
(pow.f64 (neg.f64 K) #s(literal 2 binary64))
(pow.f64 K #s(literal 2 binary64))
(fabs.f64 (*.f64 K K))
#s(literal -1/8 binary64)
#s(literal 1 binary64)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 l l) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(fma.f64 #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (*.f64 l l) (+.f64 J J)) l)) U)
(-.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 l l) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) (neg.f64 U))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 l l) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(+.f64 U (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 l l) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))))
(.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 l l) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (*.f64 l l) (+.f64 J J)) l)))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (*.f64 l l) (+.f64 J J)) l))
(.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (*.f64 l l) (+.f64 J J)) l)
(.f64 l (fma.f64 (.f64 #s(literal 1/3 binary64) J) (*.f64 l l) (+.f64 J J)))
(fma.f64 (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64)) l (.f64 (+.f64 J J) l))
(fma.f64 l (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64)) (.f64 (+.f64 J J) l))
(+.f64 (.f64 l (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) (*.f64 (+.f64 J J) l))
(+.f64 (.f64 (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64)) l) (*.f64 (+.f64 J J) l))
(fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 l l) (+.f64 J J))
(fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J))
(fma.f64 (.f64 l l) (.f64 #s(literal 1/3 binary64) J) (+.f64 J J))
(fma.f64 #s(literal 1/3 binary64) (.f64 (.f64 l l) J) (+.f64 J J))
(fma.f64 #s(literal 2 binary64) J (.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64)))
(fma.f64 J #s(literal 2 binary64) (.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64)))
(-.f64 (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64)) (.f64 #s(literal -2 binary64) J))
(-.f64 (.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64)) (neg.f64 (+.f64 J J)))
(+.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 l l) J) J)
(+.f64 (.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64)) (+.f64 J J))
(+.f64 (+.f64 J J) (.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64)))
(.f64 (.f64 l l) J)
(.f64 l (.f64 l J))
(.f64 J (.f64 l l))
(*.f64 (fabs.f64 l) (fabs.f64 l))
(*.f64 (neg.f64 l) (neg.f64 l))
(*.f64 l l)
(pow.f64 (fabs.f64 l) #s(literal 2 binary64))
(pow.f64 (neg.f64 l) #s(literal 2 binary64))
(pow.f64 l #s(literal 2 binary64))
(fabs.f64 (*.f64 l l))
#s(literal 1/3 binary64)
(fma.f64 (sinh.f64 l) #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 #s(literal -1/4 binary64) J) (.f64 K K) (+.f64 J J))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 #s(literal -1/4 binary64) J) (.f64 K K) (+.f64 J J))) (sinh.f64 l) U)
(-.f64 (.f64 (sinh.f64 l) #s(approx ( (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 #s(literal -1/4 binary64) J) (.f64 K K) (+.f64 J J)))) (neg.f64 U))
(+.f64 (.f64 (sinh.f64 l) #s(approx ( (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 #s(literal -1/4 binary64) J) (.f64 K K) (+.f64 J J)))) U)
(+.f64 U (.f64 (sinh.f64 l) #s(approx ( (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 #s(literal -1/4 binary64) J) (.f64 K K) (+.f64 J J)))))
#s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 #s(literal -1/4 binary64) J) (.f64 K K) (+.f64 J J)))
(fma.f64 (.f64 #s(literal -1/4 binary64) J) (.f64 K K) (+.f64 J J))
(fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))
(fma.f64 (.f64 K K) (.f64 #s(literal -1/4 binary64) J) (+.f64 J J))
(fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 K K) J) (+.f64 J J))
(fma.f64 #s(literal 2 binary64) J (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))
(fma.f64 J #s(literal 2 binary64) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))
(-.f64 (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)) (.f64 #s(literal -2 binary64) J))
(-.f64 (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)) (neg.f64 (+.f64 J J)))
(+.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) J) (.f64 K K) J) J)
(+.f64 (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)) (+.f64 J J))
(+.f64 (+.f64 J J) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))
(.f64 (.f64 K K) J)
(.f64 K (.f64 K J))
(.f64 J (.f64 K K))
#s(literal -1/4 binary64)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (sinh l) l)) U)
(fma.f64 #s(approx (sinh l) l) (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) U)
(-.f64 (.f64 (.f64 (+.f64 J J) (cos.f64 (*.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l)) (neg.f64 U))
(+.f64 (.f64 (.f64 (+.f64 J J) (cos.f64 (*.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l)) U)
(+.f64 U (.f64 (.f64 (+.f64 J J) (cos.f64 (*.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l)))
(.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) J) #s(literal 2 binary64))
(.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (+.f64 J J))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) J))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) J))
(fma.f64 J (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) J))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) K)))
(cos.f64 (fabs.f64 (*.f64 #s(literal -1/2 binary64) K)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
(*.f64 #s(literal -1/2 binary64) K)
(*.f64 K #s(literal -1/2 binary64))
#s(approx (sinh l) l)
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) U)
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64))))) J U))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (.f64 (+.f64 J J) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (+ J J) (+.f64 J J))
#s(approx J J)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal 2 binary64) (sinh.f64 l))) J U))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))
#s(approx (* (+ J J) l) (*.f64 (+.f64 J J) l))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (.f64 (.f64 (fma.f64 (*.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l) J))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) J))
#s(approx (* (* l l) J) (.f64 (.f64 l l) J))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (*.f64 #s(literal 2 binary64) (sinh.f64 l))) J U))
#s(approx (* (+ J J) (cos (* -1/2 K))) (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (fma.f64 (.f64 K K) #s(literal -1/4 binary64) #s(literal 2 binary64)) J))
#s(approx (* (* K K) J) (.f64 (.f64 K K) J))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))) J) (.f64 #s(literal 2 binary64) (sinh.f64 l))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal 2 binary64) (sinh.f64 l)) (/.f64 U J)) J))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (fma.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) (/.f64 U J)) J))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (neg.f64 (.f64 (+.f64 (neg.f64 (/.f64 U J)) (neg.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64))))))) J)))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (neg.f64 (.f64 (+.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l)))) (neg.f64 (/.f64 U J))) J)))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (neg.f64 (.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (*.f64 l l) #s(literal -2 binary64)) l) J)))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) (neg.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 l l) #s(literal -2 binary64)) J)))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (neg.f64 (.f64 (+.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l)))) (neg.f64 (/.f64 U J))) J)))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (neg.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 K K) #s(literal -2 binary64)) J)))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (fma.f64 (+.f64 J J) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))) l) U))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (fma.f64 l (fma.f64 (.f64 (.f64 (.f64 l l) J) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(literal 1/3 binary64) (.f64 (+.f64 J J) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))))) U))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (fma.f64 (fma.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 1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 l l) J) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(literal 1/60 binary64))) (.f64 l l) (.f64 (+.f64 J J) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64)))))) l U))
#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 (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) l) U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 l (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 (.f64 l l) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) J) #s(literal 1/3 binary64) (.f64 (.f64 (.f64 (.f64 l l) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J) #s(literal 1/60 binary64))) (.f64 l l) (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) l U))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (+.f64 J J) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) l)))
#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) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (+.f64 J J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) l))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) J) #s(literal 1/3 binary64) (.f64 (.f64 (.f64 (.f64 l l) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J) #s(literal 1/60 binary64))) (.f64 l l) (.f64 (+.f64 J J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) l))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) J) #s(literal 1/60 binary64) (.f64 #s(literal 1/2520 binary64) (.f64 (.f64 (.f64 l l) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J))) (.f64 l l))) (.f64 l l) (.f64 (+.f64 J J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) l))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (*.f64 l l) (+.f64 J J)) l))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 l l) (fma.f64 #s(literal 1/60 binary64) (.f64 (.f64 l l) J) (*.f64 #s(literal 1/3 binary64) J)) (+.f64 J J)) l))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (fma.f64 (.f64 l l) (fma.f64 #s(literal 1/2520 binary64) (.f64 (.f64 l l) J) (.f64 #s(literal 1/60 binary64) J)) (.f64 #s(literal 1/3 binary64) J)) (*.f64 l l) (+.f64 J J)) l))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 l l) (+.f64 J J)))
#s(approx (* l l) (*.f64 l l))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) l) U))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (fma.f64 l (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 (.f64 l l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) U))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J) #s(literal 1/3 binary64) (.f64 (.f64 (.f64 (.f64 l l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) J) #s(literal 1/60 binary64))) (.f64 l l) (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) l U))
#s(approx (sinh l) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) #s(literal 1/2 binary64)))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (.f64 (.f64 (.f64 (.f64 l l) l) J) #s(literal 1/3 binary64)))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (.f64 (fma.f64 #s(literal 1/3 binary64) J (/.f64 (+.f64 J J) (.f64 l l))) (.f64 (.f64 l l) l)))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (*.f64 l l) J) #s(literal 1/3 binary64)))
#s(approx (+ (* (* (* l l) J) 1/3) (+ J J)) (.f64 (fma.f64 #s(literal 1/3 binary64) J (/.f64 (+.f64 J J) (.f64 l l))) (*.f64 l l)))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal 2 binary64) (sinh.f64 l))) J U))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))
#s(approx (* (+ (* (* (* l l) J) 1/3) (+ J J)) l) (neg.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 J (.f64 l l)) (.f64 #s(literal -1/3 binary64) J)) (.f64 (*.f64 l l) l))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) J U))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (+.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) J) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (sinh.f64 l))) K) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) J) (*.f64 #s(literal 2 binary64) (sinh.f64 l)))) U))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (+.f64 (fma.f64 K (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) K) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J) #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J) #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)))) U))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (+.f64 (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J) #s(literal -1/2 binary64) (.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) J) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (sinh.f64 l))) K) (.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) J) (.f64 #s(literal 2 binary64) (sinh.f64 l))) #s(literal -1/8 binary64))) K)) K (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) J) (*.f64 #s(literal 2 binary64) (sinh.f64 l)))) U))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (.f64 (+.f64 J J) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (fma.f64 (+.f64 J J) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) K) J))))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (fma.f64 (+.f64 J J) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) K) J) #s(literal -1/4 binary64) (neg.f64 (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J))) K)))
#s(approx (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (fma.f64 (fma.f64 K (fma.f64 (.f64 #s(literal 1/24 binary64) J) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) K) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) J) #s(literal -1/4 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) J))) K (.f64 (+.f64 J J) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (fma.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) K) #s(literal -1/2 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (fma.f64 K (fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) K) #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (fma.f64 (fma.f64 K (fma.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) K) #s(literal 1/48 binary64) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) K (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (sin (* K -1/2)) (*.f64 #s(literal -1/2 binary64) K))
#s(approx (sin (* K -1/2)) (.f64 (fma.f64 #s(literal 1/48 binary64) (.f64 K K) #s(literal -1/2 binary64)) K))
#s(approx (sin (* K -1/2)) (.f64 (fma.f64 (fma.f64 #s(literal -1/3840 binary64) (.f64 K K) #s(literal 1/48 binary64)) (*.f64 K K) #s(literal -1/2 binary64)) K))
#s(approx (sin (* K -1/2)) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/645120 binary64) (.f64 K K) #s(literal -1/3840 binary64)) (.f64 K K) #s(literal 1/48 binary64)) (.f64 K K) #s(literal -1/2 binary64)) K))
#s(approx K K)
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) (fma.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) (fma.f64 (fma.f64 (.f64 (.f64 K K) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/384 binary64) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) (.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) (fma.f64 (fma.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal -1/8 binary64) (.f64 (fma.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/46080 binary64) (.f64 K K)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 K K))) (.f64 K K) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (cos (* K -1/2)) #s(literal 1 binary64))
#s(approx (cos (* K -1/2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))
#s(approx (cos (* K -1/2)) (fma.f64 (fma.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 -1/2)) (fma.f64 (fma.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 (+ (* (* 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 (fma.f64 (.f64 (.f64 (.f64 K K) J) (.f64 #s(literal 2 binary64) (sinh.f64 l))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U))
#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/384 binary64) J) (.f64 (.f64 K K) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) #s(literal -1/8 binary64))) (.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/384 binary64) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 (.f64 (.f64 (.f64 K K) J) (.f64 #s(literal 2 binary64) (sinh.f64 l))) #s(literal -1/46080 binary64))) (.f64 K K))) (.f64 K K))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 (.f64 (.f64 (.f64 K K) J) (.f64 #s(literal 2 binary64) (sinh.f64 l))) #s(literal -1/8 binary64) (.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/384 binary64) J) (.f64 (.f64 K K) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) #s(literal -1/8 binary64))) (.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/384 binary64) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 (.f64 (.f64 (.f64 K K) J) (.f64 #s(literal 2 binary64) (sinh.f64 l))) #s(literal -1/46080 binary64))) (.f64 K K))) (.f64 K K) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
#s(approx (* K K) (*.f64 K K))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (fma.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J U))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (+.f64 (fma.f64 (.f64 (.f64 (.f64 K K) J) (.f64 #s(literal 2 binary64) (sinh.f64 l))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J U) (.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (.f64 K K) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) #s(literal -1/8 binary64))) (.f64 K K))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) 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/384 binary64) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 (.f64 (.f64 (.f64 K K) J) (.f64 #s(literal 2 binary64) (sinh.f64 l))) #s(literal -1/46080 binary64))) (.f64 K K))) (.f64 K K))))
#s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 #s(literal -1/4 binary64) J) (.f64 K K) (+.f64 J J)))
#s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 K K) (fma.f64 #s(literal 1/192 binary64) (.f64 (.f64 K K) J) (.f64 #s(literal -1/4 binary64) J)) (+.f64 J J)))
#s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (fma.f64 (.f64 K K) (fma.f64 #s(literal -1/23040 binary64) (.f64 (.f64 K K) J) (.f64 #s(literal 1/192 binary64) J)) (.f64 #s(literal -1/4 binary64) J)) (.f64 K K) (+.f64 J J)))
#s(approx (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2)))) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (sin (* K -1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) K)))
#s(approx (* (cos (* K -1/2)) (sin (* (PI) 1/2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) K))))
#s(approx (cos (* K -1/2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) K)))
#s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))
#s(approx (+ (* (* K K) -1/8) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K)))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (fma.f64 #s(literal -1/4 binary64) J (/.f64 (+.f64 J J) (.f64 K K))) (*.f64 K K)))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (.f64 (fma.f64 J (/.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64))))) U) #s(literal 1 binary64)) U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64))))
#s(approx (+ (* (* (+ J J) (+ (* (sin (* K -1/2)) (cos (* (PI) 1/2))) (* (cos (* K -1/2)) (sin (* (PI) 1/2))))) (sinh l)) U) (neg.f64 (.f64 (neg.f64 (fma.f64 J (/.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) K (.f64 (PI.f64) #s(literal 1/2 binary64))))) U) #s(literal 1 binary64))) U)))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (neg.f64 (.f64 (neg.f64 (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64))) U)))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (neg.f64 (.f64 (neg.f64 (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64))) U)))

eval37.0ms (0.8%)

Memory: -22.0MiB live, 68.5MiB allocated; 11ms collecting garbage
Compiler: Compiled 3 609 to 1 215 computations (66.3% saved)

prune13.0ms (0.3%)

Memory

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

Pruning

14 alts after pruning (11 fresh and 3 done)

	Pruned	Kept	Total
New	281	8	289
Fresh	4	3	7
Picked	3	2	5
Done	0	1	1
Total	288	14	302

Accuracy

100.0%

Counts

302 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
	62.2%	(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (sinh l) l)) U)
	88.2%	(fma.f64 (.f64 (+.f64 J J) (fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 l l) #s(literal 1 binary64)) l)) U)
✓	62.2%	(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
▶	35.9%	(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
	90.3%	(fma.f64 #s(approx (* (cos (* -1/2 K)) (* (sinh l) 2)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) (.f64 l l)) (cos.f64 (.f64 K #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) #s(literal 1/3 binary64))) (.f64 l l) (.f64 (cos.f64 (*.f64 K #s(literal -1/2 binary64))) #s(literal 2 binary64))) l)) J U)
	47.6%	(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
▶	88.3%	(fma.f64 J (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 K #s(literal -1/2 binary64)))) U)
✓	47.6%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
▶	34.4%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
	55.4%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(approx (+ ( (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
	68.2%	#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
▶	99.2%	#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64))))
▶	79.5%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
✓	33.5%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Compiler

Compiled 559 to 541 computations (3.2% saved)

series160.0ms (3.5%)

Memory

-2.8MiB live, 188.9MiB allocated; 40ms collecting garbage

Counts

43 → 121

Calls

Call 1

Inputs
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64))))
(.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64)))
U
(fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (*.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64))
J
(/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (*.f64 #s(literal 2 binary64) (sinh.f64 l))) U)
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (*.f64 #s(literal 2 binary64) (sinh.f64 l)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
(*.f64 #s(literal -1/2 binary64) K)
#s(literal -1/2 binary64)
K
(*.f64 #s(literal 2 binary64) (sinh.f64 l))
#s(literal 2 binary64)
(sinh.f64 l)
l
#s(literal 1 binary64)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
(.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))))
#s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 (+.f64 J J) l))
(*.f64 (+.f64 J J) l)
(+.f64 J J)
#s(approx (cos (/ K 2)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))
#s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))
(.f64 (.f64 K K) #s(literal -1/8 binary64))
(*.f64 K K)
#s(literal -1/8 binary64)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
(fma.f64 (+.f64 J J) (sinh.f64 l) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
#s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64))))
#s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))
(.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64))
(.f64 (.f64 K K) J)
#s(literal -1/4 binary64)
(fma.f64 J (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 K #s(literal -1/2 binary64)))) U)
(.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 K #s(literal -1/2 binary64))))
#s(approx (* (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))
(.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)
(fma.f64 (*.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64))
(*.f64 l l)
#s(literal 1/3 binary64)
(cos.f64 (*.f64 K #s(literal -1/2 binary64)))
(*.f64 K #s(literal -1/2 binary64))

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

Calls

12 calls:

Time	Variable		Point	Expression
54.0ms	U	@	inf	((+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1) J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U) (* (cos (* -1/2 K)) (* 2 (sinh l))) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* 2 (sinh l)) 2 (sinh l) l 1 (+ (* (* 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 J) l) (+ J J) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* (* K K) -1/8) (* K K) -1/8 (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (+ J J) (sinh l)) U) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* (* K K) J) -1/4) (* (* K K) J) -1/4 (+ (* J (* (* (sinh l) 2) (cos (* K -1/2)))) U) (* (* (sinh l) 2) (cos (* K -1/2))) (* (sinh l) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (* K -1/2)) (* K -1/2))
23.0ms	K	@	inf	((+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1) J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U) (* (cos (* -1/2 K)) (* 2 (sinh l))) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* 2 (sinh l)) 2 (sinh l) l 1 (+ (* (* 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 J) l) (+ J J) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* (* K K) -1/8) (* K K) -1/8 (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (+ J J) (sinh l)) U) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* (* K K) J) -1/4) (* (* K K) J) -1/4 (+ (* J (* (* (sinh l) 2) (cos (* K -1/2)))) U) (* (* (sinh l) 2) (cos (* K -1/2))) (* (sinh l) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (* K -1/2)) (* K -1/2))
23.0ms	J	@	0	((+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1) J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U) (* (cos (* -1/2 K)) (* 2 (sinh l))) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* 2 (sinh l)) 2 (sinh l) l 1 (+ (* (* 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 J) l) (+ J J) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* (* K K) -1/8) (* K K) -1/8 (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (+ J J) (sinh l)) U) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* (* K K) J) -1/4) (* (* K K) J) -1/4 (+ (* J (* (* (sinh l) 2) (cos (* K -1/2)))) U) (* (* (sinh l) 2) (cos (* K -1/2))) (* (sinh l) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (* K -1/2)) (* K -1/2))
16.0ms	U	@	-inf	((+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1) J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U) (* (cos (* -1/2 K)) (* 2 (sinh l))) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* 2 (sinh l)) 2 (sinh l) l 1 (+ (* (* 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 J) l) (+ J J) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* (* K K) -1/8) (* K K) -1/8 (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (+ J J) (sinh l)) U) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* (* K K) J) -1/4) (* (* K K) J) -1/4 (+ (* J (* (* (sinh l) 2) (cos (* K -1/2)))) U) (* (* (sinh l) 2) (cos (* K -1/2))) (* (sinh l) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (* K -1/2)) (* K -1/2))
9.0ms	l	@	inf	((+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1) J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U) (* (cos (* -1/2 K)) (* 2 (sinh l))) (cos (* -1/2 K)) (* -1/2 K) -1/2 K (* 2 (sinh l)) 2 (sinh l) l 1 (+ (* (* 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 J) l) (+ J J) (cos (/ K 2)) (+ (* (* K K) -1/8) 1) (* (* K K) -1/8) (* K K) -1/8 (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (+ J J) (sinh l)) U) (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (* (+ J J) (cos (* -1/2 K))) (+ (* (* (* K K) J) -1/4) (+ J J)) (* (* (* K K) J) -1/4) (* (* K K) J) -1/4 (+ (* J (* (* (sinh l) 2) (cos (* K -1/2)))) U) (* (* (sinh l) 2) (cos (* K -1/2))) (* (sinh l) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* (* l l) 1/3) 2) (* l l) 1/3 (cos (* K -1/2)) (* K -1/2))

rewrite189.0ms (4.1%)

Memory

1.4MiB live, 229.0MiB allocated; 53ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	593	4172
0	638	3830
1	4144	3806
0	8784	3631
1	14868	3631

Stop Event

1×	saturated
1×	node-limit
1×	iter-limit

Counts

164 → 319

Calls

Call 1

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

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

eval41.0ms (0.9%)

Memory: 5.1MiB live, 95.8MiB allocated; 11ms collecting garbage
Compiler: Compiled 3 788 to 1 532 computations (59.6% saved)

prune23.0ms (0.5%)

Memory

5.8MiB live, 52.0MiB allocated; 5ms collecting garbage

Pruning

18 alts after pruning (15 fresh and 3 done)

	Pruned	Kept	Total
New	302	11	313
Fresh	2	4	6
Picked	4	1	5
Done	1	2	3
Total	309	18	327

Accuracy

100.0%

Counts

327 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
	62.2%	(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (sinh l) l)) U)
	88.2%	(fma.f64 (.f64 (+.f64 J J) (fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 l l) #s(literal 1 binary64)) l)) U)
✓	62.2%	(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
	88.3%	(fma.f64 (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) J U)
✓	35.9%	(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
	35.0%	(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)
	33.8%	(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
	90.3%	(fma.f64 #s(approx (* (cos (* -1/2 K)) (* (sinh l) 2)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) (.f64 l l)) (cos.f64 (.f64 K #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) #s(literal 1/3 binary64))) (.f64 l l) (.f64 (cos.f64 (*.f64 K #s(literal -1/2 binary64))) #s(literal 2 binary64))) l)) J U)
	34.4%	(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
	30.9%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (sqrt.f64 (.f64 (.f64 K K) (.f64 K K))) #s(literal -1/8 binary64))))) U)
	55.4%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(approx (+ ( (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
	68.2%	#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
	72.6%	#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx ( (sinh l) 2) (+.f64 l l))) U) #s(literal 1 binary64))))
	79.1%	#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(approx (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) (.f64 (fma.f64 J (/.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) U) #s(literal 1 binary64)) U)))
	51.6%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) #s(approx (sinh l) l) U))
	55.2%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (*.f64 (-.f64 (+.f64 (/.f64 U J) (exp.f64 l)) (exp.f64 (neg.f64 l))) J)))
	48.6%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
✓	33.5%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Compiler

Compiled 865 to 636 computations (26.5% saved)

regimes150.0ms (3.3%)

Memory

-31.6MiB live, 231.0MiB allocated; 105ms collecting garbage

Counts

39 → 1

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (sqrt.f64 (.f64 (.f64 K K) (.f64 K K))) #s(literal -1/8 binary64))))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(approx (+ ( (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(approx (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) (.f64 (fma.f64 J (/.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) U) #s(literal 1 binary64)) U)))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (*.f64 (-.f64 (+.f64 (/.f64 U J) (exp.f64 l)) (exp.f64 (neg.f64 l))) J)))
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (+.f64 l l) J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)) U))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (* (sinh l) 2) (+.f64 l l))) J U)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (sinh l) l)) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx ( (sinh l) 2) (+.f64 l l))) U) #s(literal 1 binary64))))
(fma.f64 (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) J U)
(fma.f64 J (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 K #s(literal -1/2 binary64)))) U)
(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (.f64 (.f64 (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sinh.f64 l)) #s(literal 2 binary64)) J))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (*.f64 l J) l) #s(literal 1/3 binary64) (+.f64 J J)) l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (sinh.f64 l) U)
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (.f64 U (fma.f64 J (/.f64 (.f64 (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sinh.f64 l)) #s(literal 2 binary64)) U) #s(literal 1 binary64))))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64))))
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 #s(approx (* (cos (* -1/2 K)) (* (sinh l) 2)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) (.f64 l l)) (cos.f64 (.f64 K #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) #s(literal 1/3 binary64))) (.f64 l l) (.f64 (cos.f64 (*.f64 K #s(literal -1/2 binary64))) #s(literal 2 binary64))) l)) J U)
(fma.f64 (.f64 (+.f64 J J) (fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 l l) #s(literal 1 binary64)) l)) U)
(fma.f64 (.f64 (+.f64 J J) (fma.f64 (sin.f64 (.f64 K #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (sinh.f64 l) U)

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

Calls

10 calls:

48.0ms	(/.f64 K #s(literal 2 binary64))
19.0ms	U
13.0ms	l
12.0ms	(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
11.0ms	(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))

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 49 to 73 computations (-49% saved)

regimes149.0ms (3.2%)

Memory

24.4MiB live, 159.6MiB allocated; 18ms collecting garbage

Counts

32 → 1

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (sqrt.f64 (.f64 (.f64 K K) (.f64 K K))) #s(literal -1/8 binary64))))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(approx (+ ( (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(approx (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) (.f64 (fma.f64 J (/.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) U) #s(literal 1 binary64)) U)))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (*.f64 (-.f64 (+.f64 (/.f64 U J) (exp.f64 l)) (exp.f64 (neg.f64 l))) J)))
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (+.f64 l l) J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)) U))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (* (sinh l) 2) (+.f64 l l))) J U)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (sinh l) l)) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx ( (sinh l) 2) (+.f64 l l))) U) #s(literal 1 binary64))))
(fma.f64 (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) J U)
(fma.f64 J (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 K #s(literal -1/2 binary64)))) U)
(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (.f64 (.f64 (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sinh.f64 l)) #s(literal 2 binary64)) J))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (*.f64 l J) l) #s(literal 1/3 binary64) (+.f64 J J)) l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) (sinh.f64 l) U)

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

Calls

10 calls:

54.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))
29.0ms	(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
13.0ms	K
8.0ms	U
8.0ms	(/.f64 K #s(literal 2 binary64))

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 49 to 73 computations (-49% saved)

regimes94.0ms (2%)

Memory

13.2MiB live, 194.2MiB allocated; 29ms collecting garbage

Counts

31 → 3

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (sqrt.f64 (.f64 (.f64 K K) (.f64 K K))) #s(literal -1/8 binary64))))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(approx (+ ( (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(approx (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) (.f64 (fma.f64 J (/.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) U) #s(literal 1 binary64)) U)))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (*.f64 (-.f64 (+.f64 (/.f64 U J) (exp.f64 l)) (exp.f64 (neg.f64 l))) J)))
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (+.f64 l l) J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)) U))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (* (sinh l) 2) (+.f64 l l))) J U)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (sinh l) l)) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx ( (sinh l) 2) (+.f64 l l))) U) #s(literal 1 binary64))))
(fma.f64 (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) J U)
(fma.f64 J (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 K #s(literal -1/2 binary64)))) U)
(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
#s(approx (+ (* (* (cos (* -1/2 K)) (* (sinh l) 2)) J) U) (.f64 (.f64 (.f64 (cos.f64 (.f64 K #s(literal -1/2 binary64))) (sinh.f64 l)) #s(literal 2 binary64)) J))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) J))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (*.f64 l J) l) #s(literal 1/3 binary64) (+.f64 J J)) l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

Outputs

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

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

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

Calls

10 calls:

19.0ms	U
12.0ms	l
11.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))
8.0ms	K
8.0ms	(/.f64 K #s(literal 2 binary64))

Results

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

Compiler

Compiled 49 to 73 computations (-49% saved)

regimes59.0ms (1.3%)

Memory

-11.2MiB live, 137.2MiB allocated; 13ms collecting garbage

Counts

27 → 2

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (sqrt.f64 (.f64 (.f64 K K) (.f64 K K))) #s(literal -1/8 binary64))))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(approx (+ ( (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(approx (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) (.f64 (fma.f64 J (/.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) U) #s(literal 1 binary64)) U)))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (*.f64 (-.f64 (+.f64 (/.f64 U J) (exp.f64 l)) (exp.f64 (neg.f64 l))) J)))
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (+.f64 l l) J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)) U))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (* (sinh l) 2) (+.f64 l l))) J U)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (sinh l) l)) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx ( (sinh l) 2) (+.f64 l l))) U) #s(literal 1 binary64))))
(fma.f64 (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) J U)
(fma.f64 J (.f64 #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)) (cos.f64 (*.f64 K #s(literal -1/2 binary64)))) U)
(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

Outputs

#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))

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

Calls

8 calls:

12.0ms	l
8.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))
7.0ms	(/.f64 K #s(literal 2 binary64))
7.0ms	K
6.0ms	(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))

Results

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

Compiler

Compiled 47 to 65 computations (-38.3% saved)

regimes30.0ms (0.7%)

Memory

-30.3MiB live, 66.6MiB allocated; 5ms collecting garbage

Counts

24 → 2

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (sqrt.f64 (.f64 (.f64 K K) (.f64 K K))) #s(literal -1/8 binary64))))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(approx (+ ( (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(approx (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) (.f64 (fma.f64 J (/.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) U) #s(literal 1 binary64)) U)))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (*.f64 (-.f64 (+.f64 (/.f64 U J) (exp.f64 l)) (exp.f64 (neg.f64 l))) J)))
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (+.f64 l l) J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)) U))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (* (sinh l) 2) (+.f64 l l))) J U)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (sinh l) l)) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) (.f64 U (fma.f64 J (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx ( (sinh l) 2) (+.f64 l l))) U) #s(literal 1 binary64))))

Outputs

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

#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))

Calls

4 calls:

8.0ms	l
8.0ms	K
7.0ms	(/.f64 K #s(literal 2 binary64))
6.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
87.2%	3	`l`
86.8%	2	`(/.f64 K #s(literal 2 binary64))`
90.9%	2	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
86.8%	2	`K`

Compiler

Compiled 9 to 21 computations (-133.3% saved)

regimes44.0ms (1%)

Memory

15.2MiB live, 107.6MiB allocated; 7ms collecting garbage

Counts

23 → 2

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (sqrt.f64 (.f64 (.f64 K K) (.f64 K K))) #s(literal -1/8 binary64))))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(approx (+ ( (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(approx (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) (.f64 (fma.f64 J (/.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) U) #s(literal 1 binary64)) U)))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (*.f64 (-.f64 (+.f64 (/.f64 U J) (exp.f64 l)) (exp.f64 (neg.f64 l))) J)))
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (+.f64 l l) J) (cos.f64 (.f64 #s(literal -1/2 binary64) K)) U))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (* (sinh l) 2) (+.f64 l l))) J U)
(fma.f64 (.f64 (+.f64 J J) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) #s(approx (sinh l) l) U)
(fma.f64 (+.f64 J J) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) #s(approx (sinh l) l)) U)

Outputs

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

#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
85.5%	3	`J`
79.5%	1	`U`
87.2%	3	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
87.2%	3	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
87.2%	3	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
89.9%	3	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
89.6%	2	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`

Compiler

Compiled 44 to 59 computations (-34.1% saved)

regimes6.0ms (0.1%)

Memory

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

Counts

18 → 2

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (sqrt.f64 (.f64 (.f64 K K) (.f64 K K))) #s(literal -1/8 binary64))))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(approx (+ ( (* (* l l) J) 1/3) (+ J J)) (.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64))) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) (sinh.f64 l) U)
#s(approx (+ (* (* (+ J J) (cos (* -1/2 K))) (sinh l)) U) #s(approx (* U (+ (* J (/ (* (cos (* -1/2 K)) (* 2 (sinh l))) U)) 1)) (.f64 (fma.f64 J (/.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) U) #s(literal 1 binary64)) U)))
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (+.f64 J J)) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64) (+.f64 J J))) (sinh.f64 l) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (*.f64 (-.f64 (+.f64 (/.f64 U J) (exp.f64 l)) (exp.f64 (neg.f64 l))) J)))

Outputs

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

#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))

Calls

1 calls:

5.0ms

(cos.f64 (/.f64 K #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
88.6%	2	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes8.0ms (0.2%)

Memory

-28.6MiB live, 18.2MiB allocated; 2ms collecting garbage

Counts

11 → 2

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (sqrt.f64 (.f64 (.f64 K K) (.f64 K K))) #s(literal -1/8 binary64))))) U)

Outputs

(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (*.f64 (*.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) (*.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 l l) #s(literal 1 binary64)) l)) U)

#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))

Calls

2 calls:

4.0ms	(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
3.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))

Results

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

Compiler

Compiled 11 to 16 computations (-45.5% saved)

regimes4.0ms (0.1%)

Memory

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

Counts

9 → 2

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))

Outputs

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

#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) (sinh.f64 l) U))

Calls

1 calls:

3.0ms

(cos.f64 (/.f64 K #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
86.9%	2	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes32.0ms (0.7%)

Memory

14.9MiB live, 77.4MiB allocated; 13ms collecting garbage

Counts

8 → 3

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ (* (+ J J) (sinh l)) U) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64)))) U)

Outputs

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

#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) #s(approx (sinh l) l) U))

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

Calls

10 calls:

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

Results

Accuracy	Segments	Branch
57.6%	3	`U`
79.5%	3	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
56.8%	2	`J`
79.5%	3	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
79.5%	3	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
79.5%	3	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
79.5%	3	`l`
57.1%	2	`(/.f64 K #s(literal 2 binary64))`
57.1%	2	`K`
65.4%	2	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`

Compiler

Compiled 49 to 73 computations (-49% saved)

regimes12.0ms (0.3%)

Memory

-17.6MiB live, 29.3MiB allocated; 2ms collecting garbage

Counts

5 → 2

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))
(fma.f64 #s(approx (* (+ J J) (cos (* -1/2 K))) #s(approx (+ (* (* (* K K) J) -1/4) (+ J J)) (.f64 (.f64 (*.f64 K K) J) #s(literal -1/4 binary64)))) #s(approx (sinh l) l) U)
(fma.f64 #s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos ( -1/2 K)) #s(approx (+ (* (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64)))) U)
(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 (+.f64 J J) l)) #s(approx (cos (/ K 2)) #s(approx (+ ( (* K K) -1/8) 1) (.f64 (.f64 K K) #s(literal -1/8 binary64))))) U)

Outputs

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

#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) #s(approx (sinh l) l) U))

Calls

6 calls:

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

Results

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

Compiler

Compiled 43 to 55 computations (-27.9% saved)

regimes2.0ms (0%)

Memory

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

Counts

3 → 2

Calls

Call 1

Inputs

#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 J J) #s(approx (sinh l) l) U))

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

Outputs

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

#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) #s(approx (sinh l) l) U))

Calls

1 calls:

1.0ms

(cos.f64 (/.f64 K #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
58.1%	2	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes9.0ms (0.2%)

Memory

-19.7MiB live, 26.8MiB allocated; 1ms collecting garbage

Counts

2 → 1

Calls

Call 1

Inputs
#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 J J) #s(approx (sinh l) l) U))

Outputs
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (+.f64 J J) #s(approx (sinh l) l) U))

Calls

6 calls:

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

Results

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

Compiler

Compiled 17 to 34 computations (-100% saved)

regimes10.0ms (0.2%)

Memory

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

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts

1 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Outputs
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Calls

10 calls:

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

Results

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

Compiler

Compiled 49 to 73 computations (-49% saved)

bsearch112.0ms (2.4%)

Memory

-11.7MiB live, 84.5MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
60.0ms	3.326976244834388	8490428892766770.0
48.0ms	-6093888167891.152	-0.002726623886470628

Samples

68.0ms

320×

valid

Compiler

Compiled 818 to 861 computations (-5.3% saved)

Precisions

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

ival-add!: 40.0ms (67.1% of total)

ival-cos: 7.0ms (11.7% of total)

ival-exp: 6.0ms (10.1% of total)

ival-mult!: 3.0ms (5% of total)

ival-sub!: 1.0ms (1.7% of total)

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

ival-div!: 1.0ms (1.7% of total)

adjust: 0.0ms (0% of total)

bsearch29.0ms (0.6%)

Memory

15.1MiB live, 58.9MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
27.0ms	9.368748659478142e-6	5.777347105063831

Samples

10.0ms	116×	0	valid
9.0ms	28×	1	valid

Compiler

Compiled 342 to 363 computations (-6.1% saved)

Precisions

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

ival-exp: 6.0ms (41.7% of total)

ival-cos: 4.0ms (27.8% of total)

ival-mult!: 2.0ms (13.9% of total)

adjust: 1.0ms (6.9% of total)

ival-div!: 1.0ms (6.9% of total)

ival-neg: 1.0ms (6.9% of total)

ival-sub!: 0.0ms (0% of total)

ival-add!: 0.0ms (0% of total)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.0024390174487848473	0.03146253186687069

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.052232953527800885	-0.04407865120995804

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.3304857154429818	-0.30539156795133754

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.26811402356530123	-0.23278508712466398

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.26811402356530123	-0.23278508712466398

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch31.0ms (0.7%)

Memory

-22.3MiB live, 68.6MiB allocated; 7ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
18.0ms	8490428892766770.0	7.777516212366411e+20
10.0ms	-6093888167891.152	-0.002726623886470628

Samples

20.0ms

192×

valid

Compiler

Compiled 835 to 876 computations (-4.9% saved)

Precisions

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

ival-exp: 4.0ms (26.6% of total)

ival-cos: 4.0ms (26.6% of total)

ival-div!: 4.0ms (26.6% of total)

ival-mult!: 2.0ms (13.3% of total)

ival-sub!: 1.0ms (6.6% of total)

ival-neg: 1.0ms (6.6% of total)

adjust: 0.0ms (0% of total)

ival-add!: 0.0ms (0% of total)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.26811402356530123	-0.23278508712466398

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.26811402356530123	-0.23278508712466398

Compiler

Compiled 18 to 21 computations (-16.7% saved)

derivations269.0ms (5.8%)

Memory

-6.1MiB live, 429.4MiB allocated; 49ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 218 to 153 computations (29.8% saved)

preprocess206.0ms (4.5%)

Memory: 28.5MiB live, 392.6MiB allocated; 131ms collecting garbage
Remove: (abs K)
Compiler: Compiled 1 208 to 1 079 computations (10.7% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample1.9s (41.3%)

preprocess68.0ms (1.5%)

series23.0ms (0.5%)

rewrite264.0ms (5.7%)

eval17.0ms (0.4%)

prune7.0ms (0.1%)

series64.0ms (1.4%)

rewrite139.0ms (3%)

eval92.0ms (2%)

prune69.0ms (1.5%)

series85.0ms (1.8%)

rewrite156.0ms (3.4%)

eval37.0ms (0.8%)

prune13.0ms (0.3%)

series160.0ms (3.5%)

rewrite189.0ms (4.1%)

eval41.0ms (0.9%)

prune23.0ms (0.5%)

regimes150.0ms (3.3%)

regimes149.0ms (3.2%)

regimes94.0ms (2%)

regimes59.0ms (1.3%)

regimes30.0ms (0.7%)

regimes44.0ms (1%)

regimes6.0ms (0.1%)

regimes8.0ms (0.2%)

regimes4.0ms (0.1%)

regimes32.0ms (0.7%)

regimes12.0ms (0.3%)

regimes2.0ms (0%)

regimes9.0ms (0.2%)

regimes10.0ms (0.2%)

bsearch112.0ms (2.4%)

bsearch29.0ms (0.6%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch31.0ms (0.7%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

derivations269.0ms (5.8%)

preprocess206.0ms (4.5%)

end0.0ms (0%)

Profiling