Metrics for Maksimov and Kolovsky, Equation (4)

start0.0ms (0%)

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

analyze1.0ms (0%)

Memory

0.7MiB live, 0.7MiB 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)

sample2.9s (53.2%)

Memory

-13.4MiB live, 2 365.1MiB allocated; 2.1s collecting garbage

Samples

1.6s	2 003×	1	valid
851.0ms	6 253×	0	valid

Precisions

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

adjust: 672.0ms (31.4% of total)

ival-cos: 611.0ms (28.6% of total)

ival-exp: 566.0ms (26.5% of total)

ival-mult!: 142.0ms (6.6% of total)

ival-neg: 41.0ms (1.9% of total)

ival-div!: 40.0ms (1.9% of total)

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

ival-add!: 27.0ms (1.3% of total)

Bogosity

preprocess19.0ms (0.4%)

Memory

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	67	203

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	89.1%	(+.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 30 to 28 computations (6.7% saved)

series171.0ms (3.2%)

Memory

-21.3MiB live, 120.8MiB allocated; 57ms 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) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
#s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))
#s(approx J J)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 J (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (/.f64 U J))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 #s(literal -1 binary64) (.f64 J (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (*.f64 #s(literal -1 binary64) (/.f64 U J))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (.f64 #s(literal 2 binary64) (.f64 J (.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (.f64 l (fma.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(literal 2 binary64) (.f64 J (.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K)))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2520 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 1/60 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 #s(literal 2 binary64) (.f64 J l)))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 l (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) J))))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 l (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2520 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (*.f64 #s(literal 1/60 binary64) J))))))))
#s(approx (- (exp l) (exp (neg l))) (*.f64 #s(literal 2 binary64) l))
#s(approx (- (exp l) (exp (neg l))) (.f64 l (+.f64 #s(literal 2 binary64) (.f64 #s(literal 1/3 binary64) (pow.f64 l #s(literal 2 binary64))))))
#s(approx (- (exp l) (exp (neg l))) (.f64 l (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 1/60 binary64) (pow.f64 l #s(literal 2 binary64))))))))
#s(approx (- (exp l) (exp (neg l))) (.f64 l (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/60 binary64) (.f64 #s(literal 1/2520 binary64) (pow.f64 l #s(literal 2 binary64))))))))))
#s(approx (exp l) #s(literal 1 binary64))
#s(approx (exp l) (+.f64 #s(literal 1 binary64) l))
#s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) l)))))
#s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/6 binary64) l)))))))
#s(approx l l)
#s(approx (exp (neg l)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) l)))
#s(approx (exp (neg l)) (+.f64 #s(literal 1 binary64) (.f64 l (-.f64 (.f64 #s(literal 1/2 binary64) l) #s(literal 1 binary64)))))
#s(approx (exp (neg l)) (+.f64 #s(literal 1 binary64) (.f64 l (-.f64 (.f64 l (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/6 binary64) l))) #s(literal 1 binary64)))))
#s(approx (neg l) (*.f64 #s(literal -1 binary64) l))
#s(approx (- (exp l) (exp (neg l))) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
#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) (+.f64 U (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (.f64 #s(literal -1 binary64) l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (.f64 #s(literal -1 binary64) l))))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (.f64 #s(literal -1 binary64) l)))))
#s(approx (- (exp l) (exp (neg l))) (-.f64 (exp.f64 l) (exp.f64 (*.f64 #s(literal -1 binary64) l))))
#s(approx (exp (neg l)) (exp.f64 (*.f64 #s(literal -1 binary64) l)))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (.f64 #s(literal 1/384 binary64) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (.f64 #s(literal 1/384 binary64) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))))))
#s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))
#s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 K #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 K #s(literal 2 binary64)) (+.f64 #s(literal 1/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 K #s(literal 2 binary64))))) #s(literal 1/8 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 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) U))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 #s(literal -1 binary64) (.f64 U (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) U)) #s(literal 1 binary64)))))

Calls

12 calls:

Time	Variable	Point
7.0ms	l	0
4.0ms	K	0
3.0ms	l	-inf
3.0ms	J	0
2.0ms	l	inf

rewrite178.0ms (3.3%)

Memory

20.8MiB live, 107.8MiB allocated; 22ms collecting garbage

Counts

14 → 37

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
(+.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) U)
(+.f64 U (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))
(-.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (neg.f64 U))
(fma.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 (*.f64 K #s(literal 1/2 binary64))) U)
(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))) U)
(fma.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J (*.f64 #s(literal 2 binary64) (sinh.f64 l))) U)
(.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))))
(.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l)))
(.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)
J
(*.f64 #s(literal 2 binary64) (sinh.f64 l))
(+.f64 (exp.f64 l) (neg.f64 (exp.f64 (neg.f64 l))))
(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))
(neg.f64 (-.f64 (exp.f64 (neg.f64 l)) (exp.f64 l)))
(fabs.f64 (exp.f64 l))
(+.f64 (cosh.f64 l) (sinh.f64 l))
(exp.f64 l)
l
(fabs.f64 (exp.f64 (neg.f64 l)))
(+.f64 (cosh.f64 (neg.f64 l)) (sinh.f64 (neg.f64 l)))
(-.f64 (cosh.f64 l) (sinh.f64 l))
(/.f64 #s(literal 1 binary64) (exp.f64 l))
(exp.f64 (neg.f64 l))
(neg.f64 l)
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos.f64 (fabs.f64 (*.f64 K #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 K #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(*.f64 K #s(literal 1/2 binary64))
(/.f64 K #s(literal 2 binary64))
(/.f64 (neg.f64 K) #s(literal -2 binary64))
K
#s(literal 2 binary64)
(+.f64 #s(literal 1 binary64) #s(literal 1 binary64))
U

eval15.0ms (0.3%)

Memory: 16.0MiB live, 16.0MiB allocated; 0ms collecting garbage
Compiler: Compiled 2 076 to 426 computations (79.5% saved)

prune17.0ms (0.3%)

Memory

-33.2MiB live, 9.0MiB allocated; 12ms collecting garbage

Pruning

8 alts after pruning (8 fresh and 0 done)

	Pruned	Kept	Total
New	73	8	81
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	74	8	82

Accuracy

100.0%

Counts

82 → 8

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.9%	(fma.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 (*.f64 K #s(literal 1/2 binary64))) U)
▶	100.0%	(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))) U)
▶	68.3%	(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
	59.9%	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (*.f64 #s(literal 2 binary64) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
▶	82.5%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))) U)
▶	59.9%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(literal 2 binary64) (.f64 J (.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K)))))) U)
	77.7%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
▶	34.8%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Compiler

Compiled 346 to 292 computations (15.6% saved)

series258.0ms (4.8%)

Memory

27.3MiB live, 173.8MiB allocated; 40ms collecting garbage

Counts

43 → 128

Calls

Call 1

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

Outputs
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) U)
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))))
#s(approx J J)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
#s(approx (* 2 (* J (* l (cos (* 1/2 K))))) (.f64 #s(literal 2 binary64) (.f64 J (.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* J (* l (cos (* 1/2 K)))) (.f64 J (.f64 l (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))
#s(approx (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))) (.f64 J (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))) (.f64 J (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* J (* (pow l 2) (cos (* 1/2 K)))) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* 2 (* J (cos (* 1/2 K)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* J (cos (* 1/2 K))) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 J (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (/.f64 U J))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 J (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (/.f64 U J))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 #s(literal -1 binary64) (.f64 J (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) (*.f64 #s(literal -1 binary64) (/.f64 U J))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 #s(literal -1 binary64) (.f64 J (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (*.f64 #s(literal -1 binary64) (/.f64 U J))))))
#s(approx (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))) (.f64 #s(literal -1 binary64) (.f64 J (.f64 l (fma.f64 #s(literal -2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))))
#s(approx (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))) (.f64 #s(literal -1 binary64) (.f64 J (fma.f64 #s(literal -2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 #s(literal 2 binary64) (.f64 J (.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 l (fma.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 #s(literal 2 binary64) (.f64 l (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 l (fma.f64 #s(literal 2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 1/3 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 l (fma.f64 #s(literal 2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2520 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 1/60 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))))))
#s(approx (* 2 (sinh l)) (*.f64 #s(literal 2 binary64) l))
#s(approx (* 2 (sinh l)) (.f64 l (+.f64 #s(literal 2 binary64) (.f64 #s(literal 1/3 binary64) (pow.f64 l #s(literal 2 binary64))))))
#s(approx (* 2 (sinh l)) (.f64 l (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 1/60 binary64) (pow.f64 l #s(literal 2 binary64))))))))
#s(approx (* 2 (sinh l)) (.f64 l (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/60 binary64) (.f64 #s(literal 1/2520 binary64) (pow.f64 l #s(literal 2 binary64))))))))))
#s(approx (sinh l) l)
#s(approx (sinh l) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (pow.f64 l #s(literal 2 binary64))))))
#s(approx (sinh l) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal 1/120 binary64) (pow.f64 l #s(literal 2 binary64))))))))
#s(approx (sinh l) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/5040 binary64) (pow.f64 l #s(literal 2 binary64))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K)))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2520 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 1/60 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))))))
#s(approx (* l (cos (* 1/2 K))) (.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 #s(literal 2 binary64) (.f64 J l)))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 l (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) J))))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 l (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2520 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (*.f64 #s(literal 1/60 binary64) J))))))))
#s(approx (exp l) #s(literal 1 binary64))
#s(approx (exp l) (+.f64 #s(literal 1 binary64) l))
#s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) l)))))
#s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/6 binary64) l)))))))
#s(approx (exp (neg l)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) l)))
#s(approx (exp (neg l)) (+.f64 #s(literal 1 binary64) (.f64 l (-.f64 (.f64 #s(literal 1/2 binary64) l) #s(literal 1 binary64)))))
#s(approx (exp (neg l)) (+.f64 #s(literal 1 binary64) (.f64 l (-.f64 (.f64 l (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/6 binary64) l))) #s(literal 1 binary64)))))
#s(approx (neg l) (*.f64 #s(literal -1 binary64) l))
#s(approx (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))) (fma.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (pow l 2) (cos (* 1/2 K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
#s(approx (pow l 2) (pow.f64 l #s(literal 2 binary64)))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))
#s(approx (* 2 (sinh l)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))
#s(approx (sinh l) (*.f64 #s(literal 1/2 binary64) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))
#s(approx (- (exp l) (exp (neg l))) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
#s(approx (exp l) (exp.f64 l))
#s(approx (exp (neg l)) (exp.f64 (neg.f64 l)))
#s(approx (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))) (.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 3 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))) (.f64 (pow.f64 l #s(literal 3 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (pow.f64 l #s(literal 2 binary64)))))))
#s(approx (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))) (.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))
#s(approx (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (pow.f64 l #s(literal 2 binary64)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (.f64 #s(literal -1 binary64) l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (.f64 #s(literal -1 binary64) l))))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (.f64 #s(literal -1 binary64) l)))))
#s(approx (- (exp l) (exp (neg l))) (-.f64 (exp.f64 l) (exp.f64 (*.f64 #s(literal -1 binary64) l))))
#s(approx (exp (neg l)) (exp.f64 (*.f64 #s(literal -1 binary64) l)))
#s(approx (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 l #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal -1/3 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))) (*.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))) (.f64 #s(literal 1/384 binary64) (*.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))))))))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (-.f64 (+.f64 (exp.f64 l) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))) (/.f64 #s(literal 1 binary64) (exp.f64 l))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (-.f64 (+.f64 (exp.f64 l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (.f64 #s(literal 1/384 binary64) (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))))) (/.f64 #s(literal 1 binary64) (exp.f64 l))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (-.f64 (+.f64 (exp.f64 l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) (.f64 #s(literal 1/384 binary64) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))))))) (/.f64 #s(literal 1 binary64) (exp.f64 l))))
#s(approx (cos (* K 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))
#s(approx (cos (* K 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 K #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* K 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 K #s(literal 2 binary64)) (+.f64 #s(literal 1/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 K #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* K 1/2) (*.f64 #s(literal 1/2 binary64) K))
#s(approx K K)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (.f64 #s(literal 1/384 binary64) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (.f64 #s(literal 1/384 binary64) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))))))
#s(approx (* 2 (* J (* l (cos (* 1/2 K))))) (fma.f64 #s(literal -1/4 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)) (.f64 #s(literal 2 binary64) (.f64 J l))))
#s(approx (* 2 (* J (* l (cos (* 1/2 K))))) (fma.f64 #s(literal 2 binary64) (.f64 J l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 J l) (.f64 #s(literal 1/192 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)))))))
#s(approx (* 2 (* J (* l (cos (* 1/2 K))))) (fma.f64 #s(literal 2 binary64) (.f64 J l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 J l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/23040 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)) (.f64 #s(literal 1/192 binary64) (.f64 J l))))))))
#s(approx (* J (* l (cos (* 1/2 K)))) (*.f64 J l))
#s(approx (* J (* l (cos (* 1/2 K)))) (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)) (*.f64 J l)))
#s(approx (* J (* l (cos (* 1/2 K)))) (fma.f64 J l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J l) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) l)))))))
#s(approx (* J (* l (cos (* 1/2 K)))) (fma.f64 J l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)) (.f64 #s(literal 1/384 binary64) (*.f64 J l))))))))
#s(approx (* l (cos (* 1/2 K))) (+.f64 l (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) l))))
#s(approx (* l (cos (* 1/2 K))) (+.f64 l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) l (.f64 #s(literal 1/384 binary64) (*.f64 (pow.f64 K #s(literal 2 binary64)) l))))))
#s(approx (* l (cos (* 1/2 K))) (+.f64 l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) l) (.f64 #s(literal 1/384 binary64) l)))))))
#s(approx (* -1/8 (pow K 2)) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64))))
#s(approx (pow K 2) (pow.f64 K #s(literal 2 binary64)))
#s(approx (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))) (fma.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) (.f64 (pow.f64 K #s(literal 2 binary64)) (.f64 l (fma.f64 #s(literal -1/4 binary64) J (.f64 #s(literal -1/24 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))) (fma.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 l (fma.f64 #s(literal -1/4 binary64) J (.f64 #s(literal -1/24 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))))) (.f64 (pow.f64 K #s(literal 2 binary64)) (.f64 l (fma.f64 #s(literal 1/1152 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (*.f64 #s(literal 1/192 binary64) J))))))))
#s(approx (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))) (fma.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 l (fma.f64 #s(literal -1/4 binary64) J (.f64 #s(literal -1/24 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 l (fma.f64 #s(literal 1/1152 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 1/192 binary64) J)) (.f64 (pow.f64 K #s(literal 2 binary64)) (.f64 l (fma.f64 #s(literal -1/23040 binary64) J (.f64 #s(literal -1/138240 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64)))))))))))))
#s(approx (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))) (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
#s(approx (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))) (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) J (.f64 #s(literal -1/24 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))) (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) J (fma.f64 #s(literal -1/24 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal 1/1152 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 1/192 binary64) J)))))))))
#s(approx (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))) (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) J (fma.f64 #s(literal -1/24 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal 1/1152 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (fma.f64 #s(literal 1/192 binary64) J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/23040 binary64) J (.f64 #s(literal -1/138240 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64)))))))))))))))
#s(approx (* J (* (pow l 2) (cos (* 1/2 K)))) (*.f64 J (pow.f64 l #s(literal 2 binary64))))
#s(approx (* J (* (pow l 2) (cos (* 1/2 K)))) (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 J (pow.f64 l #s(literal 2 binary64)))))
#s(approx (* J (* (pow l 2) (cos (* 1/2 K)))) (fma.f64 J (pow.f64 l #s(literal 2 binary64)) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (* J (* (pow l 2) (cos (* 1/2 K)))) (fma.f64 J (pow.f64 l #s(literal 2 binary64)) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (pow.f64 l #s(literal 2 binary64)))) (.f64 #s(literal 1/384 binary64) (*.f64 J (pow.f64 l #s(literal 2 binary64))))))))))
#s(approx (* (pow l 2) (cos (* 1/2 K))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 K #s(literal 2 binary64)) (pow.f64 l #s(literal 2 binary64))) (pow.f64 l #s(literal 2 binary64))))
#s(approx (* (pow l 2) (cos (* 1/2 K))) (fma.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (pow.f64 l #s(literal 2 binary64)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (pow.f64 l #s(literal 2 binary64))))) (pow.f64 l #s(literal 2 binary64))))
#s(approx (* (pow l 2) (cos (* 1/2 K))) (fma.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (pow.f64 l #s(literal 2 binary64)) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (pow.f64 l #s(literal 2 binary64))) (*.f64 #s(literal 1/384 binary64) (pow.f64 l #s(literal 2 binary64)))))) (pow.f64 l #s(literal 2 binary64))))
#s(approx (* 2 (* J (cos (* 1/2 K)))) (*.f64 #s(literal 2 binary64) J))
#s(approx (* 2 (* J (cos (* 1/2 K)))) (fma.f64 #s(literal -1/4 binary64) (.f64 J (pow.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
#s(approx (* 2 (* J (cos (* 1/2 K)))) (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) J (.f64 #s(literal 1/192 binary64) (*.f64 J (pow.f64 K #s(literal 2 binary64))))))))
#s(approx (* 2 (* J (cos (* 1/2 K)))) (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/23040 binary64) (.f64 J (pow.f64 K #s(literal 2 binary64))) (.f64 #s(literal 1/192 binary64) J)))))))
#s(approx (* J (cos (* 1/2 K))) (+.f64 J (.f64 #s(literal -1/8 binary64) (.f64 J (pow.f64 K #s(literal 2 binary64))))))
#s(approx (* J (cos (* 1/2 K))) (+.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) J (.f64 #s(literal 1/384 binary64) (*.f64 J (pow.f64 K #s(literal 2 binary64))))))))
#s(approx (* J (cos (* 1/2 K))) (+.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) J (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (pow.f64 K #s(literal 2 binary64))) (.f64 #s(literal 1/384 binary64) J)))))))
#s(approx (cos (* K 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (+ 1 (* -1/8 (pow K 2))) (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 K #s(literal 2 binary64))) #s(literal 1/8 binary64))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 U (+.f64 #s(literal 1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))) U))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 U (+.f64 #s(literal 1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) U))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 #s(literal -1 binary64) (.f64 U (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))) U)) #s(literal 1 binary64)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 #s(literal -1 binary64) (.f64 U (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) U)) #s(literal 1 binary64)))))

Calls

12 calls:

Time	Variable	Point
13.0ms	K	0
11.0ms	K	inf
7.0ms	J	inf
6.0ms	l	-inf
6.0ms	K	-inf

rewrite191.0ms (3.5%)

Memory

15.4MiB live, 61.4MiB allocated; 5ms collecting garbage

Counts

43 → 45

Calls

Call 1

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

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

eval45.0ms (0.8%)

Memory: -37.4MiB live, 22.0MiB allocated; 30ms collecting garbage
Compiler: Compiled 5 567 to 905 computations (83.7% saved)

prune17.0ms (0.3%)

Memory

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

Pruning

11 alts after pruning (10 fresh and 1 done)

	Pruned	Kept	Total
New	126	8	134
Fresh	1	2	3
Picked	4	1	5
Done	0	0	0
Total	131	11	142

Accuracy

100.0%

Counts

142 → 11

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.0%	(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) #s(approx (cos (* K 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
▶	59.9%	(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) #s(approx (sinh l) l)) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))) U)
▶	52.2%	(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
	59.9%	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (*.f64 #s(literal 2 binary64) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
	45.2%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(literal 2 binary64) (.f64 J l))) #s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
	74.1%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 1/3 binary64) #s(approx ( J (* (pow l 2) (cos (* 1/2 K)))) (.f64 J (pow.f64 l #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))) U)
▶	45.6%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(literal 2 binary64) (.f64 J #s(approx (* l (cos (* 1/2 K))) (+.f64 l (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) l))))))) U)
▶	51.0%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(literal 2 binary64) #s(approx ( J (* l (cos (* 1/2 K)))) (*.f64 J l)))) U)
	77.7%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
✓	34.8%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)
▶	77.7%	#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))))

Compiler

Compiled 553 to 453 computations (18.1% saved)

series261.0ms (4.8%)

Memory

-1.4MiB live, 138.2MiB allocated; 11ms collecting garbage

Counts

44 → 106

Calls

Call 1

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

Outputs
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) U)
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))))
#s(approx (+ U (* J (- (exp l) (/ 1 (exp l))))) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))))
#s(approx (* J (- (exp l) (/ 1 (exp l)))) (*.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))
#s(approx J J)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
#s(approx (* 2 (* J (* l (cos (* 1/2 K))))) (.f64 #s(literal 2 binary64) (.f64 J (.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* J (* l (cos (* 1/2 K)))) (.f64 J (.f64 l (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* J l) (*.f64 J l))
#s(approx (* J (- (exp l) (exp (neg l)))) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 J (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 J (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (/.f64 U J))))
#s(approx (+ U (* J (- (exp l) (/ 1 (exp l))))) (*.f64 J (-.f64 (+.f64 (exp.f64 l) (/.f64 U J)) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 J (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (/.f64 U J))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 #s(literal -1 binary64) (.f64 J (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) (*.f64 #s(literal -1 binary64) (/.f64 U J))))))
#s(approx (+ U (* J (- (exp l) (/ 1 (exp l))))) (.f64 #s(literal -1 binary64) (.f64 J (fma.f64 #s(literal -1 binary64) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (*.f64 #s(literal -1 binary64) (/.f64 U J))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 #s(literal -1 binary64) (.f64 J (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (*.f64 #s(literal -1 binary64) (/.f64 U J))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 #s(literal 2 binary64) (.f64 J (.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 l (fma.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))))))
#s(approx (+ U (* J (- (exp l) (/ 1 (exp l))))) (+.f64 U (.f64 #s(literal 2 binary64) (.f64 J l))))
#s(approx (+ U (* J (- (exp l) (/ 1 (exp l))))) (+.f64 U (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))))
#s(approx (+ U (* J (- (exp l) (/ 1 (exp l))))) (+.f64 U (.f64 l (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) J)))))))
#s(approx (* J (- (exp l) (/ 1 (exp l)))) (.f64 #s(literal 2 binary64) (.f64 J l)))
#s(approx (* J (- (exp l) (/ 1 (exp l)))) (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
#s(approx (* J (- (exp l) (/ 1 (exp l)))) (.f64 l (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) J))))))
#s(approx (* J (- (exp l) (/ 1 (exp l)))) (.f64 l (fma.f64 #s(literal 2 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) J (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2520 binary64) (.f64 J (pow.f64 l #s(literal 2 binary64))) (*.f64 #s(literal 1/60 binary64) J))))))))
#s(approx (- (exp l) (/ 1 (exp l))) (*.f64 #s(literal 2 binary64) l))
#s(approx (- (exp l) (/ 1 (exp l))) (.f64 l (+.f64 #s(literal 2 binary64) (.f64 #s(literal 1/3 binary64) (pow.f64 l #s(literal 2 binary64))))))
#s(approx (- (exp l) (/ 1 (exp l))) (.f64 l (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 1/60 binary64) (pow.f64 l #s(literal 2 binary64))))))))
#s(approx (- (exp l) (/ 1 (exp l))) (.f64 l (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/60 binary64) (.f64 #s(literal 1/2520 binary64) (pow.f64 l #s(literal 2 binary64))))))))))
#s(approx (exp l) #s(literal 1 binary64))
#s(approx (exp l) (+.f64 #s(literal 1 binary64) l))
#s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) l)))))
#s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/6 binary64) l)))))))
#s(approx l l)
#s(approx (/ 1 (exp l)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) l)))
#s(approx (/ 1 (exp l)) (+.f64 #s(literal 1 binary64) (.f64 l (-.f64 (.f64 #s(literal 1/2 binary64) l) #s(literal 1 binary64)))))
#s(approx (/ 1 (exp l)) (+.f64 #s(literal 1 binary64) (.f64 l (-.f64 (.f64 l (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/6 binary64) l))) #s(literal 1 binary64)))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K)))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2520 binary64) (.f64 J (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 #s(literal 1/60 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))))))
#s(approx (* l (cos (* 1/2 K))) (.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
#s(approx (+ l (* -1/8 (* (pow K 2) l))) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64))))))
#s(approx (* -1/8 (* (pow K 2) l)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) l)))
#s(approx (* (pow K 2) l) (*.f64 (pow.f64 K #s(literal 2 binary64)) l))
#s(approx (neg l) (*.f64 #s(literal -1 binary64) l))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 #s(literal 2 binary64) (.f64 l (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 l (fma.f64 #s(literal 2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/60 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 1/3 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 l (fma.f64 #s(literal 2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2520 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 1/60 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))))))
#s(approx (sinh l) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (pow.f64 l #s(literal 2 binary64))))))
#s(approx (sinh l) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal 1/120 binary64) (pow.f64 l #s(literal 2 binary64))))))))
#s(approx (sinh l) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 l #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/5040 binary64) (pow.f64 l #s(literal 2 binary64))))))))))
#s(approx (- (exp l) (/ 1 (exp l))) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))
#s(approx (exp l) (exp.f64 l))
#s(approx (/ 1 (exp l)) (/.f64 #s(literal 1 binary64) (exp.f64 l)))
#s(approx (- (exp l) (exp (neg l))) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
#s(approx (exp (neg l)) (exp.f64 (neg.f64 l)))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))
#s(approx (sinh l) (*.f64 #s(literal 1/2 binary64) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (.f64 #s(literal -1 binary64) l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (.f64 #s(literal -1 binary64) l))))))
#s(approx (+ l (* -1/8 (* (pow K 2) l))) (.f64 #s(literal -1 binary64) (.f64 l (-.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 K #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (.f64 #s(literal -1 binary64) l)))))
#s(approx (- (exp l) (exp (neg l))) (-.f64 (exp.f64 l) (exp.f64 (*.f64 #s(literal -1 binary64) l))))
#s(approx (exp (neg l)) (exp.f64 (*.f64 #s(literal -1 binary64) l)))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))) (*.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))) (.f64 #s(literal 1/384 binary64) (*.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (.f64 #s(literal 1/384 binary64) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) (.f64 #s(literal 1/384 binary64) (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))))))))))
#s(approx (* 2 (* J (* l (cos (* 1/2 K))))) (fma.f64 #s(literal -1/4 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)) (.f64 #s(literal 2 binary64) (.f64 J l))))
#s(approx (* 2 (* J (* l (cos (* 1/2 K))))) (fma.f64 #s(literal 2 binary64) (.f64 J l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 J l) (.f64 #s(literal 1/192 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)))))))
#s(approx (* 2 (* J (* l (cos (* 1/2 K))))) (fma.f64 #s(literal 2 binary64) (.f64 J l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 J l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/23040 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)) (.f64 #s(literal 1/192 binary64) (.f64 J l))))))))
#s(approx (* J (* l (cos (* 1/2 K)))) (fma.f64 #s(literal -1/8 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)) (*.f64 J l)))
#s(approx (* J (* l (cos (* 1/2 K)))) (fma.f64 J l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J l) (.f64 #s(literal 1/384 binary64) (.f64 J (*.f64 (pow.f64 K #s(literal 2 binary64)) l)))))))
#s(approx (* J (* l (cos (* 1/2 K)))) (fma.f64 J l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 J l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 J (.f64 (pow.f64 K #s(literal 2 binary64)) l)) (.f64 #s(literal 1/384 binary64) (*.f64 J l))))))))
#s(approx (* l (cos (* 1/2 K))) (+.f64 l (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) l))))
#s(approx (* l (cos (* 1/2 K))) (+.f64 l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) l (.f64 #s(literal 1/384 binary64) (*.f64 (pow.f64 K #s(literal 2 binary64)) l))))))
#s(approx (* l (cos (* 1/2 K))) (+.f64 l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) l (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) l) (.f64 #s(literal 1/384 binary64) l)))))))
#s(approx (pow K 2) (pow.f64 K #s(literal 2 binary64)))
#s(approx K K)
#s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))
#s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 K #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 K #s(literal 2 binary64)) (+.f64 #s(literal 1/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 K #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* -1/8 (pow K 2)) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (-.f64 (+.f64 (exp.f64 l) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))) (/.f64 #s(literal 1 binary64) (exp.f64 l))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (-.f64 (+.f64 (exp.f64 l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (.f64 #s(literal 1/384 binary64) (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))))))) (/.f64 #s(literal 1 binary64) (exp.f64 l))))
#s(approx (* (* 2 (sinh l)) (cos (* K 1/2))) (-.f64 (+.f64 (exp.f64 l) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))) (.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) (.f64 #s(literal 1/384 binary64) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))))))) (/.f64 #s(literal 1 binary64) (exp.f64 l))))
#s(approx (* K 1/2) (*.f64 #s(literal 1/2 binary64) K))
#s(approx (+ l (* -1/8 (* (pow K 2) l))) (*.f64 (pow.f64 K #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) l (/.f64 l (pow.f64 K #s(literal 2 binary64))))))
#s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (+ 1 (* -1/8 (pow K 2))) (*.f64 (pow.f64 K #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 K #s(literal 2 binary64))) #s(literal 1/8 binary64))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 U (+.f64 #s(literal 1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))) U))))
#s(approx (+ U (* J (- (exp l) (/ 1 (exp l))))) (.f64 U (+.f64 #s(literal 1 binary64) (/.f64 (.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) U))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 U (+.f64 #s(literal 1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) U))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (.f64 #s(literal -1 binary64) (.f64 U (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l))))) U)) #s(literal 1 binary64)))))
#s(approx (+ U (* J (- (exp l) (/ 1 (exp l))))) (.f64 #s(literal -1 binary64) (.f64 U (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 J (-.f64 (exp.f64 l) (/.f64 #s(literal 1 binary64) (exp.f64 l)))) U)) #s(literal 1 binary64)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 #s(literal -1 binary64) (.f64 U (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))) U)) #s(literal 1 binary64)))))

Calls

12 calls:

Time	Variable	Point
26.0ms	l	inf
10.0ms	l	-inf
5.0ms	J	inf
4.0ms	K	-inf
4.0ms	K	inf

rewrite183.0ms (3.4%)

Memory

7.5MiB live, 150.2MiB allocated; 23ms collecting garbage

Counts

44 → 44

Calls

Call 1

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

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

eval18.0ms (0.3%)

Memory: -19.9MiB live, 25.9MiB allocated; 6ms collecting garbage
Compiler: Compiled 4 230 to 731 computations (82.7% saved)

prune10.0ms (0.2%)

Memory

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

Pruning

13 alts after pruning (8 fresh and 5 done)

	Pruned	Kept	Total
New	110	3	113
Fresh	0	5	5
Picked	1	4	5
Done	0	1	1
Total	111	13	124

Accuracy

100.0%

Counts

124 → 13

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	73.0%	(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) #s(approx (cos (* K 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
✓	59.9%	(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) #s(approx (sinh l) l)) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))) U)
✓	52.2%	(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
	59.9%	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (*.f64 #s(literal 2 binary64) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
▶	45.2%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(literal 2 binary64) (.f64 J l))) #s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
▶	74.1%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 1/3 binary64) #s(approx ( J (* (pow l 2) (cos (* 1/2 K)))) (.f64 J (pow.f64 l #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))) U)
✓	45.6%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(literal 2 binary64) (.f64 J #s(approx (* l (cos (* 1/2 K))) (+.f64 l (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) l))))))) U)
✓	51.0%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(literal 2 binary64) #s(approx ( J (* l (cos (* 1/2 K)))) (*.f64 J l)))) U)
▶	77.7%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
✓	34.8%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)
	57.8%	#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 J (-.f64 (exp.f64 l) #s(approx (/ 1 (exp l)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) l)))))))
	46.9%	#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 J (-.f64 #s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) l))))) (/.f64 #s(literal 1 binary64) #s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) l))))))))))
▶	45.1%	#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (*.f64 J (-.f64 #s(approx (exp l) (+.f64 #s(literal 1 binary64) l)) (/.f64 #s(literal 1 binary64) #s(approx (exp l) (+.f64 #s(literal 1 binary64) l)))))))

Compiler

Compiled 616 to 474 computations (23.1% saved)

series226.0ms (4.2%)

Memory

-23.7MiB live, 258.7MiB allocated; 58ms collecting garbage

Counts

48 → 128

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable	Point
8.0ms	J	0
5.0ms	K	0
5.0ms	J	-inf
5.0ms	J	inf
5.0ms	l	-inf

rewrite179.0ms (3.3%)

Memory

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

Counts

48 → 48

Calls

Call 1

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

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

eval27.0ms (0.5%)

Memory: -5.0MiB live, 40.9MiB allocated; 3ms collecting garbage
Compiler: Compiled 6 019 to 907 computations (84.9% saved)

prune10.0ms (0.2%)

Memory

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

Pruning

16 alts after pruning (6 fresh and 10 done)

	Pruned	Kept	Total
New	133	5	138
Fresh	2	1	3
Picked	0	5	5
Done	0	5	5
Total	135	16	151

Accuracy

100.0%

Counts

151 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	73.0%	(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) #s(approx (cos (* K 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
✓	59.9%	(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) #s(approx (sinh l) l)) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))) U)
✓	52.2%	(+.f64 (.f64 (.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l)))) #s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
✓	45.2%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(literal 2 binary64) (.f64 J l))) #s(approx (cos (/ K 2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 K #s(literal 2 binary64)))))) U)
	59.9%	(+.f64 (.f64 #s(approx ( J (- (exp l) (exp (neg l)))) (.f64 #s(literal 2 binary64) (.f64 J l))) #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) U)
✓	74.1%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 l (fma.f64 #s(literal 1/3 binary64) #s(approx ( J (* (pow l 2) (cos (* 1/2 K)))) (.f64 J (pow.f64 l #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))))))) U)
✓	45.6%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(literal 2 binary64) (.f64 J #s(approx (* l (cos (* 1/2 K))) (+.f64 l (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 K #s(literal 2 binary64)) l))))))) U)
✓	51.0%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(literal 2 binary64) #s(approx ( J (* l (cos (* 1/2 K)))) (*.f64 J l)))) U)
✓	77.7%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))))
	57.8%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (.f64 J (-.f64 (exp.f64 l) #s(approx (exp (neg l)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) l)))))))
	59.9%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 U (*.f64 J (-.f64 #s(approx (exp l) #s(literal 1 binary64)) (exp.f64 (neg.f64 l))))))
	60.7%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(approx (+ U (* J (- (exp l) (exp (neg l))))) (*.f64 J (-.f64 (+.f64 (exp.f64 l) (/.f64 U J)) (exp.f64 (neg.f64 l))))))
✓	34.8%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)
	46.9%	#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 J (-.f64 #s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) l))))) (/.f64 #s(literal 1 binary64) #s(approx (exp l) (+.f64 #s(literal 1 binary64) (.f64 l (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) l))))))))))
✓	45.1%	#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (*.f64 J (-.f64 #s(approx (exp l) (+.f64 #s(literal 1 binary64) l)) (/.f64 #s(literal 1 binary64) #s(approx (exp l) (+.f64 #s(literal 1 binary64) l)))))))
	43.4%	#s(approx (+ (* J (* (* 2 (sinh l)) (cos (* K 1/2)))) U) (+.f64 U (.f64 J (-.f64 #s(approx (exp l) #s(approx (+ 1 l) (.f64 l (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) l))))) (/.f64 #s(literal 1 binary64) #s(approx (exp l) #s(approx (+ 1 l) (*.f64 l (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) l))))))))))

Compiler

Compiled 493 to 365 computations (26% saved)

regimes385.0ms (7.1%)

Memory

13.4MiB live, 526.8MiB allocated; 103ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

3 → 1

4 → 2

6 → 3

8 → 3

10 → 3

14 → 2

15 → 3

19 → 3

20 → 3

21 → 1

25 → 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)

Call 2

Inputs

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

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

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

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

Call 3

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

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

Outputs

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

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

Call 4

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

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

Outputs

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

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

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

Call 5

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

Outputs

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

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

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

Call 6

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

Outputs

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

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

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

Call 7

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

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

Outputs

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

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

Call 8

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

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

Outputs

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

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

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

Call 9

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

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

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

Call 10

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

Outputs

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

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

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

Call 11

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

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

Call 12

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

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

Calls

81 calls:

26.0ms	l
16.0ms	(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
16.0ms	(/.f64 K #s(literal 2 binary64))
8.0ms	(/.f64 K #s(literal 2 binary64))
8.0ms	l

Results

Accuracy	Segments	Branch
34.8%	1	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
34.8%	1	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
34.8%	1	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
34.8%	1	`l`
34.8%	1	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
34.8%	1	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
34.8%	1	`(/.f64 K #s(literal 2 binary64))`
34.8%	1	`J`
34.8%	1	`K`
34.8%	1	`U`
51.0%	1	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
51.0%	1	`(/.f64 K #s(literal 2 binary64))`
51.0%	1	`K`
51.0%	1	`U`
51.0%	1	`J`
51.0%	1	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
51.0%	1	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
51.0%	1	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
51.0%	1	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
51.0%	1	`l`
59.9%	1	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
59.9%	1	`(/.f64 K #s(literal 2 binary64))`
59.9%	1	`K`
64.7%	3	`J`
59.9%	1	`U`
70.0%	2	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
70.0%	2	`l`
82.7%	3	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
82.7%	3	`l`
65.9%	3	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
65.9%	3	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
65.9%	3	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
83.5%	3	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
83.5%	3	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
83.5%	3	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
83.5%	3	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
77.7%	1	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
79.7%	2	`J`
83.5%	3	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
83.5%	3	`l`
77.7%	1	`(/.f64 K #s(literal 2 binary64))`
77.7%	1	`K`
83.5%	3	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
83.5%	3	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
83.5%	3	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
83.4%	2	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
90.8%	3	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
86.6%	3	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
86.6%	3	`l`
91.7%	3	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
91.7%	3	`l`
87.5%	3	`(/.f64 K #s(literal 2 binary64))`
91.1%	3	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
91.8%	3	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
88.7%	3	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
88.7%	3	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
88.7%	3	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
85.2%	3	`J`
91.8%	3	`l`
87.5%	3	`K`
82.3%	3	`U`
99.9%	1	`(/.f64 K #s(literal 2 binary64))`
99.9%	1	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
99.9%	1	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
99.9%	1	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
99.9%	1	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
99.9%	1	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
99.9%	1	`J`
99.9%	1	`l`
99.9%	1	`K`
99.9%	1	`U`
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 1 137 to 778 computations (31.6% saved)

bsearch50.0ms (0.9%)

Memory

-20.1MiB live, 72.3MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
22.0ms	3.004660848627727e-12	1.32594575287058
24.0ms	-0.05716405645233612	-2.0318467650686525e-12

Samples

31.0ms

320×

valid

Compiler

Compiled 788 to 741 computations (6% saved)

Precisions

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

ival-cos: 9.0ms (41.4% of total)

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

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

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

ival-add!: 1.0ms (4.6% of total)

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

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

adjust: 0.0ms (0% of total)

bsearch22.0ms (0.4%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
19.0ms	5.449395336947508e-14	3.004660848627727e-12
1.0ms	-0.05716405645233612	-2.0318467650686525e-12

Samples

9.0ms	53×	1	valid
5.0ms	59×	0	valid

Compiler

Compiled 656 to 612 computations (6.7% saved)

Precisions

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

ival-exp: 3.0ms (28.3% of total)

ival-cos: 3.0ms (28.3% of total)

adjust: 1.0ms (9.4% of total)

ival-mult!: 1.0ms (9.4% of total)

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

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.9960343930997753	0.9979051049294528
0.0ms	-0.22916229755519407	-0.19350963942122165

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.22916229755519407	-0.19350963942122165

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	9.717479039760869e+23	+inf
0.0ms	-2.3899488690523173e+132	-0.0

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	9.717479039760869e+23	+inf
0.0ms	-2.3899488690523173e+132	-0.0

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch33.0ms (0.6%)

Memory

5.0MiB live, 49.2MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
15.0ms	3.004660848627727e-12	1.32594575287058
15.0ms	-2.881391893201234	-0.1933019953716945

Samples

21.0ms

208×

valid

Compiler

Compiled 976 to 829 computations (15.1% saved)

Precisions

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-2.881391893201234	-0.1933019953716945

Compiler

Compiled 366 to 309 computations (15.6% saved)

derivations68.0ms (1.3%)

Memory

-65.7MiB live, 10.2MiB allocated; 112ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 723 to 125 computations (82.7% saved)

preprocess140.0ms (2.6%)

Memory: -0.2MiB live, 193.4MiB allocated; 39ms collecting garbage
Remove: (abs K)
Compiler: Compiled 2 184 to 985 computations (54.9% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.0ms (0%)

sample2.9s (53.2%)

preprocess19.0ms (0.4%)

series171.0ms (3.2%)

rewrite178.0ms (3.3%)

eval15.0ms (0.3%)

prune17.0ms (0.3%)

series258.0ms (4.8%)

rewrite191.0ms (3.5%)

eval45.0ms (0.8%)

prune17.0ms (0.3%)

series261.0ms (4.8%)

rewrite183.0ms (3.4%)

eval18.0ms (0.3%)

prune10.0ms (0.2%)

series226.0ms (4.2%)

rewrite179.0ms (3.3%)

eval27.0ms (0.5%)

prune10.0ms (0.2%)

regimes385.0ms (7.1%)

bsearch50.0ms (0.9%)

bsearch22.0ms (0.4%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch33.0ms (0.6%)

bsearch1.0ms (0%)

derivations68.0ms (1.3%)

preprocess140.0ms (2.6%)

end0.0ms (0%)

Profiling