Metrics for Maksimov and Kolovsky, Equation (4)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory

1.1MiB live, 1.1MiB 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.4s (26.9%)

Memory

60.8MiB live, 3 943.5MiB allocated; 588ms collecting garbage

Samples

1.0s	1 990×	1	valid
866.0ms	6 266×	0	valid

Precisions

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

ival-exp: 720.0ms (45.6% of total)

ival-cos: 389.0ms (24.6% of total)

ival-mult: 135.0ms (8.6% of total)

adjust: 103.0ms (6.5% of total)

ival-add: 76.0ms (4.8% of total)

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

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

ival-neg: 34.0ms (2.2% of total)

ival-true: 6.0ms (0.4% of total)

exact: 5.0ms (0.3% of total)

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

Bogosity

explain575.0ms (6.5%)

Memory

85.7MiB live, 738.5MiB allocated; 349ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
130	0	-	-	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
0	0	-	-	`K`
0	0	-	-	`(neg.f64 l)`
0	0	-	-	`(/.f64 K #s(literal 2 binary64))`
0	0	-	-	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
0	127	(-4.0320122749211004e+103 3.7698696491475645e-138 -317.9614085624728 -27857623.837576468)	-	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
0	0	-	-	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
0	0	-	-	`J`
0	0	-	-	`U`
0	0	-	-	`(exp.f64 (neg.f64 l))`
0	0	-	-	`#s(literal 2 binary64)`
0	0	-	-	`(exp.f64 l)`
0	0	-	-	`l`
0	0	-	-	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`

Explanations

Click to see full explanations table

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

Confusion

	Predicted +	Predicted -
+	32	0
-	113	111

Precision

0.2206896551724138

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	32	0	0
-	113	0	111

Precision?

0.2206896551724138

Recall?

1.0

Freqs

test

number	freq
0	111
1	128
2	17

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

149.0ms	208×	1	valid
110.0ms	50×	2	valid
39.0ms	254×	0	valid

Compiler

Compiled 141 to 46 computations (67.4% saved)

Precisions

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

ival-exp: 143.0ms (68.1% of total)

ival-cos: 30.0ms (14.3% of total)

adjust: 12.0ms (5.7% of total)

ival-mult: 9.0ms (4.3% of total)

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

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

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

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

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

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

exact: 0.0ms (0% of total)

preprocess186.0ms (2.1%)

Memory

2.3MiB live, 236.0MiB allocated; 42ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	66	216
1	188	214
2	461	214
3	1762	214
0	14	15
0	23	15
1	44	15
2	92	15
3	309	15
4	1627	13
0	9007	12

Stop Event

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

Calls

Call 1

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

Outputs

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

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

Symmetry

(abs K)

Compiler

Compiled 15 to 14 computations (6.7% saved)

eval0.0ms (0%)

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

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Compiler

Compiled 15 to 14 computations (6.7% saved)

simplify383.0ms (4.3%)

Memory

-16.3MiB live, 283.8MiB allocated; 130ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	0	(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
cost-diff	0	(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
cost-diff	1	(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
cost-diff	2	(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	14	61
0	23	61
1	44	61
2	92	61
3	309	61
4	1627	53
0	9007	52

Stop Event

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

Calls

Call 1

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

localize85.0ms (1%)

Memory

7.4MiB live, 254.1MiB allocated; 18ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.00390625	(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
accuracy	0.00390625	(cos.f64 (/.f64 K #s(literal 2 binary64)))
accuracy	0.08431625976844201	(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
accuracy	29.931944119899	(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))

Samples

47.0ms	104×	1	valid
14.0ms	127×	0	valid
13.0ms	25×	2	valid

Compiler

Compiled 63 to 16 computations (74.6% saved)

Precisions

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

ival-exp: 28.0ms (47.2% of total)

ival-cos: 8.0ms (13.5% of total)

adjust: 7.0ms (11.8% of total)

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

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

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

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

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

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

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

exact: 0.0ms (0% of total)

series20.0ms (0.2%)

Memory

17.1MiB live, 62.3MiB allocated; 5ms collecting garbage

Counts

5 → 42

Calls

Call 1

Inputs
(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))
(+.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))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))

Outputs
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))) (/ U J)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) (* -1 (/ U J)))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* 2 l)))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* 1/3 (pow l 2))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* 1/60 (pow l 2))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (* l (cos (* 1/2 K)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/3 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/2520 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/60 (* J (cos (* 1/2 K))))))))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* 2 (* J l))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 1/3 (* J (pow l 2))) (* 2 J)))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/60 (* J (pow l 2))) (* 1/3 J)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/3 J) (* (pow l 2) (+ (* 1/2520 (* J (pow l 2))) (* 1/60 J)))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (neg l)))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (* -1 l)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (* -1 l))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l))))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l)))))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)) 1)))))

Calls

12 calls:

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

simplify185.0ms (2.1%)

Memory

-15.0MiB live, 218.5MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	191	1278
1	607	1278
2	2328	1168
3	6474	1168
0	8034	1104

Stop Event

1×	iter limit
1×	node limit

Counts

42 → 42

Calls

Call 1

Inputs
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))) (/ U J)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) (* -1 (/ U J)))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* 2 l)))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* 1/3 (pow l 2))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* 1/60 (pow l 2))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (* l (cos (* 1/2 K)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/3 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/2520 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/60 (* J (cos (* 1/2 K))))))))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* 2 (* J l))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 1/3 (* J (pow l 2))) (* 2 J)))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/60 (* J (pow l 2))) (* 1/3 J)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/3 J) (* (pow l 2) (+ (* 1/2520 (* J (pow l 2))) (* 1/60 J)))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (neg l)))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (* -1 l)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (* -1 l))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l))))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l)))))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)) 1)))))

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

rewrite45.0ms (0.5%)

Memory

17.3MiB live, 62.3MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	14	46
0	23	38
1	74	38
0	513	37

Stop Event

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

Counts

5 → 52

Calls

Call 1

Inputs
(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))
(+.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))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))

Outputs
(*.f64 (sinh.f64 l) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (sinh.f64 l))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (neg.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (exp.f64 (neg.f64 l)) (*.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64))) (fma.f64 (exp.f64 (neg.f64 l)) (*.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(-.f64 (-.f64 (exp.f64 l) (cosh.f64 l)) (sinh.f64 (neg.f64 l)))
(-.f64 (/.f64 (pow.f64 (exp.f64 l) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cosh.f64 l))) (/.f64 (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cosh.f64 l))))
(-.f64 (/.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64)))) (/.f64 (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64)) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64)))))
(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))
(+.f64 (-.f64 (exp.f64 l) (cosh.f64 l)) (sinh.f64 l))
(+.f64 (cosh.f64 l) (-.f64 (sinh.f64 l) (exp.f64 (neg.f64 l))))
(+.f64 (sinh.f64 l) (sinh.f64 l))
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 2 binary64))) (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l)))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l))) U))
(/.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 2 binary64)) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l)))))))
(/.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l)))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)) U)
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
(fma.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l)) U)
(fma.f64 (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal -2 binary64))) U)
(fma.f64 J (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64))) U)
(fma.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 J (cos.f64 (/.f64 K #s(literal -2 binary64)))) U)
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) U)) (/.f64 (.f64 U U) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) U)))
(-.f64 U (.f64 (neg.f64 (cos.f64 (/.f64 K #s(literal -2 binary64)))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l))))
(-.f64 U (.f64 (neg.f64 (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l))) (cos.f64 (/.f64 K #s(literal -2 binary64)))))
(-.f64 U (.f64 (neg.f64 J) (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (*.f64 (sinh.f64 l) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l)))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l)))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l))) #s(literal 2 binary64)))))
(+.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l))))
(+.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l))) U)
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) J) (*.f64 (sinh.f64 l) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J)
(.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l)))
(.f64 (.f64 (*.f64 J #s(literal 2 binary64)) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal -2 binary64))))
(.f64 J (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))))
(.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (*.f64 J (cos.f64 (/.f64 K #s(literal -2 binary64)))))
(.f64 (.f64 J #s(literal 2 binary64)) (sinh.f64 l))
(.f64 #s(literal 2 binary64) (.f64 (sinh.f64 l) J))
(.f64 J (.f64 (sinh.f64 l) #s(literal 2 binary64)))
(.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J)
(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J) (*.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64))) J) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(/.f64 (.f64 J (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (.f64 J (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64)))) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 K #s(literal -2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (+.f64 K (PI.f64)) #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))

eval154.0ms (1.7%)

Memory: -63.0MiB live, 63.3MiB allocated; 134ms collecting garbage
Compiler: Compiled 2 311 to 376 computations (83.7% saved)

prune7.0ms (0.1%)

Memory

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

Pruning

9 alts after pruning (9 fresh and 0 done)

	Pruned	Kept	Total
New	80	9	89
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	81	9	90

Accuracy

100.0%

Counts

90 → 9

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	100.0%	(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
▶	97.6%	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
	95.3%	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(literal 1/60 binary64) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
▶	91.5%	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
▶	67.7%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) U)
	77.1%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))) J U))
	67.7%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) U))
	87.4%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 J (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)))) l U))
▶	40.8%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Compiler

Compiled 452 to 358 computations (20.8% saved)

simplify138.0ms (1.6%)

Memory

-4.3MiB live, 182.5MiB allocated; 14ms collecting garbage

Localize:

Found 17 expressions of interest:

New	Metric	Score
cost-diff	0	#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))
cost-diff	0	(.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))
cost-diff	0	(.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
cost-diff	1	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
cost-diff	0	#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))
cost-diff	0	(.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (*.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)))
cost-diff	0	(.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
cost-diff	1	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
cost-diff	0	(.f64 (.f64 #s(literal 2 binary64) J) l)
cost-diff	0	(.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))
cost-diff	0	#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))
cost-diff	0	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) U)
cost-diff	0	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)
cost-diff	0	(/.f64 K #s(literal -2 binary64))
cost-diff	0	(cos.f64 (/.f64 K #s(literal -2 binary64)))
cost-diff	0	(.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64)))
cost-diff	0	(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	50	434
0	82	434
1	160	434
2	458	434
3	1832	411
4	7735	411
0	8008	409

Stop Event

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

Calls

Call 1

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

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

localize260.0ms (2.9%)

Memory

1.3MiB live, 429.0MiB allocated; 32ms collecting garbage

Localize:

Found 17 expressions of interest:

New	Metric	Score
accuracy	0.03515625	(fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64))
accuracy	0.06640625	(fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64))
accuracy	0.08431625976844201	(.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
accuracy	1.8162181017968924	#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))
accuracy	0.03515625	(.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l)
accuracy	0.08203125	(fma.f64 (*.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64))
accuracy	0.08431625976844201	(.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
accuracy	6.686864507218147	#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))
accuracy	0.0	(*.f64 #s(literal -1/2 binary64) K)
accuracy	0.00390625	(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
accuracy	0.127285009768442	(.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))
accuracy	20.900078282824783	#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))
accuracy	37.878278278622545	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)
accuracy	0.0	(sinh.f64 l)
accuracy	0.00390625	(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
accuracy	0.00390625	(cos.f64 (/.f64 K #s(literal -2 binary64)))
accuracy	0.0625	(.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64)))

Samples

107.0ms	104×	1	valid
59.0ms	127×	0	valid
28.0ms	25×	2	valid

Compiler

Compiled 312 to 44 computations (85.9% saved)

Precisions

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

ival-mult: 28.0ms (17.6% of total)

ival-exp: 25.0ms (15.7% of total)

ival-add: 25.0ms (15.7% of total)

ival-cos: 24.0ms (15.1% of total)

adjust: 20.0ms (12.6% of total)

ival-neg: 15.0ms (9.4% of total)

const: 12.0ms (7.6% of total)

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

ival-sub: 3.0ms (1.9% of total)

ival-sinh: 2.0ms (1.3% of total)

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

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

exact: 0.0ms (0% of total)

series109.0ms (1.2%)

Memory

18.7MiB live, 115.9MiB allocated; 22ms collecting garbage

Counts

24 → 101

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
36.0ms	U	@	inf	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (sinh l) (cos (* -1/2 K)) (* -1/2 K) (+ (* (* l l) 1/3) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))
27.0ms	l	@	inf	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (sinh l) (cos (* -1/2 K)) (* -1/2 K) (+ (* (* l l) 1/3) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))
7.0ms	U	@	-inf	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (sinh l) (cos (* -1/2 K)) (* -1/2 K) (+ (* (* l l) 1/3) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))
7.0ms	l	@	0	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (sinh l) (cos (* -1/2 K)) (* -1/2 K) (+ (* (* l l) 1/3) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))
6.0ms	l	@	-inf	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (sinh l) (cos (* -1/2 K)) (* -1/2 K) (+ (* (* l l) 1/3) 2) (* (+ (* (* l l) 1/3) 2) l) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))

simplify186.0ms (2.1%)

Memory

1.4MiB live, 186.3MiB allocated; 24ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	422	2715
1	1376	2677
2	5543	2673
0	8440	2515

Stop Event

1×	iter limit
1×	node limit

Counts

101 → 101

Calls

Call 1

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

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

rewrite106.0ms (1.2%)

Memory

-0.7MiB live, 129.2MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	50	346
0	82	324
1	287	323
0	2070	321

Stop Event

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

Counts

24 → 236

Calls

Call 1

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

Outputs
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 U (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (*.f64 J #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (*.f64 J #s(literal 2 binary64))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64)))) (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (*.f64 J #s(literal 2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (*.f64 J #s(literal 2 binary64))) U))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) U)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64)))) (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (*.f64 J #s(literal 2 binary64))) #s(literal 2 binary64))))
(fma.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (sinh.f64 l)) U)
(fma.f64 (.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l))) #s(literal 2 binary64) U)
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) U)
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64)) U)
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) U)
(fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
(fma.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) U)
(fma.f64 J (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal 2 binary64)) U)
(fma.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal 2 binary64)) J U)
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) U)) (/.f64 (.f64 U U) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) U)))
(-.f64 U (.f64 (neg.f64 J) (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal 2 binary64))))
(-.f64 U (.f64 (neg.f64 (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal 2 binary64))) J))
(-.f64 U (.f64 (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(-.f64 U (.f64 (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64)))) (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 J #s(literal 2 binary64)))) (pow.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (*.f64 J #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (*.f64 J #s(literal 2 binary64))) U)
(+.f64 U (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (*.f64 J #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (sinh.f64 l))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal 2 binary64))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (sinh.f64 l)))
(.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)))
(.f64 (sinh.f64 l) (.f64 #s(literal 2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l)))) (*.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64)))) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal -2 binary64)))
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal 1 binary64) (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) (.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l))))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l))) (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l))))
(+.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sinh.f64 l)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (/.f64 K #s(literal -2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (/.f64 (+.f64 (neg.f64 K) (PI.f64)) #s(literal 2 binary64)))
(sin.f64 (/.f64 (+.f64 K (PI.f64)) #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(+.f64 (.f64 (sin.f64 (/.f64 K #s(literal -2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 K)) #s(literal -2 binary64))
(/.f64 (neg.f64 K) #s(literal 2 binary64))
(/.f64 K #s(literal -2 binary64))
(neg.f64 (/.f64 K #s(literal 2 binary64)))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)
(/.f64 (-.f64 (.f64 U U) (pow.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64))) (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) U))
(/.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) U))))
(/.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64))) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (-.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)) (/.f64 (.f64 U U) (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)))
(+.f64 (/.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)))))
(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)
(+.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l)))
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (.f64 J l))
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) l) (.f64 J #s(literal 2 binary64)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))
(.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))
(.f64 (.f64 J #s(literal 2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) l))
(.f64 J (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) l)))
(.f64 #s(literal 2 binary64) (.f64 (.f64 J l) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
(.f64 #s(literal 2 binary64) (.f64 J (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) l)))
(.f64 l (.f64 (.f64 J #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
(.f64 (.f64 l #s(literal 2 binary64)) J)
(.f64 (.f64 J l) #s(literal 2 binary64))
(.f64 (.f64 J #s(literal 2 binary64)) l)
(.f64 J (.f64 #s(literal 2 binary64) l))
(.f64 #s(literal 2 binary64) (.f64 J l))
(.f64 l (.f64 J #s(literal 2 binary64)))
(neg.f64 (.f64 #s(literal -2 binary64) (.f64 J l)))
(fma.f64 J l (*.f64 J l))
(fma.f64 l J (*.f64 J l))
(+.f64 (.f64 J l) (.f64 J l))
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64))) (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)) J))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)) J)) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)) J)) U))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)) J)) U))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)) U)
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l))) J U)
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)) J) U)
(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
(fma.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l))) U)
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) U)) (/.f64 (.f64 U U) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)) J)) U)))
(-.f64 U (.f64 (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)))
(-.f64 U (.f64 (neg.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(-.f64 U (.f64 (neg.f64 J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)) U)
(+.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l))) J)
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J))
(.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l))))
(.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)) J)
(.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64)) l)))
#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l))
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 U (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) U)
(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J U)
(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
(fma.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) U)
(fma.f64 J (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)) (/.f64 (.f64 U U) (-.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(-.f64 U (.f64 (neg.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(-.f64 U (.f64 (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)))
(-.f64 U (.f64 (neg.f64 J) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (pow.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(+.f64 U (.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))
(.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J)
(.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J))
(.f64 J (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)
(.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))
#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))
(*.f64 #s(literal 2 binary64) (/.f64 (sinh.f64 l) #s(literal 2 binary64)))
(*.f64 (sinh.f64 l) #s(literal 1 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l))) #s(literal -2 binary64))
(/.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 (*.f64 #s(literal 2 binary64) (cosh.f64 l)) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64))) (.f64 (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) #s(literal 2 binary64))
(sinh.f64 l)
(neg.f64 (/.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) #s(literal -2 binary64)))
(-.f64 (/.f64 (exp.f64 l) #s(literal 2 binary64)) (/.f64 (exp.f64 (neg.f64 l)) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) K)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 #s(literal -1/2 binary64) K)
(*.f64 K #s(literal -1/2 binary64))
(/.f64 (-.f64 #s(literal 4 binary64) (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64))) (-.f64 #s(literal 2 binary64) (.f64 #s(literal 1/3 binary64) (.f64 l l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64))) (neg.f64 (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/27 binary64) #s(literal 8 binary64))) (neg.f64 (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (*.f64 l l) #s(literal 2/3 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/27 binary64) #s(literal 8 binary64)) (+.f64 #s(literal 4 binary64) (-.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) (.f64 (*.f64 l l) #s(literal 2/3 binary64)))))
(/.f64 (fma.f64 (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/27 binary64) #s(literal 8 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (*.f64 l l) #s(literal 2/3 binary64))))
(fma.f64 (*.f64 #s(literal 1/3 binary64) (fabs.f64 l)) (fabs.f64 l) #s(literal 2 binary64))
(fma.f64 (*.f64 #s(literal 1/3 binary64) (neg.f64 l)) (neg.f64 l) #s(literal 2 binary64))
(fma.f64 (*.f64 #s(literal 1/3 binary64) l) l #s(literal 2 binary64))
(fma.f64 (fabs.f64 l) (*.f64 (fabs.f64 l) #s(literal 1/3 binary64)) #s(literal 2 binary64))
(fma.f64 #s(literal 1/3 binary64) (*.f64 l l) #s(literal 2 binary64))
(fma.f64 (*.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64))
(fma.f64 (neg.f64 l) (*.f64 (neg.f64 l) #s(literal 1/3 binary64)) #s(literal 2 binary64))
(fma.f64 l (*.f64 #s(literal 1/3 binary64) l) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64))))
(-.f64 #s(literal 2 binary64) (.f64 #s(literal -1/3 binary64) (.f64 l l)))
(-.f64 #s(literal 2 binary64) (.f64 (neg.f64 (.f64 l l)) #s(literal 1/3 binary64)))
(-.f64 #s(literal 2 binary64) (.f64 (neg.f64 l) (.f64 #s(literal 1/3 binary64) l)))
(+.f64 (fma.f64 (*.f64 #s(literal 1/3 binary64) l) l #s(literal 1 binary64)) #s(literal 1 binary64))
(+.f64 (/.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 l l) #s(literal 2/3 binary64)))) (/.f64 #s(literal 8 binary64) (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 l l) #s(literal 2/3 binary64)))))
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/3 binary64) (.f64 l l))))
(+.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64))
(+.f64 #s(literal 2 binary64) (.f64 #s(literal 1/3 binary64) (.f64 l l)))
(.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l)
(.f64 l (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64)) l) (-.f64 (.f64 #s(literal 1/3 binary64) (*.f64 l l)) #s(literal 2 binary64)))
(/.f64 (.f64 (fma.f64 (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/27 binary64) #s(literal 8 binary64)) l) (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 l l) #s(literal 2/3 binary64))))
(/.f64 (.f64 l (-.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal 1/3 binary64) (*.f64 l l)) #s(literal 2 binary64)))
(/.f64 (.f64 l (fma.f64 (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/27 binary64) #s(literal 8 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 l l) #s(literal 2/3 binary64))))
(fma.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) l (*.f64 #s(literal 2 binary64) l))
(fma.f64 #s(literal 2 binary64) l (.f64 (.f64 #s(literal 1/3 binary64) (*.f64 l l)) l))
(fma.f64 l (.f64 #s(literal 1/3 binary64) (.f64 l l)) (*.f64 l #s(literal 2 binary64)))
(fma.f64 l #s(literal 2 binary64) (.f64 l (.f64 #s(literal 1/3 binary64) (*.f64 l l))))
(+.f64 (.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) l) (.f64 #s(literal 2 binary64) l))
(+.f64 (.f64 #s(literal 2 binary64) l) (.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) l))
(+.f64 (.f64 l (.f64 #s(literal 1/3 binary64) (.f64 l l))) (.f64 l #s(literal 2 binary64)))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 l (.f64 #s(literal 1/3 binary64) (.f64 l l))))
(/.f64 (-.f64 #s(literal 1/3600 binary64) (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 2 binary64))) (-.f64 #s(literal 1/60 binary64) (.f64 #s(literal 1/2520 binary64) (.f64 l l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 1/3600 binary64))) (neg.f64 (-.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 1/60 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/16003008000 binary64) (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/216000 binary64))) (neg.f64 (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (.f64 (*.f64 l l) #s(literal 1/151200 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (-.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 1/60 binary64)))
(/.f64 (fma.f64 #s(literal 1/16003008000 binary64) (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/216000 binary64)) (+.f64 #s(literal 1/3600 binary64) (-.f64 (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 2 binary64)) (.f64 (*.f64 l l) #s(literal 1/151200 binary64)))))
(/.f64 (fma.f64 #s(literal 1/16003008000 binary64) (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/216000 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (.f64 (*.f64 l l) #s(literal 1/151200 binary64))))
(fma.f64 (*.f64 #s(literal 1/2520 binary64) (fabs.f64 l)) (fabs.f64 l) #s(literal 1/60 binary64))
(fma.f64 (*.f64 #s(literal 1/2520 binary64) (neg.f64 l)) (neg.f64 l) #s(literal 1/60 binary64))
(fma.f64 (*.f64 #s(literal 1/2520 binary64) l) l #s(literal 1/60 binary64))
(fma.f64 (fabs.f64 l) (*.f64 (fabs.f64 l) #s(literal 1/2520 binary64)) #s(literal 1/60 binary64))
(fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64))
(fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64))
(fma.f64 (neg.f64 l) (*.f64 (neg.f64 l) #s(literal 1/2520 binary64)) #s(literal 1/60 binary64))
(fma.f64 l (*.f64 #s(literal 1/2520 binary64) l) #s(literal 1/60 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 1/60 binary64))) (/.f64 #s(literal 1/3600 binary64) (-.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 1/60 binary64))))
(-.f64 #s(literal 1/60 binary64) (.f64 (neg.f64 (.f64 #s(literal 1/2520 binary64) l)) l))
(-.f64 #s(literal 1/60 binary64) (.f64 #s(literal -1/2520 binary64) (.f64 l l)))
(-.f64 #s(literal 1/60 binary64) (.f64 (neg.f64 (.f64 l l)) #s(literal 1/2520 binary64)))
(+.f64 (/.f64 (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (.f64 (.f64 l l) #s(literal 1/151200 binary64)))) (/.f64 #s(literal 1/216000 binary64) (-.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (.f64 (.f64 l l) #s(literal 1/151200 binary64)))))
(+.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) #s(literal 1/60 binary64))
(+.f64 #s(literal 1/60 binary64) (.f64 #s(literal 1/2520 binary64) (.f64 l l)))
(/.f64 (-.f64 #s(literal 1/9 binary64) (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64))) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) #s(literal 1/9 binary64))) (neg.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/27 binary64) (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) #s(literal 1/9 binary64)) (-.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64)))
(/.f64 (+.f64 #s(literal 1/27 binary64) (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64))) (+.f64 #s(literal 1/9 binary64) (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) (.f64 #s(literal 1/3 binary64) l)))))
(/.f64 (+.f64 #s(literal 1/27 binary64) (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64))) (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64))))
(fma.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (fabs.f64 l)) (fabs.f64 l) #s(literal 1/3 binary64))
(fma.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (neg.f64 l)) (neg.f64 l) #s(literal 1/3 binary64))
(fma.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l #s(literal 1/3 binary64))
(fma.f64 (fabs.f64 l) (.f64 (fabs.f64 l) (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64))) #s(literal 1/3 binary64))
(fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64))
(fma.f64 (.f64 l l) (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) #s(literal 1/3 binary64))
(fma.f64 (neg.f64 l) (.f64 (neg.f64 l) (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64))) #s(literal 1/3 binary64))
(fma.f64 l (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) #s(literal 1/3 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))) (/.f64 #s(literal 1/9 binary64) (-.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))))
(-.f64 #s(literal 1/3 binary64) (.f64 (neg.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64)) l)) l))
(-.f64 #s(literal 1/3 binary64) (.f64 (neg.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64))) (*.f64 l l)))
(-.f64 #s(literal 1/3 binary64) (.f64 (neg.f64 (.f64 l l)) (fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64)) (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)))) (/.f64 #s(literal 1/27 binary64) (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))
(+.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64)) l) l))

eval75.0ms (0.9%)

Memory: 5.0MiB live, 107.4MiB allocated; 17ms collecting garbage
Compiler: Compiled 11 642 to 1 585 computations (86.4% saved)

prune19.0ms (0.2%)

Memory

7.7MiB live, 53.5MiB allocated; 5ms collecting garbage

Pruning

17 alts after pruning (16 fresh and 1 done)

	Pruned	Kept	Total
New	316	16	332
Fresh	4	0	4
Picked	4	1	5
Done	0	0	0
Total	324	17	341

Accuracy

100.0%

Counts

341 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.9%	(fma.f64 (.f64 (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
▶	100.0%	(fma.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
	97.6%	(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
	68.6%	(fma.f64 (.f64 #s(approx (cos (/ K -2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
	82.8%	(fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
	91.5%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64))) l)) J U)
▶	67.7%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J U)
▶	95.3%	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
▶	48.3%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/46080 binary64) (.f64 K K) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))))) U)
	49.2%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 #s(literal 1/384 binary64) (.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64))))) U)
	50.6%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))) U)
	67.7%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)) U)
	38.3%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (fma.f64 (.f64 (fma.f64 #s(literal 1/192 binary64) (.f64 (.f64 (.f64 K K) l) J) (.f64 #s(literal -1/4 binary64) (.f64 J l))) K) K (.f64 (.f64 J l) #s(literal 2 binary64))))) U)
	46.4%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (fma.f64 (.f64 (.f64 (.f64 K K) l) J) #s(literal -1/4 binary64) (.f64 (*.f64 J l) #s(literal 2 binary64))))) U)
▶	58.5%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J l) #s(literal 2 binary64)))) U)
	67.7%	#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (fma.f64 (.f64 (.f64 J l) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U))
✓	40.8%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Compiler

Compiled 981 to 767 computations (21.8% saved)

simplify129.0ms (1.5%)

Memory

6.2MiB live, 190.6MiB allocated; 30ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))
cost-diff	0	(.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))
cost-diff	0	(.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
cost-diff	1	(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
cost-diff	0	(*.f64 #s(literal 2 binary64) l)
cost-diff	0	(.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
cost-diff	0	#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
cost-diff	0	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J U)
cost-diff	0	(.f64 (.f64 #s(literal 2 binary64) J) l)
cost-diff	0	(.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/46080 binary64) (.f64 K K) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))))
cost-diff	0	#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/46080 binary64) (.f64 K K) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64)))))
cost-diff	0	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/46080 binary64) (.f64 K K) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))))) U)
cost-diff	0	(.f64 (.f64 J l) #s(literal 2 binary64))
cost-diff	0	#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J l) #s(literal 2 binary64)))
cost-diff	0	#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J l) #s(literal 2 binary64))))
cost-diff	0	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J l) #s(literal 2 binary64)))) U)
cost-diff	0	#s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))
cost-diff	0	(cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))
cost-diff	0	(.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 (sinh.f64 l) #s(literal 2 binary64)))
cost-diff	0	(fma.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	77	631
0	116	631
1	225	631
2	608	631
3	2250	615
0	8675	606

Stop Event

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

Calls

Call 1

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

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

localize317.0ms (3.6%)

Memory

1.6MiB live, 718.3MiB allocated; 108ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.03515625	(fma.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64))
accuracy	0.08431625976844201	(.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
accuracy	1.8162181017968924	#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))
accuracy	30.268019248550665	#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64))
accuracy	0.00390625	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J U)
accuracy	0.00390625	(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
accuracy	0.1171875	(.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
accuracy	29.69509032558553	#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
accuracy	0.127285009768442	(.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/46080 binary64) (.f64 K K) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))))
accuracy	0.24609375	(.f64 (fma.f64 #s(literal -1/46080 binary64) (.f64 K K) #s(literal 1/384 binary64)) K)
accuracy	20.900078282824783	#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/46080 binary64) (.f64 K K) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64)))))
accuracy	31.3023453972055	#s(approx (cos (* -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/46080 binary64) (.f64 K K) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64)))
accuracy	0.0	(*.f64 J l)
accuracy	0.0078125	(.f64 (.f64 J l) #s(literal 2 binary64))
accuracy	20.900078282824783	#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J l) #s(literal 2 binary64))))
accuracy	22.69677420528487	#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J l) #s(literal 2 binary64)))
accuracy	0.0	#s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))
accuracy	0.00390625	(fma.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
accuracy	0.00390625	(cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))
accuracy	0.0625	(.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 (sinh.f64 l) #s(literal 2 binary64)))

Samples

144.0ms	104×	1	valid
73.0ms	127×	0	valid
46.0ms	25×	2	valid

Compiler

Compiled 382 to 60 computations (84.3% saved)

Precisions

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

ival-mult: 55.0ms (24.7% of total)

ival-add: 39.0ms (17.5% of total)

ival-cos: 35.0ms (15.7% of total)

ival-exp: 30.0ms (13.5% of total)

adjust: 27.0ms (12.1% of total)

const: 20.0ms (9% of total)

ival-sub: 9.0ms (4% of total)

ival-div: 3.0ms (1.3% of total)

ival-sinh: 2.0ms (0.9% of total)

exact: 1.0ms (0.4% of total)

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

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

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

series52.0ms (0.6%)

Memory

11.2MiB live, 100.4MiB allocated; 31ms collecting garbage

Counts

26 → 105

Calls

Call 1

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

Outputs
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 U))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (* 2 (* J (* l (cos (* -1/2 K)))))))
#s(approx (* (* J l) 2) #s(hole binary64 (* 2 (* J l))))
#s(approx (* (* 2 J) l) #s(hole binary64 (* 2 (* J l))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (* J l) #s(hole binary64 (* J l)))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* J (+ (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))) (/ U J)))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* -1/2 K))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* -1/2 K))))) (* 2 (* J (cos (* -1/2 K)))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* -1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* -1/2 K))))) (* 1/3 (* J (cos (* -1/2 K)))))))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* 2 (* l (cos (* -1/2 K))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* l (+ (* 1/3 (* (pow l 2) (cos (* -1/2 K)))) (* 2 (cos (* -1/2 K)))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* l (+ (* 2 (cos (* -1/2 K))) (* (pow l 2) (+ (* 1/60 (* (pow l 2) (cos (* -1/2 K)))) (* 1/3 (cos (* -1/2 K)))))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* l (+ (* 2 (cos (* -1/2 K))) (* (pow l 2) (+ (* 1/3 (cos (* -1/2 K))) (* (pow l 2) (+ (* 1/2520 (* (pow l 2) (cos (* -1/2 K)))) (* 1/60 (cos (* -1/2 K)))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (* l (cos (* 1/2 K)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/3 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/2520 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/60 (* J (cos (* 1/2 K))))))))))))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (* 2 (* l (cos (* 1/2 K))))))
#s(approx (* 2 l) #s(hole binary64 (* 2 l)))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* 2 (* J l))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 1/3 (* J (pow l 2))) (* 2 J)))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/60 (* J (pow l 2))) (* 1/3 J)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/3 J) (* (pow l 2) (+ (* 1/2520 (* J (pow l 2))) (* 1/60 J)))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* 2 l)))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* 1/3 (pow l 2))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* 1/60 (pow l 2))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2))))))))))
#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(hole binary64 1/60))
#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(hole binary64 (+ 1/60 (* 1/2520 (pow l 2)))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 1/3))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (+ 1/3 (* 1/60 (pow l 2)))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2)))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (neg l)))))
#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(hole binary64 (* 1/2520 (pow l 2))))
#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(hole binary64 (* (pow l 2) (+ 1/2520 (* 1/60 (/ 1 (pow l 2)))))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (* 1/2520 (pow l 4))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (* (pow l 4) (+ 1/2520 (* 1/60 (/ 1 (pow l 2)))))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (* (pow l 4) (+ 1/2520 (+ (/ 1/3 (pow l 4)) (* 1/60 (/ 1 (pow l 2))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (* -1 l))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (* -1 l)))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* J (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l))))))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (- (exp l) (/ 1 (exp l)))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (- (+ (exp l) (* -1/8 (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (/ 1 (exp l)))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (- (+ (exp l) (* (pow K 2) (+ (* -1/8 (- (exp l) (/ 1 (exp l)))) (* 1/384 (* (pow K 2) (- (exp l) (/ 1 (exp l)))))))) (/ 1 (exp l)))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (- (+ (exp l) (* (pow K 2) (+ (* -1/8 (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (- (exp l) (/ 1 (exp l))))) (* 1/384 (- (exp l) (/ 1 (exp l))))))))) (/ 1 (exp l)))))
#s(approx (cos (/ K -2)) #s(hole binary64 1))
#s(approx (cos (/ K -2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K -2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K -2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K -2) #s(hole binary64 (* -1/2 K)))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l))))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l)))))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l))))))))))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (* 2 (* J l))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (+ (* -1/4 (* J (* (pow K 2) l))) (* 2 (* J l)))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 (* J l)) (* (pow K 2) (+ (* -1/4 (* J l)) (* 1/192 (* J (* (pow K 2) l))))))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 (* J l)) (* (pow K 2) (+ (* -1/4 (* J l)) (* (pow K 2) (+ (* -1/23040 (* J (* (pow K 2) l))) (* 1/192 (* J l)))))))))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (* 2 l)))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (+ (* -1/4 (* (pow K 2) l)) (* 2 l))))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (+ (* 2 l) (* (pow K 2) (+ (* -1/4 l) (* 1/192 (* (pow K 2) l)))))))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (+ (* 2 l) (* (pow K 2) (+ (* -1/4 l) (* (pow K 2) (+ (* -1/23040 (* (pow K 2) l)) (* 1/192 l))))))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 1))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* 1/384 K)))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* K (+ 1/384 (* -1/46080 (pow K 2))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 1))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (cos (/ K -2)) #s(hole binary64 (cos (* -1/2 K))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (cos (* -1/2 K))))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* -1/46080 (pow K 3))))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* (pow K 3) (- (* 1/384 (/ 1 (pow K 2))) 1/46080))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* -1 (* (pow K 3) (- 1/46080 (* 1/384 (/ 1 (pow K 2))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) U)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) U)) 1)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)) 1)))))

Calls

12 calls:

Time	Variable		Point	Expression
12.0ms	l	@	0	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* J l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (* J l) (cos (* -1/2 K)) (* (+ (* -1/46080 (* K K)) 1/384) K) (cos (* 1/2 K)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))
5.0ms	l	@	-inf	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* J l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (* J l) (cos (* -1/2 K)) (* (+ (* -1/46080 (* K K)) 1/384) K) (cos (* 1/2 K)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))
5.0ms	l	@	inf	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* J l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (* J l) (cos (* -1/2 K)) (* (+ (* -1/46080 (* K K)) 1/384) K) (cos (* 1/2 K)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))
4.0ms	K	@	-inf	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* J l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (* J l) (cos (* -1/2 K)) (* (+ (* -1/46080 (* K K)) 1/384) K) (cos (* 1/2 K)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))
4.0ms	J	@	-inf	((+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (/ K -2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* J l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (* 2 J) l) (cos (* -1/2 K))) (* (* 2 J) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) (- (exp l) (exp (neg l))) (* J l) (cos (* -1/2 K)) (* (+ (* -1/46080 (* K K)) 1/384) K) (cos (* 1/2 K)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3))

simplify205.0ms (2.3%)

Memory

2.9MiB live, 280.9MiB allocated; 64ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	431	2812
1	1374	2774
2	5828	2768
0	8233	2610

Stop Event

1×	iter limit
1×	node limit

Counts

105 → 105

Calls

Call 1

Inputs
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 U))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (* 2 (* J (* l (cos (* -1/2 K)))))))
#s(approx (* (* J l) 2) #s(hole binary64 (* 2 (* J l))))
#s(approx (* (* 2 J) l) #s(hole binary64 (* 2 (* J l))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (* J l) #s(hole binary64 (* J l)))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* J (+ (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))) (/ U J)))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* -1/2 K))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* -1/2 K))))) (* 2 (* J (cos (* -1/2 K)))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* -1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* -1/2 K))))) (* 1/3 (* J (cos (* -1/2 K)))))))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* 2 (* l (cos (* -1/2 K))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* l (+ (* 1/3 (* (pow l 2) (cos (* -1/2 K)))) (* 2 (cos (* -1/2 K)))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* l (+ (* 2 (cos (* -1/2 K))) (* (pow l 2) (+ (* 1/60 (* (pow l 2) (cos (* -1/2 K)))) (* 1/3 (cos (* -1/2 K)))))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* l (+ (* 2 (cos (* -1/2 K))) (* (pow l 2) (+ (* 1/3 (cos (* -1/2 K))) (* (pow l 2) (+ (* 1/2520 (* (pow l 2) (cos (* -1/2 K)))) (* 1/60 (cos (* -1/2 K)))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (* l (cos (* 1/2 K)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/3 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/2520 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/60 (* J (cos (* 1/2 K))))))))))))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (* 2 (* l (cos (* 1/2 K))))))
#s(approx (* 2 l) #s(hole binary64 (* 2 l)))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* 2 (* J l))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 1/3 (* J (pow l 2))) (* 2 J)))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/60 (* J (pow l 2))) (* 1/3 J)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/3 J) (* (pow l 2) (+ (* 1/2520 (* J (pow l 2))) (* 1/60 J)))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* 2 l)))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* 1/3 (pow l 2))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* 1/60 (pow l 2))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2))))))))))
#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(hole binary64 1/60))
#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(hole binary64 (+ 1/60 (* 1/2520 (pow l 2)))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 1/3))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (+ 1/3 (* 1/60 (pow l 2)))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2)))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (neg l)))))
#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(hole binary64 (* 1/2520 (pow l 2))))
#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(hole binary64 (* (pow l 2) (+ 1/2520 (* 1/60 (/ 1 (pow l 2)))))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (* 1/2520 (pow l 4))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (* (pow l 4) (+ 1/2520 (* 1/60 (/ 1 (pow l 2)))))))
#s(approx (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) #s(hole binary64 (* (pow l 4) (+ 1/2520 (+ (/ 1/3 (pow l 4)) (* 1/60 (/ 1 (pow l 2))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (* -1 l))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (* -1 l)))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* J (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l))))))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (- (exp l) (/ 1 (exp l)))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (- (+ (exp l) (* -1/8 (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (/ 1 (exp l)))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (- (+ (exp l) (* (pow K 2) (+ (* -1/8 (- (exp l) (/ 1 (exp l)))) (* 1/384 (* (pow K 2) (- (exp l) (/ 1 (exp l)))))))) (/ 1 (exp l)))))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(hole binary64 (- (+ (exp l) (* (pow K 2) (+ (* -1/8 (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (- (exp l) (/ 1 (exp l))))) (* 1/384 (- (exp l) (/ 1 (exp l))))))))) (/ 1 (exp l)))))
#s(approx (cos (/ K -2)) #s(hole binary64 1))
#s(approx (cos (/ K -2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K -2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K -2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K -2) #s(hole binary64 (* -1/2 K)))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l))))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l)))))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l))))))))))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (* 2 (* J l))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (+ (* -1/4 (* J (* (pow K 2) l))) (* 2 (* J l)))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 (* J l)) (* (pow K 2) (+ (* -1/4 (* J l)) (* 1/192 (* J (* (pow K 2) l))))))))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) #s(hole binary64 (+ (* 2 (* J l)) (* (pow K 2) (+ (* -1/4 (* J l)) (* (pow K 2) (+ (* -1/23040 (* J (* (pow K 2) l))) (* 1/192 (* J l)))))))))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (* 2 l)))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (+ (* -1/4 (* (pow K 2) l)) (* 2 l))))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (+ (* 2 l) (* (pow K 2) (+ (* -1/4 l) (* 1/192 (* (pow K 2) l)))))))
#s(approx (* (* 2 l) (cos (* 1/2 K))) #s(hole binary64 (+ (* 2 l) (* (pow K 2) (+ (* -1/4 l) (* (pow K 2) (+ (* -1/23040 (* (pow K 2) l)) (* 1/192 l))))))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 1))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* 1/384 K)))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* K (+ 1/384 (* -1/46080 (pow K 2))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 1))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (cos (/ K -2)) #s(hole binary64 (cos (* -1/2 K))))
#s(approx (cos (* -1/2 K)) #s(hole binary64 (cos (* -1/2 K))))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* -1/46080 (pow K 3))))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* (pow K 3) (- (* 1/384 (/ 1 (pow K 2))) 1/46080))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (+ (* -1/46080 (* K K)) 1/384) K) #s(hole binary64 (* -1 (* (pow K 3) (- 1/46080 (* 1/384 (/ 1 (pow K 2))))))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) U)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)))))
#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* -1/2 K)) (- (exp l) (/ 1 (exp l))))) U)) 1)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)) 1)))))

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

rewrite184.0ms (2.1%)

Memory

8.5MiB live, 246.5MiB allocated; 72ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	77	486
0	116	470
1	384	470
0	2545	463

Stop Event

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

Counts

26 → 223

Calls

Call 1

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

Outputs
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64))) (-.f64 U (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))))) (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))) U))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)) (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (.f64 (.f64 J (*.f64 #s(literal 2 binary64) (sinh.f64 l))) U)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))))) (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64))))
(fma.f64 (.f64 J (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))))) #s(literal 2 binary64) U)
(fma.f64 (.f64 J (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) (*.f64 #s(literal 2 binary64) (sinh.f64 l)) U)
(fma.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) J) (*.f64 #s(literal 2 binary64) (sinh.f64 l)) U)
(fma.f64 (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) (*.f64 J #s(literal 2 binary64)) U)
(fma.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))) U)
(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))) U)
(fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))) J U)
(fma.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))) J) U)
(fma.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (.f64 J (*.f64 #s(literal 2 binary64) (sinh.f64 l))) U)
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) U)) (/.f64 (.f64 U U) (-.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))) U)))
(-.f64 U (.f64 (neg.f64 J) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))))))
(-.f64 U (.f64 (neg.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))))) J))
(-.f64 U (.f64 (neg.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l)))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))))) (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))))) (pow.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) U)
(+.f64 U (.f64 (.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))))
(.f64 (.f64 (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))) #s(literal 2 binary64)) (sinh.f64 l))
(.f64 (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))))
(.f64 #s(literal 2 binary64) (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))))
(.f64 (sinh.f64 l) (.f64 #s(literal 2 binary64) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))))
(.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 #s(literal 2 binary64) (sinh.f64 l)))
(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) (.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64))) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) (fma.f64 (exp.f64 (neg.f64 l)) (*.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l)))) (.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64)))) (fma.f64 (exp.f64 (neg.f64 l)) (*.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(neg.f64 (.f64 (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))) #s(literal -2 binary64)))
(fma.f64 (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 1 binary64) (.f64 (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) (.f64 #s(literal 1 binary64) (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))))))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))))) (.f64 #s(literal 1 binary64) (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))))))
(+.f64 (.f64 (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 1 binary64)) (.f64 (.f64 (sinh.f64 l) (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K)))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))))
(cos.f64 (neg.f64 (neg.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))))
(cos.f64 (neg.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))))
(cos.f64 #s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K)))
(+.f64 (.f64 (sin.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (/ K -2) (*.f64 #s(literal -1/2 binary64) K))
(/.f64 (-.f64 (.f64 U U) (pow.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64))) (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U))
(/.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U))))
(/.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64))) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (-.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)) (/.f64 (.f64 U U) (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)))
(+.f64 (/.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)))))
(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)
(+.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l)))
#s(approx (* (* (* 2 J) l) (cos (* -1/2 K))) (.f64 (.f64 J #s(literal 2 binary64)) l))
(.f64 (.f64 #s(literal 2 binary64) l) J)
(.f64 (.f64 J #s(literal 2 binary64)) l)
(.f64 (.f64 J l) #s(literal 2 binary64))
(.f64 J (.f64 #s(literal 2 binary64) l))
(.f64 #s(literal 2 binary64) (.f64 J l))
(.f64 l (.f64 J #s(literal 2 binary64)))
(neg.f64 (.f64 (.f64 J l) #s(literal -2 binary64)))
(neg.f64 (.f64 #s(literal -2 binary64) (.f64 J l)))
(fma.f64 #s(literal 1 binary64) (.f64 J l) (.f64 #s(literal 1 binary64) (*.f64 J l)))
(fma.f64 (.f64 J l) #s(literal 1 binary64) (.f64 (*.f64 J l) #s(literal 1 binary64)))
(fma.f64 J l (*.f64 J l))
(fma.f64 l J (*.f64 J l))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 J l)) (.f64 #s(literal 1 binary64) (.f64 J l)))
(+.f64 (.f64 (.f64 J l) #s(literal 1 binary64)) (.f64 (.f64 J l) #s(literal 1 binary64)))
(+.f64 (.f64 J l) (.f64 J l))
(/.f64 (-.f64 (.f64 U U) (pow.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64))) (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)) (-.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)) (/.f64 (.f64 U U) (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)))
(+.f64 (/.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l)))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) #s(literal 2 binary64)))))
(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))) U)
(+.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l)))
(.f64 (.f64 #s(approx (cos (* -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (*.f64 J #s(literal 2 binary64))) l)
(.f64 (.f64 #s(approx (cos (* -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (*.f64 J l)) #s(literal 2 binary64))
(.f64 (.f64 #s(approx (cos (* -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) J) (*.f64 #s(literal 2 binary64) l))
(.f64 (.f64 #s(approx (cos (* -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 J l))
(.f64 (.f64 #s(approx (cos (* -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) l) (*.f64 J #s(literal 2 binary64)))
(.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (.f64 (.f64 J #s(literal 2 binary64)) l))
(.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))))
(.f64 (.f64 J #s(literal 2 binary64)) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) l))
(.f64 (.f64 J l) (.f64 #s(literal 2 binary64) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64)))))
(.f64 J (.f64 (.f64 #s(literal 2 binary64) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64)))))
(.f64 J (.f64 #s(literal 2 binary64) (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) l)))
(.f64 #s(literal 2 binary64) (.f64 (.f64 J l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64)))))
(.f64 #s(literal 2 binary64) (.f64 J (.f64 #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) l)))
(.f64 l (.f64 (.f64 J #s(literal 2 binary64)) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64)))))
(.f64 (.f64 #s(literal 2 binary64) l) J)
(.f64 (.f64 J #s(literal 2 binary64)) l)
(.f64 (.f64 J l) #s(literal 2 binary64))
(.f64 J (.f64 #s(literal 2 binary64) l))
(.f64 #s(literal 2 binary64) (.f64 J l))
(.f64 l (.f64 J #s(literal 2 binary64)))
(neg.f64 (.f64 (.f64 J l) #s(literal -2 binary64)))
(neg.f64 (.f64 #s(literal -2 binary64) (.f64 J l)))
(fma.f64 #s(literal 1 binary64) (.f64 J l) (.f64 #s(literal 1 binary64) (*.f64 J l)))
(fma.f64 (.f64 J l) #s(literal 1 binary64) (.f64 (*.f64 J l) #s(literal 1 binary64)))
(fma.f64 J l (*.f64 J l))
(fma.f64 l J (*.f64 J l))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 J l)) (.f64 #s(literal 1 binary64) (.f64 J l)))
(+.f64 (.f64 (.f64 J l) #s(literal 1 binary64)) (.f64 (.f64 J l) #s(literal 1 binary64)))
(+.f64 (.f64 J l) (.f64 J l))
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 2 binary64))) (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J) U))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 2 binary64)) (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (.f64 J U)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 2 binary64))))
(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J U)
(fma.f64 J #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) U)
(-.f64 (/.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) U)) (/.f64 (.f64 U U) (-.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J) U)))
(-.f64 U (.f64 (neg.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) J))
(-.f64 U (.f64 (neg.f64 J) #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
(+.f64 (/.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J) #s(literal 2 binary64)))))
(+.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J) U)
(+.f64 U (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) l)
(.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) l) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) l) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal 2 binary64) l))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) l))
(.f64 l (.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(neg.f64 (.f64 #s(literal -2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) l)))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) l (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) l))
(fma.f64 l (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) l))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) l) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) l))
(*.f64 #s(literal 2 binary64) l)
(*.f64 l #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 l l) (.f64 l l)) (-.f64 l l))
(/.f64 (+.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))) (fma.f64 l l (-.f64 (.f64 l l) (.f64 l l))))
(neg.f64 (*.f64 l #s(literal -2 binary64)))
(neg.f64 (*.f64 #s(literal -2 binary64) l))
(fma.f64 #s(literal 1 binary64) l (*.f64 #s(literal 1 binary64) l))
(fma.f64 l #s(literal 1 binary64) (*.f64 l #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) l) (.f64 #s(literal 1 binary64) l))
(+.f64 (.f64 l #s(literal 1 binary64)) (.f64 l #s(literal 1 binary64)))
(+.f64 l l)
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64))) (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)) U))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)) U))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) U)
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J U)
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) U)
(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
(fma.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) U)
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) U)) (/.f64 (.f64 U U) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)) U)))
(-.f64 U (.f64 (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)))
(-.f64 U (.f64 (neg.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(-.f64 U (.f64 (neg.f64 J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) J))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)) U)
(+.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J)
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J))
(.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))))
(.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)
(.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))
#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))
(*.f64 J l)
(*.f64 l J)
#s(approx (cos (* -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64)))
(.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K)
(.f64 K (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (.f64 K K) #s(literal -1/46080 binary64)) #s(literal 2 binary64)) #s(literal 1/147456 binary64)) K) (-.f64 (.f64 (*.f64 K K) #s(literal -1/46080 binary64)) #s(literal 1/384 binary64)))
(/.f64 (.f64 (fma.f64 #s(literal -1/97844723712000 binary64) (pow.f64 (.f64 K K) #s(literal 3 binary64)) #s(literal 1/56623104 binary64)) K) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 K K) #s(literal -1/46080 binary64)) #s(literal 2 binary64)) #s(literal 1/147456 binary64)) (.f64 (.f64 K K) #s(literal -1/17694720 binary64))))
(/.f64 (.f64 K (-.f64 (pow.f64 (.f64 (.f64 K K) #s(literal -1/46080 binary64)) #s(literal 2 binary64)) #s(literal 1/147456 binary64))) (-.f64 (.f64 (*.f64 K K) #s(literal -1/46080 binary64)) #s(literal 1/384 binary64)))
(/.f64 (.f64 K (fma.f64 #s(literal -1/97844723712000 binary64) (pow.f64 (.f64 K K) #s(literal 3 binary64)) #s(literal 1/56623104 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 K K) #s(literal -1/46080 binary64)) #s(literal 2 binary64)) #s(literal 1/147456 binary64)) (.f64 (.f64 K K) #s(literal -1/17694720 binary64))))
(fma.f64 (.f64 (.f64 K K) #s(literal -1/46080 binary64)) K (*.f64 #s(literal 1/384 binary64) K))
(fma.f64 #s(literal 1/384 binary64) K (.f64 (.f64 (*.f64 K K) #s(literal -1/46080 binary64)) K))
(fma.f64 K (.f64 (.f64 K K) #s(literal -1/46080 binary64)) (*.f64 K #s(literal 1/384 binary64)))
(fma.f64 K #s(literal 1/384 binary64) (.f64 K (.f64 (*.f64 K K) #s(literal -1/46080 binary64))))
(+.f64 (.f64 (.f64 (.f64 K K) #s(literal -1/46080 binary64)) K) (.f64 #s(literal 1/384 binary64) K))
(+.f64 (.f64 #s(literal 1/384 binary64) K) (.f64 (.f64 (.f64 K K) #s(literal -1/46080 binary64)) K))
(+.f64 (.f64 K (.f64 (.f64 K K) #s(literal -1/46080 binary64))) (.f64 K #s(literal 1/384 binary64)))
(+.f64 (.f64 K #s(literal 1/384 binary64)) (.f64 K (.f64 (.f64 K K) #s(literal -1/46080 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64))
(/.f64 (-.f64 #s(literal 1/9 binary64) (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64))) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) #s(literal 1/9 binary64))) (neg.f64 (-.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/27 binary64) (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) #s(literal 1/9 binary64)) (-.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64)))
(/.f64 (+.f64 #s(literal 1/27 binary64) (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64))) (+.f64 #s(literal 1/9 binary64) (-.f64 (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) (*.f64 l #s(literal 1/3 binary64))))))
(/.f64 (+.f64 #s(literal 1/27 binary64) (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64))) (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64))))
(fma.f64 (.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (fabs.f64 l)) (fabs.f64 l) #s(literal 1/3 binary64))
(fma.f64 (.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (neg.f64 l)) (neg.f64 l) #s(literal 1/3 binary64))
(fma.f64 (.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l #s(literal 1/3 binary64))
(fma.f64 (fabs.f64 l) (.f64 (fabs.f64 l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64))) #s(literal 1/3 binary64))
(fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64))
(fma.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64))
(fma.f64 (neg.f64 l) (.f64 (neg.f64 l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64))) #s(literal 1/3 binary64))
(fma.f64 l (.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) #s(literal 1/3 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))) (/.f64 #s(literal 1/9 binary64) (-.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))))
(-.f64 #s(literal 1/3 binary64) (.f64 (neg.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l)) l))
(-.f64 #s(literal 1/3 binary64) (.f64 (neg.f64 (.f64 l l)) #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64))))
(-.f64 #s(literal 1/3 binary64) (.f64 (neg.f64 #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64))) (*.f64 l l)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64)) (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)))) (/.f64 #s(literal 1/27 binary64) (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))
(+.f64 #s(literal 1/3 binary64) (.f64 (.f64 #s(approx (+ (* 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) l) l))

eval54.0ms (0.6%)

Memory: 26.6MiB live, 172.6MiB allocated; 24ms collecting garbage
Compiler: Compiled 12 810 to 1 358 computations (89.4% saved)

prune20.0ms (0.2%)

Memory

-11.8MiB live, 81.0MiB allocated; 6ms collecting garbage

Pruning

17 alts after pruning (15 fresh and 2 done)

	Pruned	Kept	Total
New	292	8	300
Fresh	4	7	11
Picked	4	1	5
Done	0	1	1
Total	300	17	317

Accuracy

100.0%

Counts

317 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
	95.3%	(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J U)
✓	100.0%	(fma.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
▶	97.6%	(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
	68.6%	(fma.f64 (.f64 #s(approx (cos (/ K -2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
▶	82.8%	(fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
	67.7%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (+.f64 l l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J U)
	91.5%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64))) l)) J U)
	67.7%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))) J U)
▶	50.4%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (fma.f64 (.f64 l (fma.f64 #s(literal 1/192 binary64) (.f64 K K) #s(literal -1/4 binary64))) (.f64 K K) (.f64 #s(literal 2 binary64) l)))) J U)
	51.4%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U)
▶	58.5%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J U)
	49.2%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (-.f64 (.f64 #s(approx ( (+ (* -1/46080 (* K K)) 1/384) K) (.f64 #s(literal 1/384 binary64) K)) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))))) U)
	50.6%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))) U)
▶	67.7%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)) U)
	48.5%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 #s(approx (cos (* -1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (*.f64 J #s(literal 2 binary64))) l)) U)
	67.7%	#s(approx (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (fma.f64 (.f64 (.f64 J l) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U))
✓	40.8%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Compiler

Compiled 939 to 746 computations (20.6% saved)

simplify208.0ms (2.4%)

Memory

-20.4MiB live, 154.6MiB allocated; 74ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal 2 binary64)))
cost-diff	0	(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)
cost-diff	0	#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l))
cost-diff	0	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)) U)
cost-diff	0	(*.f64 (sinh.f64 l) #s(literal 2 binary64))
cost-diff	0	#s(approx (cos (/ K -2)) #s(literal 1 binary64))
cost-diff	0	(.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64)))
cost-diff	0	(fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
cost-diff	0	#s(approx (* (* 2 l) (cos (* 1/2 K))) (fma.f64 (.f64 l (fma.f64 #s(literal 1/192 binary64) (.f64 K K) #s(literal -1/4 binary64))) (.f64 K K) (.f64 #s(literal 2 binary64) l)))
cost-diff	0	#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (fma.f64 (.f64 l (fma.f64 #s(literal 1/192 binary64) (.f64 K K) #s(literal -1/4 binary64))) (.f64 K K) (.f64 #s(literal 2 binary64) l))))
cost-diff	0	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (fma.f64 (.f64 l (fma.f64 #s(literal 1/192 binary64) (.f64 K K) #s(literal -1/4 binary64))) (.f64 K K) (.f64 #s(literal 2 binary64) l)))) J U)
cost-diff	2	(fma.f64 (.f64 l (fma.f64 #s(literal 1/192 binary64) (.f64 K K) #s(literal -1/4 binary64))) (.f64 K K) (.f64 #s(literal 2 binary64) l))
cost-diff	0	(*.f64 #s(literal 2 binary64) l)
cost-diff	0	#s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))
cost-diff	0	#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l)))
cost-diff	0	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J U)
cost-diff	0	(.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)
cost-diff	0	#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))
cost-diff	0	(.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)
cost-diff	0	(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	63	483
0	98	483
1	201	479
2	606	479
3	2539	469
0	8347	465

Stop Event

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

Calls

Call 1

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

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

localize306.0ms (3.5%)

Memory

14.6MiB live, 428.1MiB allocated; 58ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.00390625	(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
accuracy	0.10546875	(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)
accuracy	0.1328125	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal 2 binary64)))
accuracy	20.900078282824783	#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l))
accuracy	0.0	(sinh.f64 l)
accuracy	0.00390625	(fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
accuracy	0.0625	(.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64)))
accuracy	28.605949818517555	#s(approx (cos (/ K -2)) #s(literal 1 binary64))
accuracy	0.08203125	(fma.f64 #s(literal 1/192 binary64) (*.f64 K K) #s(literal -1/4 binary64))
accuracy	3.3767021113453173	(.f64 l (fma.f64 #s(literal 1/192 binary64) (.f64 K K) #s(literal -1/4 binary64)))
accuracy	29.69509032558553	#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (fma.f64 (.f64 l (fma.f64 #s(literal 1/192 binary64) (.f64 K K) #s(literal -1/4 binary64))) (.f64 K K) (.f64 #s(literal 2 binary64) l))))
accuracy	31.13139338874663	#s(approx (* (* 2 l) (cos (* 1/2 K))) (fma.f64 (.f64 l (fma.f64 #s(literal 1/192 binary64) (.f64 K K) #s(literal -1/4 binary64))) (.f64 K K) (.f64 #s(literal 2 binary64) l)))
accuracy	0.0	(*.f64 #s(literal 2 binary64) l)
accuracy	0.00390625	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J U)
accuracy	28.378600153482072	#s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))
accuracy	29.69509032558553	#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l)))
accuracy	0.03515625	(fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64))
accuracy	0.0390625	(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
accuracy	0.06640625	(fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64))
accuracy	1.8162181017968924	#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))

Samples

158.0ms	104×	1	valid
57.0ms	127×	0	valid
45.0ms	25×	2	valid

Compiler

Compiled 321 to 55 computations (82.9% saved)

Precisions

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

ival-mult: 43.0ms (19.9% of total)

ival-exp: 40.0ms (18.5% of total)

ival-cos: 38.0ms (17.6% of total)

ival-sub: 30.0ms (13.9% of total)

adjust: 21.0ms (9.7% of total)

ival-add: 20.0ms (9.3% of total)

const: 17.0ms (7.9% of total)

ival-div: 3.0ms (1.4% of total)

ival-sinh: 2.0ms (0.9% of total)

exact: 1.0ms (0.5% of total)

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

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

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

series83.0ms (0.9%)

Memory

-3.6MiB live, 98.6MiB allocated; 22ms collecting garbage

Counts

26 → 148

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
35.0ms	J	@	inf	((+ (* (* (- (exp l) (exp (neg l))) J) (cos (/ K 2))) U) (* (- (exp l) (exp (neg l))) J) (- (exp l) (exp (neg l))) (* (+ (* (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l l)) 2) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* l (+ (* 1/192 (* K K)) -1/4)) (* K K)) (* 2 l)) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (* (sinh l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (cos (* 1/2 K)) (* J 2)) l) (* (cos (* 1/2 K)) (* J 2)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l (+ (* 1/192 (* K K)) -1/4)) (+ (* 1/192 (* K K)) -1/4) (sinh l) (cos (* 1/2 K)))
11.0ms	l	@	-inf	((+ (* (* (- (exp l) (exp (neg l))) J) (cos (/ K 2))) U) (* (- (exp l) (exp (neg l))) J) (- (exp l) (exp (neg l))) (* (+ (* (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l l)) 2) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* l (+ (* 1/192 (* K K)) -1/4)) (* K K)) (* 2 l)) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (* (sinh l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (cos (* 1/2 K)) (* J 2)) l) (* (cos (* 1/2 K)) (* J 2)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l (+ (* 1/192 (* K K)) -1/4)) (+ (* 1/192 (* K K)) -1/4) (sinh l) (cos (* 1/2 K)))
7.0ms	l	@	inf	((+ (* (* (- (exp l) (exp (neg l))) J) (cos (/ K 2))) U) (* (- (exp l) (exp (neg l))) J) (- (exp l) (exp (neg l))) (* (+ (* (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l l)) 2) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* l (+ (* 1/192 (* K K)) -1/4)) (* K K)) (* 2 l)) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (* (sinh l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (cos (* 1/2 K)) (* J 2)) l) (* (cos (* 1/2 K)) (* J 2)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l (+ (* 1/192 (* K K)) -1/4)) (+ (* 1/192 (* K K)) -1/4) (sinh l) (cos (* 1/2 K)))
4.0ms	l	@	0	((+ (* (* (- (exp l) (exp (neg l))) J) (cos (/ K 2))) U) (* (- (exp l) (exp (neg l))) J) (- (exp l) (exp (neg l))) (* (+ (* (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l l)) 2) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* l (+ (* 1/192 (* K K)) -1/4)) (* K K)) (* 2 l)) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (* (sinh l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (cos (* 1/2 K)) (* J 2)) l) (* (cos (* 1/2 K)) (* J 2)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l (+ (* 1/192 (* K K)) -1/4)) (+ (* 1/192 (* K K)) -1/4) (sinh l) (cos (* 1/2 K)))
4.0ms	K	@	inf	((+ (* (* (- (exp l) (exp (neg l))) J) (cos (/ K 2))) U) (* (- (exp l) (exp (neg l))) J) (- (exp l) (exp (neg l))) (* (+ (* (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l l)) 2) l) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (* 2 l) (+ (* (* l (+ (* 1/192 (* K K)) -1/4)) (* K K)) (* 2 l)) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (* (* 2 l) (cos (* 1/2 K))) (+ (* (* (cos (/ K -2)) (* (sinh l) 2)) J) U) (* (cos (/ K -2)) (* (sinh l) 2)) (cos (/ K -2)) (* (sinh l) 2) (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* (* (cos (* 1/2 K)) (* J 2)) l) (* (cos (* 1/2 K)) (* J 2)) (+ (* 1/2520 (* l l)) 1/60) (+ (* (+ (* 1/2520 (* l l)) 1/60) (* l l)) 1/3) (* l (+ (* 1/192 (* K K)) -1/4)) (+ (* 1/192 (* K K)) -1/4) (sinh l) (cos (* 1/2 K)))

simplify195.0ms (2.2%)

Memory

-6.7MiB live, 227.6MiB allocated; 46ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	558	4209
1	1754	4152
2	7300	4144
0	8449	3869

Stop Event

1×	iter limit
1×	node limit

Counts

148 → 148

Calls

Call 1

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

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

rewrite109.0ms (1.2%)

Memory

-12.2MiB live, 138.4MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	63	415
0	98	405
1	344	401
0	2436	397

Stop Event

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

Counts

26 → 305

Calls

Call 1

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

Outputs
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 2 binary64))) (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))) U))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))) U))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J U)
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) J) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) U)
(fma.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) U)
(fma.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal -2 binary64))) U)
(fma.f64 J (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) (cos.f64 (/.f64 K #s(literal -2 binary64)))) U)
(fma.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)) (*.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) J) U)
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) U)) (/.f64 (.f64 U U) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))) U)))
(-.f64 U (.f64 (neg.f64 (cos.f64 (/.f64 K #s(literal -2 binary64)))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))))
(-.f64 U (.f64 (neg.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) (cos.f64 (/.f64 K #s(literal -2 binary64)))))
(-.f64 U (.f64 (neg.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) J)))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))) U)
(+.f64 U (.f64 (cos.f64 (/.f64 K #s(literal -2 binary64))) (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)))))
(.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)))
(.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J)
#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))
(.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l)
(.f64 l (fma.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l) #s(literal 2 binary64)) #s(literal 4 binary64)) l) (-.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64)) l) l) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l) #s(literal 3 binary64))) l) (fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64)) l) l) #s(literal 2 binary64))))
(/.f64 (.f64 l (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l) #s(literal 2 binary64)) #s(literal 4 binary64))) (-.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64)) l) l) #s(literal 2 binary64)))
(/.f64 (.f64 l (+.f64 #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64)) l) l) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l) l (*.f64 #s(literal 2 binary64) l))
(fma.f64 #s(literal 2 binary64) l (.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64)) l) l) l))
(fma.f64 #s(literal 2 binary64) l (.f64 l (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64)) l) l)))
(fma.f64 l (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l) (*.f64 #s(literal 2 binary64) l))
(fma.f64 l #s(literal 2 binary64) (.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64)) l) l) l))
(fma.f64 l #s(literal 2 binary64) (.f64 l (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (*.f64 l l) #s(literal 1/3 binary64)) l) l)))
(+.f64 (.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l) l) (.f64 #s(literal 2 binary64) l))
(+.f64 (.f64 l (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l)) (.f64 #s(literal 2 binary64) l))
(+.f64 (.f64 #s(literal 2 binary64) l) (.f64 (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l) l))
(+.f64 (.f64 #s(literal 2 binary64) l) (.f64 l (.f64 (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) l) l)))
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 2 binary64))) (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J) U))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 2 binary64)) (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) (.f64 J U)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J) #s(literal 2 binary64))))
(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J U)
(fma.f64 J #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) U)
(-.f64 (/.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) U)) (/.f64 (.f64 U U) (-.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J) U)))
(-.f64 U (.f64 (neg.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l)))) J))
(-.f64 U (.f64 (neg.f64 J) #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l)))))
(+.f64 (/.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 #s(literal 2 binary64) l))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J) #s(literal 2 binary64)))))
(+.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J) U)
(+.f64 U (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))) J))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l)))
#s(approx (* (* 2 l) (cos (* 1/2 K))) (*.f64 #s(literal 2 binary64) l))
(*.f64 #s(literal 2 binary64) l)
(*.f64 l #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 l l) (.f64 l l)) (-.f64 l l))
(/.f64 (+.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))) (fma.f64 l l (-.f64 (.f64 l l) (.f64 l l))))
(neg.f64 (*.f64 #s(literal -2 binary64) l))
(fma.f64 #s(literal 1 binary64) l (*.f64 #s(literal 1 binary64) l))
(fma.f64 l #s(literal 1 binary64) (*.f64 l #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) l) (.f64 #s(literal 1 binary64) l))
(+.f64 (.f64 l #s(literal 1 binary64)) (.f64 l #s(literal 1 binary64)))
(+.f64 l l)
(.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64)))
(.f64 l (+.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) K) K)))
(/.f64 (-.f64 (.f64 #s(literal 4 binary64) (.f64 l l)) (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 (.f64 (.f64 K K) l) (fma.f64 (*.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -2 binary64) l) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (.f64 l l) (.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) (.f64 #s(literal -2 binary64) l)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (.f64 l l)))) (neg.f64 (.f64 l (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) K) K) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 l #s(literal 3 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 #s(literal 2 binary64) l) (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)))) (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (.f64 l l))) (.f64 l (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) K) K) #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 l #s(literal 3 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 4 binary64) (.f64 l l) (-.f64 (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l) K) (.f64 K (*.f64 #s(literal 2 binary64) l))))))
(/.f64 (fma.f64 (pow.f64 l #s(literal 3 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 2 binary64) l) (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)))) (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l) (neg.f64 K)) (neg.f64 K) (.f64 #s(literal 2 binary64) l))
(fma.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l) (fabs.f64 K)) (fabs.f64 K) (.f64 #s(literal 2 binary64) l))
(fma.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 #s(literal 2 binary64) l))
(fma.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) K) K) l (.f64 #s(literal 2 binary64) l))
(fma.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l) K) K (.f64 #s(literal 2 binary64) l))
(fma.f64 (neg.f64 K) (.f64 (neg.f64 K) (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l)) (.f64 #s(literal 2 binary64) l))
(fma.f64 (fabs.f64 K) (.f64 (fabs.f64 K) (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l)) (.f64 #s(literal 2 binary64) l))
(fma.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l) (.f64 K K) (.f64 #s(literal 2 binary64) l))
(fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 l (.f64 K K)) (.f64 #s(literal 2 binary64) l))
(fma.f64 (.f64 K K) (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l) (.f64 #s(literal 2 binary64) l))
(fma.f64 K (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l) K) (.f64 #s(literal 2 binary64) l))
(fma.f64 #s(literal 2 binary64) l (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))))
(fma.f64 l (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) K) K) (.f64 #s(literal 2 binary64) l))
(fma.f64 l #s(literal 2 binary64) (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64)) (.f64 l (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) K) K) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 l l)) (.f64 l (-.f64 (.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) K) K) #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) (*.f64 (neg.f64 l) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) (*.f64 #s(literal -2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 (neg.f64 (.f64 (.f64 (fma.f64 (*.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l) K)) K))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 (neg.f64 (.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l)) (*.f64 K K)))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 (neg.f64 (.f64 K K)) (.f64 (fma.f64 (*.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l)))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 (neg.f64 l) (.f64 (.f64 (fma.f64 (*.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) K) K)))
(+.f64 (fma.f64 (.f64 (.f64 (fma.f64 (*.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l) K) K l) l)
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) l) (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)))) (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 #s(literal 2 binary64) l) #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) l) (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)))) (pow.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (*.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))) (*.f64 #s(literal 2 binary64) l))
(+.f64 (.f64 #s(literal 2 binary64) l) (.f64 (.f64 (.f64 K K) l) (fma.f64 (*.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))))
(+.f64 l (+.f64 l (.f64 (.f64 (.f64 K K) l) (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)))))
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 2 binary64))) (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J) U))
(/.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 2 binary64)) (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) (.f64 J U)))))
(/.f64 (+.f64 (pow.f64 U #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J) #s(literal 2 binary64))))
(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J U)
(fma.f64 J #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) U)
(-.f64 (/.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) U)) (/.f64 (.f64 U U) (-.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J) U)))
(-.f64 U (.f64 (neg.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64)))))) J))
(-.f64 U (.f64 (neg.f64 J) #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64)))))))
(+.f64 (/.f64 (pow.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (.f64 K K) #s(literal 2 binary64))))) J)) (pow.f64 (.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J) #s(literal 2 binary64)))))
(+.f64 (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J) U)
(+.f64 U (.f64 #s(approx ( (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))) J))
#s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64)))))
#s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 U U) (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 U (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (*.f64 (sinh.f64 l) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) U))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(literal 2 binary64)) (sinh.f64 l)) (.f64 J U)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64))))
(fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)) U)
(fma.f64 (.f64 J (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64)))) #s(literal 2 binary64) U)
(fma.f64 (.f64 J #s(approx (cos (/ K -2)) #s(literal 1 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64)) U)
(fma.f64 (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) (.f64 J #s(literal 2 binary64)) U)
(fma.f64 (.f64 (.f64 J (sinh.f64 l)) #s(literal 2 binary64)) #s(approx (cos (/ K -2)) #s(literal 1 binary64)) U)
(fma.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(literal 2 binary64)) (sinh.f64 l)) J U)
(fma.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (.f64 J (sinh.f64 l)) #s(literal 2 binary64)) U)
(fma.f64 J (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(literal 2 binary64)) (sinh.f64 l)) U)
(fma.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) U)
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) U)) (/.f64 (.f64 U U) (-.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) U)))
(-.f64 U (.f64 (neg.f64 (.f64 (*.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(literal 2 binary64)) (sinh.f64 l))) J))
(-.f64 U (.f64 (neg.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64))) (.f64 (*.f64 J (sinh.f64 l)) #s(literal 2 binary64))))
(-.f64 U (.f64 (neg.f64 J) (.f64 (*.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(literal 2 binary64)) (sinh.f64 l))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (pow.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) U)
(+.f64 U (.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) J) (*.f64 (sinh.f64 l) #s(literal 2 binary64))))
(.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(literal 2 binary64)) (sinh.f64 l))
(.f64 (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) #s(literal 2 binary64))
(.f64 (sinh.f64 l) (.f64 #s(literal 2 binary64) #s(approx (cos (/ K -2)) #s(literal 1 binary64))))
(.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64))))
(.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(approx (cos (/ K -2)) #s(literal 1 binary64)))
(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) (*.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64))) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(/.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64)))) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(neg.f64 (.f64 (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) #s(literal -2 binary64)))
(fma.f64 (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) #s(literal 1 binary64) (.f64 (*.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) (.f64 #s(literal 1 binary64) (*.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64)))))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64)))))
(+.f64 (.f64 (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) #s(literal 1 binary64)) (.f64 (.f64 (sinh.f64 l) #s(approx (cos (/ K -2)) #s(literal 1 binary64))) #s(literal 1 binary64)))
#s(approx (cos (/ K -2)) #s(literal 1 binary64))
(*.f64 (sinh.f64 l) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (sinh.f64 l))
(/.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (neg.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (exp.f64 (neg.f64 l)) (*.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64))) (fma.f64 (exp.f64 (neg.f64 l)) (*.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))))
(neg.f64 (*.f64 (sinh.f64 l) #s(literal -2 binary64)))
(neg.f64 (*.f64 #s(literal -2 binary64) (sinh.f64 l)))
(fma.f64 (sinh.f64 l) #s(literal 1 binary64) (sinh.f64 l))
(fma.f64 #s(literal 1 binary64) (sinh.f64 l) (*.f64 #s(literal 1 binary64) (sinh.f64 l)))
(fma.f64 #s(literal 2 binary64) (/.f64 (sinh.f64 l) #s(literal 2 binary64)) (sinh.f64 l))
(-.f64 (-.f64 (exp.f64 l) (cosh.f64 l)) (sinh.f64 (neg.f64 l)))
(-.f64 (/.f64 (pow.f64 (exp.f64 l) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cosh.f64 l))) (/.f64 (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cosh.f64 l))))
(-.f64 (/.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64)))) (/.f64 (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64)) (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64)))))
(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))
(+.f64 (-.f64 (exp.f64 l) (cosh.f64 l)) (sinh.f64 l))
(+.f64 (.f64 #s(literal 1 binary64) (sinh.f64 l)) (.f64 #s(literal 1 binary64) (sinh.f64 l)))
(+.f64 (cosh.f64 l) (-.f64 (sinh.f64 l) (exp.f64 (neg.f64 l))))
(+.f64 (sinh.f64 l) (sinh.f64 l))
(/.f64 (-.f64 (.f64 U U) (pow.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64))) (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)) (.f64 U U))) (neg.f64 (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) U)))
(/.f64 (neg.f64 (+.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)) (.f64 U U)) (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) U))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U U (-.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)) (.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) U))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 3 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)) (-.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) U)) (/.f64 (.f64 U U) (-.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) U)))
(+.f64 (/.f64 (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 3 binary64)) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 U (-.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))) (pow.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) #s(literal 2 binary64)))))
(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))) U)
(+.f64 U #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))
(.f64 (.f64 l (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 J #s(literal 2 binary64)) l) (cos.f64 (.f64 #s(literal -1/2 binary64) K)))
(.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) l) (.f64 J #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J) (.f64 #s(literal 2 binary64) l))
(.f64 (.f64 (.f64 J #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) K))) l)
(.f64 (.f64 J #s(literal 2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) l))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 (.f64 J #s(literal 2 binary64)) l))
(.f64 l (.f64 (.f64 J #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) K))))
(.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) #s(literal 2 binary64)) J)
(.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) J) #s(literal 2 binary64))
(.f64 (.f64 J #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) K)))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (*.f64 J #s(literal 2 binary64)))
(.f64 J (.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) K))))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) J))
(neg.f64 (.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) J) #s(literal -2 binary64)))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J) #s(literal 1 binary64) (.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) J) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J) (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) J)))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J)) (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J)))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) J) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1/3600 binary64) (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/60 binary64) (.f64 (.f64 l l) #s(literal 1/2520 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 2 binary64)) #s(literal 1/3600 binary64))) (neg.f64 (-.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 1/60 binary64))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/16003008000 binary64) #s(literal 1/216000 binary64))) (neg.f64 (-.f64 (+.f64 (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (.f64 (*.f64 l l) #s(literal 1/151200 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (-.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 1/60 binary64)))
(/.f64 (fma.f64 (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/16003008000 binary64) #s(literal 1/216000 binary64)) (+.f64 #s(literal 1/3600 binary64) (-.f64 (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 2 binary64)) (.f64 (*.f64 l l) #s(literal 1/151200 binary64)))))
(/.f64 (fma.f64 (pow.f64 (.f64 l l) #s(literal 3 binary64)) #s(literal 1/16003008000 binary64) #s(literal 1/216000 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (.f64 (*.f64 l l) #s(literal 1/151200 binary64))))
(fma.f64 (*.f64 #s(literal 1/2520 binary64) (fabs.f64 l)) (fabs.f64 l) #s(literal 1/60 binary64))
(fma.f64 (*.f64 #s(literal 1/2520 binary64) (neg.f64 l)) (neg.f64 l) #s(literal 1/60 binary64))
(fma.f64 (*.f64 #s(literal 1/2520 binary64) l) l #s(literal 1/60 binary64))
(fma.f64 (fabs.f64 l) (*.f64 (fabs.f64 l) #s(literal 1/2520 binary64)) #s(literal 1/60 binary64))
(fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64))
(fma.f64 #s(literal 1/2520 binary64) (*.f64 l l) #s(literal 1/60 binary64))
(fma.f64 (neg.f64 l) (*.f64 (neg.f64 l) #s(literal 1/2520 binary64)) #s(literal 1/60 binary64))
(fma.f64 l (*.f64 #s(literal 1/2520 binary64) l) #s(literal 1/60 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 1/60 binary64))) (/.f64 #s(literal 1/3600 binary64) (-.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 1/60 binary64))))
(-.f64 #s(literal 1/60 binary64) (.f64 (neg.f64 (.f64 #s(literal 1/2520 binary64) l)) l))
(-.f64 #s(literal 1/60 binary64) (.f64 (neg.f64 (.f64 l l)) #s(literal 1/2520 binary64)))
(-.f64 #s(literal 1/60 binary64) (.f64 #s(literal -1/2520 binary64) (.f64 l l)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (.f64 (.f64 l l) #s(literal 1/151200 binary64)))) (/.f64 #s(literal 1/216000 binary64) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 2 binary64)) #s(literal 1/3600 binary64)) (.f64 (.f64 l l) #s(literal 1/151200 binary64)))))
(+.f64 (.f64 (.f64 l l) #s(literal 1/2520 binary64)) #s(literal 1/60 binary64))
(+.f64 #s(literal 1/60 binary64) (.f64 (.f64 l l) #s(literal 1/2520 binary64)))
(/.f64 (-.f64 #s(literal 1/9 binary64) (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64))) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) #s(literal 1/9 binary64))) (neg.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/27 binary64) (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) #s(literal 1/9 binary64)) (-.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64)))
(/.f64 (+.f64 #s(literal 1/27 binary64) (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64))) (+.f64 #s(literal 1/9 binary64) (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) (.f64 l #s(literal 1/3 binary64))))))
(/.f64 (+.f64 #s(literal 1/27 binary64) (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64))) (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64))))
(fma.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (fabs.f64 l)) (fabs.f64 l) #s(literal 1/3 binary64))
(fma.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (neg.f64 l)) (neg.f64 l) #s(literal 1/3 binary64))
(fma.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l #s(literal 1/3 binary64))
(fma.f64 (fabs.f64 l) (.f64 (fabs.f64 l) (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64))) #s(literal 1/3 binary64))
(fma.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64))
(fma.f64 (.f64 l l) (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) #s(literal 1/3 binary64))
(fma.f64 (neg.f64 l) (.f64 (neg.f64 l) (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64))) #s(literal 1/3 binary64))
(fma.f64 l (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) #s(literal 1/3 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))) (/.f64 #s(literal 1/9 binary64) (-.f64 (.f64 (.f64 (fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))))
(-.f64 #s(literal 1/3 binary64) (.f64 (neg.f64 (.f64 (fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l)) l))
(-.f64 #s(literal 1/3 binary64) (.f64 (neg.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64))) (*.f64 l l)))
(-.f64 #s(literal 1/3 binary64) (.f64 (neg.f64 (.f64 l l)) (fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 3 binary64)) (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)))) (/.f64 #s(literal 1/27 binary64) (fma.f64 #s(literal 1/3 binary64) (-.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 (.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l)) (pow.f64 (.f64 (.f64 (fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l) #s(literal 1/3 binary64))
(+.f64 #s(literal 1/3 binary64) (.f64 (.f64 (fma.f64 (*.f64 l l) #s(literal 1/2520 binary64) #s(literal 1/60 binary64)) l) l))
(.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) l)
(.f64 l (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) l) (-.f64 (.f64 (*.f64 K K) #s(literal 1/192 binary64)) #s(literal -1/4 binary64)))
(/.f64 (.f64 (fma.f64 #s(literal 1/7077888 binary64) (pow.f64 (.f64 K K) #s(literal 3 binary64)) #s(literal -1/64 binary64)) l) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (.f64 (.f64 K K) #s(literal -1/768 binary64))))
(/.f64 (.f64 l (-.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64))) (-.f64 (.f64 (*.f64 K K) #s(literal 1/192 binary64)) #s(literal -1/4 binary64)))
(/.f64 (.f64 l (fma.f64 #s(literal 1/7077888 binary64) (pow.f64 (.f64 K K) #s(literal 3 binary64)) #s(literal -1/64 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (.f64 (.f64 K K) #s(literal -1/768 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l) (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l)) (.f64 (.f64 #s(literal -1/4 binary64) l) (.f64 #s(literal -1/4 binary64) l))) (-.f64 (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l) (.f64 #s(literal -1/4 binary64) l)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/4 binary64) l) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l) (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l) (-.f64 (.f64 (.f64 #s(literal -1/4 binary64) l) (.f64 #s(literal -1/4 binary64) l)) (.f64 (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l) (.f64 #s(literal -1/4 binary64) l)))))
(fma.f64 (.f64 l (.f64 #s(literal 1/192 binary64) K)) K (*.f64 #s(literal -1/4 binary64) l))
(fma.f64 (.f64 l (.f64 K K)) #s(literal 1/192 binary64) (*.f64 #s(literal -1/4 binary64) l))
(fma.f64 (.f64 l #s(literal 1/192 binary64)) (.f64 K K) (*.f64 #s(literal -1/4 binary64) l))
(fma.f64 (.f64 #s(literal 1/192 binary64) K) (.f64 K l) (*.f64 #s(literal -1/4 binary64) l))
(fma.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l (*.f64 #s(literal -1/4 binary64) l))
(fma.f64 #s(literal -1/4 binary64) l (.f64 (.f64 (*.f64 K K) #s(literal 1/192 binary64)) l))
(fma.f64 (.f64 K K) (.f64 #s(literal 1/192 binary64) l) (*.f64 #s(literal -1/4 binary64) l))
(fma.f64 #s(literal 1/192 binary64) (.f64 (.f64 K K) l) (*.f64 #s(literal -1/4 binary64) l))
(fma.f64 l (.f64 (.f64 K K) #s(literal 1/192 binary64)) (*.f64 #s(literal -1/4 binary64) l))
(fma.f64 l #s(literal -1/4 binary64) (.f64 (.f64 (*.f64 K K) #s(literal 1/192 binary64)) l))
(-.f64 (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l) (.f64 #s(literal 1/4 binary64) l))
(-.f64 (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l) (.f64 (neg.f64 l) #s(literal -1/4 binary64)))
(+.f64 (.f64 #s(literal -1/4 binary64) l) (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l))
(+.f64 (.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) l) (.f64 #s(literal -1/4 binary64) l))
(/.f64 (-.f64 #s(literal 1/16 binary64) (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal -1/4 binary64) (.f64 (.f64 K K) #s(literal 1/192 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64))) (neg.f64 (-.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal -1/4 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/7077888 binary64) (pow.f64 (.f64 K K) #s(literal 3 binary64)) #s(literal -1/64 binary64))) (neg.f64 (-.f64 (+.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (.f64 (*.f64 K K) #s(literal -1/768 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (-.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal -1/4 binary64)))
(/.f64 (fma.f64 #s(literal 1/7077888 binary64) (pow.f64 (.f64 K K) #s(literal 3 binary64)) #s(literal -1/64 binary64)) (+.f64 #s(literal 1/16 binary64) (-.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) (.f64 (*.f64 K K) #s(literal -1/768 binary64)))))
(/.f64 (fma.f64 #s(literal 1/7077888 binary64) (pow.f64 (.f64 K K) #s(literal 3 binary64)) #s(literal -1/64 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (.f64 (*.f64 K K) #s(literal -1/768 binary64))))
(fma.f64 (*.f64 #s(literal 1/192 binary64) (neg.f64 K)) (neg.f64 K) #s(literal -1/4 binary64))
(fma.f64 (*.f64 #s(literal 1/192 binary64) (fabs.f64 K)) (fabs.f64 K) #s(literal -1/4 binary64))
(fma.f64 (*.f64 #s(literal 1/192 binary64) K) K #s(literal -1/4 binary64))
(fma.f64 (neg.f64 K) (*.f64 (neg.f64 K) #s(literal 1/192 binary64)) #s(literal -1/4 binary64))
(fma.f64 (fabs.f64 K) (*.f64 (fabs.f64 K) #s(literal 1/192 binary64)) #s(literal -1/4 binary64))
(fma.f64 (*.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64))
(fma.f64 #s(literal 1/192 binary64) (*.f64 K K) #s(literal -1/4 binary64))
(fma.f64 K (*.f64 #s(literal 1/192 binary64) K) #s(literal -1/4 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal -1/4 binary64))) (/.f64 #s(literal 1/16 binary64) (-.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal -1/4 binary64))))
(-.f64 #s(literal -1/4 binary64) (.f64 (neg.f64 (.f64 #s(literal 1/192 binary64) K)) K))
(-.f64 #s(literal -1/4 binary64) (.f64 (neg.f64 (.f64 K K)) #s(literal 1/192 binary64)))
(-.f64 #s(literal -1/4 binary64) (.f64 #s(literal -1/192 binary64) (.f64 K K)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (.f64 (.f64 K K) #s(literal -1/768 binary64)))) (/.f64 #s(literal -1/64 binary64) (-.f64 (+.f64 (pow.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (.f64 (.f64 K K) #s(literal -1/768 binary64)))))
(+.f64 (.f64 (.f64 K K) #s(literal 1/192 binary64)) #s(literal -1/4 binary64))
(+.f64 #s(literal -1/4 binary64) (.f64 (.f64 K K) #s(literal 1/192 binary64)))
(*.f64 (sinh.f64 l) #s(literal 1 binary64))
(*.f64 #s(literal 2 binary64) (/.f64 (sinh.f64 l) #s(literal 2 binary64)))
(/.f64 (neg.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64))) #s(literal -2 binary64))
(/.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (cosh.f64 l)) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (exp.f64 (neg.f64 l)) #s(literal 3 binary64))) (.f64 (fma.f64 (exp.f64 (neg.f64 l)) (.f64 #s(literal 2 binary64) (cosh.f64 l)) (pow.f64 (exp.f64 l) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64))
(sinh.f64 l)
(neg.f64 (/.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal -2 binary64)))
(-.f64 (/.f64 (exp.f64 l) #s(literal 2 binary64)) (/.f64 (exp.f64 (neg.f64 l)) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) K)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))

eval63.0ms (0.7%)

Memory: 16.2MiB live, 106.6MiB allocated; 10ms collecting garbage
Compiler: Compiled 17 859 to 2 137 computations (88% saved)

prune56.0ms (0.6%)

Memory

9.3MiB live, 61.5MiB allocated; 9ms collecting garbage

Pruning

19 alts after pruning (14 fresh and 5 done)

	Pruned	Kept	Total
New	433	8	441
Fresh	4	6	10
Picked	2	3	5
Done	0	2	2
Total	439	19	458

Accuracy

100.0%

Counts

458 → 19

Alt Table

Click to see full alt table

Status	Accuracy	Program
	95.3%	(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J U)
✓	100.0%	(fma.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
✓	97.6%	(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
	68.6%	(fma.f64 (.f64 #s(approx (cos (/ K -2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
✓	82.8%	(fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
	79.8%	(fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(approx ( (sinh l) 2) (.f64 (fma.f64 (fma.f64 #s(literal 1/60 binary64) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J U)
	76.4%	(fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) J U)
	67.7%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (+.f64 l l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J U)
	91.5%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64))) l)) J U)
	67.7%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 #s(literal 2 binary64) l) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))) J U)
	50.4%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (fma.f64 (.f64 l (fma.f64 #s(literal 1/192 binary64) (.f64 K K) #s(literal -1/4 binary64))) (*.f64 K K) (+.f64 l l)))) J U)
	58.5%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (+.f64 l l))) J U)
	50.0%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 (fma.f64 (fma.f64 (.f64 K K) #s(literal 1/192 binary64) #s(literal -1/4 binary64)) (*.f64 K K) #s(literal 2 binary64)) l))) J U)
	51.4%	(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 (.f64 K K) #s(literal -1/4 binary64) #s(literal 2 binary64))))) J U)
	50.6%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (.f64 #s(literal 2 binary64) J) l) #s(approx (cos ( -1/2 K)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))))) U)
✓	67.7%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)) U)
	48.5%	(+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 #s(approx (cos (* 1/2 K)) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/46080 binary64) (.f64 K K) #s(literal 1/384 binary64)) K) K) #s(literal 1/8 binary64)) (.f64 K K) #s(literal 1 binary64))) (*.f64 J #s(literal 2 binary64))) l)) U)
	67.7%	#s(approx (+ (* (* (- (exp l) (exp (neg l))) J) (cos (/ K 2))) U) (fma.f64 (.f64 (.f64 J l) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) K)) U))
✓	40.8%	#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Compiler

Compiled 1 774 to 697 computations (60.7% saved)

regimes123.0ms (1.4%)

Memory

-11.5MiB live, 177.8MiB allocated; 17ms collecting garbage

Counts

42 → 1

Calls

Call 1

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

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes108.0ms (1.2%)

Memory

16.1MiB live, 154.7MiB allocated; 7ms collecting garbage

Counts

37 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

24.0ms	(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
12.0ms	J
11.0ms	U
9.0ms	K
9.0ms	(/.f64 K #s(literal 2 binary64))

Results

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

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes116.0ms (1.3%)

Memory

-2.8MiB live, 139.8MiB allocated; 23ms collecting garbage

Counts

35 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

25.0ms	U
20.0ms	(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))
12.0ms	J
9.0ms	K
9.0ms	(/.f64 K #s(literal 2 binary64))

Results

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

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes106.0ms (1.2%)

Memory

-10.4MiB live, 90.2MiB allocated; 6ms collecting garbage

Counts

34 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

20.0ms	U
19.0ms	(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
9.0ms	K
9.0ms	(/.f64 K #s(literal 2 binary64))
9.0ms	J

Results

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

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes82.0ms (0.9%)

Memory

-3.6MiB live, 134.6MiB allocated; 9ms collecting garbage

Counts

31 → 2

Calls

Call 1

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

Outputs

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

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes30.0ms (0.3%)

Memory

-1.0MiB live, 47.0MiB allocated; 6ms collecting garbage

Counts

29 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

11.0ms	K
10.0ms	(/.f64 K #s(literal 2 binary64))
7.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))

Results

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

Compiler

Compiled 8 to 17 computations (-112.5% saved)

regimes92.0ms (1%)

Memory

13.6MiB live, 153.2MiB allocated; 6ms collecting garbage

Counts

28 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

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

Results

Accuracy	Segments	Branch
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)`
89.4%	3	`J`
82.8%	1	`U`
91.0%	3	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
91.0%	3	`l`
82.8%	1	`(/.f64 K #s(literal 2 binary64))`
82.8%	1	`K`
91.3%	3	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes12.0ms (0.1%)

Memory

-31.2MiB live, 18.3MiB allocated; 7ms collecting garbage

Counts

27 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

7.0ms

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

Results

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

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

25 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

6.0ms

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

Results

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

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes37.0ms (0.4%)

Memory

24.9MiB live, 71.7MiB allocated; 3ms collecting garbage

Counts

20 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 48 to 59 computations (-22.9% saved)

regimes66.0ms (0.7%)

Memory

-22.1MiB live, 121.5MiB allocated; 25ms collecting garbage

Counts

19 → 2

Calls

Call 1

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

Outputs

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

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes106.0ms (1.2%)

Memory

14.0MiB live, 96.7MiB allocated; 25ms collecting garbage

Counts

12 → 2

Calls

Call 1

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

Outputs

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

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

Calls

10 calls:

41.0ms	U
36.0ms	l
4.0ms	J
4.0ms	(/.f64 K #s(literal 2 binary64))
4.0ms	K

Results

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

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes57.0ms (0.6%)

Memory

-5.9MiB live, 88.0MiB allocated; 49ms collecting garbage

Counts

6 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes21.0ms (0.2%)

Memory

16.7MiB live, 65.0MiB allocated; 7ms collecting garbage

Counts

4 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 48 to 59 computations (-22.9% saved)

regimes22.0ms (0.3%)

Memory

8.6MiB live, 54.3MiB allocated; 4ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

10 calls:

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

Results

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

Compiler

Compiled 53 to 73 computations (-37.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.7328842846560495	0.745247457567124

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.46520540494734347	0.5398633268811034

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	-0.007970289472076977	0.021061114876882094
0.0ms	-0.7467208494711444	-0.7074384610324924

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.007970289472076977	0.021061114876882094

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.007970289472076977	0.021061114876882094

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.6705398911773999	-0.6100457658480729

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch4.0ms (0%)

Memory

-42.4MiB live, 2.0MiB allocated; 7ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.6705398911773999	-0.6100457658480729

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.6705398911773999	-0.6100457658480729

Compiler

Compiled 18 to 21 computations (-16.7% saved)

bsearch91.0ms (1%)

Memory

-7.0MiB live, 143.5MiB allocated; 18ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
37.0ms	3.723950759796707e-34	1.0680550650177623e-14
29.0ms	-9.303710883857083e+78	-6.170880224262216e+73

Samples

32.0ms	230×	0	valid
20.0ms	90×	1	valid

Compiler

Compiled 1 118 to 941 computations (15.8% saved)

Precisions

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

ival-exp: 9.0ms (21.9% of total)

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

ival-add: 9.0ms (21.9% of total)

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

adjust: 3.0ms (7.3% of total)

ival-sub: 2.0ms (4.9% of total)

ival-div: 2.0ms (4.9% of total)

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

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

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

exact: 0.0ms (0% of total)

simplify55.0ms (0.6%)

Memory

31.7MiB live, 76.4MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	133	663
1	183	663
2	320	663
3	840	649
4	4922	649

Stop Event

1×	node limit

Calls

Call 1

Inputs
(fma.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J U)
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 3332663724254167/4503599627370496 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64))) l)) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 J (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)))) l U)) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -3242591731706757/4503599627370496 binary64)) (fma.f64 (.f64 #s(approx (cos (/ K -2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U) (if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5764607523034235/1152921504606846976 binary64)) (+.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)) U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5764607523034235/1152921504606846976 binary64)) (+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)) U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5764607523034235/1152921504606846976 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (+.f64 l l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5854679515581645/9007199254740992 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5854679515581645/9007199254740992 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(approx ( (sinh l) 2) (.f64 (fma.f64 (fma.f64 #s(literal 1/60 binary64) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5854679515581645/9007199254740992 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) J U))
(if (<=.f64 l #s(literal -1299999999999999924588441082662937044835970334023840784968977767999381438464 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (if (<=.f64 l #s(literal 1663791412799551/158456325028528675187087900672 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (+.f64 l l))) J U) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U)))
(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (+.f64 l l))) J U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

Outputs
(fma.f64 (.f64 (cos.f64 #s(approx (/ K -2) (.f64 #s(literal -1/2 binary64) K))) (*.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)
(+.f64 (.f64 (.f64 J #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 (.f64 #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (.f64 l l) #s(approx (+ ( 1/2520 (* l l)) 1/60) #s(literal 1/60 binary64)) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J U)
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 3332663724254167/4503599627370496 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64))) l)) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) K)) (.f64 J (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)))) l U)) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -3242591731706757/4503599627370496 binary64)) (fma.f64 (.f64 #s(approx (cos (/ K -2)) (fma.f64 (.f64 K K) #s(literal -1/8 binary64) #s(literal 1 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U) (if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5764607523034235/1152921504606846976 binary64)) (+.f64 #s(approx ( (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)) U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U)))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5764607523034235/1152921504606846976 binary64)) (+.f64 #s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal 2 binary64))) l)) U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5764607523034235/1152921504606846976 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) (.f64 (+.f64 l l) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5854679515581645/9007199254740992 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) (.f64 (sinh.f64 l) #s(literal 2 binary64))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5854679515581645/9007199254740992 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(approx ( (sinh l) 2) (.f64 (fma.f64 (fma.f64 #s(literal 1/60 binary64) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5854679515581645/9007199254740992 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(literal 1/60 binary64) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5854679515581645/9007199254740992 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(approx ( (sinh l) 2) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) J U))
(if (<=.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -5854679515581645/9007199254740992 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (fma.f64 (.f64 #s(approx (cos (/ K -2)) #s(literal 1 binary64)) #s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (*.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))) J U))
(if (<=.f64 l #s(literal -1299999999999999924588441082662937044835970334023840784968977767999381438464 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (if (<=.f64 l #s(literal 1663791412799551/158456325028528675187087900672 binary64)) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (+.f64 l l))) J U) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U)))
(if (or (<=.f64 l #s(literal -1299999999999999924588441082662937044835970334023840784968977767999381438464 binary64)) (not (<=.f64 l #s(literal 1663791412799551/158456325028528675187087900672 binary64)))) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (.f64 l (fma.f64 #s(literal -1/4 binary64) (.f64 K K) #s(literal 2 binary64))))) J U) (fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (+.f64 l l))) J U))
(fma.f64 #s(approx (* (cos (/ K -2)) (* (sinh l) 2)) #s(approx (* (* 2 l) (cos (* 1/2 K))) (+.f64 l l))) J U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)

derivations675.0ms (7.6%)

Memory

-3.5MiB live, 587.8MiB allocated; 138ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 667 to 138 computations (79.3% saved)

preprocess120.0ms (1.4%)

Memory: -34.6MiB live, 106.7MiB allocated; 19ms collecting garbage
Remove: (abs K)
Compiler: Compiled 1 396 to 334 computations (76.1% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample2.4s (26.9%)

explain575.0ms (6.5%)

preprocess186.0ms (2.1%)

eval0.0ms (0%)

prune0.0ms (0%)

simplify383.0ms (4.3%)

localize85.0ms (1%)

series20.0ms (0.2%)

simplify185.0ms (2.1%)

rewrite45.0ms (0.5%)

eval154.0ms (1.7%)

prune7.0ms (0.1%)

simplify138.0ms (1.6%)

localize260.0ms (2.9%)

series109.0ms (1.2%)

simplify186.0ms (2.1%)

rewrite106.0ms (1.2%)

eval75.0ms (0.9%)

prune19.0ms (0.2%)

simplify129.0ms (1.5%)

localize317.0ms (3.6%)

series52.0ms (0.6%)

simplify205.0ms (2.3%)

rewrite184.0ms (2.1%)

eval54.0ms (0.6%)

prune20.0ms (0.2%)

simplify208.0ms (2.4%)

localize306.0ms (3.5%)

series83.0ms (0.9%)

simplify195.0ms (2.2%)

rewrite109.0ms (1.2%)

eval63.0ms (0.7%)

prune56.0ms (0.6%)

regimes123.0ms (1.4%)

regimes108.0ms (1.2%)

regimes116.0ms (1.3%)

regimes106.0ms (1.2%)

regimes82.0ms (0.9%)

regimes30.0ms (0.3%)

regimes92.0ms (1%)

regimes12.0ms (0.1%)

regimes8.0ms (0.1%)

regimes37.0ms (0.4%)

regimes66.0ms (0.7%)

regimes106.0ms (1.2%)

regimes57.0ms (0.6%)

regimes21.0ms (0.2%)

regimes22.0ms (0.3%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch4.0ms (0%)

bsearch1.0ms (0%)

bsearch91.0ms (1%)

simplify55.0ms (0.6%)

derivations675.0ms (7.6%)

preprocess120.0ms (1.4%)

end0.0ms (0%)

Profiling