Metrics for Maksimov and Kolovsky, Equation (32)

start0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated

analyze1.0ms (0%)

Memory

1.3MiB live, 1.3MiB allocated

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 31 to 23 computations (25.8% saved)

sample1.7s (17.5%)

Memory

72.0MiB live, 2 534.5MiB allocated

Samples

1.1s	7 819×	0	valid
138.0ms	437×	1	valid

Precisions

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

ival-sub: 212.0ms (22.8% of total)

ival-div: 144.0ms (15.5% of total)

ival-mult: 137.0ms (14.7% of total)

ival-pow2: 100.0ms (10.8% of total)

ival-fabs: 69.0ms (7.4% of total)

ival-cos: 68.0ms (7.3% of total)

ival-exp: 61.0ms (6.6% of total)

ival-add: 56.0ms (6% of total)

ival-neg: 42.0ms (4.5% of total)

adjust: 24.0ms (2.6% of total)

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

exact: 6.0ms (0.6% of total)

ival-assert: 4.0ms (0.4% of total)

Bogosity

explain458.0ms (4.6%)

Memory

-32.3MiB live, 496.5MiB allocated

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
171	45	(-2.527834257481127e-67 -9.640749968028518e-29 1.1122436871069112e-52 1.3410974624069432e+58 -9.479585772370695e+266)	-	`(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))`
0	0	-	-	`(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))`
0	0	-	-	`K`
0	0	-	-	`(/.f64 (+.f64 m n) #s(literal 2 binary64))`
0	0	-	-	`(-.f64 l (fabs.f64 (-.f64 m n)))`
0	0	-	-	`(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))`
0	0	-	-	`(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))`
0	0	-	-	`(+.f64 m n)`
0	0	-	-	`(fabs.f64 (-.f64 m n))`
0	0	-	-	`m`
0	0	-	-	`(*.f64 K (+.f64 m n))`
0	0	-	-	`n`
0	0	-	-	`(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))`
0	0	-	-	`(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))`
0	0	-	-	`(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)`
0	0	-	-	`(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))`
0	0	-	-	`(-.f64 m n)`
0	0	-	-	`(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)`
0	0	-	-	`#s(literal 2 binary64)`
0	0	-	-	`l`
0	0	-	-	`M`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))`	sensitivity	164	0
`cos.f64`	`(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))`	oflow-rescue	52	0
↳	`(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))`	overflow	52
↳	`(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)`	overflow	52
↳	`(*.f64 K (+.f64 m n))`	overflow	52

Confusion

	Predicted +	Predicted -
+	59	0
-	157	40

Precision

0.27314814814814814

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	59	0	0
-	157	0	40

Precision?

0.27314814814814814

Recall?

1.0

Freqs

test

number	freq
0	40
1	216

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

169.0ms	432×	1	valid
35.0ms	80×	0	valid

Compiler

Compiled 477 to 88 computations (81.6% saved)

Precisions

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

ival-pow2: 38.0ms (23.7% of total)

ival-mult: 35.0ms (21.8% of total)

ival-sub: 21.0ms (13.1% of total)

adjust: 19.0ms (11.8% of total)

ival-cos: 19.0ms (11.8% of total)

ival-div: 12.0ms (7.5% of total)

ival-add: 5.0ms (3.1% of total)

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

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

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

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

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

exact: 0.0ms (0% of total)

preprocess171.0ms (1.7%)

Memory

31.9MiB live, 141.5MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	209	597
1	575	589
2	1511	565
3	5225	565
0	21	29
0	36	29
1	67	29
2	134	28
3	376	28
4	1307	28
5	4682	28
0	8522	27

Stop Event

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

Calls

Call 1

Inputs

(*.f64 (cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

Outputs

(*.f64 (cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 l (pow.f64 (-.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal -1/2 binary64)) K M)))

Symmetry

(sort m n)

Compiler

Compiled 29 to 21 computations (27.6% saved)

eval0.0ms (0%)

Memory: 0.2MiB live, 0.2MiB allocated
Compiler: Compiled 0 to 5 computations (-∞% saved)

prune1.0ms (0%)

Memory

0.8MiB live, 0.8MiB allocated

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	77.1%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

Status

Accuracy

Program

▶

77.1%

(*.f64 (cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

Compiler

Compiled 29 to 21 computations (27.6% saved)

simplify160.0ms (1.6%)

Memory

-36.6MiB live, 77.9MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
cost-diff	128	(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
cost-diff	384	(/.f64 (+.f64 m n) #s(literal 2 binary64))
cost-diff	512	(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	21	148
0	36	148
1	67	148
2	134	145
3	376	145
4	1307	145
5	4682	145
0	8522	143

Stop Event

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

Calls

Call 1

Inputs
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
K
(+.f64 m n)
m
n
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(-.f64 l (fabs.f64 (-.f64 m n)))
l
(fabs.f64 (-.f64 m n))
(-.f64 m n)

Outputs
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 l (pow.f64 (-.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal -1/2 binary64)) K M)))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal -1/2 binary64)) K M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
(*.f64 (+.f64 n m) K)
K
(+.f64 m n)
(+.f64 n m)
m
n
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 l (pow.f64 (-.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 l (pow.f64 (-.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(neg.f64 (pow.f64 (-.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(pow.f64 (-.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(-.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(-.f64 l (fabs.f64 (-.f64 m n)))
(-.f64 l (fabs.f64 (-.f64 n m)))
l
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(-.f64 m n)

localize175.0ms (1.8%)

Memory

-16.4MiB live, 140.3MiB allocated

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.0078125	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
accuracy	0.01953125	(*.f64 K (+.f64 m n))
accuracy	0.0234375	(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
accuracy	38.278283846321415	(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))

Samples

127.0ms	216×	1	valid
6.0ms	40×	0	valid

Compiler

Compiled 298 to 44 computations (85.2% saved)

Precisions

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

ival-mult: 37.0ms (43.1% of total)

ival-sub: 10.0ms (11.6% of total)

adjust: 10.0ms (11.6% of total)

ival-cos: 10.0ms (11.6% of total)

ival-div: 6.0ms (7% of total)

ival-pow2: 5.0ms (5.8% of total)

ival-add: 3.0ms (3.5% of total)

ival-exp: 2.0ms (2.3% of total)

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

ival-fabs: 2.0ms (2.3% of total)

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

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

exact: 0.0ms (0% of total)

series44.0ms (0.4%)

Memory

15.5MiB live, 90.3MiB allocated

Counts

6 → 252

Calls

Call 1

Inputs
#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())
#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())
#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())

Outputs
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 m) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (pow (- (* 1/2 m) M) 2) (taylor 0 n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2)) (taylor 0 n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2)) (taylor 0 n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2)) (taylor 0 n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor 0 n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 n) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ 1/2 (* 1/2 (/ m n)))) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ 1/2 (* 1/2 (/ m n)))) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ 1/2 (* 1/2 (/ m n)))) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow n 2)) (taylor inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n))) (taylor inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n))) (taylor inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n))) (taylor inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 n) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (- (* -1/2 (/ m n)) 1/2))) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (- (* -1/2 (/ m n)) 1/2))) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (- (* -1/2 (/ m n)) 1/2))) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow n 2)) (taylor -inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n))) (taylor -inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n)))) (taylor -inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n)))) (taylor -inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor -inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow (+ m n) 2)) (taylor 0 M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2))) (taylor 0 M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n))))) (taylor 0 M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n))))) (taylor 0 M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (pow M 2) (taylor inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M)))) (taylor inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2)))))) (taylor inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2)))))) (taylor inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (pow M 2) (taylor -inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M)))) (taylor -inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M)))) (taylor -inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M)))) (taylor -inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 n) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (pow (- (* 1/2 n) M) 2) (taylor 0 m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2)) (taylor 0 m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2)) (taylor 0 m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2)) (taylor 0 m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor 0 m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 m) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ 1/2 (* 1/2 (/ n m)))) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ 1/2 (* 1/2 (/ n m)))) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ 1/2 (* 1/2 (/ n m)))) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow m 2)) (taylor inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m))) (taylor inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m))) (taylor inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m))) (taylor inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 m) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (- (* -1/2 (/ n m)) 1/2))) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (- (* -1/2 (/ n m)) 1/2))) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (- (* -1/2 (/ n m)) 1/2))) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow m 2)) (taylor -inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m))) (taylor -inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m)))) (taylor -inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m)))) (taylor -inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor -inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())

Calls

15 calls:

Time	Variable		Point	Expression
5.0ms	m	@	0	((cos (- (/ (* K (+ m n)) 2) M)) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (pow (- (/ (+ m n) 2) M) 2) (* K (+ m n)))
4.0ms	M	@	0	((cos (- (/ (* K (+ m n)) 2) M)) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (pow (- (/ (+ m n) 2) M) 2) (* K (+ m n)))
4.0ms	n	@	0	((cos (- (/ (* K (+ m n)) 2) M)) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (pow (- (/ (+ m n) 2) M) 2) (* K (+ m n)))
3.0ms	n	@	-inf	((cos (- (/ (* K (+ m n)) 2) M)) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (pow (- (/ (+ m n) 2) M) 2) (* K (+ m n)))
2.0ms	m	@	inf	((cos (- (/ (* K (+ m n)) 2) M)) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (pow (- (/ (+ m n) 2) M) 2) (* K (+ m n)))

simplify219.0ms (2.2%)

Memory

27.8MiB live, 297.1MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	584	6280
1	1814	6075
2	6247	6049
0	8218	5765

Stop Event

1×	iter limit
1×	node limit

Counts

252 → 252

Calls

Call 1

Inputs
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(* 1/2 m)
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(pow (- (* 1/2 m) M) 2)
(+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(* K m)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(* n (+ 1/2 (* 1/2 (/ m n))))
(* n (+ 1/2 (* 1/2 (/ m n))))
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* 1/4 (pow n 2))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(* K n)
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* 1/2 n)
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* 1/4 (pow n 2))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(* K n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(* 1/4 (pow (+ m n) 2))
(+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(pow M 2)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(pow M 2)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(* 1/2 n)
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(pow (- (* 1/2 n) M) 2)
(+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(* K n)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(* m (+ 1/2 (* 1/2 (/ n m))))
(* m (+ 1/2 (* 1/2 (/ n m))))
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* 1/4 (pow m 2))
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(* K m)
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* 1/2 m)
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* 1/4 (pow m 2))
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(* K m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))

Outputs
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m)) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K (cos.f64 M))) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K)) K (cos.f64 M))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) K) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) (cos.f64 M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) n) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) n) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 K #s(literal 3 binary64)) #s(literal 1/48 binary64)) n) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n)) n (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(* 1/2 m)
(*.f64 #s(literal 1/2 binary64) m)
(+ (* 1/2 m) (* 1/2 n))
(*.f64 #s(literal 1/2 binary64) (+.f64 n m))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 #s(literal 1/2 binary64) (+.f64 n m))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 #s(literal 1/2 binary64) (+.f64 n m))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 m #s(literal -1/2 binary64) M) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (fma.f64 m #s(literal -1/2 binary64) M)) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (fma.f64 m #s(literal -1/2 binary64) M)) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 m #s(literal -1/2 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 m #s(literal -1/2 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 m #s(literal -1/2 binary64) M) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 m #s(literal -1/2 binary64) M) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 m #s(literal -1/2 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (fma.f64 m #s(literal -1/2 binary64) M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (pow.f64 K #s(literal 3 binary64)) #s(literal 1/48 binary64)) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))))))) n)))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 m #s(literal -1/2 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(pow (- (* 1/2 m) M) 2)
(pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64))
(+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))
(*.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) (-.f64 n (fma.f64 m #s(literal -1/2 binary64) M)))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) n (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) n (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)))
(* K m)
(*.f64 m K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 n)
(*.f64 #s(literal 1/2 binary64) n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n)
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal 1/4 binary64))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(.f64 (fma.f64 (/.f64 (fma.f64 m #s(literal -1/2 binary64) M) n) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) (.f64 n n)) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n)) #s(literal 1/4 binary64)) (*.f64 n n))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) (.f64 n n)) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n)) #s(literal 1/4 binary64)) (*.f64 n n))
(* K n)
(*.f64 n K)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 (/.f64 m n) K K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 (/.f64 m n) K K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 (/.f64 m n) K K) n)
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 n)
(*.f64 #s(literal 1/2 binary64) n)
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(*.f64 (fma.f64 (/.f64 m n) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 n))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(*.f64 (fma.f64 (/.f64 m n) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 n))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(*.f64 (fma.f64 (/.f64 m n) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 n))
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (-.f64 (/.f64 (fma.f64 m #s(literal -1/2 binary64) M) n) #s(literal 1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)) n) (fma.f64 m #s(literal -1/2 binary64) M)) n) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)) n) (fma.f64 m #s(literal -1/2 binary64) M)) n) #s(literal 1/4 binary64)) (.f64 n n))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal 1/4 binary64))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(.f64 (fma.f64 (/.f64 (fma.f64 m #s(literal -1/2 binary64) M) n) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (fma.f64 m #s(literal -1/2 binary64) M) (/.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) n)) n)) (.f64 n n))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (fma.f64 m #s(literal -1/2 binary64) M) (/.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) n)) n)) (.f64 n n))
(* K n)
(*.f64 n K)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 (/.f64 m n) K K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 (/.f64 m n) K K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 (/.f64 m n) K K) n)
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 l #s(literal 1/2 binary64) #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(neg.f64 (fma.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))) (neg.f64 l)) l l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(neg.f64 (fma.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))) (neg.f64 l)) l l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(neg.f64 (fma.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))) (neg.f64 l)) l l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (+.f64 n m) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (-.f64 (+.f64 n m) M) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (-.f64 (+.f64 n m) M) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 n) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(* 1/4 (pow (+ m n) 2))
(*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))
(+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))
(fma.f64 (-.f64 (neg.f64 n) m) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(fma.f64 (-.f64 M (+.f64 n m)) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(fma.f64 (-.f64 M (+.f64 n m)) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (-.f64 (/.f64 n M) #s(literal 1 binary64)) (/.f64 m M)) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(pow M 2)
(*.f64 M M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M)) M) M)
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (.f64 M M))
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (.f64 M M))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (-.f64 (/.f64 n M) #s(literal 1 binary64)) (/.f64 m M)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) M) (+.f64 n m)) M) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) M) (+.f64 n m)) M) #s(literal 1 binary64)) (.f64 M M))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(pow M 2)
(*.f64 M M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M)) M) M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) (+.f64 n m)) M)) M) M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) (+.f64 n m)) M)) M) M)
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) m) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 m (.f64 (.f64 K K) #s(literal -1/8 binary64))) (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 K #s(literal 3 binary64)) #s(literal 1/48 binary64)) m) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))))) m)) m (cos.f64 (fma.f64 (*.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))))
(* 1/2 n)
(*.f64 #s(literal 1/2 binary64) n)
(+ (* 1/2 m) (* 1/2 n))
(*.f64 #s(literal 1/2 binary64) (+.f64 n m))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 #s(literal 1/2 binary64) (+.f64 n m))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 #s(literal 1/2 binary64) (+.f64 n m))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 n #s(literal -1/2 binary64) M) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (fma.f64 n #s(literal -1/2 binary64) M)) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (fma.f64 n #s(literal -1/2 binary64) M)) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 n #s(literal -1/2 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 n #s(literal -1/2 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 n #s(literal -1/2 binary64) M) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 n #s(literal -1/2 binary64) M) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 K K) #s(literal -1/8 binary64)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 n #s(literal -1/2 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (pow.f64 K #s(literal 3 binary64)) #s(literal 1/48 binary64)) (sin.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))))))) m)))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 n K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 n #s(literal -1/2 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 n K) #s(literal 1/2 binary64) (neg.f64 M)))))
(pow (- (* 1/2 n) M) 2)
(pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64))
(+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))
(*.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) (-.f64 m (fma.f64 n #s(literal -1/2 binary64) M)))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) m (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) m (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)))
(* K n)
(*.f64 n K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 m)
(*.f64 #s(literal 1/2 binary64) m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m)
(* -1/4 (pow m 2))
(.f64 (.f64 m m) #s(literal -1/4 binary64))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/4 (pow m 2))
(.f64 (.f64 m m) #s(literal 1/4 binary64))
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(.f64 (fma.f64 (/.f64 (fma.f64 n #s(literal -1/2 binary64) M) m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) (.f64 m m)) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m)) #s(literal 1/4 binary64)) (*.f64 m m))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) (.f64 m m)) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m)) #s(literal 1/4 binary64)) (*.f64 m m))
(* K m)
(*.f64 m K)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) K K) m)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) K K) m)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) K K) m)
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 m)
(*.f64 #s(literal 1/2 binary64) m)
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(*.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 m))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(*.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 m))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(*.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 m))
(* -1/4 (pow m 2))
(.f64 (.f64 m m) #s(literal -1/4 binary64))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (-.f64 (/.f64 (fma.f64 n #s(literal -1/2 binary64) M) m) #s(literal 1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)) m) (fma.f64 n #s(literal -1/2 binary64) M)) m) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l)) m) (fma.f64 n #s(literal -1/2 binary64) M)) m) #s(literal 1/4 binary64)) (.f64 m m))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/4 (pow m 2))
(.f64 (.f64 m m) #s(literal 1/4 binary64))
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(.f64 (fma.f64 (/.f64 (fma.f64 n #s(literal -1/2 binary64) M) m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (fma.f64 n #s(literal -1/2 binary64) M) (/.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) m)) m)) (.f64 m m))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (fma.f64 n #s(literal -1/2 binary64) M) (/.f64 (pow.f64 (fma.f64 n #s(literal -1/2 binary64) M) #s(literal 2 binary64)) m)) m)) (.f64 m m))
(* K m)
(*.f64 m K)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) K K) m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) K K) m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) K K) m)

rewrite191.0ms (1.9%)

Memory

-34.7MiB live, 294.7MiB allocated

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	21	75
0	36	75
1	160	75
2	1256	75
0	8298	75

Stop Event

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

Counts

6 → 291

Calls

Call 1

Inputs
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))

Outputs
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>

eval75.0ms (0.8%)

Memory: 17.2MiB live, 173.5MiB allocated
Compiler: Compiled 26 597 to 2 437 computations (90.8% saved)

prune26.0ms (0.3%)

Memory

-11.8MiB live, 73.3MiB allocated

Pruning

15 alts after pruning (15 fresh and 0 done)

	Pruned	Kept	Total
New	528	15	543
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	529	15	544

Accuracy

98.2%

Counts

544 → 15

Alt Table

Click to see full alt table

Status	Accuracy	Program
	29.4%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) K) (fma.f64 n (-.f64 n m) (*.f64 m m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	48.7%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K) (-.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	29.0%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 n (-.f64 n m) (.f64 m m)) (*.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) K))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
▶	48.2%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	28.5%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (/.f64 K (.f64 (+.f64 n m) (-.f64 m n))) (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (pow.f64 (+.f64 n m) #s(literal -1 binary64)))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	74.7%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) (+.f64 n m)) M)) M) M))) (-.f64 l (fabs.f64 (-.f64 m n))))))
▶	39.6%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
	34.7%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
	44.9%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
▶	30.4%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	63.9%	(.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	65.7%	(.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 m n) K K) n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	83.9%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m)) K (cos.f64 M))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	64.5%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
▶	96.7%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))

Compiler

Compiled 922 to 688 computations (25.4% saved)

simplify189.0ms (1.9%)

Memory

-1.4MiB live, 197.6MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	384	(/.f64 (+.f64 m n) #s(literal 2 binary64))
cost-diff	384	(/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64))
cost-diff	704	(/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))
cost-diff	1408	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)))
cost-diff	0	(cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M))
cost-diff	0	(.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
cost-diff	128	(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
cost-diff	384	(/.f64 (+.f64 m n) #s(literal 2 binary64))
cost-diff	0	(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
cost-diff	0	(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
cost-diff	0	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
cost-diff	384	(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
cost-diff	0	(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
cost-diff	0	(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
cost-diff	0	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
cost-diff	384	(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
cost-diff	0	(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
cost-diff	0	(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))
cost-diff	0	(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))
cost-diff	0	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	73	836
0	123	792
1	209	790
2	425	769
3	1413	767
4	6891	767
0	8206	767

Stop Event

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

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
(fabs.f64 (-.f64 m n))
(-.f64 m n)
m
n
(+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))
(fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M))
#s(literal 1/2 binary64)
(+.f64 n m)
(neg.f64 M)
M
#s(literal 2 binary64)
l
(cos.f64 M)
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
K
(+.f64 m n)
m
n
#s(literal 2 binary64)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
K
(+.f64 m n)
m
n
#s(literal 2 binary64)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(*.f64 n n)
#s(literal -1/4 binary64)
(.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)
(/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64))
#s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m))
(*.f64 (fma.f64 (/.f64 n m) K K) m)
(fma.f64 (/.f64 n m) K K)
(/.f64 n m)
n
m
K
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(+.f64 m n)
(-.f64 l (fabs.f64 (-.f64 m n)))
l
(fabs.f64 (-.f64 m n))
(-.f64 m n)
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)
(/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)))
#s(literal 1 binary64)
(/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))
(-.f64 m n)
m
n
(.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)
(*.f64 (+.f64 n m) (-.f64 m n))
(+.f64 n m)
K
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(+.f64 m n)
(-.f64 l (fabs.f64 (-.f64 m n)))
l
(fabs.f64 (-.f64 m n))

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))
(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(-.f64 m n)
m
n
(+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)
(+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))
(pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))
(fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M))
(fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))
#s(literal 1/2 binary64)
(+.f64 n m)
(neg.f64 M)
M
#s(literal 2 binary64)
l
(cos.f64 M)
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 (-.f64 M (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(cos.f64 (-.f64 M (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(*.f64 K (+.f64 m n))
(*.f64 (+.f64 n m) K)
K
(+.f64 m n)
(+.f64 n m)
m
n
#s(literal 2 binary64)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cos.f64 (-.f64 M (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(cos.f64 (-.f64 M (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(*.f64 K (+.f64 m n))
(*.f64 (+.f64 n m) K)
K
(+.f64 m n)
(+.f64 n m)
m
n
#s(literal 2 binary64)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(.f64 #s(literal -1/4 binary64) (.f64 n n))
(*.f64 n n)
#s(literal -1/4 binary64)
(.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 M (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)))))
(cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M))
(cos.f64 (-.f64 M (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64))))
(-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)
(/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64))
#s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m))
(*.f64 (fma.f64 (/.f64 n m) K K) m)
(fma.f64 (/.f64 n m) K K)
(/.f64 n m)
n
m
K
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(neg.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+.f64 m n)
(+.f64 n m)
(-.f64 l (fabs.f64 (-.f64 m n)))
(-.f64 l (fabs.f64 (-.f64 n m)))
l
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(-.f64 m n)
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 M (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M))
(cos.f64 (-.f64 M (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)
(fma.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64) (neg.f64 M))
(/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)))
(*.f64 (+.f64 n m) K)
#s(literal 1 binary64)
(/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(-.f64 m n)
m
n
(.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(*.f64 (+.f64 n m) (-.f64 m n))
(+.f64 n m)
K
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(neg.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+.f64 m n)
(+.f64 n m)
(-.f64 l (fabs.f64 (-.f64 m n)))
(-.f64 l (fabs.f64 (-.f64 n m)))
l
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))

localize319.0ms (3.2%)

Memory

45.7MiB live, 428.2MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.36575785047220843	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)))
accuracy	8.785828570973662	(.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)
accuracy	13.045099486506254	(/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))
accuracy	38.278283846321415	(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M))
accuracy	0.0234375	(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
accuracy	2.877724785199393	(fma.f64 (/.f64 n m) K K)
accuracy	5.747906594270383	(*.f64 (fma.f64 (/.f64 n m) K K) m)
accuracy	38.278283846321415	(cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M))
accuracy	0.0078125	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
accuracy	0.01953125	(*.f64 K (+.f64 m n))
accuracy	38.278283846321415	(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
accuracy	42.49661675065125	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
accuracy	0.0078125	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
accuracy	0.01953125	(*.f64 K (+.f64 m n))
accuracy	38.278283846321415	(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
accuracy	52.68977948033394	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
accuracy	0	(cos.f64 M)
accuracy	0.00390625	(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
accuracy	0.0234375	(pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))
accuracy	2.113215195563666	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))

Samples

201.0ms	216×	1	valid
15.0ms	40×	0	valid

Compiler

Compiled 1 433 to 109 computations (92.4% saved)

Precisions

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

adjust: 39.0ms (25.6% of total)

ival-mult: 27.0ms (17.7% of total)

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

ival-div: 17.0ms (11.1% of total)

ival-sub: 14.0ms (9.2% of total)

ival-add: 11.0ms (7.2% of total)

ival-pow2: 9.0ms (5.9% of total)

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

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

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

exact: 1.0ms (0.7% of total)

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

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

series181.0ms (1.8%)

Memory

-26.9MiB live, 179.7MiB allocated

Counts

26 → 1 116

Calls

Call 1

Inputs
#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())
#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())
#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())
#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())
#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())
#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())
#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())
#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())
#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())
#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())
#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())
#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())
#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())
#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())
#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())

Outputs
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor 0 K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K (+ m n))) M) (taylor 0 K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K (+ m n))) M) (taylor 0 K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K (+ m n))) M) (taylor 0 K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (* m (+ 1 (/ n m)))) (taylor 0 K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* K (* m (+ 1 (/ n m)))) (taylor 0 K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* K (* m (+ 1 (/ n m)))) (taylor 0 K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* K (* m (+ 1 (/ n m)))) (taylor 0 K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* K (+ 1 (/ n m))) (taylor 0 K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* K (+ 1 (/ n m))) (taylor 0 K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* K (+ 1 (/ n m))) (taylor 0 K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* K (+ 1 (/ n m))) (taylor 0 K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor 0 K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor 0 K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor 0 K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor 0 K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n)))) (taylor inf K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n)))) (taylor inf K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n)))) (taylor inf K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (* m (+ 1 (/ n m)))) (taylor inf K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* K (* m (+ 1 (/ n m)))) (taylor inf K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* K (* m (+ 1 (/ n m)))) (taylor inf K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* K (* m (+ 1 (/ n m)))) (taylor inf K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* K (+ 1 (/ n m))) (taylor inf K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* K (+ 1 (/ n m))) (taylor inf K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* K (+ 1 (/ n m))) (taylor inf K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* K (+ 1 (/ n m))) (taylor inf K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K)))) (taylor -inf K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K)))) (taylor -inf K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K)))) (taylor -inf K) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (* m (- (* -1 (/ n m)) 1)))) (taylor -inf K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (* m (- (* -1 (/ n m)) 1)))) (taylor -inf K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (* m (- (* -1 (/ n m)) 1)))) (taylor -inf K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (* m (- (* -1 (/ n m)) 1)))) (taylor -inf K) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (- (* -1 (/ n m)) 1))) (taylor -inf K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (- (* -1 (/ n m)) 1))) (taylor -inf K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (- (* -1 (/ n m)) 1))) (taylor -inf K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (- (* -1 (/ n m)) 1))) (taylor -inf K) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor -inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor -inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor -inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- m n))) (taylor -inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (taylor 0 n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (taylor 0 n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (taylor 0 n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (taylor 0 n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K m)) M) (taylor 0 n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 m) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor 0 n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))) (taylor 0 n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m))) (taylor 0 n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (* n (+ (* -1 (/ n (* K (pow m 4)))) (/ 1 (* K (pow m 3))))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m))) (taylor 0 n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* 1/2 m) M) 2) (taylor 0 n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2)) (taylor 0 n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2)) (taylor 0 n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2)) (taylor 0 n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor 0 n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor 0 n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt K (taylor 0 n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (+ K (/ (* K n) m)) (taylor 0 n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (+ K (/ (* K n) m)) (taylor 0 n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (+ K (/ (* K n) m)) (taylor 0 n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (pow (- (* 1/2 m) M) 2) (taylor 0 n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2)) (taylor 0 n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2)) (taylor 0 n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2)) (taylor 0 n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K (pow m 2)) (taylor 0 n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* K (* n (+ m (* -1 m)))) (* K (pow m 2))) (taylor 0 n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* K (pow m 2)) (* n (+ (* -1 (* K n)) (* K (+ m (* -1 m)))))) (taylor 0 n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* K (pow m 2)) (* n (+ (* -1 (* K n)) (* K (+ m (* -1 m)))))) (taylor 0 n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor inf n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor inf n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n))) (taylor inf n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n))) (taylor inf n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n))) (taylor inf n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 n) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ 1/2 (* 1/2 (/ m n)))) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ 1/2 (* 1/2 (/ m n)))) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ 1/2 (* 1/2 (/ m n)))) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor inf n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K n)) (taylor inf n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ m (* K n))) (/ 1 K)) n) (taylor inf n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (/ 1 K) (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n))) n) (taylor inf n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (* -1 (/ (pow m 3) (* K (pow n 3)))) (/ 1 K)) (+ (* -1 (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n)))) n) (taylor inf n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow n 2)) (taylor inf n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n))) (taylor inf n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n))) (taylor inf n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n))) (taylor inf n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor inf n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (/ (* K n) m) (taylor inf n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* n (+ (/ K m) (/ K n))) (taylor inf n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* n (+ (/ K m) (/ K n))) (taylor inf n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* n (+ (/ K m) (/ K n))) (taylor inf n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow n 2)) (taylor inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n))) (taylor inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n))) (taylor inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n))) (taylor inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (pow n 2))) (taylor inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ (* -1 K) (/ (* K (+ m (* -1 m))) n))) (taylor inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ (* -1 K) (+ (/ (* K (+ m (* -1 m))) n) (/ (* K (pow m 2)) (pow n 2))))) (taylor inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ (* -1 K) (+ (/ (* K (+ m (* -1 m))) n) (/ (* K (pow m 2)) (pow n 2))))) (taylor inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor -inf n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor -inf n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 n) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (- (* -1/2 (/ m n)) 1/2))) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (- (* -1/2 (/ m n)) 1/2))) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (- (* -1/2 (/ m n)) 1/2))) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor -inf n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K n)) (taylor -inf n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (/ m (* K n)) (/ 1 K)) n)) (taylor -inf n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (/ (pow m 2) (* K n)) (/ m K)) n)) (/ 1 K)) n)) (taylor -inf n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow m 3) (* K n)) (/ (pow m 2) K)) n)) (/ m K)) n)) (/ 1 K)) n)) (taylor -inf n) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow n 2)) (taylor -inf n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n))) (taylor -inf n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n)))) (taylor -inf n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n)))) (taylor -inf n) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor -inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor -inf n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (/ (* K n) m) (taylor -inf n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ K m)) (* -1 (/ K n))))) (taylor -inf n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ K m)) (* -1 (/ K n))))) (taylor -inf n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ K m)) (* -1 (/ K n))))) (taylor -inf n) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow n 2)) (taylor -inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n))) (taylor -inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n)))) (taylor -inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n)))) (taylor -inf n) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (pow n 2))) (taylor -inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ (* -1 K) (* -1 (/ (* K (+ m (* -1 m))) n)))) (taylor -inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow m 2)) n)) (* K (+ m (* -1 m)))) n)))) (taylor -inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow m 2)) n)) (* K (+ m (* -1 m)))) n)))) (taylor -inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor 0 l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (taylor 0 l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (taylor 0 l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (taylor 0 M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (taylor 0 M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (taylor 0 M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (taylor 0 M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow (+ m n) 2)) (taylor 0 M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2))) (taylor 0 M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n))))) (taylor 0 M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n))))) (taylor 0 M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow M 2))) (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2))) (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2))) (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow (+ m n) 2)) (taylor 0 M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2))) (taylor 0 M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n))))) (taylor 0 M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n))))) (taylor 0 M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor inf M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1)) (taylor inf M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1)) (taylor inf M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1)) (taylor inf M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (pow M 2) (taylor inf M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M)))) (taylor inf M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2)))))) (taylor inf M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2)))))) (taylor inf M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow M 2) (taylor inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M)))) (taylor inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2)))))) (taylor inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2)))))) (taylor inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor -inf M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M))))) (taylor -inf M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M))))) (taylor -inf M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M))))) (taylor -inf M) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (pow M 2) (taylor -inf M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M)))) (taylor -inf M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M)))) (taylor -inf M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M)))) (taylor -inf M) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow M 2) (taylor -inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M)))) (taylor -inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M)))) (taylor -inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M)))) (taylor -inf M) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (taylor 0 m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (taylor 0 m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (taylor 0 m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (taylor 0 m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor 0 m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K n)) M) (taylor 0 m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 n) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor 0 m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K n)) (taylor 0 m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ m (* K (pow n 2)))) (/ 1 (* K n))) (taylor 0 m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (/ m (* K (pow n 3))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n))) (taylor 0 m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (* m (+ (* -1 (/ m (* K (pow n 4)))) (/ 1 (* K (pow n 3))))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n))) (taylor 0 m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* 1/2 n) M) 2) (taylor 0 m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2)) (taylor 0 m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2)) (taylor 0 m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2)) (taylor 0 m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor 0 m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor 0 m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (/ (* K n) m) (taylor 0 m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* K m) (* K n)) m) (taylor 0 m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* K m) (* K n)) m) (taylor 0 m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* K m) (* K n)) m) (taylor 0 m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (pow (- (* 1/2 n) M) 2) (taylor 0 m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2)) (taylor 0 m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2)) (taylor 0 m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2)) (taylor 0 m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (pow n 2))) (taylor 0 m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* K (pow n 2))) (* K (* m (+ n (* -1 n))))) (taylor 0 m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* K (pow n 2))) (* m (+ (* K m) (* K (+ n (* -1 n)))))) (taylor 0 m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* K (pow n 2))) (* m (+ (* K m) (* K (+ n (* -1 n)))))) (taylor 0 m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 m) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ 1/2 (* 1/2 (/ n m)))) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ 1/2 (* 1/2 (/ n m)))) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ 1/2 (* 1/2 (/ n m)))) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor inf m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m) (taylor inf m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m))) m) (taylor inf m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (* -1 (/ (pow n 3) (* K (pow m 3)))) (/ 1 K)) (+ (* -1 (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m)))) m) (taylor inf m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow m 2)) (taylor inf m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m))) (taylor inf m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m))) (taylor inf m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m))) (taylor inf m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor inf m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt K (taylor inf m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (+ K (/ (* K n) m)) (taylor inf m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (+ K (/ (* K n) m)) (taylor inf m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (+ K (/ (* K n) m)) (taylor inf m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow m 2)) (taylor inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m))) (taylor inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m))) (taylor inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m))) (taylor inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K (pow m 2)) (taylor inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ K (/ (* K (+ n (* -1 n))) m))) (taylor inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ K (+ (* -1 (/ (* K (pow n 2)) (pow m 2))) (/ (* K (+ n (* -1 n))) m)))) (taylor inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ K (+ (* -1 (/ (* K (pow n 2)) (pow m 2))) (/ (* K (+ n (* -1 n))) m)))) (taylor inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) (patch #s(approx ( (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) (patch (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (patch (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) (patch (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) (patch (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) (patch (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 m) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (- (* -1/2 (/ n m)) 1/2))) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (- (* -1/2 (/ n m)) 1/2))) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (- (* -1/2 (/ n m)) 1/2))) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor -inf m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) (patch (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (/ n (* K m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (/ (pow n 2) (* K m)) (/ n K)) m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow n 3) (* K m)) (/ (pow n 2) K)) m)) (/ n K)) m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) (patch (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow m 2)) (taylor -inf m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m))) (taylor -inf m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m)))) (taylor -inf m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m)))) (taylor -inf m) (#s(alt (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor -inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 K (+.f64 m n)) (patch (.f64 K (+.f64 m n)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor -inf m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 (fma.f64 (/.f64 n m) K K) m) (patch (.f64 (fma.f64 (/.f64 n m) K K) m) #<representation binary64>) () ())) ())
#s(alt K (taylor -inf m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (+ K (/ (* K n) m)) (taylor -inf m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (+ K (/ (* K n) m)) (taylor -inf m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (+ K (/ (* K n) m)) (taylor -inf m) (#s(alt (fma.f64 (/.f64 n m) K K) (patch (fma.f64 (/.f64 n m) K K) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow m 2)) (taylor -inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m))) (taylor -inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m)))) (taylor -inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m)))) (taylor -inf m) (#s(alt (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* K (pow m 2)) (taylor -inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ K (/ (* K (+ n (* -1 n))) m))) (taylor -inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ K (* -1 (/ (+ (* -1 (* K (+ n (* -1 n)))) (/ (* K (pow n 2)) m)) m)))) (taylor -inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ K (* -1 (/ (+ (* -1 (* K (+ n (* -1 n)))) (/ (* K (pow n 2)) m)) m)))) (taylor -inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) #<representation binary64>) () ())) ())

Calls

15 calls:

Time	Variable		Point	Expression
16.0ms	K	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (/ (* K (+ m n)) 2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (cos M) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* K (+ m n)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (+ (* (/ n m) K) K) m) (+ (* (/ n m) K) K) (pow (- (/ (+ m n) 2) M) 2) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (* (* (+ n m) (- m n)) K))
8.0ms	m	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (/ (* K (+ m n)) 2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (cos M) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* K (+ m n)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (+ (* (/ n m) K) K) m) (+ (* (/ n m) K) K) (pow (- (/ (+ m n) 2) M) 2) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (* (* (+ n m) (- m n)) K))
6.0ms	l	@	-inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (/ (* K (+ m n)) 2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (cos M) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* K (+ m n)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (+ (* (/ n m) K) K) m) (+ (* (/ n m) K) K) (pow (- (/ (+ m n) 2) M) 2) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (* (* (+ n m) (- m n)) K))
3.0ms	K	@	-inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (/ (* K (+ m n)) 2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (cos M) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* K (+ m n)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (+ (* (/ n m) K) K) m) (+ (* (/ n m) K) K) (pow (- (/ (+ m n) 2) M) 2) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (* (* (+ n m) (- m n)) K))
3.0ms	n	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- m n)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (/ (* K (+ m n)) 2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (cos M) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* K (+ m n)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (+ (* (/ n m) K) K) m) (+ (* (/ n m) K) K) (pow (- (/ (+ m n) 2) M) 2) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (* (* (+ n m) (- m n)) K))

simplify312.0ms (3.1%)

Memory

8.2MiB live, 437.1MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	960	27968
1	3104	26958
0	8425	26181

Stop Event

1×	iter limit
1×	node limit

Counts

1 116 → 1 113

Calls

Call 1

Inputs
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* -1 M)
(- (* 1/2 (* K (+ m n))) M)
(- (* 1/2 (* K (+ m n))) M)
(- (* 1/2 (* K (+ m n))) M)
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (* m (+ 1 (/ n m))))
(* K (* m (+ 1 (/ n m))))
(* K (* m (+ 1 (/ n m))))
(* K (* m (+ 1 (/ n m))))
(* K (+ 1 (/ n m)))
(* K (+ 1 (/ n m)))
(* K (+ 1 (/ n m)))
(* K (+ 1 (/ n m)))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* K (* (+ m n) (- m n)))
(* K (* (+ m n) (- m n)))
(* K (* (+ m n) (- m n)))
(* K (* (+ m n) (- m n)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (+ m n)))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (* m (+ 1 (/ n m))))
(* K (* m (+ 1 (/ n m))))
(* K (* m (+ 1 (/ n m))))
(* K (* m (+ 1 (/ n m))))
(* K (+ 1 (/ n m)))
(* K (+ 1 (/ n m)))
(* K (+ 1 (/ n m)))
(* K (+ 1 (/ n m)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* K (* (+ m n) (- m n)))
(* K (* (+ m n) (- m n)))
(* K (* (+ m n) (- m n)))
(* K (* (+ m n) (- m n)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (+ m n)))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* -1 (* K (* m (- (* -1 (/ n m)) 1))))
(* -1 (* K (* m (- (* -1 (/ n m)) 1))))
(* -1 (* K (* m (- (* -1 (/ n m)) 1))))
(* -1 (* K (* m (- (* -1 (/ n m)) 1))))
(* -1 (* K (- (* -1 (/ n m)) 1)))
(* -1 (* K (- (* -1 (/ n m)) 1)))
(* -1 (* K (- (* -1 (/ n m)) 1)))
(* -1 (* K (- (* -1 (/ n m)) 1)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* K (* (+ m n) (- m n)))
(* K (* (+ m n) (- m n)))
(* K (* (+ m n) (- m n)))
(* K (* (+ m n) (- m n)))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(* 1/2 (* K m))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(- (* 1/2 (* K m)) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(* 1/2 m)
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(* K m)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(/ 1 (* K m))
(+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(+ (* n (- (* n (+ (* -1 (/ n (* K (pow m 4)))) (/ 1 (* K (pow m 3))))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(* 1/2 (* K m))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(pow (- (* 1/2 m) M) 2)
(+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(* K m)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(* K m)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
K
(+ K (/ (* K n) m))
(+ K (/ (* K n) m))
(+ K (/ (* K n) m))
(pow (- (* 1/2 m) M) 2)
(+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(* K (pow m 2))
(+ (* K (* n (+ m (* -1 m)))) (* K (pow m 2)))
(+ (* K (pow m 2)) (* n (+ (* -1 (* K n)) (* K (+ m (* -1 m))))))
(+ (* K (pow m 2)) (* n (+ (* -1 (* K n)) (* K (+ m (* -1 m))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* 1/2 (* K n))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K n))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* 1/2 n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(* n (+ 1/2 (* 1/2 (/ m n))))
(* n (+ 1/2 (* 1/2 (/ m n))))
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* K n)
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(/ 1 (* K n))
(/ (+ (* -1 (/ m (* K n))) (/ 1 K)) n)
(/ (- (+ (/ 1 K) (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n))) n)
(/ (- (+ (* -1 (/ (pow m 3) (* K (pow n 3)))) (/ 1 K)) (+ (* -1 (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n)))) n)
(* 1/2 (* K n))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* 1/4 (pow n 2))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* K n)
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* K n)
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(/ (* K n) m)
(* n (+ (/ K m) (/ K n)))
(* n (+ (/ K m) (/ K n)))
(* n (+ (/ K m) (/ K n)))
(* 1/4 (pow n 2))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1 (* K (pow n 2)))
(* (pow n 2) (+ (* -1 K) (/ (* K (+ m (* -1 m))) n)))
(* (pow n 2) (+ (* -1 K) (+ (/ (* K (+ m (* -1 m))) n) (/ (* K (pow m 2)) (pow n 2)))))
(* (pow n 2) (+ (* -1 K) (+ (/ (* K (+ m (* -1 m))) n) (/ (* K (pow m 2)) (pow n 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* 1/2 (* K n))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* 1/2 (* K n))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* 1/2 n)
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* K n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(/ 1 (* K n))
(* -1 (/ (- (/ m (* K n)) (/ 1 K)) n))
(* -1 (/ (- (* -1 (/ (- (/ (pow m 2) (* K n)) (/ m K)) n)) (/ 1 K)) n))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow m 3) (* K n)) (/ (pow m 2) K)) n)) (/ m K)) n)) (/ 1 K)) n))
(* 1/2 (* K n))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* 1/4 (pow n 2))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* K n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* K n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(/ (* K n) m)
(* -1 (* n (+ (* -1 (/ K m)) (* -1 (/ K n)))))
(* -1 (* n (+ (* -1 (/ K m)) (* -1 (/ K n)))))
(* -1 (* n (+ (* -1 (/ K m)) (* -1 (/ K n)))))
(* 1/4 (pow n 2))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* -1 (* K (pow n 2)))
(* (pow n 2) (+ (* -1 K) (* -1 (/ (* K (+ m (* -1 m))) n))))
(* (pow n 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow m 2)) n)) (* K (+ m (* -1 m)))) n))))
(* (pow n 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow m 2)) n)) (* K (+ m (* -1 m)))) n))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(* 1/2 (* K (+ m n)))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(* 1/4 (pow (+ m n) 2))
(+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
1
(+ 1 (* -1/2 (pow M 2)))
(+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))
(+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(* 1/4 (pow (+ m n) 2))
(+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1 M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(pow M 2)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(cos M)
(cos M)
(cos M)
(cos M)
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(pow M 2)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(* -1 M)
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(pow M 2)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(cos M)
(cos M)
(cos M)
(cos M)
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(pow M 2)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(* 1/2 (* K n))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(- (* 1/2 (* K n)) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(* 1/2 n)
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(* K n)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(/ 1 (* K n))
(+ (* -1 (/ m (* K (pow n 2)))) (/ 1 (* K n)))
(+ (* m (- (/ m (* K (pow n 3))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(+ (* m (- (* m (+ (* -1 (/ m (* K (pow n 4)))) (/ 1 (* K (pow n 3))))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(* 1/2 (* K n))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(pow (- (* 1/2 n) M) 2)
(+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(* K n)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(* K n)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(/ (* K n) m)
(/ (+ (* K m) (* K n)) m)
(/ (+ (* K m) (* K n)) m)
(/ (+ (* K m) (* K n)) m)
(pow (- (* 1/2 n) M) 2)
(+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(* -1 (* K (pow n 2)))
(+ (* -1 (* K (pow n 2))) (* K (* m (+ n (* -1 n)))))
(+ (* -1 (* K (pow n 2))) (* m (+ (* K m) (* K (+ n (* -1 n))))))
(+ (* -1 (* K (pow n 2))) (* m (+ (* K m) (* K (+ n (* -1 n))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* 1/2 (* K m))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K m))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* 1/2 m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(* m (+ 1/2 (* 1/2 (/ n m))))
(* m (+ 1/2 (* 1/2 (/ n m))))
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* K m)
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(/ 1 (* K m))
(/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m)
(/ (- (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m))) m)
(/ (- (+ (* -1 (/ (pow n 3) (* K (pow m 3)))) (/ 1 K)) (+ (* -1 (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m)))) m)
(* 1/2 (* K m))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* 1/4 (pow m 2))
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* K m)
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* K m)
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
K
(+ K (/ (* K n) m))
(+ K (/ (* K n) m))
(+ K (/ (* K n) m))
(* 1/4 (pow m 2))
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* K (pow m 2))
(* (pow m 2) (+ K (/ (* K (+ n (* -1 n))) m)))
(* (pow m 2) (+ K (+ (* -1 (/ (* K (pow n 2)) (pow m 2))) (/ (* K (+ n (* -1 n))) m))))
(* (pow m 2) (+ K (+ (* -1 (/ (* K (pow n 2)) (pow m 2))) (/ (* K (+ n (* -1 n))) m))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* 1/2 (* K m))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* 1/2 (* K m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* 1/2 m)
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* K m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(/ 1 (* K m))
(* -1 (/ (- (/ n (* K m)) (/ 1 K)) m))
(* -1 (/ (- (* -1 (/ (- (/ (pow n 2) (* K m)) (/ n K)) m)) (/ 1 K)) m))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow n 3) (* K m)) (/ (pow n 2) K)) m)) (/ n K)) m)) (/ 1 K)) m))
(* 1/2 (* K m))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* 1/4 (pow m 2))
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* K m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* K m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
K
(+ K (/ (* K n) m))
(+ K (/ (* K n) m))
(+ K (/ (* K n) m))
(* 1/4 (pow m 2))
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* K (pow m 2))
(* (pow m 2) (+ K (/ (* K (+ n (* -1 n))) m)))
(* (pow m 2) (+ K (* -1 (/ (+ (* -1 (* K (+ n (* -1 n)))) (/ (* K (pow n 2)) m)) m))))
(* (pow m 2) (+ K (* -1 (/ (+ (* -1 (* K (+ n (* -1 n)))) (/ (* K (pow n 2)) m)) m))))

Outputs
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(* -1 M)
(neg.f64 M)
(- (* 1/2 (* K (+ m n))) M)
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(- (* 1/2 (* K (+ m n))) M)
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(- (* 1/2 (* K (+ m n))) M)
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (* m (+ 1 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* K (* m (+ 1 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* K (* m (+ 1 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* K (* m (+ 1 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* K (+ 1 (/ n m)))
(fma.f64 (/.f64 n m) K K)
(* K (+ 1 (/ n m)))
(fma.f64 (/.f64 n m) K K)
(* K (+ 1 (/ n m)))
(fma.f64 (/.f64 n m) K K)
(* K (+ 1 (/ n m)))
(fma.f64 (/.f64 n m) K K)
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (/.f64 (neg.f64 M) K)) K)
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (/.f64 (neg.f64 M) K)) K)
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (/.f64 (neg.f64 M) K)) K)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (* m (+ 1 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* K (* m (+ 1 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* K (* m (+ 1 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* K (* m (+ 1 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* K (+ 1 (/ n m)))
(fma.f64 (/.f64 n m) K K)
(* K (+ 1 (/ n m)))
(fma.f64 (/.f64 n m) K K)
(* K (+ 1 (/ n m)))
(fma.f64 (/.f64 n m) K K)
(* K (+ 1 (/ n m)))
(fma.f64 (/.f64 n m) K K)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K)))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K)))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 K (+.f64 n m)))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* K (+ m n))
(*.f64 K (+.f64 n m))
(* -1 (* K (* m (- (* -1 (/ n m)) 1))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* K (* m (- (* -1 (/ n m)) 1))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* K (* m (- (* -1 (/ n m)) 1))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* K (* m (- (* -1 (/ n m)) 1))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* K (- (* -1 (/ n m)) 1)))
(neg.f64 (neg.f64 (fma.f64 (/.f64 n m) K K)))
(* -1 (* K (- (* -1 (/ n m)) 1)))
(neg.f64 (neg.f64 (fma.f64 (/.f64 n m) K K)))
(* -1 (* K (- (* -1 (/ n m)) 1)))
(neg.f64 (neg.f64 (fma.f64 (/.f64 n m) K K)))
(* -1 (* K (- (* -1 (/ n m)) 1)))
(neg.f64 (neg.f64 (fma.f64 (/.f64 n m) K K)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* K (* (+ m n) (- m n)))
(.f64 (.f64 K (-.f64 m n)) (+.f64 n m))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) m))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* n (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (.f64 (.f64 n (cos.f64 M)) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 M) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 n (cos.f64 M)) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))) n (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 M) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (cos.f64 M) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 n (cos.f64 M)) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) m))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))) n)) n (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))
(fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) n) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(fma.f64 (fma.f64 (.f64 n (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 n (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) m))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 #s(literal 1/2 binary64) m))) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 #s(literal 1/2 binary64) m))) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(* 1/2 (* K m))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) m))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) n) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) n (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(- (* 1/2 (* K m)) M)
(fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) m))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(* 1/2 m)
(*.f64 #s(literal 1/2 binary64) m)
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 #s(literal 1/2 binary64) m))) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 #s(literal 1/2 binary64) m))) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) m))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) n) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) n (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(* K m)
(*.f64 K m)
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 K m))
(+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))
(-.f64 (/.f64 #s(literal 1 binary64) (.f64 K m)) (/.f64 n (.f64 (*.f64 m m) K)))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(fma.f64 (-.f64 (/.f64 n (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K))) n (/.f64 #s(literal 1 binary64) (.f64 K m)))
(+ (* n (- (* n (+ (* -1 (/ n (* K (pow m 4)))) (/ 1 (* K (pow m 3))))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(fma.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 n (.f64 (pow.f64 m #s(literal 4 binary64)) K))) n (/.f64 #s(literal -1 binary64) (.f64 (.f64 m m) K))) n (/.f64 #s(literal 1 binary64) (*.f64 K m)))
(* 1/2 (* K m))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(pow (- (* 1/2 m) M) 2)
(pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64))
(+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))
(*.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) (+.f64 n (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) n (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) n (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 #s(literal 1/2 binary64) m))) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 #s(literal 1/2 binary64) m))) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(* K m)
(*.f64 K m)
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 #s(literal 1/2 binary64) m))) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 #s(literal 1/2 binary64) m))) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))
(* K m)
(*.f64 K m)
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
K
(+ K (/ (* K n) m))
(fma.f64 (/.f64 n m) K K)
(+ K (/ (* K n) m))
(fma.f64 (/.f64 n m) K K)
(+ K (/ (* K n) m))
(fma.f64 (/.f64 n m) K K)
(pow (- (* 1/2 m) M) 2)
(pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64))
(+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))
(*.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) (+.f64 n (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) n (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)))
(+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) n (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) n) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) n (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 K m) #s(literal 1/2 binary64) (neg.f64 M))))
(* K (pow m 2))
(.f64 (.f64 m m) K)
(+ (* K (* n (+ m (* -1 m)))) (* K (pow m 2)))
(*.f64 K (fma.f64 m m #s(literal 0 binary64)))
(+ (* K (pow m 2)) (* n (+ (* -1 (* K n)) (* K (+ m (* -1 m))))))
(fma.f64 (.f64 (neg.f64 n) n) K (.f64 K (fma.f64 m m #s(literal 0 binary64))))
(+ (* K (pow m 2)) (* n (+ (* -1 (* K n)) (* K (+ m (* -1 m))))))
(fma.f64 (.f64 (neg.f64 n) n) K (.f64 K (fma.f64 m m #s(literal 0 binary64))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* 1/2 (* K n))
(.f64 (.f64 K n) #s(literal 1/2 binary64))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 (* K n))
(.f64 (.f64 K n) #s(literal 1/2 binary64))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)) n)) n)
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)) n)) n)
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)) n)) n)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/2 n)
(*.f64 #s(literal 1/2 binary64) n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n)
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K n)
(*.f64 K n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(/ 1 (* K n))
(/.f64 #s(literal 1 binary64) (*.f64 K n))
(/ (+ (* -1 (/ m (* K n))) (/ 1 K)) n)
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 m (*.f64 K n))) n)
(/ (- (+ (/ 1 K) (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n))) n)
(/.f64 (fma.f64 (/.f64 m (.f64 n n)) (/.f64 m K) (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 m (.f64 K n)))) n)
(/ (- (+ (* -1 (/ (pow m 3) (* K (pow n 3)))) (/ 1 K)) (+ (* -1 (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n)))) n)
(/.f64 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) K) (pow.f64 n #s(literal 3 binary64)))) (-.f64 (/.f64 m (.f64 K n)) (.f64 (/.f64 m (*.f64 n n)) (/.f64 m K)))) n)
(* 1/2 (* K n))
(.f64 (.f64 K n) #s(literal 1/2 binary64))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* 1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal 1/4 binary64))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n)) (.f64 n n))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(.f64 (+.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n)) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n))) (*.f64 n n))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(.f64 (+.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n)) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n))) (*.f64 n n))
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* K n)
(*.f64 K n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* K n)
(*.f64 K n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(/ (* K n) m)
(*.f64 K (/.f64 n m))
(* n (+ (/ K m) (/ K n)))
(*.f64 (+.f64 (/.f64 K n) (/.f64 K m)) n)
(* n (+ (/ K m) (/ K n)))
(*.f64 (+.f64 (/.f64 K n) (/.f64 K m)) n)
(* n (+ (/ K m) (/ K n)))
(*.f64 (+.f64 (/.f64 K n) (/.f64 K m)) n)
(* 1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal 1/4 binary64))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n)) (.f64 n n))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(.f64 (+.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n)) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n))) (*.f64 n n))
(* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))
(.f64 (+.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n)) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n))) (*.f64 n n))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* -1 (* K (pow n 2)))
(.f64 (.f64 (neg.f64 n) n) K)
(* (pow n 2) (+ (* -1 K) (/ (* K (+ m (* -1 m))) n)))
(.f64 (.f64 (-.f64 (/.f64 (*.f64 #s(literal 0 binary64) K) n) K) n) n)
(* (pow n 2) (+ (* -1 K) (+ (/ (* K (+ m (* -1 m))) n) (/ (* K (pow m 2)) (pow n 2)))))
(.f64 (fma.f64 K (fma.f64 (/.f64 m n) (/.f64 m n) (/.f64 #s(literal 0 binary64) n)) (neg.f64 K)) (.f64 n n))
(* (pow n 2) (+ (* -1 K) (+ (/ (* K (+ m (* -1 m))) n) (/ (* K (pow m 2)) (pow n 2)))))
(.f64 (fma.f64 K (fma.f64 (/.f64 m n) (/.f64 m n) (/.f64 #s(literal 0 binary64) n)) (neg.f64 K)) (.f64 n n))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n) #s(literal -1 binary64) #s(literal -1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* 1/2 (* K n))
(.f64 (.f64 K n) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 (* K n))
(.f64 (.f64 K n) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(.f64 (fma.f64 K #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(.f64 (fma.f64 K #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(.f64 (fma.f64 K #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 K m) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 n))) (neg.f64 n))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/2 n)
(*.f64 #s(literal 1/2 binary64) n)
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(*.f64 (fma.f64 (/.f64 m n) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 n))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(*.f64 (fma.f64 (/.f64 m n) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 n))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(*.f64 (fma.f64 (/.f64 m n) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 n))
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n) #s(literal -1 binary64) #s(literal -1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K n)
(*.f64 K n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(/ 1 (* K n))
(/.f64 #s(literal 1 binary64) (*.f64 K n))
(* -1 (/ (- (/ m (* K n)) (/ 1 K)) n))
(/.f64 (-.f64 (/.f64 m (*.f64 K n)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 n))
(* -1 (/ (- (* -1 (/ (- (/ (pow m 2) (* K n)) (/ m K)) n)) (/ 1 K)) n))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 m K) (/.f64 m n) (/.f64 (neg.f64 m) K)) (neg.f64 n)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 n))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow m 3) (* K n)) (/ (pow m 2) K)) n)) (/ m K)) n)) (/ 1 K)) n))
(/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) K) n) (/.f64 (*.f64 m m) K)) (neg.f64 n)) (/.f64 m K)) (neg.f64 n)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 n))
(* 1/2 (* K n))
(.f64 (.f64 K n) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* 1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal 1/4 binary64))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n)) (.f64 n n))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n)) (.f64 n n))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n)) (.f64 n n))
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n) #s(literal -1 binary64) #s(literal -1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* K n)
(*.f64 K n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n) #s(literal -1 binary64) #s(literal -1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* K n)
(*.f64 K n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(/ (* K n) m)
(*.f64 K (/.f64 n m))
(* -1 (* n (+ (* -1 (/ K m)) (* -1 (/ K n)))))
(*.f64 (+.f64 (/.f64 K n) (/.f64 K m)) n)
(* -1 (* n (+ (* -1 (/ K m)) (* -1 (/ K n)))))
(*.f64 (+.f64 (/.f64 K n) (/.f64 K m)) n)
(* -1 (* n (+ (* -1 (/ K m)) (* -1 (/ K n)))))
(*.f64 (+.f64 (/.f64 K n) (/.f64 K m)) n)
(* 1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal 1/4 binary64))
(* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))
(.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) n)) (.f64 n n))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n)) (.f64 n n))
(* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) (neg.f64 n)) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M))) n)) (.f64 n n))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* -1 (* K (pow n 2)))
(.f64 (.f64 (neg.f64 n) n) K)
(* (pow n 2) (+ (* -1 K) (* -1 (/ (* K (+ m (* -1 m))) n))))
(.f64 (.f64 (-.f64 (/.f64 (*.f64 #s(literal 0 binary64) K) n) K) n) n)
(* (pow n 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow m 2)) n)) (* K (+ m (* -1 m)))) n))))
(.f64 (-.f64 (/.f64 (fma.f64 #s(literal 0 binary64) K (.f64 (neg.f64 K) (/.f64 (.f64 m m) n))) (neg.f64 n)) K) (.f64 n n))
(* (pow n 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow m 2)) n)) (* K (+ m (* -1 m)))) n))))
(.f64 (-.f64 (/.f64 (fma.f64 #s(literal 0 binary64) K (.f64 (neg.f64 K) (/.f64 (.f64 m m) n))) (neg.f64 n)) K) (.f64 n n))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M))
(+ (* -1 (* l (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M)))
(+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M)) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M)))
(+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M)) (.f64 (.f64 l l) (.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M)) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
(*.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
(fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (.f64 (.f64 l l) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(fma.f64 (*.f64 (+.f64 n m) M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(fma.f64 (*.f64 (+.f64 n m) M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (.f64 M (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (fma.f64 (.f64 M (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (+.f64 n m) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 M #s(literal -1/2 binary64)) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (+.f64 n m) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 M #s(literal -1/2 binary64)) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(* 1/4 (pow (+ m n) 2))
(*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))
(+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))
(fma.f64 (-.f64 (neg.f64 m) n) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(fma.f64 (-.f64 M (+.f64 n m)) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(fma.f64 (-.f64 M (+.f64 n m)) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow M 2)))
(fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))
(fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 M M) #s(literal -1/2 binary64)) (.f64 M M) #s(literal 1 binary64))
(+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 M M) #s(literal 1/24 binary64)) (.f64 M M) #s(literal -1/2 binary64)) (*.f64 M M) #s(literal 1 binary64))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (+.f64 n m) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (+.f64 n m) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(* 1/4 (pow (+ m n) 2))
(*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))
(+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))
(fma.f64 (-.f64 (neg.f64 m) n) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(fma.f64 (-.f64 M (+.f64 n m)) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
(+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))
(fma.f64 (-.f64 M (+.f64 n m)) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 M #s(literal -1/2 binary64)) (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* -1 M)
(neg.f64 M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(.f64 (fma.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(.f64 (fma.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(.f64 (fma.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(pow M 2)
(*.f64 M M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M)) M) M)
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (.f64 M M))
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (.f64 M M))
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(pow M 2)
(*.f64 M M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M)) M) M)
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (.f64 M M))
(* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))
(.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (.f64 M M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* -1 M)
(neg.f64 M)
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(.f64 (fma.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(.f64 (fma.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(.f64 (fma.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(pow M 2)
(*.f64 M M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M)) M) M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) (+.f64 n m)) M)) M) M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) (+.f64 n m)) M)) M) M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(pow M 2)
(*.f64 M M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M)) M) M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) (+.f64 n m)) M)) M) M)
(* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) (+.f64 n m)) M)) M) M)
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))
(+ (* m (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (.f64 (.f64 m (cos.f64 M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 M) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 m (cos.f64 M)) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))) m (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 M) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (cos.f64 M) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 m (cos.f64 M)) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))) m)) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))
(fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(fma.f64 (fma.f64 (.f64 m (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 m (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 #s(literal 1/2 binary64) n))) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 #s(literal 1/2 binary64) n))) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(* 1/2 (* K n))
(.f64 (.f64 K n) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) m) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(- (* 1/2 (* K n)) M)
(fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(* 1/2 n)
(*.f64 #s(literal 1/2 binary64) n)
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 #s(literal 1/2 binary64) n))) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 #s(literal 1/2 binary64) n))) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 K #s(literal -1/2 binary64)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) m) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(* K n)
(*.f64 K n)
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(/ 1 (* K n))
(/.f64 #s(literal 1 binary64) (*.f64 K n))
(+ (* -1 (/ m (* K (pow n 2)))) (/ 1 (* K n)))
(-.f64 (/.f64 #s(literal 1 binary64) (.f64 K n)) (/.f64 m (.f64 (*.f64 n n) K)))
(+ (* m (- (/ m (* K (pow n 3))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(fma.f64 (-.f64 (/.f64 m (.f64 (pow.f64 n #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 n n) K))) m (/.f64 #s(literal 1 binary64) (.f64 K n)))
(+ (* m (- (* m (+ (* -1 (/ m (* K (pow n 4)))) (/ 1 (* K (pow n 3))))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(fma.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 n #s(literal 3 binary64)) K)) (/.f64 m (.f64 (pow.f64 n #s(literal 4 binary64)) K))) m (/.f64 #s(literal -1 binary64) (.f64 (.f64 n n) K))) m (/.f64 #s(literal 1 binary64) (*.f64 K n)))
(* 1/2 (* K n))
(.f64 (.f64 K n) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64))
(pow (- (* 1/2 n) M) 2)
(pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64))
(+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))
(*.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) (+.f64 m (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) m (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) m (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 #s(literal 1/2 binary64) n))) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 #s(literal 1/2 binary64) n))) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(* K n)
(*.f64 K n)
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 #s(literal 1/2 binary64) n))) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 #s(literal 1/2 binary64) n))) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l))
(* K n)
(*.f64 K n)
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(+ (* K m) (* K n))
(*.f64 K (+.f64 n m))
(/ (* K n) m)
(*.f64 K (/.f64 n m))
(/ (+ (* K m) (* K n)) m)
(/.f64 (*.f64 K (+.f64 n m)) m)
(/ (+ (* K m) (* K n)) m)
(/.f64 (*.f64 K (+.f64 n m)) m)
(/ (+ (* K m) (* K n)) m)
(/.f64 (*.f64 K (+.f64 n m)) m)
(pow (- (* 1/2 n) M) 2)
(pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64))
(+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))
(*.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) (+.f64 m (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) m (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)))
(+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))
(fma.f64 (fma.f64 #s(literal 1/4 binary64) m (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) m) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 K #s(literal -1/2 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(* -1 (* K (pow n 2)))
(.f64 (.f64 (neg.f64 n) n) K)
(+ (* -1 (* K (pow n 2))) (* K (* m (+ n (* -1 n)))))
(.f64 (fma.f64 #s(literal 0 binary64) K (.f64 (neg.f64 n) K)) n)
(+ (* -1 (* K (pow n 2))) (* m (+ (* K m) (* K (+ n (* -1 n))))))
(fma.f64 (.f64 (neg.f64 n) n) K (.f64 K (fma.f64 m m #s(literal 0 binary64))))
(+ (* -1 (* K (pow n 2))) (* m (+ (* K m) (* K (+ n (* -1 n))))))
(fma.f64 (.f64 (neg.f64 n) n) K (.f64 K (fma.f64 m m #s(literal 0 binary64))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* 1/2 (* K m))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 n m) K K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 n m) K K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 n m) K K)) m)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 (* K m))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/2 m)
(*.f64 #s(literal 1/2 binary64) m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m)
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K m)
(*.f64 K m)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 K m))
(/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m)
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 n (*.f64 K m))) m)
(/ (- (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m))) m)
(/.f64 (fma.f64 (/.f64 n (.f64 m m)) (/.f64 n K) (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 n (.f64 K m)))) m)
(/ (- (+ (* -1 (/ (pow n 3) (* K (pow m 3)))) (/ 1 K)) (+ (* -1 (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m)))) m)
(/.f64 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) K) (pow.f64 m #s(literal 3 binary64)))) (-.f64 (/.f64 n (.f64 K m)) (.f64 (/.f64 n (*.f64 m m)) (/.f64 n K)))) m)
(* 1/2 (* K m))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 n m) K K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 n m) K K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 n m) K K)) m)
(* 1/4 (pow m 2))
(.f64 (.f64 #s(literal 1/4 binary64) m) m)
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m)) (.f64 m m))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(.f64 (+.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m)) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m))) (*.f64 m m))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(.f64 (+.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m)) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m))) (*.f64 m m))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* K m)
(*.f64 K m)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* K m)
(*.f64 K m)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
K
(+ K (/ (* K n) m))
(fma.f64 (/.f64 n m) K K)
(+ K (/ (* K n) m))
(fma.f64 (/.f64 n m) K K)
(+ K (/ (* K n) m))
(fma.f64 (/.f64 n m) K K)
(* 1/4 (pow m 2))
(.f64 (.f64 #s(literal 1/4 binary64) m) m)
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m)) (.f64 m m))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(.f64 (+.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m)) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m))) (*.f64 m m))
(* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))
(.f64 (+.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m)) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m))) (*.f64 m m))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K (pow m 2))
(.f64 (.f64 m m) K)
(* (pow m 2) (+ K (/ (* K (+ n (* -1 n))) m)))
(.f64 (fma.f64 K (/.f64 #s(literal 0 binary64) m) K) (.f64 m m))
(* (pow m 2) (+ K (+ (* -1 (/ (* K (pow n 2)) (pow m 2))) (/ (* K (+ n (* -1 n))) m))))
(.f64 (fma.f64 (/.f64 (neg.f64 K) m) (/.f64 (.f64 n n) m) (fma.f64 K (/.f64 #s(literal 0 binary64) m) K)) (*.f64 m m))
(* (pow m 2) (+ K (+ (* -1 (/ (* K (pow n 2)) (pow m 2))) (/ (* K (+ n (* -1 n))) m))))
(.f64 (fma.f64 (/.f64 (neg.f64 K) m) (/.f64 (.f64 n n) m) (fma.f64 K (/.f64 #s(literal 0 binary64) m) K)) (*.f64 m m))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos M) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m) #s(literal -1 binary64) #s(literal -1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* 1/2 (* K m))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 (/.f64 n m) K K))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 (/.f64 n m) K K))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 (/.f64 n m) K K))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* 1/2 (* K m))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 K #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 K #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 K #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* 1/2 m)
(*.f64 #s(literal 1/2 binary64) m)
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(*.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 m))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(*.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 m))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(*.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 m))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m) #s(literal -1 binary64) #s(literal -1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K m)
(*.f64 K m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 K m))
(* -1 (/ (- (/ n (* K m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 n (*.f64 K m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* -1 (/ (- (* -1 (/ (- (/ (pow n 2) (* K m)) (/ n K)) m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow n 3) (* K m)) (/ (pow n 2) K)) m)) (/ n K)) m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) K) m) (/.f64 (*.f64 n n) K)) (neg.f64 m)) (/.f64 n K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* 1/2 (* K m))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 (/.f64 n m) K K))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 (/.f64 n m) K K))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 (/.f64 n m) K K))
(* 1/4 (pow m 2))
(.f64 (.f64 #s(literal 1/4 binary64) m) m)
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m)) (.f64 m m))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m)) (.f64 m m))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m)) (.f64 m m))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m) #s(literal -1 binary64) #s(literal -1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* K m)
(*.f64 K m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m) #s(literal -1 binary64) #s(literal -1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* K m)
(*.f64 K m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 (/.f64 n m) m m) K)
K
(+ K (/ (* K n) m))
(fma.f64 (/.f64 n m) K K)
(+ K (/ (* K n) m))
(fma.f64 (/.f64 n m) K K)
(+ K (/ (* K n) m))
(fma.f64 (/.f64 n m) K K)
(* 1/4 (pow m 2))
(.f64 (.f64 #s(literal 1/4 binary64) m) m)
(* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))
(.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) m)) (.f64 m m))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m)) (.f64 m m))
(* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))
(.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M)) #s(literal 2 binary64)) (neg.f64 m)) (fma.f64 #s(literal 1/2 binary64) n (neg.f64 M))) m)) (.f64 m m))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 K (+.f64 n m)) #s(literal 1/2 binary64) (neg.f64 M)))
(* K (pow m 2))
(.f64 (.f64 m m) K)
(* (pow m 2) (+ K (/ (* K (+ n (* -1 n))) m)))
(.f64 (fma.f64 K (/.f64 #s(literal 0 binary64) m) K) (.f64 m m))
(* (pow m 2) (+ K (* -1 (/ (+ (* -1 (* K (+ n (* -1 n)))) (/ (* K (pow n 2)) m)) m))))
(.f64 (.f64 (-.f64 K (/.f64 (fma.f64 #s(literal 0 binary64) K (/.f64 (.f64 (.f64 n n) K) m)) m)) m) m)
(* (pow m 2) (+ K (* -1 (/ (+ (* -1 (* K (+ n (* -1 n)))) (/ (* K (pow n 2)) m)) m))))
(.f64 (.f64 (-.f64 K (/.f64 (fma.f64 #s(literal 0 binary64) K (/.f64 (.f64 (.f64 n n) K) m)) m)) m) m)

rewrite272.0ms (2.8%)

Memory

-11.9MiB live, 365.5MiB allocated

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	72	431
0	121	400
1	420	388
2	3240	388
0	10196	388

Stop Event

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

Counts

26 → 767

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 #s(approx (* K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)))
(/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))
(/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64))
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))
(cos.f64 M)
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(*.f64 K (+.f64 m n))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(*.f64 (fma.f64 (/.f64 n m) K K) m)
(fma.f64 (/.f64 n m) K K)
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M))
(.f64 (.f64 (+.f64 n m) (-.f64 m n)) K)

Outputs
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>

eval417.0ms (4.2%)

Memory: 28.3MiB live, 597.8MiB allocated
Compiler: Compiled 100 270 to 5 688 computations (94.3% saved)

prune73.0ms (0.7%)

Memory

15.9MiB live, 212.4MiB allocated

Pruning

18 alts after pruning (18 fresh and 0 done)

	Pruned	Kept	Total
New	2 482	18	2 500
Fresh	10	0	10
Picked	5	0	5
Done	0	0	0
Total	2 497	18	2 515

Accuracy

98.2%

Counts

2 515 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
	20.2%	(.f64 (cos.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (.f64 (neg.f64 M) M)) (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	16.9%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (*.f64 n n) #s(literal -1/4 binary64)))))
	24.0%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (*.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	23.5%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	76.4%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	30.0%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 m n) #s(literal -1 binary64)) (+.f64 n m)) (.f64 K (-.f64 m n))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	40.5%	(.f64 (cos.f64 (-.f64 (/.f64 (exp.f64 (.f64 (neg.f64 (log.f64 (*.f64 (+.f64 n m) K))) #s(literal -1 binary64))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	15.8%	(.f64 (cos.f64 (-.f64 (/.f64 (exp.f64 (.f64 (neg.f64 (log.f64 (*.f64 (+.f64 n m) K))) #s(literal -1 binary64))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	26.6%	(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 n m) K K)) m)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	27.4%	(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	23.4%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	30.6%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K n) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	31.6%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	29.8%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	52.4%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
▶	37.4%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	52.0%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- m n)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (cos.f64 M)))
	54.7%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- m n)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) (cos.f64 M)))

Compiler

Compiled 742 to 652 computations (12.1% saved)

simplify141.0ms (1.4%)

Memory

2.8MiB live, 119.2MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
cost-diff	0	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)))
cost-diff	0	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
cost-diff	128	(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))
cost-diff	0	(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
cost-diff	0	#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))
cost-diff	0	(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)))
cost-diff	0	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
cost-diff	0	(.f64 (.f64 K m) #s(literal 1/2 binary64))
cost-diff	0	#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))
cost-diff	0	(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))))
cost-diff	0	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
cost-diff	0	(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
cost-diff	0	(cos.f64 M)
cost-diff	0	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
cost-diff	0	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
cost-diff	128	(/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m))
cost-diff	256	(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
cost-diff	704	(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
cost-diff	704	(/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	80	990
0	131	990
1	232	982
2	498	896
3	1426	896
4	4454	895
0	8177	885

Stop Event

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

Calls

Call 1

Inputs
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)
(/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))))
#s(literal 1 binary64)
#s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K))
(/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m))
(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
(/.f64 n K)
n
K
(/.f64 n m)
m
(/.f64 (neg.f64 n) K)
(neg.f64 n)
(neg.f64 m)
(/.f64 #s(literal 1 binary64) K)
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(+.f64 m n)
(-.f64 l (fabs.f64 (-.f64 m n)))
l
(fabs.f64 (-.f64 m n))
(-.f64 m n)
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
(cos.f64 M)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(*.f64 K m)
K
m
#s(literal 1/2 binary64)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m))
K
#s(literal 1/2 binary64)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))
(*.f64 K #s(literal 1/2 binary64))
n
(neg.f64 M)
M
m
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(*.f64 #s(literal -1/2 binary64) (+.f64 n m))
#s(literal -1/2 binary64)
(+.f64 n m)
n
m
K
(neg.f64 (sin.f64 M))
(sin.f64 M)
M
(cos.f64 M)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l

Outputs
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l)) (cos.f64 (-.f64 M (/.f64 #s(literal 1/2 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (fma.f64 (/.f64 n K) (/.f64 (+.f64 #s(literal -1 binary64) (/.f64 n m)) m) (/.f64 #s(literal 1 binary64) K)) m))))))
(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M))
(cos.f64 (-.f64 M (/.f64 #s(literal 1/2 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (fma.f64 (/.f64 n K) (/.f64 (+.f64 #s(literal -1 binary64) (/.f64 n m)) m) (/.f64 #s(literal 1 binary64) K)) m)))))
(-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)
(-.f64 (/.f64 #s(literal 1/2 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (fma.f64 (/.f64 n K) (/.f64 (+.f64 #s(literal -1 binary64) (/.f64 n m)) m) (/.f64 #s(literal 1 binary64) K)) m))) M)
(/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64))
(/.f64 #s(literal 1/2 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (fma.f64 (/.f64 n K) (/.f64 (+.f64 #s(literal -1 binary64) (/.f64 n m)) m) (/.f64 #s(literal 1 binary64) K)) m)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))))
(/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (fma.f64 (/.f64 n K) (/.f64 (+.f64 #s(literal -1 binary64) (/.f64 n m)) m) (/.f64 #s(literal 1 binary64) K)) m)))
#s(literal 1 binary64)
#s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))
#s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (fma.f64 (/.f64 n K) (/.f64 (+.f64 #s(literal -1 binary64) (/.f64 n m)) m) (/.f64 #s(literal 1 binary64) K)) m))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(/.f64 (fma.f64 (/.f64 n K) (/.f64 (+.f64 #s(literal -1 binary64) (/.f64 n m)) m) (/.f64 #s(literal 1 binary64) K)) m)
(-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K))
(fma.f64 (/.f64 (neg.f64 n) K) (/.f64 (+.f64 #s(literal -1 binary64) (/.f64 n m)) m) (/.f64 #s(literal -1 binary64) K))
(/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m))
(/.f64 (*.f64 (/.f64 n K) (-.f64 #s(literal 1 binary64) (/.f64 n m))) m)
(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 n m)) (/.f64 n K))
(/.f64 n K)
n
K
(/.f64 n m)
m
(/.f64 (neg.f64 n) K)
(neg.f64 n)
(neg.f64 m)
(/.f64 #s(literal 1 binary64) K)
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(exp.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(-.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l)
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(+.f64 m n)
(-.f64 l (fabs.f64 (-.f64 m n)))
(-.f64 l (fabs.f64 (-.f64 n m)))
l
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(-.f64 m n)
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
(cos.f64 M)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 #s(literal 1/2 binary64) K) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 #s(literal 1/2 binary64) K) m)))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 #s(literal 1/2 binary64) K) m))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(.f64 (.f64 #s(literal 1/2 binary64) K) m)
(*.f64 K m)
(*.f64 m K)
K
m
#s(literal 1/2 binary64)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) n (neg.f64 M)) m)) m)))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) n (neg.f64 M)) m)) m))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) n (neg.f64 M)) m)) m)
(fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m))
(fma.f64 #s(literal 1/2 binary64) K (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) K) n (neg.f64 M)) m))
K
#s(literal 1/2 binary64)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) K) n (neg.f64 M)) m)
(fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))
(fma.f64 (*.f64 #s(literal 1/2 binary64) K) n (neg.f64 M))
(*.f64 K #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) K)
n
(neg.f64 M)
M
m
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (+.f64 m n) #s(literal 1/2 binary64)) (.f64 (sin.f64 M) K) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (+.f64 m n) #s(literal 1/2 binary64)) (.f64 (sin.f64 M) K) (cos.f64 M)))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))
(fma.f64 (.f64 (+.f64 m n) #s(literal 1/2 binary64)) (.f64 (sin.f64 M) K) (cos.f64 M))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(.f64 (.f64 (+.f64 m n) #s(literal -1/2 binary64)) K)
(*.f64 #s(literal -1/2 binary64) (+.f64 n m))
(*.f64 (+.f64 m n) #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
(+.f64 n m)
(+.f64 m n)
n
m
K
(neg.f64 (sin.f64 M))
(sin.f64 M)
M
(cos.f64 M)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l

localize429.0ms (4.3%)

Memory

-14.8MiB live, 509.9MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.01953125	(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
accuracy	4.627293065850503	(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))
accuracy	40.195634097389245	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)))
accuracy	52.68977948033394	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
accuracy	2.4777503138055765	(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
accuracy	12.909509945155932	(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
accuracy	38.278283846321415	(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)))
accuracy	52.68977948033394	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
accuracy	0.0078125	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
accuracy	38.278283846321415	(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))))
accuracy	42.01350100696459	#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))
accuracy	52.68977948033394	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
accuracy	0	(cos.f64 M)
accuracy	0.0078125	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
accuracy	37.235899732846356	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
accuracy	52.68977948033394	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
accuracy	5.035167496068478	(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
accuracy	5.445826384269045	(/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m))
accuracy	30.664647807075056	#s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))
accuracy	38.278283846321415	(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M))

Samples

282.0ms	216×	1	valid
30.0ms	40×	0	valid

Compiler

Compiled 1 352 to 126 computations (90.7% saved)

Precisions

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

ival-add: 60.0ms (25.1% of total)

ival-div: 52.0ms (21.8% of total)

ival-mult: 34.0ms (14.2% of total)

ival-cos: 26.0ms (10.9% of total)

adjust: 22.0ms (9.2% of total)

ival-sub: 18.0ms (7.5% of total)

ival-sin: 9.0ms (3.8% of total)

ival-neg: 7.0ms (2.9% of total)

ival-pow2: 5.0ms (2.1% of total)

ival-exp: 2.0ms (0.8% of total)

ival-fabs: 2.0ms (0.8% of total)

exact: 1.0ms (0.4% of total)

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

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

series146.0ms (1.5%)

Memory

19.1MiB live, 254.5MiB allocated

Counts

24 → 1 068

Calls

Call 1

Inputs
#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())
#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())
#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())
#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())
#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())
#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())
#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())
#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())
#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())
#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())
#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())
#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())
#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())
#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())
#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())
#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())
#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())
#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())

Outputs
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 n) (/ (pow n 2) m)) K) (taylor 0 K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 n) (/ (pow n 2) m)) K) (taylor 0 K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 n) (/ (pow n 2) m)) K) (taylor 0 K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 n) (/ (pow n 2) m)) K) (taylor 0 K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m))) (taylor 0 K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m))) (taylor 0 K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m))) (taylor 0 K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m))) (taylor 0 K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m))) (taylor 0 K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m))) (taylor 0 K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m))) (taylor 0 K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m))) (taylor 0 K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor 0 K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K (+ m n))) M) (taylor 0 K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K (+ m n))) M) (taylor 0 K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K (+ m n))) M) (taylor 0 K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor 0 K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K (+ m n))) M) (taylor 0 K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K (+ m n))) M) (taylor 0 K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K (+ m n))) M) (taylor 0 K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor 0 K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* K (* m (+ 1/2 (* 1/2 (/ n m)))))) (taylor 0 K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* K (* m (+ 1/2 (* 1/2 (/ n m)))))) (taylor 0 K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* K (* m (+ 1/2 (* 1/2 (/ n m)))))) (taylor 0 K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor 0 K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor 0 K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor 0 K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor 0 K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ M m)) (taylor 0 K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m))) (taylor 0 K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m))) (taylor 0 K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m))) (taylor 0 K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 n) (/ (pow n 2) m)) K) (taylor inf K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 n) (/ (pow n 2) m)) K) (taylor inf K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 n) (/ (pow n 2) m)) K) (taylor inf K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 n) (/ (pow n 2) m)) K) (taylor inf K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m))) (taylor inf K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m))) (taylor inf K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m))) (taylor inf K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m))) (taylor inf K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m))) (taylor inf K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m))) (taylor inf K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m))) (taylor inf K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m))) (taylor inf K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n)))) (taylor inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n)))) (taylor inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n)))) (taylor inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n)))) (taylor inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n)))) (taylor inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n)))) (taylor inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* K (* m (+ 1/2 (* 1/2 (/ n m))))) (taylor inf K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* m (+ 1/2 (* 1/2 (/ n m)))))) (taylor inf K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* m (+ 1/2 (* 1/2 (/ n m)))))) (taylor inf K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M K)) (* m (+ 1/2 (* 1/2 (/ n m)))))) (taylor inf K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* (sin M) (+ m n)))) (taylor inf K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K))) (taylor inf K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K))) (taylor inf K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K))) (taylor inf K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor inf K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor inf K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor inf K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor inf K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (/ (* K n) m)) (taylor inf K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M (* K m))) (* 1/2 (/ n m)))) (taylor inf K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M (* K m))) (* 1/2 (/ n m)))) (taylor inf K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* -1 (/ M (* K m))) (* 1/2 (/ n m)))) (taylor inf K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K)) (taylor -inf K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K)) (taylor -inf K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K)) (taylor -inf K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K)) (taylor -inf K) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m)) (taylor -inf K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m)) (taylor -inf K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m)) (taylor -inf K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m)) (taylor -inf K) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ n (* -1 (/ (pow n 2) m))) (* K m)) (taylor -inf K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ n (* -1 (/ (pow n 2) m))) (* K m)) (taylor -inf K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ n (* -1 (/ (pow n 2) m))) (* K m)) (taylor -inf K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ n (* -1 (/ (pow n 2) m))) (* K m)) (taylor -inf K) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K)))) (taylor -inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K)))) (taylor -inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K)))) (taylor -inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf K) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K)))) (taylor -inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K)))) (taylor -inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K)))) (taylor -inf K) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (* m (- (* -1/2 (/ n m)) 1/2)))) (taylor -inf K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* m (- (* -1/2 (/ n m)) 1/2)) (/ M K)))) (taylor -inf K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* m (- (* -1/2 (/ n m)) 1/2)) (/ M K)))) (taylor -inf K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* m (- (* -1/2 (/ n m)) 1/2)) (/ M K)))) (taylor -inf K) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* (sin M) (+ m n)))) (taylor -inf K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n)))))) (taylor -inf K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n)))))) (taylor -inf K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n)))))) (taylor -inf K) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (/ (* K n) m)) (taylor -inf K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (/ n m)) (/ M (* K m))))) (taylor -inf K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (/ n m)) (/ M (* K m))))) (taylor -inf K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1/2 (/ n m)) (/ M (* K m))))) (taylor -inf K) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ n K)) (taylor 0 n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* n (- (/ n (* K m)) (/ 1 K))) (taylor 0 n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* n (- (/ n (* K m)) (/ 1 K))) (taylor 0 n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* n (- (/ n (* K m)) (/ 1 K))) (taylor 0 n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))) (taylor 0 n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m))) (taylor 0 n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m))) (taylor 0 n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ n (* K m)) (taylor 0 n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))) (taylor 0 n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))) (taylor 0 n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))) (taylor 0 n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K m)) M) (taylor 0 n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K m)) M) (taylor 0 n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* m (- (* 1/2 K) (/ M m))) (taylor 0 n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K n)) (* m (- (* 1/2 K) (/ M m)))) (taylor 0 n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K n)) (* m (- (* 1/2 K) (/ M m)))) (taylor 0 n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K n)) (* m (- (* 1/2 K) (/ M m)))) (taylor 0 n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* m (sin M))))) (taylor 0 n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K m)) (taylor 0 n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K m)) (* -1/2 (* K n))) (taylor 0 n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K m)) (* -1/2 (* K n))) (taylor 0 n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K m)) (* -1/2 (* K n))) (taylor 0 n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))) (taylor 0 n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m))) (taylor 0 n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (* n (+ (* -1 (/ n (* K (pow m 4)))) (/ 1 (* K (pow m 3))))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m))) (taylor 0 n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ M m)) (taylor 0 n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m))) (taylor 0 n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m))) (taylor 0 n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m))) (taylor 0 n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (pow n 2) (* K m)) (taylor inf n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n)))) (taylor inf n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n)))) (taylor inf n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n)))) (taylor inf n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (pow n 2) (* K (pow m 3))) (taylor inf n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K (pow m 3))) (/ 1 (* K (* (pow m 2) n))))) (taylor inf n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ 1 (* K (* m (pow n 2)))) (/ 1 (* K (pow m 3)))) (/ 1 (* K (* (pow m 2) n))))) (taylor inf n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ 1 (* K (* m (pow n 2)))) (/ 1 (* K (pow m 3)))) (/ 1 (* K (* (pow m 2) n))))) (taylor inf n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (pow n 2) (* K (pow m 2)))) (taylor inf n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2))))) (taylor inf n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2))))) (taylor inf n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2))))) (taylor inf n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n))) (taylor inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n))) (taylor inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n))) (taylor inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n))) (taylor inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n))) (taylor inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n))) (taylor inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor inf n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (/ (* m (- (* 1/2 K) (/ M m))) n))) (taylor inf n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (/ (* m (- (* 1/2 K) (/ M m))) n))) (taylor inf n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (/ (* m (- (* 1/2 K) (/ M m))) n))) (taylor inf n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n)))) (taylor inf n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n)))) (taylor inf n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n)))) (taylor inf n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K n)) (taylor inf n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K n)) (taylor inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ m (* K n))) (/ 1 K)) n) (taylor inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (/ 1 K) (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n))) n) (taylor inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (* -1 (/ (pow m 3) (* K (pow n 3)))) (/ 1 K)) (+ (* -1 (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n)))) n) (taylor inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (/ (* K n) m)) (taylor inf n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* -1 (/ M (* m n))) (* 1/2 (/ K m)))) (taylor inf n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* -1 (/ M (* m n))) (* 1/2 (/ K m)))) (taylor inf n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* -1 (/ M (* m n))) (* 1/2 (/ K m)))) (taylor inf n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (pow n 2) (* K m)) (taylor -inf n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n)))) (taylor -inf n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n)))) (taylor -inf n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n)))) (taylor -inf n) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (pow n 2) (* K (pow m 3))) (taylor -inf n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K (pow m 3))) (/ 1 (* K (* (pow m 2) n))))) (taylor -inf n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ (* -1 (/ (- (/ 1 (* K (pow m 2))) (/ 1 (* K (* m n)))) n)) (/ 1 (* K (pow m 3))))) (taylor -inf n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ (* -1 (/ (- (/ 1 (* K (pow m 2))) (/ 1 (* K (* m n)))) n)) (/ 1 (* K (pow m 3))))) (taylor -inf n) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (pow n 2) (* K (pow m 2)))) (taylor -inf n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2))))) (taylor -inf n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2))))) (taylor -inf n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2))))) (taylor -inf n) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor -inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor -inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor -inf n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (* m (- (* 1/2 K) (/ M m))) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (* m (- (* 1/2 K) (/ M m))) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (* m (- (* 1/2 K) (/ M m))) n)) (* -1/2 K)))) (taylor -inf n) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M)))))) (taylor -inf n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M)))))) (taylor -inf n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M)))))) (taylor -inf n) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K n)) (taylor -inf n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K n)) (taylor -inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (/ m (* K n)) (/ 1 K)) n)) (taylor -inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (/ (pow m 2) (* K n)) (/ m K)) n)) (/ 1 K)) n)) (taylor -inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow m 3) (* K n)) (/ (pow m 2) K)) n)) (/ m K)) n)) (/ 1 K)) n)) (taylor -inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (/ (* K n) m)) (taylor -inf n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 (/ K m)) (/ M (* m n))))) (taylor -inf n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 (/ K m)) (/ M (* m n))))) (taylor -inf n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 (/ K m)) (/ M (* m n))))) (taylor -inf n) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow M 2))) (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2))) (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2))) (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor 0 M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))) (taylor 0 M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))) (taylor 0 M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 M) (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))) (taylor 0 M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* 1/2 (* K (* M (+ m n))))) (taylor 0 M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* M (+ (* -1/2 M) (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* M (+ (* 1/2 (* K (+ m n))) (* M (- (* -1/12 (* K (* M (+ m n)))) 1/2))))) (taylor 0 M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (/ (* K n) m)) (taylor 0 M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m))) (taylor 0 M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m))) (taylor 0 M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m))) (taylor 0 M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1)) (taylor inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1)) (taylor inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1)) (taylor inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1)) (taylor inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1)) (taylor inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1)) (taylor inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor inf M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* M (- (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M) 1)) (taylor inf M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* M (- (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M) 1)) (taylor inf M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* M (- (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M) 1)) (taylor inf M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ M m)) (taylor inf M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K n) (* M m))) (/ 1 m))) (taylor inf M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K n) (* M m))) (/ 1 m))) (taylor inf M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* M (- (* 1/2 (/ (* K n) (* M m))) (/ 1 m))) (taylor inf M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor -inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M))))) (taylor -inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M))))) (taylor -inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M))))) (taylor -inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor -inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M))))) (taylor -inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M))))) (taylor -inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M))))) (taylor -inf M) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 M) (taylor -inf M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1 (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M))))) (taylor -inf M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1 (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M))))) (taylor -inf M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ 1 (* -1 (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M))))) (taylor -inf M) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ M m)) (taylor -inf M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ (* -1/2 (/ (* K n) (* M m))) (/ 1 m)))) (taylor -inf M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ (* -1/2 (/ (* K n) (* M m))) (/ 1 m)))) (taylor -inf M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* M (+ (* -1/2 (/ (* K n) (* M m))) (/ 1 m)))) (taylor -inf M) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (pow n 2) (* K m)) (taylor 0 m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) m) (taylor 0 m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) m) (taylor 0 m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) m) (taylor 0 m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ (pow n 2) (* K (pow m 3))) (taylor 0 m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) (pow m 3)) (taylor 0 m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* m (+ (* -1 (/ n K)) (/ m K))) (/ (pow n 2) K)) (pow m 3)) (taylor 0 m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* m (+ (* -1 (/ n K)) (/ m K))) (/ (pow n 2) K)) (pow m 3)) (taylor 0 m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (pow n 2) (* K (pow m 2)))) (taylor 0 m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (pow n 2) K)) (/ (* m n) K)) (pow m 2)) (taylor 0 m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (pow n 2) K)) (/ (* m n) K)) (pow m 2)) (taylor 0 m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (pow n 2) K)) (/ (* m n) K)) (pow m 2)) (taylor 0 m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K n)) M) (taylor 0 m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K n)) M) (taylor 0 m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (- (* 1/2 (* K n)) M) (taylor 0 m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M) (taylor 0 m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* n (sin M))))) (taylor 0 m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K n)) (taylor 0 m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K m)) (* -1/2 (* K n))) (taylor 0 m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K m)) (* -1/2 (* K n))) (taylor 0 m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K m)) (* -1/2 (* K n))) (taylor 0 m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K n)) (taylor 0 m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ m (* K (pow n 2)))) (/ 1 (* K n))) (taylor 0 m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (/ m (* K (pow n 3))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n))) (taylor 0 m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (* m (+ (* -1 (/ m (* K (pow n 4)))) (/ 1 (* K (pow n 3))))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n))) (taylor 0 m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor 0 m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor 0 m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor 0 m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor 0 m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ n K)) (taylor inf m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) (taylor inf m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) (taylor inf m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) (taylor inf m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m) (taylor inf m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ n (* K m))) (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2))))) m) (taylor inf m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ n (* K m))) (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2))))) m) (taylor inf m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ n (* K m)) (taylor inf m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (pow n 2) (* K m))) (/ n K)) m) (taylor inf m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (pow n 2) (* K m))) (/ n K)) m) (taylor inf m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ (pow n 2) (* K m))) (/ n K)) m) (taylor inf m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m))) (taylor inf m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* m (sin M)))) (taylor inf m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m)))) (taylor inf m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m)))) (taylor inf m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m)))) (taylor inf m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K m)) (taylor inf m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m) (taylor inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m))) m) (taylor inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (* -1 (/ (pow n 3) (* K (pow m 3)))) (/ 1 K)) (+ (* -1 (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m)))) m) (taylor inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor inf m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor inf m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor inf m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor inf m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ n K)) (taylor -inf m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) (taylor -inf m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) (taylor -inf m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) (taylor -inf m) (#s(alt (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (patch (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (/ n (* K m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) (patch (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (/ n (* K m)) (taylor -inf m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m)) (taylor -inf m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m)) (taylor -inf m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m)) (taylor -inf m) (#s(alt (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (patch (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (.f64 (.f64 K m) #s(literal 1/2 binary64)) (patch (.f64 (.f64 K m) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (patch (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) (patch #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K)))) (taylor -inf m) (#s(alt (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) (patch (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* m (sin M)))) (taylor -inf m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M)))))) (taylor -inf m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M)))))) (taylor -inf m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M)))))) (taylor -inf m) (#s(alt (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) (patch (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (* K m)) (taylor -inf m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (patch (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (/ n (* K m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (/ (pow n 2) (* K m)) (/ n K)) m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow n 3) (* K m)) (/ (pow n 2) K)) m)) (/ n K)) m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor -inf m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor -inf m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor -inf m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())
#s(alt (/ (- (* 1/2 (* K n)) M) m) (taylor -inf m) (#s(alt (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) (patch (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m) #<representation binary64>) () ())) ())

Calls

15 calls:

Time	Variable		Point	Expression
19.0ms	m	@	inf	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (/ (- (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (/ 1 K)) (neg m)) (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* K m) 1/2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (+ (* K 1/2) (/ (+ (* (* K 1/2) n) (neg M)) m)) m) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (* (* -1/2 (+ n m)) K) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (/ (+ (* (* K 1/2) n) (neg M)) m))
8.0ms	K	@	inf	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (/ (- (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (/ 1 K)) (neg m)) (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* K m) 1/2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (+ (* K 1/2) (/ (+ (* (* K 1/2) n) (neg M)) m)) m) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (* (* -1/2 (+ n m)) K) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (/ (+ (* (* K 1/2) n) (neg M)) m))
8.0ms	K	@	-inf	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (/ (- (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (/ 1 K)) (neg m)) (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* K m) 1/2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (+ (* K 1/2) (/ (+ (* (* K 1/2) n) (neg M)) m)) m) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (* (* -1/2 (+ n m)) K) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (/ (+ (* (* K 1/2) n) (neg M)) m))
6.0ms	n	@	0	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (/ (- (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (/ 1 K)) (neg m)) (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* K m) 1/2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (+ (* K 1/2) (/ (+ (* (* K 1/2) n) (neg M)) m)) m) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (* (* -1/2 (+ n m)) K) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (/ (+ (* (* K 1/2) n) (neg M)) m))
6.0ms	K	@	0	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (/ (- (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (/ 1 K)) (neg m)) (/ (+ (* (/ n K) (/ n m)) (/ (neg n) K)) (neg m)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* K m) 1/2) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (+ (* K 1/2) (/ (+ (* (* K 1/2) n) (neg M)) m)) m) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (* (* -1/2 (+ n m)) K) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (/ (+ (* (* K 1/2) n) (neg M)) m))

simplify265.0ms (2.7%)

Memory

-23.2MiB live, 372.9MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	931	26181
1	2937	25256
0	8674	24558

Stop Event

1×	iter limit
1×	node limit

Counts

1 068 → 1 068

Calls

Call 1

Inputs
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* -1 M)
(- (* 1/2 (* K (+ m n))) M)
(- (* 1/2 (* K (+ m n))) M)
(- (* 1/2 (* K (+ m n))) M)
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* -1 M)
(- (* 1/2 (* K (+ m n))) M)
(- (* 1/2 (* K (+ m n))) M)
(- (* 1/2 (* K (+ m n))) M)
(* -1 M)
(+ (* -1 M) (* K (* m (+ 1/2 (* 1/2 (/ n m))))))
(+ (* -1 M) (* K (* m (+ 1/2 (* 1/2 (/ n m))))))
(+ (* -1 M) (* K (* m (+ 1/2 (* 1/2 (/ n m))))))
(cos M)
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* -1/2 (* K (+ m n)))
(* -1/2 (* K (+ m n)))
(* -1/2 (* K (+ m n)))
(* -1/2 (* K (+ m n)))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(* -1 (/ M m))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (+ m n)))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (+ m n)))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(* K (* m (+ 1/2 (* 1/2 (/ n m)))))
(* K (+ (* -1 (/ M K)) (* m (+ 1/2 (* 1/2 (/ n m))))))
(* K (+ (* -1 (/ M K)) (* m (+ 1/2 (* 1/2 (/ n m))))))
(* K (+ (* -1 (/ M K)) (* m (+ 1/2 (* 1/2 (/ n m))))))
(* 1/2 (* K (* (sin M) (+ m n))))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1/2 (* K (+ m n)))
(* -1/2 (* K (+ m n)))
(* -1/2 (* K (+ m n)))
(* -1/2 (* K (+ m n)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(* 1/2 (/ (* K n) m))
(* K (+ (* -1 (/ M (* K m))) (* 1/2 (/ n m))))
(* K (+ (* -1 (/ M (* K m))) (* 1/2 (/ n m))))
(* K (+ (* -1 (/ M (* K m))) (* 1/2 (/ n m))))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K))
(* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K))
(* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K))
(* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K))
(/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m))
(/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m))
(/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m))
(/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m))
(/ (+ n (* -1 (/ (pow n 2) m))) (* K m))
(/ (+ n (* -1 (/ (pow n 2) m))) (* K m))
(/ (+ n (* -1 (/ (pow n 2) m))) (* K m))
(/ (+ n (* -1 (/ (pow n 2) m))) (* K m))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (+ m n)))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (+ m n)))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(* -1 (* K (* m (- (* -1/2 (/ n m)) 1/2))))
(* -1 (* K (+ (* m (- (* -1/2 (/ n m)) 1/2)) (/ M K))))
(* -1 (* K (+ (* m (- (* -1/2 (/ n m)) 1/2)) (/ M K))))
(* -1 (* K (+ (* m (- (* -1/2 (/ n m)) 1/2)) (/ M K))))
(* 1/2 (* K (* (sin M) (+ m n))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1/2 (* K (+ m n)))
(* -1/2 (* K (+ m n)))
(* -1/2 (* K (+ m n)))
(* -1/2 (* K (+ m n)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(* 1/2 (/ (* K n) m))
(* -1 (* K (+ (* -1/2 (/ n m)) (/ M (* K m)))))
(* -1 (* K (+ (* -1/2 (/ n m)) (/ M (* K m)))))
(* -1 (* K (+ (* -1/2 (/ n m)) (/ M (* K m)))))
(* 1/2 (* K m))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(* -1 (/ n K))
(* n (- (/ n (* K m)) (/ 1 K)))
(* n (- (/ n (* K m)) (/ 1 K)))
(* n (- (/ n (* K m)) (/ 1 K)))
(/ 1 (* K m))
(+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(/ n (* K m))
(* n (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))))
(* n (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))))
(* n (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(- (* 1/2 (* K m)) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(- (* 1/2 (* K m)) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(* m (- (* 1/2 K) (/ M m)))
(+ (* 1/2 (* K n)) (* m (- (* 1/2 K) (/ M m))))
(+ (* 1/2 (* K n)) (* m (- (* 1/2 K) (/ M m))))
(+ (* 1/2 (* K n)) (* m (- (* 1/2 K) (/ M m))))
(+ (cos M) (* 1/2 (* K (* m (sin M)))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(* -1/2 (* K m))
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(/ 1 (* K m))
(+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(+ (* n (- (* n (+ (* -1 (/ n (* K (pow m 4)))) (/ 1 (* K (pow m 3))))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(* -1 (/ M m))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(* 1/2 (* K n))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(/ (pow n 2) (* K m))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(/ (pow n 2) (* K (pow m 3)))
(* (pow n 2) (- (/ 1 (* K (pow m 3))) (/ 1 (* K (* (pow m 2) n)))))
(* (pow n 2) (- (+ (/ 1 (* K (* m (pow n 2)))) (/ 1 (* K (pow m 3)))) (/ 1 (* K (* (pow m 2) n)))))
(* (pow n 2) (- (+ (/ 1 (* K (* m (pow n 2)))) (/ 1 (* K (pow m 3)))) (/ 1 (* K (* (pow m 2) n)))))
(* -1 (/ (pow n 2) (* K (pow m 2))))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K n))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K n))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(* 1/2 (* K n))
(* n (+ (* 1/2 K) (/ (* m (- (* 1/2 K) (/ M m))) n)))
(* n (+ (* 1/2 K) (/ (* m (- (* 1/2 K) (/ M m))) n)))
(* n (+ (* 1/2 K) (/ (* m (- (* 1/2 K) (/ M m))) n)))
(* 1/2 (* K (* n (sin M))))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1/2 (* K n))
(* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))
(* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))
(* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(/ 1 (* K n))
(/ (+ (* -1 (/ m (* K n))) (/ 1 K)) n)
(/ (- (+ (/ 1 K) (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n))) n)
(/ (- (+ (* -1 (/ (pow m 3) (* K (pow n 3)))) (/ 1 K)) (+ (* -1 (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n)))) n)
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* 1/2 (/ (* K n) m))
(* n (+ (* -1 (/ M (* m n))) (* 1/2 (/ K m))))
(* n (+ (* -1 (/ M (* m n))) (* 1/2 (/ K m))))
(* n (+ (* -1 (/ M (* m n))) (* 1/2 (/ K m))))
(* 1/2 (* K n))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(/ (pow n 2) (* K m))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(/ (pow n 2) (* K (pow m 3)))
(* (pow n 2) (- (/ 1 (* K (pow m 3))) (/ 1 (* K (* (pow m 2) n)))))
(* (pow n 2) (+ (* -1 (/ (- (/ 1 (* K (pow m 2))) (/ 1 (* K (* m n)))) n)) (/ 1 (* K (pow m 3)))))
(* (pow n 2) (+ (* -1 (/ (- (/ 1 (* K (pow m 2))) (/ 1 (* K (* m n)))) n)) (/ 1 (* K (pow m 3)))))
(* -1 (/ (pow n 2) (* K (pow m 2))))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* 1/2 (* K n))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* 1/2 (* K n))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(* 1/2 (* K n))
(* -1 (* n (+ (* -1 (/ (* m (- (* 1/2 K) (/ M m))) n)) (* -1/2 K))))
(* -1 (* n (+ (* -1 (/ (* m (- (* 1/2 K) (/ M m))) n)) (* -1/2 K))))
(* -1 (* n (+ (* -1 (/ (* m (- (* 1/2 K) (/ M m))) n)) (* -1/2 K))))
(* 1/2 (* K (* n (sin M))))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* -1/2 (* K n))
(* -1 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(/ 1 (* K n))
(* -1 (/ (- (/ m (* K n)) (/ 1 K)) n))
(* -1 (/ (- (* -1 (/ (- (/ (pow m 2) (* K n)) (/ m K)) n)) (/ 1 K)) n))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow m 3) (* K n)) (/ (pow m 2) K)) n)) (/ m K)) n)) (/ 1 K)) n))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* 1/2 (/ (* K n) m))
(* -1 (* n (+ (* -1/2 (/ K m)) (/ M (* m n)))))
(* -1 (* n (+ (* -1/2 (/ K m)) (/ M (* m n)))))
(* -1 (* n (+ (* -1/2 (/ K m)) (/ M (* m n)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
1
(+ 1 (* -1/2 (pow M 2)))
(+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))
(+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(* 1/2 (* K (+ m n)))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(* 1/2 (* K (+ m n)))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(+ (* -1 M) (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(+ (* -1 M) (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(+ (* -1 M) (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
1
(+ 1 (* 1/2 (* K (* M (+ m n)))))
(+ 1 (* M (+ (* -1/2 M) (* 1/2 (* K (+ m n))))))
(+ 1 (* M (+ (* 1/2 (* K (+ m n))) (* M (- (* -1/12 (* K (* M (+ m n)))) 1/2)))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(* 1/2 (/ (* K n) m))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos M)
(cos M)
(cos M)
(cos M)
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1 M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1 M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(* -1 M)
(* M (- (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M) 1))
(* M (- (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M) 1))
(* M (- (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M) 1))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* -1 (/ M m))
(* M (- (* 1/2 (/ (* K n) (* M m))) (/ 1 m)))
(* M (- (* 1/2 (/ (* K n) (* M m))) (/ 1 m)))
(* M (- (* 1/2 (/ (* K n) (* M m))) (/ 1 m)))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos M)
(cos M)
(cos M)
(cos M)
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(* -1 M)
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(* -1 M)
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(* -1 M)
(* -1 (* M (+ 1 (* -1 (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M)))))
(* -1 (* M (+ 1 (* -1 (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M)))))
(* -1 (* M (+ 1 (* -1 (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* -1 (/ M m))
(* -1 (* M (+ (* -1/2 (/ (* K n) (* M m))) (/ 1 m))))
(* -1 (* M (+ (* -1/2 (/ (* K n) (* M m))) (/ 1 m))))
(* -1 (* M (+ (* -1/2 (/ (* K n) (* M m))) (/ 1 m))))
(* 1/2 (* K n))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(/ (pow n 2) (* K m))
(/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) m)
(/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) m)
(/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) m)
(/ (pow n 2) (* K (pow m 3)))
(/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) (pow m 3))
(/ (+ (* m (+ (* -1 (/ n K)) (/ m K))) (/ (pow n 2) K)) (pow m 3))
(/ (+ (* m (+ (* -1 (/ n K)) (/ m K))) (/ (pow n 2) K)) (pow m 3))
(* -1 (/ (pow n 2) (* K (pow m 2))))
(/ (+ (* -1 (/ (pow n 2) K)) (/ (* m n) K)) (pow m 2))
(/ (+ (* -1 (/ (pow n 2) K)) (/ (* m n) K)) (pow m 2))
(/ (+ (* -1 (/ (pow n 2) K)) (/ (* m n) K)) (pow m 2))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(- (* 1/2 (* K n)) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(- (* 1/2 (* K n)) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (* 1/2 (* K n)) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(+ (cos M) (* 1/2 (* K (* n (sin M)))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(* -1/2 (* K n))
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(/ 1 (* K n))
(+ (* -1 (/ m (* K (pow n 2)))) (/ 1 (* K n)))
(+ (* m (- (/ m (* K (pow n 3))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(+ (* m (- (* m (+ (* -1 (/ m (* K (pow n 4)))) (/ 1 (* K (pow n 3))))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(/ (- (* 1/2 (* K n)) M) m)
(/ (- (* 1/2 (* K n)) M) m)
(/ (- (* 1/2 (* K n)) M) m)
(/ (- (* 1/2 (* K n)) M) m)
(* 1/2 (* K m))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* -1 (/ n K))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(/ 1 (* K m))
(/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m)
(/ (+ (* -1 (/ n (* K m))) (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2))))) m)
(/ (+ (* -1 (/ n (* K m))) (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2))))) m)
(/ n (* K m))
(/ (+ (* -1 (/ (pow n 2) (* K m))) (/ n K)) m)
(/ (+ (* -1 (/ (pow n 2) (* K m))) (/ n K)) m)
(/ (+ (* -1 (/ (pow n 2) (* K m))) (/ n K)) m)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K m))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K m))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* 1/2 (* K m))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(* 1/2 (* K (* m (sin M))))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1/2 (* K m))
(* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))
(* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))
(* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(/ 1 (* K m))
(/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m)
(/ (- (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m))) m)
(/ (- (+ (* -1 (/ (pow n 3) (* K (pow m 3)))) (/ 1 K)) (+ (* -1 (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m)))) m)
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(/ (- (* 1/2 (* K n)) M) m)
(/ (- (* 1/2 (* K n)) M) m)
(/ (- (* 1/2 (* K n)) M) m)
(/ (- (* 1/2 (* K n)) M) m)
(* 1/2 (* K m))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (/ n K))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(/ 1 (* K m))
(* -1 (/ (- (/ n (* K m)) (/ 1 K)) m))
(* -1 (/ (- (* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m)) (/ 1 K)) m))
(* -1 (/ (- (* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m)) (/ 1 K)) m))
(/ n (* K m))
(* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m))
(* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m))
(* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* 1/2 (* K m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* 1/2 (* K m))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* 1/2 (* K m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* 1/2 (* K m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(* 1/2 (* K (* m (sin M))))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* -1/2 (* K m))
(* -1 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(/ 1 (* K m))
(* -1 (/ (- (/ n (* K m)) (/ 1 K)) m))
(* -1 (/ (- (* -1 (/ (- (/ (pow n 2) (* K m)) (/ n K)) m)) (/ 1 K)) m))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow n 3) (* K m)) (/ (pow n 2) K)) m)) (/ n K)) m)) (/ 1 K)) m))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(/ (- (* 1/2 (* K n)) M) m)
(/ (- (* 1/2 (* K n)) M) m)
(/ (- (* 1/2 (* K n)) M) m)
(/ (- (* 1/2 (* K n)) M) m)

Outputs
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/.f64 (-.f64 (/.f64 (*.f64 n n) m) n) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/.f64 (-.f64 (/.f64 (*.f64 n n) m) n) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/.f64 (-.f64 (/.f64 (*.f64 n n) m) n) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/.f64 (-.f64 (/.f64 (*.f64 n n) m) n) K)
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(* -1 M)
(neg.f64 M)
(- (* 1/2 (* K (+ m n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (* 1/2 (* K (+ m n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (* 1/2 (* K (+ m n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(* -1 M)
(neg.f64 M)
(- (* 1/2 (* K (+ m n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (* 1/2 (* K (+ m n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (* 1/2 (* K (+ m n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(* -1 M)
(neg.f64 M)
(+ (* -1 M) (* K (* m (+ 1/2 (* 1/2 (/ n m))))))
(fma.f64 (*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m) K (neg.f64 M))
(+ (* -1 M) (* K (* m (+ 1/2 (* 1/2 (/ n m))))))
(fma.f64 (*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m) K (neg.f64 M))
(+ (* -1 M) (* K (* m (+ 1/2 (* 1/2 (/ n m))))))
(fma.f64 (*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m) K (neg.f64 M))
(cos M)
(cos.f64 M)
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(* -1 (/ M m))
(/.f64 (neg.f64 M) m)
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/.f64 (-.f64 (/.f64 (*.f64 n n) m) n) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/.f64 (-.f64 (/.f64 (*.f64 n n) m) n) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/.f64 (-.f64 (/.f64 (*.f64 n n) m) n) K)
(/ (+ (* -1 n) (/ (pow n 2) m)) K)
(/.f64 (-.f64 (/.f64 (*.f64 n n) m) n) K)
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(* -1 (/ (- (* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) m)) 1) (* K m)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(* -1 (/ (+ (* -1 n) (/ (pow n 2) m)) (* K m)))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (/.f64 (neg.f64 M) K)) K)
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (/.f64 (neg.f64 M) K)) K)
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (/.f64 (neg.f64 M) K)) K)
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (/.f64 (neg.f64 M) K)) K)
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (/.f64 (neg.f64 M) K)) K)
(* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (/.f64 (neg.f64 M) K)) K)
(* K (* m (+ 1/2 (* 1/2 (/ n m)))))
(.f64 (.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m) K)
(* K (+ (* -1 (/ M K)) (* m (+ 1/2 (* 1/2 (/ n m))))))
(*.f64 (fma.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m (/.f64 (neg.f64 M) K)) K)
(* K (+ (* -1 (/ M K)) (* m (+ 1/2 (* 1/2 (/ n m))))))
(*.f64 (fma.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m (/.f64 (neg.f64 M) K)) K)
(* K (+ (* -1 (/ M K)) (* m (+ 1/2 (* 1/2 (/ n m))))))
(*.f64 (fma.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m (/.f64 (neg.f64 M) K)) K)
(* 1/2 (* K (* (sin M) (+ m n))))
(.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (*.f64 (+.f64 n m) K))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) K)) K)
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) K)) K)
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) K)) K)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(* 1/2 (/ (* K n) m))
(.f64 (.f64 K (/.f64 n m)) #s(literal 1/2 binary64))
(* K (+ (* -1 (/ M (* K m))) (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 (/.f64 (neg.f64 M) K) m)) K)
(* K (+ (* -1 (/ M (* K m))) (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 (/.f64 (neg.f64 M) K) m)) K)
(* K (+ (* -1 (/ M (* K m))) (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 (/.f64 (neg.f64 M) K) m)) K)
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K))
(/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) (neg.f64 K))
(* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K))
(/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) (neg.f64 K))
(* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K))
(/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) (neg.f64 K))
(* -1 (/ (+ n (* -1 (/ (pow n 2) m))) K))
(/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) (neg.f64 K))
(/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(/ (+ 1 (* -1 (/ (+ n (* -1 (/ (pow n 2) m))) m))) (* K m))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 n (/.f64 (.f64 n n) m)) m)) (.f64 m K))
(/ (+ n (* -1 (/ (pow n 2) m))) (* K m))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(/ (+ n (* -1 (/ (pow n 2) m))) (* K m))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(/ (+ n (* -1 (/ (pow n 2) m))) (* K m))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(/ (+ n (* -1 (/ (pow n 2) m))) (* K m))
(/.f64 (/.f64 (-.f64 n (/.f64 (*.f64 n n) m)) K) m)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K)))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K)))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K)))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K)))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K)))
(* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K)))
(* -1 (* K (* m (- (* -1/2 (/ n m)) 1/2))))
(.f64 (.f64 (neg.f64 K) m) (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* K (+ (* m (- (* -1/2 (/ n m)) 1/2)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) m (/.f64 M K)))
(* -1 (* K (+ (* m (- (* -1/2 (/ n m)) 1/2)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) m (/.f64 M K)))
(* -1 (* K (+ (* m (- (* -1/2 (/ n m)) 1/2)) (/ M K))))
(*.f64 (neg.f64 K) (fma.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) m (/.f64 M K)))
(* 1/2 (* K (* (sin M) (+ m n))))
(.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (*.f64 (+.f64 n m) K))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(.f64 (neg.f64 K) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) (neg.f64 K))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(.f64 (neg.f64 K) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) (neg.f64 K))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(.f64 (neg.f64 K) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) (neg.f64 K))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(* -1/2 (* K (+ m n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(* 1/2 (/ (* K n) m))
(.f64 (.f64 K (/.f64 n m)) #s(literal 1/2 binary64))
(* -1 (* K (+ (* -1/2 (/ n m)) (/ M (* K m)))))
(*.f64 (neg.f64 K) (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) (/.f64 (/.f64 M K) m)))
(* -1 (* K (+ (* -1/2 (/ n m)) (/ M (* K m)))))
(*.f64 (neg.f64 K) (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) (/.f64 (/.f64 M K) m)))
(* -1 (* K (+ (* -1/2 (/ n m)) (/ M (* K m)))))
(*.f64 (neg.f64 K) (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) (/.f64 (/.f64 M K) m)))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* -1 (/ n K))
(/.f64 (neg.f64 n) K)
(* n (- (/ n (* K m)) (/ 1 K)))
(*.f64 (-.f64 (/.f64 (/.f64 n K) m) (/.f64 #s(literal 1 binary64) K)) n)
(* n (- (/ n (* K m)) (/ 1 K)))
(*.f64 (-.f64 (/.f64 (/.f64 n K) m) (/.f64 #s(literal 1 binary64) K)) n)
(* n (- (/ n (* K m)) (/ 1 K)))
(*.f64 (-.f64 (/.f64 (/.f64 n K) m) (/.f64 #s(literal 1 binary64) K)) n)
(/ 1 (* K m))
(/.f64 (/.f64 #s(literal 1 binary64) K) m)
(+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))
(-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 n (.f64 (.f64 m m) K)))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(fma.f64 (-.f64 (/.f64 n (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (*.f64 m m) K))) n (/.f64 (/.f64 #s(literal 1 binary64) K) m))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(fma.f64 (-.f64 (/.f64 n (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (*.f64 m m) K))) n (/.f64 (/.f64 #s(literal 1 binary64) K) m))
(/ n (* K m))
(/.f64 (/.f64 n K) m)
(* n (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))))
(.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 n (.f64 (*.f64 m m) K))) n)
(* n (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))))
(.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 n (.f64 (*.f64 m m) K))) n)
(* n (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))))
(.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 n (.f64 (*.f64 m m) K))) n)
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 n (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))
(fma.f64 (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) n) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(fma.f64 (fma.f64 (.f64 n (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 n (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 n (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(- (* 1/2 (* K m)) M)
(fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 n (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(- (* 1/2 (* K m)) M)
(fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(* m (- (* 1/2 K) (/ M m)))
(*.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m)) m)
(+ (* 1/2 (* K n)) (* m (- (* 1/2 K) (/ M m))))
(fma.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m)) m (.f64 (.f64 n K) #s(literal 1/2 binary64)))
(+ (* 1/2 (* K n)) (* m (- (* 1/2 K) (/ M m))))
(fma.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m)) m (.f64 (.f64 n K) #s(literal 1/2 binary64)))
(+ (* 1/2 (* K n)) (* m (- (* 1/2 K) (/ M m))))
(fma.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m)) m (.f64 (.f64 n K) #s(literal 1/2 binary64)))
(+ (cos M) (* 1/2 (* K (* m (sin M)))))
(fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 n (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(* -1/2 (* K m))
(.f64 (.f64 #s(literal -1/2 binary64) m) K)
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 n (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) (neg.f64 M))))
(/ 1 (* K m))
(/.f64 (/.f64 #s(literal 1 binary64) K) m)
(+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))
(-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 n (.f64 (.f64 m m) K)))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(fma.f64 (-.f64 (/.f64 n (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (*.f64 m m) K))) n (/.f64 (/.f64 #s(literal 1 binary64) K) m))
(+ (* n (- (* n (+ (* -1 (/ n (* K (pow m 4)))) (/ 1 (* K (pow m 3))))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(fma.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 n (.f64 (pow.f64 m #s(literal 4 binary64)) K))) n (/.f64 #s(literal -1 binary64) (.f64 (.f64 m m) K))) n (/.f64 (/.f64 #s(literal 1 binary64) K) m))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 m #s(literal 1/2 binary64))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* -1 (/ M m))
(/.f64 (neg.f64 M) m)
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(/ (pow n 2) (* K m))
(*.f64 (/.f64 n K) (/.f64 n m))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 (/.f64 #s(literal 1 binary64) K) n)) (.f64 n n))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 (/.f64 #s(literal 1 binary64) K) n)) (.f64 n n))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 (/.f64 #s(literal 1 binary64) K) n)) (.f64 n n))
(/ (pow n 2) (* K (pow m 3)))
(*.f64 (/.f64 n (pow.f64 m #s(literal 3 binary64))) (/.f64 n K))
(* (pow n 2) (- (/ 1 (* K (pow m 3))) (/ 1 (* K (* (pow m 2) n)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 m m) n) K))) (.f64 n n))
(* (pow n 2) (- (+ (/ 1 (* K (* m (pow n 2)))) (/ 1 (* K (pow m 3)))) (/ 1 (* K (* (pow m 2) n)))))
(.f64 (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 n n) m) K)) (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 m #s(literal 3 binary64)) K))) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 m m) n) K))) (*.f64 n n))
(* (pow n 2) (- (+ (/ 1 (* K (* m (pow n 2)))) (/ 1 (* K (pow m 3)))) (/ 1 (* K (* (pow m 2) n)))))
(.f64 (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 n n) m) K)) (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 m #s(literal 3 binary64)) K))) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 m m) n) K))) (*.f64 n n))
(* -1 (/ (pow n 2) (* K (pow m 2))))
(/.f64 (.f64 (neg.f64 n) n) (.f64 (*.f64 m m) K))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 n m) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K))) (.f64 n n))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 n m) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K))) (.f64 n n))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 n m) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K))) (.f64 n n))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) n)) n)
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) n)) n)
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) n)) n)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) n)) n)
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) n)) n)
(* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) n)) n)
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* n (+ (* 1/2 K) (/ (* m (- (* 1/2 K) (/ M m))) n)))
(.f64 (fma.f64 m (/.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m)) n) (.f64 K #s(literal 1/2 binary64))) n)
(* n (+ (* 1/2 K) (/ (* m (- (* 1/2 K) (/ M m))) n)))
(.f64 (fma.f64 m (/.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m)) n) (.f64 K #s(literal 1/2 binary64))) n)
(* n (+ (* 1/2 K) (/ (* m (- (* 1/2 K) (/ M m))) n)))
(.f64 (fma.f64 m (/.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m)) n) (.f64 K #s(literal 1/2 binary64))) n)
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) m) K) n)) (/.f64 (cos.f64 M) n)) n)
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) m) K) n)) (/.f64 (cos.f64 M) n)) n)
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) m) K) n)) (/.f64 (cos.f64 M) n)) n)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1/2 (* K n))
(.f64 (.f64 #s(literal -1/2 binary64) n) K)
(* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K n))
(/.f64 (/.f64 #s(literal 1 binary64) K) n)
(/ (+ (* -1 (/ m (* K n))) (/ 1 K)) n)
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 m (*.f64 n K))) n)
(/ (- (+ (/ 1 K) (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n))) n)
(/.f64 (fma.f64 (/.f64 m (.f64 n n)) (/.f64 m K) (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 m (.f64 n K)))) n)
(/ (- (+ (* -1 (/ (pow m 3) (* K (pow n 3)))) (/ 1 K)) (+ (* -1 (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n)))) n)
(/.f64 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) K) (pow.f64 n #s(literal 3 binary64)))) (-.f64 (/.f64 m (.f64 n K)) (.f64 (/.f64 m (*.f64 n n)) (/.f64 m K)))) n)
(* -1/4 (pow n 2))
(.f64 (.f64 #s(literal -1/4 binary64) n) n)
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* 1/2 (/ (* K n) m))
(.f64 (.f64 K (/.f64 n m)) #s(literal 1/2 binary64))
(* n (+ (* -1 (/ M (* m n))) (* 1/2 (/ K m))))
(*.f64 (fma.f64 (/.f64 K m) #s(literal 1/2 binary64) (/.f64 (/.f64 (neg.f64 M) m) n)) n)
(* n (+ (* -1 (/ M (* m n))) (* 1/2 (/ K m))))
(*.f64 (fma.f64 (/.f64 K m) #s(literal 1/2 binary64) (/.f64 (/.f64 (neg.f64 M) m) n)) n)
(* n (+ (* -1 (/ M (* m n))) (* 1/2 (/ K m))))
(*.f64 (fma.f64 (/.f64 K m) #s(literal 1/2 binary64) (/.f64 (/.f64 (neg.f64 M) m) n)) n)
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K)) (neg.f64 n))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K)) (neg.f64 n))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K)) (neg.f64 n))
(/ (pow n 2) (* K m))
(*.f64 (/.f64 n K) (/.f64 n m))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 (/.f64 #s(literal 1 binary64) K) n)) (.f64 n n))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 (/.f64 #s(literal 1 binary64) K) n)) (.f64 n n))
(* (pow n 2) (- (/ 1 (* K m)) (/ 1 (* K n))))
(.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) m) (/.f64 (/.f64 #s(literal 1 binary64) K) n)) (.f64 n n))
(/ (pow n 2) (* K (pow m 3)))
(*.f64 (/.f64 n (pow.f64 m #s(literal 3 binary64))) (/.f64 n K))
(* (pow n 2) (- (/ 1 (* K (pow m 3))) (/ 1 (* K (* (pow m 2) n)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 m m) n) K))) (.f64 n n))
(* (pow n 2) (+ (* -1 (/ (- (/ 1 (* K (pow m 2))) (/ 1 (* K (* m n)))) n)) (/ 1 (* K (pow m 3)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 n m) K))) n)) (*.f64 n n))
(* (pow n 2) (+ (* -1 (/ (- (/ 1 (* K (pow m 2))) (/ 1 (* K (* m n)))) n)) (/ 1 (* K (pow m 3)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 n m) K))) n)) (*.f64 n n))
(* -1 (/ (pow n 2) (* K (pow m 2))))
(/.f64 (.f64 (neg.f64 n) n) (.f64 (*.f64 m m) K))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 n m) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K))) (.f64 n n))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 n m) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K))) (.f64 n n))
(* (pow n 2) (- (/ 1 (* K (* m n))) (/ 1 (* K (pow m 2)))))
(.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 n m) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K))) (.f64 n n))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 n))) (neg.f64 n))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 n))) (neg.f64 n))
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1 (/ (* m (- (* 1/2 K) (/ M m))) n)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (.f64 (neg.f64 m) (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m))) n)) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (* m (- (* 1/2 K) (/ M m))) n)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (.f64 (neg.f64 m) (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m))) n)) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (* m (- (* 1/2 K) (/ M m))) n)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (.f64 (neg.f64 m) (fma.f64 K #s(literal 1/2 binary64) (/.f64 (neg.f64 M) m))) n)) (neg.f64 n))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M)) (neg.f64 n))) (neg.f64 n))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1/2 (* K n))
(.f64 (.f64 #s(literal -1/2 binary64) n) K)
(* -1 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* -1 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* -1 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K n))
(/.f64 (/.f64 #s(literal 1 binary64) K) n)
(* -1 (/ (- (/ m (* K n)) (/ 1 K)) n))
(/.f64 (-.f64 (/.f64 m (*.f64 n K)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 n))
(* -1 (/ (- (* -1 (/ (- (/ (pow m 2) (* K n)) (/ m K)) n)) (/ 1 K)) n))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 m K) (/.f64 m n) (/.f64 (neg.f64 m) K)) (neg.f64 n)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 n))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow m 3) (* K n)) (/ (pow m 2) K)) n)) (/ m K)) n)) (/ 1 K)) n))
(/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) K) n) (/.f64 (*.f64 m m) K)) (neg.f64 n)) (/.f64 m K)) (neg.f64 n)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 n))
(* -1/4 (pow n 2))
(.f64 (.f64 #s(literal -1/4 binary64) n) n)
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) n) #s(literal -1 binary64) #s(literal -1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* 1/2 (/ (* K n) m))
(.f64 (.f64 K (/.f64 n m)) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1/2 (/ K m)) (/ M (* m n)))))
(*.f64 (fma.f64 (/.f64 K m) #s(literal -1/2 binary64) (/.f64 (/.f64 M m) n)) (neg.f64 n))
(* -1 (* n (+ (* -1/2 (/ K m)) (/ M (* m n)))))
(*.f64 (fma.f64 (/.f64 K m) #s(literal -1/2 binary64) (/.f64 (/.f64 M m) n)) (neg.f64 n))
(* -1 (* n (+ (* -1/2 (/ K m)) (/ M (* m n)))))
(*.f64 (fma.f64 (/.f64 K m) #s(literal -1/2 binary64) (/.f64 (/.f64 M m) n)) (neg.f64 n))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
(*.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
(fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))
(fma.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (.f64 (.f64 l l) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 l #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow M 2)))
(fma.f64 (*.f64 #s(literal -1/2 binary64) M) M #s(literal 1 binary64))
(+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))
(fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 M M) #s(literal -1/2 binary64)) (.f64 M M) #s(literal 1 binary64))
(+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 M M) #s(literal 1/24 binary64)) (.f64 M M) #s(literal -1/2 binary64)) (*.f64 M M) #s(literal 1 binary64))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(fma.f64 (*.f64 M (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (.f64 M (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (fma.f64 (.f64 M (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(+ (* -1 M) (* 1/2 (* K (+ m n))))
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(+ (* -1 M) (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m (neg.f64 M))
(+ (* -1 M) (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m (neg.f64 M))
(+ (* -1 M) (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m (neg.f64 M))
1
#s(literal 1 binary64)
(+ 1 (* 1/2 (* K (* M (+ m n)))))
(fma.f64 (.f64 K M) (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(+ 1 (* M (+ (* -1/2 M) (* 1/2 (* K (+ m n))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) M (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M #s(literal 1 binary64))
(+ 1 (* M (+ (* 1/2 (* K (+ m n))) (* M (- (* -1/12 (* K (* M (+ m n)))) 1/2)))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (.f64 M (+.f64 n m)) K) #s(literal -1/2 binary64)) M (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M #s(literal 1 binary64))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 M (+.f64 n m) (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 M #s(literal -1 binary64) (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 M #s(literal -1 binary64) (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(* 1/2 (/ (* K n) m))
(.f64 (.f64 K (/.f64 n m)) #s(literal 1/2 binary64))
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(+ (* -1 (/ M m)) (* 1/2 (/ (* K n) m)))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1 M)
(neg.f64 M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1 M)
(neg.f64 M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(* -1 M)
(neg.f64 M)
(* M (- (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M) 1))
(.f64 (fma.f64 m (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) M) #s(literal -1 binary64)) M)
(* M (- (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M) 1))
(.f64 (fma.f64 m (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) M) #s(literal -1 binary64)) M)
(* M (- (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M) 1))
(.f64 (fma.f64 m (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) M) #s(literal -1 binary64)) M)
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* -1 (/ M m))
(/.f64 (neg.f64 M) m)
(* M (- (* 1/2 (/ (* K n) (* M m))) (/ 1 m)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 K M)) (/.f64 n m) (/.f64 #s(literal -1 binary64) m)) M)
(* M (- (* 1/2 (/ (* K n) (* M m))) (/ 1 m)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 K M)) (/.f64 n m) (/.f64 #s(literal -1 binary64) m)) M)
(* M (- (* 1/2 (/ (* K n) (* M m))) (/ 1 m)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 K M)) (/.f64 n m) (/.f64 #s(literal -1 binary64) m)) M)
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1 M)
(neg.f64 M)
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1 M)
(neg.f64 M)
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M))
(* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))
(.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M))
(* -1 M)
(neg.f64 M)
(* -1 (* M (+ 1 (* -1 (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M)))))
(neg.f64 (fma.f64 (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)) m) M) M M))
(* -1 (* M (+ 1 (* -1 (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M)))))
(neg.f64 (fma.f64 (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)) m) M) M M))
(* -1 (* M (+ 1 (* -1 (/ (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) M)))))
(neg.f64 (fma.f64 (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)) m) M) M M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* -1 (/ M m))
(/.f64 (neg.f64 M) m)
(* -1 (* M (+ (* -1/2 (/ (* K n) (* M m))) (/ 1 m))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 K M)) (/.f64 n m) (/.f64 #s(literal 1 binary64) m)) (neg.f64 M))
(* -1 (* M (+ (* -1/2 (/ (* K n) (* M m))) (/ 1 m))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 K M)) (/.f64 n m) (/.f64 #s(literal 1 binary64) m)) (neg.f64 M))
(* -1 (* M (+ (* -1/2 (/ (* K n) (* M m))) (/ 1 m))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 K M)) (/.f64 n m) (/.f64 #s(literal 1 binary64) m)) (neg.f64 M))
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(/ (pow n 2) (* K m))
(*.f64 (/.f64 n K) (/.f64 n m))
(/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) m)
(/.f64 (fma.f64 m (/.f64 (neg.f64 n) K) (/.f64 (*.f64 n n) K)) m)
(/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) m)
(/.f64 (fma.f64 m (/.f64 (neg.f64 n) K) (/.f64 (*.f64 n n) K)) m)
(/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) m)
(/.f64 (fma.f64 m (/.f64 (neg.f64 n) K) (/.f64 (*.f64 n n) K)) m)
(/ (pow n 2) (* K (pow m 3)))
(*.f64 (/.f64 n (pow.f64 m #s(literal 3 binary64))) (/.f64 n K))
(/ (+ (* -1 (/ (* m n) K)) (/ (pow n 2) K)) (pow m 3))
(/.f64 (fma.f64 m (/.f64 (neg.f64 n) K) (/.f64 (*.f64 n n) K)) (pow.f64 m #s(literal 3 binary64)))
(/ (+ (* m (+ (* -1 (/ n K)) (/ m K))) (/ (pow n 2) K)) (pow m 3))
(/.f64 (fma.f64 (-.f64 (/.f64 m K) (/.f64 n K)) m (/.f64 (*.f64 n n) K)) (pow.f64 m #s(literal 3 binary64)))
(/ (+ (* m (+ (* -1 (/ n K)) (/ m K))) (/ (pow n 2) K)) (pow m 3))
(/.f64 (fma.f64 (-.f64 (/.f64 m K) (/.f64 n K)) m (/.f64 (*.f64 n n) K)) (pow.f64 m #s(literal 3 binary64)))
(* -1 (/ (pow n 2) (* K (pow m 2))))
(/.f64 (.f64 (neg.f64 n) n) (.f64 (*.f64 m m) K))
(/ (+ (* -1 (/ (pow n 2) K)) (/ (* m n) K)) (pow m 2))
(/.f64 (fma.f64 m (/.f64 n K) (/.f64 (.f64 (neg.f64 n) n) K)) (.f64 m m))
(/ (+ (* -1 (/ (pow n 2) K)) (/ (* m n) K)) (pow m 2))
(/.f64 (fma.f64 m (/.f64 n K) (/.f64 (.f64 (neg.f64 n) n) K)) (.f64 m m))
(/ (+ (* -1 (/ (pow n 2) K)) (/ (* m n) K)) (pow m 2))
(/.f64 (fma.f64 m (/.f64 n K) (/.f64 (.f64 (neg.f64 n) n) K)) (.f64 m m))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))
(fma.f64 (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) m) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(fma.f64 (fma.f64 (.f64 m (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 m (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(- (* 1/2 (* K n)) M)
(fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(- (* 1/2 (* K n)) M)
(fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (* 1/2 (* K n)) M)
(fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)
(fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))
(+ (cos M) (* 1/2 (* K (* n (sin M)))))
(fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(* -1/2 (* K n))
(.f64 (.f64 #s(literal -1/2 binary64) n) K)
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(+ (* -1/2 (* K m)) (* -1/2 (* K n)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 #s(literal -1/8 binary64) (.f64 K K))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(/ 1 (* K n))
(/.f64 (/.f64 #s(literal 1 binary64) K) n)
(+ (* -1 (/ m (* K (pow n 2)))) (/ 1 (* K n)))
(-.f64 (/.f64 (/.f64 #s(literal 1 binary64) K) n) (/.f64 m (.f64 (.f64 n K) n)))
(+ (* m (- (/ m (* K (pow n 3))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(fma.f64 (-.f64 (/.f64 m (.f64 (pow.f64 n #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (*.f64 n K) n))) m (/.f64 (/.f64 #s(literal 1 binary64) K) n))
(+ (* m (- (* m (+ (* -1 (/ m (* K (pow n 4)))) (/ 1 (* K (pow n 3))))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(fma.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 n #s(literal 3 binary64)) K)) (/.f64 m (.f64 (pow.f64 n #s(literal 4 binary64)) K))) m (/.f64 #s(literal -1 binary64) (.f64 (.f64 n K) n))) m (/.f64 (/.f64 #s(literal 1 binary64) K) n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 n #s(literal 1/2 binary64))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* -1 (/ n K))
(/.f64 (neg.f64 n) K)
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
(/ 1 (* K m))
(/.f64 (/.f64 #s(literal 1 binary64) K) m)
(/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m)
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 n K) m)) m)
(/ (+ (* -1 (/ n (* K m))) (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2))))) m)
(/.f64 (fma.f64 (/.f64 n (*.f64 m m)) (/.f64 n K) (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 n K) m))) m)
(/ (+ (* -1 (/ n (* K m))) (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2))))) m)
(/.f64 (fma.f64 (/.f64 n (*.f64 m m)) (/.f64 n K) (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 n K) m))) m)
(/ n (* K m))
(/.f64 (/.f64 n K) m)
(/ (+ (* -1 (/ (pow n 2) (* K m))) (/ n K)) m)
(/.f64 (-.f64 (/.f64 n K) (*.f64 (/.f64 n K) (/.f64 n m))) m)
(/ (+ (* -1 (/ (pow n 2) (* K m))) (/ n K)) m)
(/.f64 (-.f64 (/.f64 n K) (*.f64 (/.f64 n K) (/.f64 n m))) m)
(/ (+ (* -1 (/ (pow n 2) (* K m))) (/ n K)) m)
(/.f64 (-.f64 (/.f64 n K) (*.f64 (/.f64 n K) (/.f64 n m))) m)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(* 1/2 (* K (* m (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) n) K) m)) (/.f64 (cos.f64 M) m)) m)
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) n) K) m)) (/.f64 (cos.f64 M) m)) m)
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) n) K) m)) (/.f64 (cos.f64 M) m)) m)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1/2 (* K m))
(.f64 (.f64 #s(literal -1/2 binary64) m) K)
(* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K m))
(/.f64 (/.f64 #s(literal 1 binary64) K) m)
(/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m)
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 n K) m)) m)
(/ (- (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m))) m)
(/.f64 (fma.f64 (/.f64 n (*.f64 m m)) (/.f64 n K) (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 n K) m))) m)
(/ (- (+ (* -1 (/ (pow n 3) (* K (pow m 3)))) (/ 1 K)) (+ (* -1 (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m)))) m)
(/.f64 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) K) (pow.f64 m #s(literal 3 binary64)))) (-.f64 (/.f64 (/.f64 n K) m) (.f64 (/.f64 n (.f64 m m)) (/.f64 n K)))) m)
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (neg.f64 m) (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (neg.f64 m) (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (neg.f64 m) (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)))
(* -1 (/ n K))
(/.f64 (neg.f64 n) K)
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
(+ (* -1 (/ n K)) (/ (pow n 2) (* K m)))
(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
(/ 1 (* K m))
(/.f64 (/.f64 #s(literal 1 binary64) K) m)
(* -1 (/ (- (/ n (* K m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (/.f64 n K) m) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* -1 (/ (- (* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* -1 (/ (- (* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(/ n (* K m))
(/.f64 (/.f64 n K) m)
(* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m))
(/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m))
(* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m))
(/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m))
(* -1 (/ (+ (* -1 (/ n K)) (/ (pow n 2) (* K m))) m))
(/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))
(.f64 (fma.f64 #s(literal -1/2 binary64) K (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) (neg.f64 m))) (neg.f64 m))
(* 1/2 (* K (* m (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M)) (neg.f64 m))) (neg.f64 m))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1/2 (* K m))
(.f64 (.f64 #s(literal -1/2 binary64) m) K)
(* -1 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* -1 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* -1 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))))
(.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K m))
(/.f64 (/.f64 #s(literal 1 binary64) K) m)
(* -1 (/ (- (/ n (* K m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (/.f64 n K) m) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* -1 (/ (- (* -1 (/ (- (/ (pow n 2) (* K m)) (/ n K)) m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow n 3) (* K m)) (/ (pow n 2) K)) m)) (/ n K)) m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) K) m) (/.f64 (*.f64 n n) K)) (neg.f64 m)) (/.f64 n K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) m) #s(literal -1 binary64) #s(literal -1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)
(/ (- (* 1/2 (* K n)) M) m)
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)

rewrite195.0ms (2%)

Memory

33.6MiB live, 266.1MiB allocated

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	69	536
0	109	536
1	440	514
2	3942	514
0	8225	514

Stop Event

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

Counts

24 → 281

Calls

Call 1

Inputs
(/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64))
(fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
(cos.f64 M)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))
(.f64 (.f64 K m) #s(literal 1/2 binary64))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))
(.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m)
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M)))
(.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K)
(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M))
#s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(/.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)

Outputs
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>

eval261.0ms (2.6%)

Memory: 3.8MiB live, 405.4MiB allocated
Compiler: Compiled 60 258 to 3 658 computations (93.9% saved)

prune112.0ms (1.1%)

Memory

-26.0MiB live, 132.2MiB allocated

Pruning

21 alts after pruning (18 fresh and 3 done)

	Pruned	Kept	Total
New	1 649	11	1 660
Fresh	6	7	13
Picked	2	3	5
Done	0	0	0
Total	1 657	21	1 678

Accuracy

98.2%

Counts

1 678 → 21

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	16.9%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (*.f64 n n) #s(literal -1/4 binary64)))))
	24.0%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (*.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	23.5%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	81.8%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	30.0%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 m n) #s(literal -1 binary64)) (+.f64 n m)) (.f64 K (-.f64 m n))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	40.5%	(.f64 (cos.f64 (-.f64 (/.f64 (exp.f64 (.f64 (neg.f64 (log.f64 (*.f64 (+.f64 n m) K))) #s(literal -1 binary64))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	15.8%	(.f64 (cos.f64 (-.f64 (/.f64 (exp.f64 (.f64 (neg.f64 (log.f64 (*.f64 (+.f64 n m) K))) #s(literal -1 binary64))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
✓	23.4%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	30.6%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
✓	31.6%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	26.0%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) #s(approx (* (+ (* K 1/2) (/ (+ (* (* K 1/2) n) (neg M)) m)) m) (.f64 (.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m) K)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	52.4%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
▶	52.0%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
	54.7%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
✓	37.4%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	27.4%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (fma.f64 (.f64 K M) (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	34.9%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	36.7%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	27.6%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (*.f64 (+.f64 n m) K)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	36.2%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	28.9%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (cos M) (fma.f64 (*.f64 #s(literal -1/2 binary64) M) M #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Compiler

Compiled 705 to 667 computations (5.4% saved)

simplify147.0ms (1.5%)

Memory

8.0MiB live, 178.0MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (*.f64 n n) #s(literal -1/4 binary64)))))
cost-diff	128	(cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M))
cost-diff	384	(/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64))
cost-diff	1408	(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m))
cost-diff	0	(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
cost-diff	0	#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))
cost-diff	0	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))))
cost-diff	0	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
cost-diff	0	(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))
cost-diff	0	(cos.f64 M)
cost-diff	0	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
cost-diff	0	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
cost-diff	0	(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
cost-diff	0	#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))
cost-diff	0	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))
cost-diff	0	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
cost-diff	0	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
cost-diff	128	(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
cost-diff	384	(/.f64 (+.f64 m n) #s(literal 2 binary64))
cost-diff	704	(/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	85	874
0	128	874
1	222	860
2	481	809
3	1438	771
4	4029	769
0	8371	755

Stop Event

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

Calls

Call 1

Inputs
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)
(/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)))
#s(literal 1 binary64)
#s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))
(/.f64 (/.f64 #s(literal 1 binary64) K) m)
(/.f64 #s(literal 1 binary64) K)
K
m
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(+.f64 m n)
n
(-.f64 l (fabs.f64 (-.f64 m n)))
l
(fabs.f64 (-.f64 m n))
(-.f64 m n)
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))
#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))
#s(literal 1 binary64)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
(cos.f64 M)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(*.f64 #s(literal -1/4 binary64) m)
#s(literal -1/4 binary64)
m
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))))
#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(.f64 (.f64 (sin.f64 M) n) K)
(*.f64 (sin.f64 M) n)
(sin.f64 M)
M
n
K
#s(literal 1/2 binary64)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (*.f64 n n) #s(literal -1/4 binary64)))))
(cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)
(/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m))
(.f64 (.f64 (+.f64 n m) (-.f64 n m)) K)
(*.f64 (+.f64 n m) (-.f64 n m))
(+.f64 n m)
n
m
(-.f64 n m)
K
#s(literal 2 binary64)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(*.f64 n n)
#s(literal -1/4 binary64)

Outputs
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 l (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))) (cos.f64 (-.f64 M (/.f64 #s(literal 1/2 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))))))
(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M))
(cos.f64 (-.f64 M (/.f64 #s(literal 1/2 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)))))
(-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)
(-.f64 (/.f64 #s(literal 1/2 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) M)
(/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64))
(/.f64 #s(literal 1/2 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)))
#s(literal 1 binary64)
#s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))
(/.f64 (/.f64 #s(literal 1 binary64) K) m)
(/.f64 #s(literal 1 binary64) K)
K
m
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 l (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 l (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(neg.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 n m))
(+.f64 m n)
(+.f64 n m)
n
(-.f64 l (fabs.f64 (-.f64 m n)))
(-.f64 l (fabs.f64 (-.f64 n m)))
l
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(-.f64 m n)
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))
#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))
#s(literal 1 binary64)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
(cos.f64 M)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(*.f64 #s(literal -1/4 binary64) m)
#s(literal -1/4 binary64)
m
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 M)) K) n))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 M)) K) n)))
#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))
#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 M)) K) n))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(.f64 (.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 M)) K) n)
(.f64 (.f64 (sin.f64 M) n) K)
(*.f64 (sin.f64 M) n)
(sin.f64 M)
M
n
K
#s(literal 1/2 binary64)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (*.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))) (cos.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K M)))
(cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M))
(cos.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 n m)) K M))
(-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)
(-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) K) M)
(/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) K)
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m))
(*.f64 (+.f64 n m) K)
(.f64 (.f64 (+.f64 n m) (-.f64 n m)) K)
(.f64 (.f64 (-.f64 n m) K) (+.f64 n m))
(*.f64 (+.f64 n m) (-.f64 n m))
(*.f64 (-.f64 n m) (+.f64 n m))
(+.f64 n m)
n
m
(-.f64 n m)
K
#s(literal 2 binary64)
M
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(*.f64 n n)
#s(literal -1/4 binary64)

localize324.0ms (3.3%)

Memory

26.3MiB live, 608.4MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	8.785828570973662	(.f64 (.f64 (+.f64 n m) (-.f64 n m)) K)
accuracy	12.736610842292555	(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m))
accuracy	38.278283846321415	(cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M))
accuracy	42.49661675065125	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
accuracy	3.241029458775015	(.f64 (.f64 (sin.f64 M) n) K)
accuracy	40.195634097389245	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))))
accuracy	46.67349351746895	#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))
accuracy	52.68977948033394	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
accuracy	0	(cos.f64 M)
accuracy	0.0078125	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
accuracy	37.235899732846356	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
accuracy	42.29568960000793	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))
accuracy	0.0078125	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
accuracy	40.195634097389245	#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))
accuracy	44.77500792294804	#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))
accuracy	52.68977948033394	#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
accuracy	0.171875	(/.f64 (/.f64 #s(literal 1 binary64) K) m)
accuracy	0.36575785047220843	(/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)))
accuracy	29.591949605745874	#s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))
accuracy	38.278283846321415	(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M))

Samples

228.0ms	216×	1	valid
18.0ms	40×	0	valid

Compiler

Compiled 1 135 to 121 computations (89.3% saved)

Precisions

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

ival-cos: 44.0ms (24.4% of total)

ival-mult: 41.0ms (22.7% of total)

ival-div: 25.0ms (13.9% of total)

adjust: 20.0ms (11.1% of total)

ival-sub: 18.0ms (10% of total)

ival-pow2: 9.0ms (5% of total)

ival-sin: 9.0ms (5% of total)

ival-add: 6.0ms (3.3% of total)

ival-neg: 5.0ms (2.8% of total)

ival-exp: 2.0ms (1.1% of total)

ival-fabs: 2.0ms (1.1% of total)

exact: 1.0ms (0.6% of total)

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

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

series153.0ms (1.5%)

Memory

-13.5MiB live, 203.8MiB allocated

Counts

29 → 1 272

Calls

Call 1

Inputs
#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())
#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())
#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())
#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())
#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())
#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())
#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())
#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())
#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())
#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())
#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())
#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())
#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())
#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())
#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())
#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())

Outputs
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor 0 K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor 0 K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor 0 K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor 0 K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor 0 K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor 0 K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor 0 K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor 0 K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (neg M)) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n)))))) (taylor 0 K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor 0 K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor 0 K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor 0 K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor 0 K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor 0 K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor 0 K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor 0 K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor 0 K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor 0 K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor 0 K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* (sin M) (+ m n)))) (taylor inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K))) (taylor inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K))) (taylor inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K))) (taylor inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* (sin M) (+ m n)))) (taylor inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K))) (taylor inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K))) (taylor inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K))) (taylor inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor inf K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor inf K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* (sin M) (+ m n)))) (taylor -inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n)))))) (taylor -inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n)))))) (taylor -inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n)))))) (taylor -inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* (sin M) (+ m n)))) (taylor -inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n)))))) (taylor -inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n)))))) (taylor -inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n)))))) (taylor -inf K) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf K) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (+ m n))) (taylor -inf K) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor -inf K) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor -inf K) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K (+ m n))) (taylor -inf K) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* K (+ m n)) (taylor -inf K) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf K) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf K) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor -inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor -inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor -inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* K (* (+ m n) (- n m))) (taylor -inf K) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 m) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* m (sin M))))) (taylor 0 n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (taylor 0 n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* m (sin M))))) (taylor 0 n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor 0 n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor 0 n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor 0 n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor 0 n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor 0 n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor 0 n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))) (taylor 0 n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K m)) M)) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M)))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M))))))) (taylor 0 n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m))) (taylor 0 n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m))) (taylor 0 n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (+ (* n (- (* n (+ (* -1 (/ n (* K (pow m 4)))) (/ 1 (* K (pow m 3))))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m))) (taylor 0 n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor 0 n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor 0 n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor 0 n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor 0 n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor 0 n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2))) (taylor 0 n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (pow m 2))) (taylor 0 n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* K (pow m 2))) (* K (* n (+ m (* -1 m))))) (taylor 0 n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* K (pow m 2))) (* n (+ (* K n) (* K (+ m (* -1 m)))))) (taylor 0 n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* K (pow m 2))) (* n (+ (* K n) (* K (+ m (* -1 m)))))) (taylor 0 n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 n) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ 1/2 (* 1/2 (/ m n)))) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ 1/2 (* 1/2 (/ m n)))) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ 1/2 (* 1/2 (/ m n)))) (taylor inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n)))) (taylor inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n)))) (taylor inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n)))) (taylor inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n)))) (taylor inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n)))) (taylor inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n)))) (taylor inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor inf n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor inf n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n)))) (taylor inf n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K n)) (taylor inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ m (* K n))) (/ 1 K)) n) (taylor inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (/ 1 K) (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n))) n) (taylor inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (* -1 (/ (pow m 3) (* K (pow n 3)))) (/ 1 K)) (+ (* -1 (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n)))) n) (taylor inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor inf n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* n (+ K (/ (* K m) n))) (taylor inf n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))))) (taylor inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K (pow n 2)) (taylor inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ K (/ (* K (+ m (* -1 m))) n))) (taylor inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ K (+ (* -1 (/ (* K (pow m 2)) (pow n 2))) (/ (* K (+ m (* -1 m))) n)))) (taylor inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ K (+ (* -1 (/ (* K (pow m 2)) (pow n 2))) (/ (* K (+ m (* -1 m))) n)))) (taylor inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 n) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (- (* -1/2 (/ m n)) 1/2))) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (- (* -1/2 (/ m n)) 1/2))) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (- (* -1/2 (/ m n)) 1/2))) (taylor -inf n) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M)))))) (taylor -inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M)))))) (taylor -inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M)))))) (taylor -inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (taylor -inf n) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M)))))) (taylor -inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M)))))) (taylor -inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M)))))) (taylor -inf n) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf n) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor -inf n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor -inf n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))) (taylor -inf n) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (taylor -inf n) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K n)) (taylor -inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (/ m (* K n)) (/ 1 K)) n)) (taylor -inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (/ (pow m 2) (* K n)) (/ m K)) n)) (/ 1 K)) n)) (taylor -inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow m 3) (* K n)) (/ (pow m 2) K)) n)) (/ m K)) n)) (/ 1 K)) n)) (taylor -inf n) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor -inf n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n))))) (taylor -inf n) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf n) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow n 2)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4)) (taylor -inf n) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K (pow n 2)) (taylor -inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ K (/ (* K (+ m (* -1 m))) n))) (taylor -inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ K (* -1 (/ (+ (* -1 (* K (+ m (* -1 m)))) (/ (* K (pow m 2)) n)) n)))) (taylor -inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow n 2) (+ K (* -1 (/ (+ (* -1 (* K (+ m (* -1 m)))) (/ (* K (pow m 2)) n)) n)))) (taylor -inf n) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (taylor 0 l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor 0 l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)) (taylor 0 l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))) (taylor inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (taylor -inf l) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor -inf l) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 l) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l))))) (taylor -inf l) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* 1/2 (* K (* M (+ m n))))) (taylor 0 M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* M (+ (* -1/2 M) (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* M (+ (* 1/2 (* K (+ m n))) (* M (- (* -1/12 (* K (* M (+ m n)))) 1/2))))) (taylor 0 M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow M 2))) (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2))) (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2))) (taylor 0 M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))) (taylor 0 M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* 1/2 (* K (* M (+ m n))))) (taylor 0 M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* M (+ (* -1/2 M) (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* M (+ (* 1/2 (* K (+ m n))) (* M (- (* -1/12 (* K (* M (+ m n)))) 1/2))))) (taylor 0 M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* M n))) (taylor 0 M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* M (+ (* -1/12 (* K (* (pow M 2) n))) (* 1/2 (* K n)))) (taylor 0 M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* M (+ (* 1/2 (* K n)) (* (pow M 2) (+ (* -1/12 (* K n)) (* 1/240 (* K (* (pow M 2) n))))))) (taylor 0 M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* M (+ (* 1/2 (* K n)) (* (pow M 2) (+ (* -1/12 (* K n)) (* (pow M 2) (+ (* -1/10080 (* K (* (pow M 2) n))) (* 1/240 (* K n)))))))) (taylor 0 M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (taylor 0 M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (* K (+ m n)))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n)))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n)))))))) (taylor 0 M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* K (* M n)) (taylor 0 M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* M (+ (* -1/6 (* K (* (pow M 2) n))) (* K n))) (taylor 0 M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* M (+ (* K n) (* (pow M 2) (+ (* -1/6 (* K n)) (* 1/120 (* K (* (pow M 2) n))))))) (taylor 0 M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* M (+ (* K n) (* (pow M 2) (+ (* -1/6 (* K n)) (* (pow M 2) (+ (* -1/5040 (* K (* (pow M 2) n))) (* 1/120 (* K n)))))))) (taylor 0 M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2)))) (taylor 0 M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor inf M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor inf M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))) (taylor inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (cos M) (taylor -inf M) (#s(alt (cos.f64 M) (patch (cos.f64 M) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (taylor -inf M) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* (sin M) (+ m n))))) (taylor -inf M) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* n (sin M)))) (taylor -inf M) (#s(alt (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) (patch (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))) (taylor -inf M) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (taylor -inf M) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* K (* n (sin M))) (taylor -inf M) (#s(alt (.f64 (.f64 (sin.f64 M) n) K) (patch (.f64 (.f64 (sin.f64 M) n) K) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow M 2)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (+ (/ m M) (/ n M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1)) (taylor -inf M) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 n) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 m) (* 1/2 n)) (taylor 0 m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* n (sin M))))) (taylor 0 m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (taylor 0 m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (* 1/2 (* K (* n (sin M))))) (taylor 0 m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M)))))) (taylor 0 m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor 0 m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K n)) (taylor 0 m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* K m)) (* 1/2 (* K n))) (taylor 0 m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))) (taylor 0 m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K n)) M)) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M)))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M))))))) (taylor 0 m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K n)) (taylor 0 m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ m (* K (pow n 2)))) (/ 1 (* K n))) (taylor 0 m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (/ m (* K (pow n 3))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n))) (taylor 0 m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (+ (* m (- (* m (+ (* -1 (/ m (* K (pow n 4)))) (/ 1 (* K (pow n 3))))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n))) (taylor 0 m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* K n) (taylor 0 m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (+ (* K m) (* K n)) (taylor 0 m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor 0 m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2))) (taylor 0 m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K (pow n 2)) (taylor 0 m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* K (* m (+ n (* -1 n)))) (* K (pow n 2))) (taylor 0 m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* K (pow n 2)) (* m (+ (* -1 (* K m)) (* K (+ n (* -1 n)))))) (taylor 0 m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (+ (* K (pow n 2)) (* m (+ (* -1 (* K m)) (* K (+ n (* -1 n)))))) (taylor 0 m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 m) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ 1/2 (* 1/2 (/ n m)))) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ 1/2 (* 1/2 (/ n m)))) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ 1/2 (* 1/2 (/ n m)))) (taylor inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* m (sin M)))) (taylor inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m)))) (taylor inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m)))) (taylor inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m)))) (taylor inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (taylor inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* m (sin M)))) (taylor inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m)))) (taylor inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m)))) (taylor inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m)))) (taylor inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor inf m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor inf m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m)))) (taylor inf m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))) (taylor inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (+ m n))) M)) (taylor inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m) (taylor inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m))) m) (taylor inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (/ (- (+ (* -1 (/ (pow n 3) (* K (pow m 3)))) (/ 1 K)) (+ (* -1 (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m)))) m) (taylor inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor inf m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* m (+ K (/ (* K n) m))) (taylor inf m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))))) (taylor inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (pow m 2))) (taylor inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ (* -1 K) (/ (* K (+ n (* -1 n))) m))) (taylor inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ (* -1 K) (+ (/ (* K (+ n (* -1 n))) m) (/ (* K (pow n 2)) (pow m 2))))) (taylor inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ (* -1 K) (+ (/ (* K (+ n (* -1 n))) m) (/ (* K (pow n 2)) (pow m 2))))) (taylor inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) (patch (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 m) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (- (* -1/2 (/ n m)) 1/2))) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (- (* -1/2 (/ n m)) 1/2))) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (- (* -1/2 (/ n m)) 1/2))) (taylor -inf m) (#s(alt (/.f64 (+.f64 m n) #s(literal 2 binary64)) (patch (/.f64 (+.f64 m n) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) (patch (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* m (sin M)))) (taylor -inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M)))))) (taylor -inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M)))))) (taylor -inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M)))))) (taylor -inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) (patch #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (patch (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (patch #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (taylor -inf m) (#s(alt (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (patch (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (patch (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (patch #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K (* m (sin M)))) (taylor -inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M)))))) (taylor -inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M)))))) (taylor -inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M)))))) (taylor -inf m) (#s(alt #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor -inf m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) (patch (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* K m)) (taylor -inf m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) (patch (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))) (taylor -inf m) (#s(alt (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) (patch (.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (taylor -inf m) (#s(alt (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (patch (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (/ n (* K m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (/ (pow n 2) (* K m)) (/ n K)) m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow n 3) (* K m)) (/ (pow n 2) K)) m)) (/ n K)) m)) (/ 1 K)) m)) (taylor -inf m) (#s(alt #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) (patch #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)) #<representation binary64>) () ())) ())
#s(alt (* K m) (taylor -inf m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m))))) (taylor -inf m) (#s(alt (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) (patch (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (/ 1 (* K m)) (taylor -inf m) (#s(alt (/.f64 (/.f64 #s(literal 1 binary64) K) m) (patch (/.f64 (/.f64 #s(literal 1 binary64) K) m) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)) #<representation binary64>) () ())) ())
#s(alt (* -1/4 (pow m 2)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4)) (taylor -inf m) (#s(alt #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (patch #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* K (pow m 2))) (taylor -inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ (* -1 K) (* -1 (/ (* K (+ n (* -1 n))) m)))) (taylor -inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow n 2)) m)) (* K (+ n (* -1 n)))) m)))) (taylor -inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())
#s(alt (* (pow m 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow n 2)) m)) (* K (+ n (* -1 n)))) m)))) (taylor -inf m) (#s(alt (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (patch (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) #<representation binary64>) () ())) ())

Calls

15 calls:

Time	Variable		Point	Expression
33.0ms	K	@	inf	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (* (* (sin M) n) K) 1/2) (/ (* (* (+ n m) (- n m)) K) (- n m)) (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (* (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (/ 1 K) m) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (sin M) n) K) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (+ n m) (- n m)) K))
8.0ms	l	@	inf	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (* (* (sin M) n) K) 1/2) (/ (* (* (+ n m) (- n m)) K) (- n m)) (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (* (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (/ 1 K) m) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (sin M) n) K) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (+ n m) (- n m)) K))
4.0ms	K	@	-inf	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (* (* (sin M) n) K) 1/2) (/ (* (* (+ n m) (- n m)) K) (- n m)) (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (* (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (/ 1 K) m) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (sin M) n) K) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (+ n m) (- n m)) K))
4.0ms	K	@	0	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (* (* (sin M) n) K) 1/2) (/ (* (* (+ n m) (- n m)) K) (- n m)) (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (* (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (/ 1 K) m) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (sin M) n) K) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (+ n m) (- n m)) K))
3.0ms	n	@	0	((/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) (/ (+ m n) 2) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (* (* (* (sin M) n) K) 1/2) (/ (* (* (+ n m) (- n m)) K) (- n m)) (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (* (cos (- (/ (/ (* (* (+ n m) (- n m)) K) (- n m)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) 2) M)) (/ (- m n) (* (* (+ n m) (- m n)) K)) (/ 1 (/ (- m n) (* (* (+ n m) (- m n)) K))) (/ (/ 1 K) m) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (sin M) n) K) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* (+ n m) (- n m)) K))

simplify410.0ms (4.1%)

Memory

9.2MiB live, 275.1MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	887	32804
1	2876	31723
0	8708	30799

Stop Event

1×	iter limit
1×	node limit

Counts

1 272 → 1 272

Calls

Call 1

Inputs
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(cos M)
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(cos M)
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(cos (neg M))
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* (+ m n) (- n m)))
(* K (* (+ m n) (- n m)))
(* K (* (+ m n) (- n m)))
(* K (* (+ m n) (- n m)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (* (sin M) (+ m n))))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (* (sin M) (+ m n))))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* (+ m n) (- n m)))
(* K (* (+ m n) (- n m)))
(* K (* (+ m n) (- n m)))
(* K (* (+ m n) (- n m)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (* (sin M) (+ m n))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (* (sin M) (+ m n))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(* 1/2 (* K (+ m n)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(/ 1 (* K (+ m n)))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(* K (+ m n))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* (+ m n) (- n m)))
(* K (* (+ m n) (- n m)))
(* K (* (+ m n) (- n m)))
(* K (* (+ m n) (- n m)))
(* 1/2 (* K m))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(* 1/2 m)
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos M) (* 1/2 (* K (* m (sin M)))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos M) (* 1/2 (* K (* m (sin M)))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* K m)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(* 1/2 (* K m))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(cos (- (* 1/2 (* K m)) M))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(/ 1 (* K m))
(+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(+ (* n (- (* n (+ (* -1 (/ n (* K (pow m 4)))) (/ 1 (* K (pow m 3))))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(* K m)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(* -1 (* K (pow m 2)))
(+ (* -1 (* K (pow m 2))) (* K (* n (+ m (* -1 m)))))
(+ (* -1 (* K (pow m 2))) (* n (+ (* K n) (* K (+ m (* -1 m))))))
(+ (* -1 (* K (pow m 2))) (* n (+ (* K n) (* K (+ m (* -1 m))))))
(* 1/2 (* K n))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* 1/2 n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(* n (+ 1/2 (* 1/2 (/ m n))))
(* n (+ 1/2 (* 1/2 (/ m n))))
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (* n (sin M))))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (* n (sin M))))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* K n)
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(* 1/2 (* K n))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(/ 1 (* K n))
(/ (+ (* -1 (/ m (* K n))) (/ 1 K)) n)
(/ (- (+ (/ 1 K) (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n))) n)
(/ (- (+ (* -1 (/ (pow m 3) (* K (pow n 3)))) (/ 1 K)) (+ (* -1 (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n)))) n)
(* K n)
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(* n (+ K (/ (* K m) n)))
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* -1/4 (pow n 2))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(* K (pow n 2))
(* (pow n 2) (+ K (/ (* K (+ m (* -1 m))) n)))
(* (pow n 2) (+ K (+ (* -1 (/ (* K (pow m 2)) (pow n 2))) (/ (* K (+ m (* -1 m))) n))))
(* (pow n 2) (+ K (+ (* -1 (/ (* K (pow m 2)) (pow n 2))) (/ (* K (+ m (* -1 m))) n))))
(* 1/2 (* K n))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* 1/2 n)
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* 1/2 (* K (* n (sin M))))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* 1/2 (* K (* n (sin M))))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* K n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* 1/2 (* K n))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(/ 1 (* K n))
(* -1 (/ (- (/ m (* K n)) (/ 1 K)) n))
(* -1 (/ (- (* -1 (/ (- (/ (pow m 2) (* K n)) (/ m K)) n)) (/ 1 K)) n))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow m 3) (* K n)) (/ (pow m 2) K)) n)) (/ m K)) n)) (/ 1 K)) n))
(* K n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* -1/4 (pow n 2))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(* K (pow n 2))
(* (pow n 2) (+ K (/ (* K (+ m (* -1 m))) n)))
(* (pow n 2) (+ K (* -1 (/ (+ (* -1 (* K (+ m (* -1 m)))) (/ (* K (pow m 2)) n)) n))))
(* (pow n 2) (+ K (* -1 (/ (+ (* -1 (* K (+ m (* -1 m)))) (/ (* K (pow m 2)) n)) n))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* -1 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
1
(+ 1 (* 1/2 (* K (* M (+ m n)))))
(+ 1 (* M (+ (* -1/2 M) (* 1/2 (* K (+ m n))))))
(+ 1 (* M (+ (* 1/2 (* K (+ m n))) (* M (- (* -1/12 (* K (* M (+ m n)))) 1/2)))))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
1
(+ 1 (* -1/2 (pow M 2)))
(+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))
(+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
1
(+ 1 (* 1/2 (* K (* M (+ m n)))))
(+ 1 (* M (+ (* -1/2 M) (* 1/2 (* K (+ m n))))))
(+ 1 (* M (+ (* 1/2 (* K (+ m n))) (* M (- (* -1/12 (* K (* M (+ m n)))) 1/2)))))
(* 1/2 (* K (* M n)))
(* M (+ (* -1/12 (* K (* (pow M 2) n))) (* 1/2 (* K n))))
(* M (+ (* 1/2 (* K n)) (* (pow M 2) (+ (* -1/12 (* K n)) (* 1/240 (* K (* (pow M 2) n)))))))
(* M (+ (* 1/2 (* K n)) (* (pow M 2) (+ (* -1/12 (* K n)) (* (pow M 2) (+ (* -1/10080 (* K (* (pow M 2) n))) (* 1/240 (* K n))))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(cos (* 1/2 (* K (+ m n))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(* K (* M n))
(* M (+ (* -1/6 (* K (* (pow M 2) n))) (* K n)))
(* M (+ (* K n) (* (pow M 2) (+ (* -1/6 (* K n)) (* 1/120 (* K (* (pow M 2) n)))))))
(* M (+ (* K n) (* (pow M 2) (+ (* -1/6 (* K n)) (* (pow M 2) (+ (* -1/5040 (* K (* (pow M 2) n))) (* 1/120 (* K n))))))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos M)
(cos M)
(cos M)
(cos M)
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos M)
(cos M)
(cos M)
(cos M)
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(* 1/2 (* K (* n (sin M))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* K (* n (sin M)))
(* -1 (pow M 2))
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(* 1/2 (* K n))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(* 1/2 n)
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(+ (* 1/2 m) (* 1/2 n))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos M) (* 1/2 (* K (* n (sin M)))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos M) (* 1/2 (* K (* n (sin M)))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(* K n)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(* 1/2 (* K n))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(cos (- (* 1/2 (* K n)) M))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(/ 1 (* K n))
(+ (* -1 (/ m (* K (pow n 2)))) (/ 1 (* K n)))
(+ (* m (- (/ m (* K (pow n 3))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(+ (* m (- (* m (+ (* -1 (/ m (* K (pow n 4)))) (/ 1 (* K (pow n 3))))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(* K n)
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(+ (* K m) (* K n))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(* K (pow n 2))
(+ (* K (* m (+ n (* -1 n)))) (* K (pow n 2)))
(+ (* K (pow n 2)) (* m (+ (* -1 (* K m)) (* K (+ n (* -1 n))))))
(+ (* K (pow n 2)) (* m (+ (* -1 (* K m)) (* K (+ n (* -1 n))))))
(* 1/2 (* K m))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* 1/2 m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(* m (+ 1/2 (* 1/2 (/ n m))))
(* m (+ 1/2 (* 1/2 (/ n m))))
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (* m (sin M))))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* 1/2 (* K (* m (sin M))))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(* K m)
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(* 1/2 (* K m))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos (- (* 1/2 (* K (+ m n))) M))
(/ 1 (* K m))
(/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m)
(/ (- (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m))) m)
(/ (- (+ (* -1 (/ (pow n 3) (* K (pow m 3)))) (/ 1 K)) (+ (* -1 (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m)))) m)
(* K m)
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(* m (+ K (/ (* K n) m)))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* -1/4 (pow m 2))
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(* -1 (* K (pow m 2)))
(* (pow m 2) (+ (* -1 K) (/ (* K (+ n (* -1 n))) m)))
(* (pow m 2) (+ (* -1 K) (+ (/ (* K (+ n (* -1 n))) m) (/ (* K (pow n 2)) (pow m 2)))))
(* (pow m 2) (+ (* -1 K) (+ (/ (* K (+ n (* -1 n))) m) (/ (* K (pow n 2)) (pow m 2)))))
(* 1/2 (* K m))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* 1/2 m)
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* 1/2 (* K (* m (sin M))))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* 1/2 (* K (* m (sin M))))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(* K m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* 1/2 (* K m))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(/ 1 (* K m))
(* -1 (/ (- (/ n (* K m)) (/ 1 K)) m))
(* -1 (/ (- (* -1 (/ (- (/ (pow n 2) (* K m)) (/ n K)) m)) (/ 1 K)) m))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow n 3) (* K m)) (/ (pow n 2) K)) m)) (/ n K)) m)) (/ 1 K)) m))
(* K m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(/ 1 (* K m))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* -1/4 (pow m 2))
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(* -1 (* K (pow m 2)))
(* (pow m 2) (+ (* -1 K) (* -1 (/ (* K (+ n (* -1 n))) m))))
(* (pow m 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow n 2)) m)) (* K (+ n (* -1 n)))) m))))
(* (pow m 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow n 2)) m)) (* K (+ n (* -1 n)))) m))))

Outputs
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(cos M)
(cos.f64 M)
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(cos M)
(cos.f64 M)
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))
(+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
(fma.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) K)) K))
(cos (neg M))
(cos.f64 M)
(+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))
(fma.f64 (neg.f64 (.f64 (sin.f64 M) K)) (.f64 (+.f64 n m) #s(literal -1/2 binary64)) (cos.f64 M))
(+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (.f64 K (.f64 #s(literal -1/8 binary64) (cos.f64 M))) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (neg.f64 (sin.f64 M)))) K (cos.f64 M))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* (sin M) (+ m n))))
(.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (*.f64 (+.f64 n m) K))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) K)) K)
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) K)) K)
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) K)) K)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* (sin M) (+ m n))))
(.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (*.f64 (+.f64 n m) K))
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) K)) K)
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) K)) K)
(* K (+ (* 1/2 (* (sin M) (+ m n))) (/ (cos M) K)))
(.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m) (/.f64 (cos.f64 M) K)) K)
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* (sin M) (+ m n))))
(.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (*.f64 (+.f64 n m) K))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(.f64 (neg.f64 K) (fma.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (sin.f64 M) (/.f64 (cos.f64 M) (neg.f64 K))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(.f64 (neg.f64 K) (fma.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (sin.f64 M) (/.f64 (cos.f64 M) (neg.f64 K))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(.f64 (neg.f64 K) (fma.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (sin.f64 M) (/.f64 (cos.f64 M) (neg.f64 K))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* (sin M) (+ m n))))
(.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (*.f64 (+.f64 n m) K))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(.f64 (neg.f64 K) (fma.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (sin.f64 M) (/.f64 (cos.f64 M) (neg.f64 K))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(.f64 (neg.f64 K) (fma.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (sin.f64 M) (/.f64 (cos.f64 M) (neg.f64 K))))
(* -1 (* K (+ (* -1 (/ (cos M) K)) (* -1/2 (* (sin M) (+ m n))))))
(.f64 (neg.f64 K) (fma.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) (sin.f64 M) (/.f64 (cos.f64 M) (neg.f64 K))))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 (* K (+ m n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(/ 1 (* K (+ m n)))
(/.f64 #s(literal 1 binary64) (*.f64 (+.f64 n m) K))
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(* K (+ m n))
(*.f64 (+.f64 n m) K)
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* K (* (+ m n) (- n m)))
(.f64 (.f64 K (-.f64 n m)) (+.f64 n m))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 m)
(*.f64 m #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 m #s(literal 1/2 binary64))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) n) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos M) (* 1/2 (* K (* m (sin M)))))
(fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))
(fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(fma.f64 (fma.f64 (.f64 n (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 n (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) n) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))
(fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(fma.f64 (fma.f64 (.f64 n (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 n (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) n) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos M) (* 1/2 (* K (* m (sin M)))))
(fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* K m)
(*.f64 m K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) n) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 m #s(literal 1/2 binary64)))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 m #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (-.f64 M (.f64 m #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))))
(cos (- (* 1/2 (* K m)) M))
(cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M)))
(+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) n) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) n) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) n) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))) n (cos.f64 (fma.f64 (*.f64 m #s(literal 1/2 binary64)) K (neg.f64 M))))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(+ (* -1 (/ n (* K (pow m 2)))) (/ 1 (* K m)))
(-.f64 (/.f64 #s(literal 1 binary64) (.f64 m K)) (/.f64 n (.f64 (*.f64 m m) K)))
(+ (* n (- (/ n (* K (pow m 3))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(fma.f64 (-.f64 (/.f64 n (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 m m) K))) n (/.f64 #s(literal 1 binary64) (.f64 m K)))
(+ (* n (- (* n (+ (* -1 (/ n (* K (pow m 4)))) (/ 1 (* K (pow m 3))))) (/ 1 (* K (pow m 2))))) (/ 1 (* K m)))
(fma.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 m #s(literal 3 binary64)) K)) (/.f64 n (.f64 (pow.f64 m #s(literal 4 binary64)) K))) n (/.f64 #s(literal -1 binary64) (.f64 (.f64 m m) K))) n (/.f64 #s(literal 1 binary64) (*.f64 m K)))
(* K m)
(*.f64 m K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 m #s(literal 1/2 binary64))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 m #s(literal 1/2 binary64))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 m #s(literal 1/2 binary64))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (*.f64 m #s(literal 1/2 binary64)))) n (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* -1 (* K (pow m 2)))
(.f64 (.f64 (neg.f64 K) m) m)
(+ (* -1 (* K (pow m 2))) (* K (* n (+ m (* -1 m)))))
(.f64 (fma.f64 #s(literal 0 binary64) K (.f64 (neg.f64 K) m)) m)
(+ (* -1 (* K (pow m 2))) (* n (+ (* K n) (* K (+ m (* -1 m))))))
(fma.f64 (.f64 (neg.f64 m) m) K (.f64 K (fma.f64 n n #s(literal 0 binary64))))
(+ (* -1 (* K (pow m 2))) (* n (+ (* K n) (* K (+ m (* -1 m))))))
(fma.f64 (.f64 (neg.f64 m) m) K (.f64 K (fma.f64 n n #s(literal 0 binary64))))
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* 1/2 n)
(*.f64 n #s(literal 1/2 binary64))
(* n (+ 1/2 (* 1/2 (/ m n))))
(*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n)
(* n (+ 1/2 (* 1/2 (/ m n))))
(*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n)
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) m) K) n)) (/.f64 (cos.f64 M) n)) n)
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) m) K) n)) (/.f64 (cos.f64 M) n)) n)
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) m) K) n)) (/.f64 (cos.f64 M) n)) n)
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) m) K) n)) (/.f64 (cos.f64 M) n)) n)
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) m) K) n)) (/.f64 (cos.f64 M) n)) n)
(* n (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* m (sin M))) n)) (/ (cos M) n))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) m) K) n)) (/.f64 (cos.f64 M) n)) n)
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* K n)
(*.f64 n K)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K n))
(/.f64 #s(literal 1 binary64) (*.f64 n K))
(/ (+ (* -1 (/ m (* K n))) (/ 1 K)) n)
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 m (*.f64 n K))) n)
(/ (- (+ (/ 1 K) (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n))) n)
(/.f64 (fma.f64 (/.f64 m (.f64 n n)) (/.f64 m K) (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 m (.f64 n K)))) n)
(/ (- (+ (* -1 (/ (pow m 3) (* K (pow n 3)))) (/ 1 K)) (+ (* -1 (/ (pow m 2) (* K (pow n 2)))) (/ m (* K n)))) n)
(/.f64 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) K) (pow.f64 n #s(literal 3 binary64)))) (-.f64 (/.f64 m (.f64 n K)) (.f64 (/.f64 m (*.f64 n n)) (/.f64 m K)))) n)
(* K n)
(*.f64 n K)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* n (+ K (/ (* K m) n)))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))
(.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 n n)) (-.f64 (/.f64 M n) #s(literal 1/4 binary64))) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) (/.f64 l (.f64 n n)))) (/.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 n n))) (*.f64 n n))
(* K (pow n 2))
(.f64 (.f64 n n) K)
(* (pow n 2) (+ K (/ (* K (+ m (* -1 m))) n)))
(.f64 (fma.f64 K (/.f64 #s(literal 0 binary64) n) K) (.f64 n n))
(* (pow n 2) (+ K (+ (* -1 (/ (* K (pow m 2)) (pow n 2))) (/ (* K (+ m (* -1 m))) n))))
(.f64 (fma.f64 (/.f64 (neg.f64 K) n) (/.f64 (.f64 m m) n) (fma.f64 K (/.f64 #s(literal 0 binary64) n) K)) (*.f64 n n))
(* (pow n 2) (+ K (+ (* -1 (/ (* K (pow m 2)) (pow n 2))) (/ (* K (+ m (* -1 m))) n))))
(.f64 (fma.f64 (/.f64 (neg.f64 K) n) (/.f64 (.f64 m m) n) (fma.f64 K (/.f64 #s(literal 0 binary64) n) K)) (*.f64 n n))
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* 1/2 n)
(*.f64 n #s(literal 1/2 binary64))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(*.f64 (neg.f64 n) (fma.f64 (/.f64 m n) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(*.f64 (neg.f64 n) (fma.f64 (/.f64 m n) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* n (- (* -1/2 (/ m n)) 1/2)))
(*.f64 (neg.f64 n) (fma.f64 (/.f64 m n) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) n) #s(literal -1 binary64) #s(literal -1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M)) (neg.f64 n))) (neg.f64 n))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M)) (neg.f64 n))) (neg.f64 n))
(* -1 (* n (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* m (sin M))))) n)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64) (cos.f64 M)) (neg.f64 n))) (neg.f64 n))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* K n)
(*.f64 n K)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))
(.f64 (.f64 (neg.f64 n) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 m n) K))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- m (* -1 n)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K n))
(/.f64 #s(literal 1 binary64) (*.f64 n K))
(* -1 (/ (- (/ m (* K n)) (/ 1 K)) n))
(/.f64 (-.f64 (/.f64 m (*.f64 n K)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 n))
(* -1 (/ (- (* -1 (/ (- (/ (pow m 2) (* K n)) (/ m K)) n)) (/ 1 K)) n))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 m K) (/.f64 m n) (/.f64 (neg.f64 m) K)) (neg.f64 n)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 n))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow m 3) (* K n)) (/ (pow m 2) K)) n)) (/ m K)) n)) (/ 1 K)) n))
(/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) K) n) (/.f64 (*.f64 m m) K)) (neg.f64 n)) (/.f64 m K)) (neg.f64 n)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 n))
(* K n)
(*.f64 n K)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))
(*.f64 (fma.f64 K (/.f64 m n) K) n)
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) n) #s(literal -1 binary64) #s(literal -1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) n) #s(literal -1 binary64) #s(literal -1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* -1/4 (pow n 2))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) n) #s(literal -1 binary64) #s(literal -1/4 binary64)) n) n)
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 n)) (fma.f64 m #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n))
(* K (pow n 2))
(.f64 (.f64 n n) K)
(* (pow n 2) (+ K (/ (* K (+ m (* -1 m))) n)))
(.f64 (fma.f64 K (/.f64 #s(literal 0 binary64) n) K) (.f64 n n))
(* (pow n 2) (+ K (* -1 (/ (+ (* -1 (* K (+ m (* -1 m)))) (/ (* K (pow m 2)) n)) n))))
(.f64 (.f64 (-.f64 K (/.f64 (fma.f64 #s(literal 0 binary64) K (/.f64 (.f64 (.f64 m m) K) n)) n)) n) n)
(* (pow n 2) (+ K (* -1 (/ (+ (* -1 (* K (+ m (* -1 m)))) (/ (* K (pow m 2)) n)) n))))
(.f64 (.f64 (-.f64 K (/.f64 (fma.f64 #s(literal 0 binary64) K (/.f64 (.f64 (.f64 m m) K) n)) n)) n) n)
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
(*.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
(fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (.f64 (.f64 l l) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
(*.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
(fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (.f64 (.f64 l l) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))))
(+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))))
(+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
(fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (.f64 (.f64 l l) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)))))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* -1 l)
(neg.f64 l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))
(*.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) #s(literal 1 binary64)) l)
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 l)
(neg.f64 l)
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (neg.f64 l))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 M (+.f64 n m) (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* 1/2 (* K (* M (+ m n)))))
(fma.f64 (.f64 K M) (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(+ 1 (* M (+ (* -1/2 M) (* 1/2 (* K (+ m n))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) M (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M #s(literal 1 binary64))
(+ 1 (* M (+ (* 1/2 (* K (+ m n))) (* M (- (* -1/12 (* K (* M (+ m n)))) 1/2)))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (.f64 M (+.f64 n m)) K) #s(literal -1/2 binary64)) M (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M #s(literal 1 binary64))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (.f64 M (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (fma.f64 (.f64 M (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow M 2)))
(fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))
(fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 M M) #s(literal -1/2 binary64)) (.f64 M M) #s(literal 1 binary64))
(+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 M M) #s(literal 1/24 binary64)) (.f64 M M) #s(literal -1/2 binary64)) (*.f64 M M) #s(literal 1 binary64))
(exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))
(fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (.f64 M (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))
(fma.f64 (fma.f64 (fma.f64 (.f64 M (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* 1/2 (* K (* M (+ m n)))))
(fma.f64 (.f64 K M) (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(+ 1 (* M (+ (* -1/2 M) (* 1/2 (* K (+ m n))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) M (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M #s(literal 1 binary64))
(+ 1 (* M (+ (* 1/2 (* K (+ m n))) (* M (- (* -1/12 (* K (* M (+ m n)))) 1/2)))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (.f64 M (+.f64 n m)) K) #s(literal -1/2 binary64)) M (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M #s(literal 1 binary64))
(* 1/2 (* K (* M n)))
(.f64 (.f64 (*.f64 M n) K) #s(literal 1/2 binary64))
(* M (+ (* -1/12 (* K (* (pow M 2) n))) (* 1/2 (* K n))))
(.f64 (fma.f64 (.f64 (.f64 (.f64 M n) M) K) #s(literal -1/12 binary64) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)
(* M (+ (* 1/2 (* K n)) (* (pow M 2) (+ (* -1/12 (* K n)) (* 1/240 (* K (* (pow M 2) n)))))))
(.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/240 binary64) (.f64 (.f64 (.f64 M n) M) K) (.f64 #s(literal -1/12 binary64) (.f64 n K))) M) M (.f64 (*.f64 n K) #s(literal 1/2 binary64))) M)
(* M (+ (* 1/2 (* K n)) (* (pow M 2) (+ (* -1/12 (* K n)) (* (pow M 2) (+ (* -1/10080 (* K (* (pow M 2) n))) (* 1/240 (* K n))))))))
(.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1/10080 binary64) (.f64 (.f64 (.f64 M n) M) K) (.f64 #s(literal 1/240 binary64) (.f64 n K))) M) M (.f64 #s(literal -1/12 binary64) (.f64 n K))) (.f64 M M) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
(fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (-.f64 (neg.f64 m) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64)) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) (+.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1 binary64))) (.f64 (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))))
(cos (* 1/2 (* K (+ m n))))
(cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))
(fma.f64 (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (*.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)))) M (cos.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 M (+.f64 n m) (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 M (+.f64 n m) (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(* K (* M n))
(.f64 (.f64 M n) K)
(* M (+ (* -1/6 (* K (* (pow M 2) n))) (* K n)))
(.f64 (fma.f64 (.f64 (.f64 (.f64 M n) M) K) #s(literal -1/6 binary64) (*.f64 n K)) M)
(* M (+ (* K n) (* (pow M 2) (+ (* -1/6 (* K n)) (* 1/120 (* K (* (pow M 2) n)))))))
(.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 (.f64 M n) M) K) (.f64 #s(literal -1/6 binary64) (.f64 n K))) M) M (.f64 n K)) M)
(* M (+ (* K n) (* (pow M 2) (+ (* -1/6 (* K n)) (* (pow M 2) (+ (* -1/5040 (* K (* (pow M 2) n))) (* 1/120 (* K n))))))))
(.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 (.f64 M n) M) K) (.f64 #s(literal 1/120 binary64) (.f64 n K))) M) M (.f64 #s(literal -1/6 binary64) (.f64 n K))) (.f64 M M) (*.f64 n K)) M)
(- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))
(-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 M (+.f64 n m) (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))
(fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))
(.f64 (-.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 M M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 l (.f64 M M)))) (.f64 M M))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(cos M)
(cos.f64 M)
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (* 1/2 (* K (* (sin M) (+ m n)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(* 1/2 (* K (* n (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* K (* n (sin M)))
(.f64 (.f64 (sin.f64 M) n) K)
(* -1 (pow M 2))
(*.f64 (neg.f64 M) M)
(* (pow M 2) (- (+ (/ m M) (/ n M)) 1))
(.f64 (+.f64 (/.f64 n M) (-.f64 (/.f64 m M) #s(literal 1 binary64))) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))
(.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M))
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(* 1/2 n)
(*.f64 n #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(+ (* 1/2 m) (* 1/2 n))
(*.f64 (+.f64 n m) #s(literal 1/2 binary64))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 n #s(literal 1/2 binary64))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 (.f64 #s(literal -1/8 binary64) K) K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos M) (* 1/2 (* K (* n (sin M)))))
(fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))
(fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(fma.f64 (fma.f64 (.f64 m (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 m (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 (.f64 #s(literal -1/8 binary64) K) K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))
(fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(fma.f64 (fma.f64 (.f64 m (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 m (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 (.f64 #s(literal -1/8 binary64) K) K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos M) (* 1/2 (* K (* n (sin M)))))
(fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(+ (cos M) (+ (* 1/2 (* K (* m (sin M)))) (* 1/2 (* K (* n (sin M))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (.f64 (+.f64 n m) K) (cos.f64 M))
(* K n)
(*.f64 n K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(* 1/2 (* K n))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(+ (* 1/2 (* K m)) (* 1/2 (* K n)))
(.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 (.f64 #s(literal -1/8 binary64) K) K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
(fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64)) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (fma.f64 (pow.f64 (-.f64 M (.f64 n #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (-.f64 M (.f64 n #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))))
(cos (- (* 1/2 (* K n)) M))
(cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)))
(+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) m) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (.f64 m (.f64 (.f64 #s(literal -1/8 binary64) K) K)) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) m) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) K) K) (cos.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))) m (cos.f64 (fma.f64 (*.f64 K #s(literal 1/2 binary64)) n (neg.f64 M))))
(/ 1 (* K n))
(/.f64 #s(literal 1 binary64) (*.f64 n K))
(+ (* -1 (/ m (* K (pow n 2)))) (/ 1 (* K n)))
(-.f64 (/.f64 #s(literal 1 binary64) (.f64 n K)) (/.f64 m (.f64 (*.f64 n n) K)))
(+ (* m (- (/ m (* K (pow n 3))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(fma.f64 (-.f64 (/.f64 m (.f64 (pow.f64 n #s(literal 3 binary64)) K)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 n n) K))) m (/.f64 #s(literal 1 binary64) (.f64 n K)))
(+ (* m (- (* m (+ (* -1 (/ m (* K (pow n 4)))) (/ 1 (* K (pow n 3))))) (/ 1 (* K (pow n 2))))) (/ 1 (* K n)))
(fma.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 n #s(literal 3 binary64)) K)) (/.f64 m (.f64 (pow.f64 n #s(literal 4 binary64)) K))) m (/.f64 #s(literal -1 binary64) (.f64 (.f64 n n) K))) m (/.f64 #s(literal 1 binary64) (*.f64 n K)))
(* K n)
(*.f64 n K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(+ (* K m) (* K n))
(*.f64 (+.f64 n m) K)
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 n #s(literal 1/2 binary64))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 n #s(literal 1/2 binary64))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (-.f64 M (*.f64 n #s(literal 1/2 binary64))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (*.f64 n #s(literal 1/2 binary64)))) m (fabs.f64 (-.f64 m n))) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(* K (pow n 2))
(.f64 (.f64 n n) K)
(+ (* K (* m (+ n (* -1 n)))) (* K (pow n 2)))
(*.f64 K (fma.f64 n n #s(literal 0 binary64)))
(+ (* K (pow n 2)) (* m (+ (* -1 (* K m)) (* K (+ n (* -1 n))))))
(fma.f64 (.f64 (neg.f64 m) m) K (.f64 K (fma.f64 n n #s(literal 0 binary64))))
(+ (* K (pow n 2)) (* m (+ (* -1 (* K m)) (* K (+ n (* -1 n))))))
(fma.f64 (.f64 (neg.f64 m) m) K (.f64 K (fma.f64 n n #s(literal 0 binary64))))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* 1/2 m)
(*.f64 m #s(literal 1/2 binary64))
(* m (+ 1/2 (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m)
(* m (+ 1/2 (* 1/2 (/ n m))))
(*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m)
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* m (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) n) K) m)) (/.f64 (cos.f64 M) m)) m)
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) n) K) m)) (/.f64 (cos.f64 M) m)) m)
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) n) K) m)) (/.f64 (cos.f64 M) m)) m)
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* m (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64))
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) n) K) m)) (/.f64 (cos.f64 M) m)) m)
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) n) K) m)) (/.f64 (cos.f64 M) m)) m)
(* m (+ (* 1/2 (* K (sin M))) (+ (* 1/2 (/ (* K (* n (sin M))) m)) (/ (cos M) m))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 M) K (/.f64 (.f64 (*.f64 (sin.f64 M) n) K) m)) (/.f64 (cos.f64 M) m)) m)
(* K m)
(*.f64 m K)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m)
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (+ m n))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ (+ (* -1 (/ n (* K m))) (/ 1 K)) m)
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 n (*.f64 m K))) m)
(/ (- (+ (/ 1 K) (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m))) m)
(/.f64 (fma.f64 (/.f64 n (.f64 m m)) (/.f64 n K) (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 n (.f64 m K)))) m)
(/ (- (+ (* -1 (/ (pow n 3) (* K (pow m 3)))) (/ 1 K)) (+ (* -1 (/ (pow n 2) (* K (pow m 2)))) (/ n (* K m)))) m)
(/.f64 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) K) (/.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) K) (pow.f64 m #s(literal 3 binary64)))) (-.f64 (/.f64 n (.f64 m K)) (.f64 (/.f64 n (*.f64 m m)) (/.f64 n K)))) m)
(* K m)
(*.f64 m K)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* m (+ K (/ (* K n) m)))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))
(.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))
(.f64 (-.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 m n)) (.f64 m m)) (-.f64 (/.f64 M m) #s(literal 1/4 binary64))) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) (/.f64 l (.f64 m m)))) (/.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) (.f64 m m))) (*.f64 m m))
(* -1 (* K (pow m 2)))
(.f64 (.f64 (neg.f64 K) m) m)
(* (pow m 2) (+ (* -1 K) (/ (* K (+ n (* -1 n))) m)))
(.f64 (.f64 K (+.f64 (/.f64 #s(literal 0 binary64) m) #s(literal -1 binary64))) (*.f64 m m))
(* (pow m 2) (+ (* -1 K) (+ (/ (* K (+ n (* -1 n))) m) (/ (* K (pow n 2)) (pow m 2)))))
(.f64 (fma.f64 K (fma.f64 (/.f64 n m) (/.f64 n m) (/.f64 #s(literal 0 binary64) m)) (neg.f64 K)) (.f64 m m))
(* (pow m 2) (+ (* -1 K) (+ (/ (* K (+ n (* -1 n))) m) (/ (* K (pow n 2)) (pow m 2)))))
(.f64 (fma.f64 K (fma.f64 (/.f64 n m) (/.f64 n m) (/.f64 #s(literal 0 binary64) m)) (neg.f64 K)) (.f64 m m))
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 n m) K))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 n m) K))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 n m) K))
(* 1/2 m)
(*.f64 m #s(literal 1/2 binary64))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(*.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 m))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(*.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 m))
(* -1 (* m (- (* -1/2 (/ n m)) 1/2)))
(*.f64 (fma.f64 (/.f64 n m) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 m))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) m) #s(literal -1 binary64) #s(literal -1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* m (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M)) (neg.f64 m))) (neg.f64 m))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* 1/2 (* K (* m (sin M))))
(.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M)) (neg.f64 m))) (neg.f64 m))
(* -1 (* m (+ (* -1 (/ (+ (cos M) (* 1/2 (* K (* n (sin M))))) m)) (* -1/2 (* K (sin M))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 M)) K (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 M) K) #s(literal 1/2 binary64)) n (cos.f64 M)) (neg.f64 m))) (neg.f64 m))
(* K m)
(*.f64 m K)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* 1/2 (* K m))
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 n m) K))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 n m) K))
(* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))
(.f64 (.f64 (neg.f64 m) #s(literal -1/2 binary64)) (fma.f64 K (/.f64 n m) K))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))
(.f64 (cos.f64 (fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(cos (- (* 1/2 (* K (- n (* -1 m)))) M))
(cos.f64 (fma.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) K (neg.f64 M)))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(* -1 (/ (- (/ n (* K m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 n (*.f64 m K)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* -1 (/ (- (* -1 (/ (- (/ (pow n 2) (* K m)) (/ n K)) m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow n 3) (* K m)) (/ (pow n 2) K)) m)) (/ n K)) m)) (/ 1 K)) m))
(/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (/.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) K) m) (/.f64 (*.f64 n n) K)) (neg.f64 m)) (/.f64 n K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m))
(* K m)
(*.f64 m K)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))
(*.f64 (fma.f64 K (/.f64 n m) K) m)
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(/ 1 (* K m))
(/.f64 #s(literal 1 binary64) (*.f64 m K))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) m) #s(literal -1 binary64) #s(literal -1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) m) #s(literal -1 binary64) #s(literal -1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* -1/4 (pow m 2))
(.f64 (.f64 #s(literal -1/4 binary64) m) m)
(* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))
(.f64 (.f64 (fma.f64 (/.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) m) #s(literal -1 binary64) #s(literal -1/4 binary64)) m) m)
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))
(.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (neg.f64 m)) (fma.f64 n #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m))
(* -1 (* K (pow m 2)))
(.f64 (.f64 (neg.f64 K) m) m)
(* (pow m 2) (+ (* -1 K) (* -1 (/ (* K (+ n (* -1 n))) m))))
(.f64 (.f64 K (+.f64 (/.f64 #s(literal 0 binary64) m) #s(literal -1 binary64))) (*.f64 m m))
(* (pow m 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow n 2)) m)) (* K (+ n (* -1 n)))) m))))
(.f64 (-.f64 (/.f64 (fma.f64 #s(literal 0 binary64) K (.f64 (neg.f64 K) (/.f64 (.f64 n n) m))) (neg.f64 m)) K) (.f64 m m))
(* (pow m 2) (+ (* -1 K) (* -1 (/ (+ (* -1 (/ (* K (pow n 2)) m)) (* K (+ n (* -1 n)))) m))))
(.f64 (-.f64 (/.f64 (fma.f64 #s(literal 0 binary64) K (.f64 (neg.f64 K) (/.f64 (.f64 n n) m))) (neg.f64 m)) K) (.f64 m m))

rewrite256.0ms (2.6%)

Memory

14.6MiB live, 129.9MiB allocated

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	85	642
0	128	642
1	410	568
2	3105	568
0	8787	568

Stop Event

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

Counts

29 → 358

Calls

Call 1

Inputs
(/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64))
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))
#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
(cos.f64 M)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))))
#s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))
(.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m))
(/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64))
(cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (*.f64 n n) #s(literal -1/4 binary64)))))
(cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M))
#s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))
(/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) (* (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m)))
(/.f64 (/.f64 #s(literal 1 binary64) K) m)
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))
(.f64 (.f64 (sin.f64 M) n) K)
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 (+.f64 n m) (-.f64 n m)) K)

Outputs
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>

eval447.0ms (4.5%)

Memory: -0.2MiB live, 269.1MiB allocated
Compiler: Compiled 62 141 to 3 404 computations (94.5% saved)

prune155.0ms (1.6%)

Memory

2.5MiB live, 132.2MiB allocated

Pruning

20 alts after pruning (17 fresh and 3 done)

	Pruned	Kept	Total
New	1 721	7	1 728
Fresh	3	10	13
Picked	4	1	5
Done	1	2	3
Total	1 729	20	1 749

Accuracy

98.2%

Counts

1 749 → 20

Alt Table

Click to see full alt table

Status	Accuracy	Program
	24.0%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (*.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	23.5%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(approx ( (* (+ n m) (- n m)) K) (.f64 (.f64 n n) K)) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
	23.5%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	32.8%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	30.0%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 m n) #s(literal -1 binary64)) (+.f64 n m)) (.f64 K (-.f64 m n))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	40.5%	(.f64 (cos.f64 (-.f64 (/.f64 (exp.f64 (.f64 (neg.f64 (log.f64 (*.f64 (+.f64 n m) K))) #s(literal -1 binary64))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	15.8%	(.f64 (cos.f64 (-.f64 (/.f64 (exp.f64 (.f64 (neg.f64 (log.f64 (*.f64 (+.f64 n m) K))) #s(literal -1 binary64))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
✓	23.4%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	30.6%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
✓	31.6%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	26.0%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) #s(approx (* (+ (* K 1/2) (/ (+ (* (* K 1/2) n) (neg M)) m)) m) (.f64 (.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m) K)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	27.4%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (fma.f64 (.f64 K M) (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	36.7%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	21.1%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 #s(approx ( (* (sin M) n) K) (.f64 (fma.f64 (.f64 (.f64 (.f64 M n) M) K) #s(literal -1/6 binary64) (*.f64 n K)) M)) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	26.9%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 #s(approx ( (* (sin M) n) K) (.f64 (.f64 M n) K)) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	52.4%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
	52.0%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
	54.7%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
✓	36.2%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	28.9%	(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (cos M) (fma.f64 (*.f64 #s(literal -1/2 binary64) M) M #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Compiler

Compiled 1 496 to 660 computations (55.9% saved)

regimes123.0ms (1.2%)

Memory

-4.2MiB live, 72.7MiB allocated

Counts

52 → 1

Calls

Call 1

Inputs
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (cos M) (fma.f64 (*.f64 #s(literal -1/2 binary64) M) M #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 #s(approx ( (* (sin M) n) K) (.f64 (.f64 M n) K)) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (fma.f64 (.f64 K M) (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 #s(approx ( (* (sin M) n) K) (.f64 (fma.f64 (.f64 (.f64 (.f64 M n) M) K) #s(literal -1/6 binary64) (*.f64 n K)) M)) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- m n)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) (cos.f64 M)))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- m n)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (cos.f64 M)))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K n) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (*.f64 (+.f64 n m) K)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) #s(approx (* (+ (* K 1/2) (/ (+ (* (* K 1/2) n) (neg M)) m)) m) (.f64 (.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m) K)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 n m) K K)) m)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (*.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(approx ( (* (+ n m) (- n m)) K) (.f64 (.f64 n n) K)) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (*.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 n m)) K) (neg.f64 (sin.f64 M)) (cos.f64 M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 m #s(literal -1/2 binary64) M) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) (neg.f64 M)))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 m n) #s(literal -1 binary64)) (+.f64 n m)) (.f64 K (-.f64 m n))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (.f64 (neg.f64 M) M)) (fma.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 m n) K K) n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 #s(approx ( K (+ m n)) (*.f64 (fma.f64 (/.f64 n m) K K) m)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K) (-.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) (+.f64 n m)) M)) M) M))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (exp.f64 (.f64 (neg.f64 (log.f64 (*.f64 (+.f64 n m) K))) #s(literal -1 binary64))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 n K) (/.f64 n m) (/.f64 (neg.f64 n) K)) (neg.f64 m)) (/.f64 #s(literal 1 binary64) K)) (neg.f64 m)))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (+.f64 n m)) K (cos.f64 M))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (/.f64 K (.f64 (+.f64 n m) (-.f64 m n))) (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (pow.f64 (+.f64 n m) #s(literal -1 binary64)))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (exp.f64 (.f64 (neg.f64 (log.f64 (*.f64 (+.f64 n m) K))) #s(literal -1 binary64))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) K) (fma.f64 n (-.f64 n m) (*.f64 m m))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 n (-.f64 n m) (.f64 m m)) (*.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) K))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

Outputs

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))

Calls

6 calls:

34.0ms	m
14.0ms	K
14.0ms	l
14.0ms	M
14.0ms	n

Results

Accuracy	Segments	Branch
96.7%	1	`K`
96.7%	1	`m`
96.7%	1	`n`
96.7%	1	`M`
96.7%	1	`l`
96.7%	1	`(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))`

Compiler

Compiled 34 to 46 computations (-35.3% saved)

regimes78.0ms (0.8%)

Memory

-14.6MiB live, 66.0MiB allocated

Counts

33 → 3

Calls

Call 1

Inputs
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (cos M) (fma.f64 (*.f64 #s(literal -1/2 binary64) M) M #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 #s(approx ( (* (sin M) n) K) (.f64 (.f64 M n) K)) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (fma.f64 (.f64 K M) (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 #s(approx ( (* (sin M) n) K) (.f64 (fma.f64 (.f64 (.f64 (.f64 M n) M) K) #s(literal -1/6 binary64) (*.f64 n K)) M)) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- m n)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) (cos.f64 M)))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- m n)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (cos.f64 M)))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K m) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 K n) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) m) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 (*.f64 (sin.f64 M) n) K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 M)) (*.f64 (+.f64 n m) K)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) #s(approx (* (+ (* K 1/2) (/ (+ (* (* K 1/2) n) (neg M)) m)) m) (.f64 (.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m) K)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 n m) K K)) m)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 K #s(literal 1/2 binary64) (/.f64 (fma.f64 (.f64 K #s(literal 1/2 binary64)) n (neg.f64 M)) m)) m))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (*.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(approx ( (* (+ n m) (- n m)) K) (.f64 (.f64 n n) K)) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (- m n) ( (* (+ n m) (- m n)) K)) (/.f64 (/.f64 #s(literal 1 binary64) K) m))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (*.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 m n) (.f64 (*.f64 (+.f64 n m) (-.f64 m n)) K))) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Outputs

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (*.f64 #s(literal -1/4 binary64) m) m))))

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (*.f64 n n) #s(literal -1/4 binary64)))))

Calls

6 calls:

22.0ms	n
17.0ms	l
9.0ms	m
9.0ms	M
9.0ms	K

Results

Accuracy	Segments	Branch
60.7%	2	`K`
81.5%	3	`m`
81.1%	3	`n`
69.9%	4	`(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))`
78.9%	4	`M`
73.6%	5	`l`

Compiler

Compiled 34 to 46 computations (-35.3% saved)

regimes6.0ms (0.1%)

Memory

6.5MiB live, 6.5MiB allocated

Counts

13 → 3

Calls

Call 1

Inputs
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (cos M) (fma.f64 (*.f64 #s(literal -1/2 binary64) M) M #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 #s(approx ( (* (sin M) n) K) (.f64 (.f64 M n) K)) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (fma.f64 (.f64 K M) (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) (.f64 #s(approx ( (* (sin M) n) K) (.f64 (fma.f64 (.f64 (.f64 (.f64 M n) M) K) #s(literal -1/6 binary64) (*.f64 n K)) M)) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- m n)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) (cos.f64 M)))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- m n)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) (cos.f64 M)))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))

Outputs

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (*.f64 #s(literal -1/4 binary64) m) m))))

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (*.f64 n n) #s(literal -1/4 binary64)))))

Calls

1 calls:

4.0ms

Results

Accuracy	Segments	Branch
81.5%	3	`m`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes7.0ms (0.1%)

Memory

11.0MiB live, 11.0MiB allocated

Counts

3 → 4

Calls

Call 1

Inputs

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (*.f64 #s(literal -1/4 binary64) m) m))))

Outputs
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))))

Calls

3 calls:

2.0ms	m
2.0ms	n
2.0ms	M

Results

Accuracy	Segments	Branch
76.6%	3	`M`
61.9%	2	`n`
78.5%	4	`m`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes16.0ms (0.2%)

Memory

-29.9MiB live, 9.1MiB allocated

Counts

2 → 3

Calls

Call 1

Inputs

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))

Outputs

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))

Calls

3 calls:

13.0ms	M
2.0ms	m
2.0ms	l

Results

Accuracy	Segments	Branch
65.3%	2	`l`
69.7%	3	`M`
54.7%	1	`m`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes8.0ms (0.1%)

Memory

14.3MiB live, 14.3MiB allocated

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Outputs

(*.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Calls

6 calls:

1.0ms	m
1.0ms	K
1.0ms	l
1.0ms	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
1.0ms	n

Results

Accuracy	Segments	Branch
36.2%	1	`m`
36.2%	1	`K`
36.2%	1	`n`
36.2%	1	`l`
36.2%	1	`(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))`
36.2%	1	`M`

Compiler

Compiled 34 to 46 computations (-35.3% saved)

bsearch96.0ms (1%)

Memory

3.6MiB live, 78.6MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
34.0ms	9.18672081344697e-260	1.936007712272868e-257
56.0ms	-0.1720868331610912	-7.1376657016073555e-12

Samples

67.0ms	234×	0	valid
11.0ms	38×	1	valid

Compiler

Compiled 389 to 515 computations (-32.4% saved)

Precisions

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

ival-sub: 32.0ms (47% of total)

ival-mult: 17.0ms (24.9% of total)

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

ival-pow2: 3.0ms (4.4% of total)

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

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

adjust: 2.0ms (2.9% of total)

ival-exp: 2.0ms (2.9% of total)

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

ival-fabs: 1.0ms (1.5% of total)

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

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

exact: 0.0ms (0% of total)

bsearch59.0ms (0.6%)

Memory

-41.0MiB live, 24.3MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
55.0ms	9.18672081344697e-260	1.936007712272868e-257
1.0ms	-0.1720868331610912	-7.1376657016073555e-12

Samples

7.0ms	55×	0	valid
3.0ms	9×	1	valid

Compiler

Compiled 347 to 464 computations (-33.7% saved)

Precisions

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

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

ival-div: 1.0ms (14.7% of total)

ival-pow2: 1.0ms (14.7% of total)

ival-cos: 1.0ms (14.7% of total)

ival-mult: 1.0ms (14.7% of total)

adjust: 0.0ms (0% of total)

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

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

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

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

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

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

exact: 0.0ms (0% of total)

bsearch67.0ms (0.7%)

Memory

33.3MiB live, 71.6MiB allocated

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
31.0ms	1.2828171928317433e+47	1.5658308689028888e+52
28.0ms	3.484605320893683e-90	4.6263776632285765e-74
1.0ms	-0.1720868331610912	-7.1376657016073555e-12

Samples

39.0ms	282×	0	valid
6.0ms	22×	1	valid

Compiler

Compiled 593 to 841 computations (-41.8% saved)

Precisions

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

ival-sub: 13.0ms (37.3% of total)

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

ival-mult: 4.0ms (11.5% of total)

ival-pow2: 3.0ms (8.6% of total)

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

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

ival-exp: 2.0ms (5.7% of total)

adjust: 1.0ms (2.9% of total)

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

ival-fabs: 1.0ms (2.9% of total)

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

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

exact: 0.0ms (0% of total)

bsearch85.0ms (0.9%)

Memory

8.7MiB live, 84.7MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
46.0ms	1.4558684026992196e-10	1.3335856332772605e-7
33.0ms	-0.19418485202572297	-1.899154576097223e-9

Samples

54.0ms	252×	0	valid
6.0ms	20×	1	valid

Compiler

Compiled 338 to 488 computations (-44.4% saved)

Precisions

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

ival-neg: 25.0ms (49.5% of total)

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

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

ival-mult: 4.0ms (7.9% of total)

ival-pow2: 3.0ms (5.9% of total)

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

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

ival-exp: 2.0ms (4% of total)

adjust: 1.0ms (2% of total)

ival-fabs: 1.0ms (2% of total)

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

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

exact: 0.0ms (0% of total)

simplify69.0ms (0.7%)

Memory

-28.8MiB live, 53.0MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	90	786
1	118	786
2	135	786
3	150	786
4	157	786
5	159	786

Stop Event

1×

saturated

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(if (<=.f64 m #s(literal -6124895493223875/36028797018963968 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (if (<=.f64 m #s(literal 2217991759519977/540973599882921212264795939754513005075299661860988438659031766043314076218086256101803270028960960404146580473095299767175523900930749990144551913946050126754187964414981206188781074100660675638296814498008256925847580971777599220570518424337445351925287506839283710296064 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M)))) (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 m #s(literal -6124895493223875/36028797018963968 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (if (<=.f64 m #s(literal 1298336639719011/4327788799063369698118367518036104040602397294887907509272254128346512609744690048814426160231687683233172643784762398137404191207445999921156415311568401014033503715319849649510248592805285405106374515984066055406780647774220793764564147394699562815402300054714269682368512 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M)))) (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 m #s(literal -6124895493223875/36028797018963968 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (if (<=.f64 m #s(literal 2864581841720371/63657374260452690195888927762793067532858387302060507832379389042324415617604272068231168 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M)))) (if (<=.f64 m #s(literal 130000000000000001643477675129571571312975937536 binary64)) (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))))))
(if (<=.f64 M #s(literal -3422735716801577/18014398509481984 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M)))) (if (<=.f64 M #s(literal 4911261142184431/37778931862957161709568 binary64)) (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 l (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))))))
(if (<=.f64 m #s(literal -6124895493223875/36028797018963968 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (if (<=.f64 m #s(literal 2217991759519977/540973599882921212264795939754513005075299661860988438659031766043314076218086256101803270028960960404146580473095299767175523900930749990144551913946050126754187964414981206188781074100660675638296814498008256925847580971777599220570518424337445351925287506839283710296064 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M)))) (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 m #s(literal -6124895493223875/36028797018963968 binary64)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))) (if (<=.f64 m #s(literal 2217991759519977/540973599882921212264795939754513005075299661860988438659031766043314076218086256101803270028960960404146580473095299767175523900930749990144551913946050126754187964414981206188781074100660675638296814498008256925847580971777599220570518424337445351925287506839283710296064 binary64)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M))) #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) (cos.f64 M)))))
(if (<=.f64 m #s(literal -6124895493223875/36028797018963968 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (if (<=.f64 m #s(literal 1298336639719011/4327788799063369698118367518036104040602397294887907509272254128346512609744690048814426160231687683233172643784762398137404191207445999921156415311568401014033503715319849649510248592805285405106374515984066055406780647774220793764564147394699562815402300054714269682368512 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M)))) (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 m #s(literal -6124895493223875/36028797018963968 binary64)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))) (if (<=.f64 m #s(literal 1298336639719011/4327788799063369698118367518036104040602397294887907509272254128346512609744690048814426160231687683233172643784762398137404191207445999921156415311568401014033503715319849649510248592805285405106374515984066055406780647774220793764564147394699562815402300054714269682368512 binary64)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M))) #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))))))
(if (<=.f64 m #s(literal -6124895493223875/36028797018963968 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))) (if (<=.f64 m #s(literal 2864581841720371/63657374260452690195888927762793067532858387302060507832379389042324415617604272068231168 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M)))) (if (<=.f64 m #s(literal 130000000000000001643477675129571571312975937536 binary64)) (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m)))))))
(if (<=.f64 m #s(literal -6124895493223875/36028797018963968 binary64)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))) (if (<=.f64 m #s(literal 2864581841720371/63657374260452690195888927762793067532858387302060507832379389042324415617604272068231168 binary64)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M))) #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))) (if (<=.f64 m #s(literal 130000000000000001643477675129571571312975937536 binary64)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 #s(literal -1/4 binary64) m) m))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))))))
(if (<=.f64 M #s(literal -3422735716801577/18014398509481984 binary64)) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M)))) (if (<=.f64 M #s(literal 4911261142184431/37778931862957161709568 binary64)) (.f64 #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))))
(if (<=.f64 M #s(literal -3422735716801577/18014398509481984 binary64)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M))) #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))) (if (<=.f64 M #s(literal 4911261142184431/37778931862957161709568 binary64)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64)))) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 M) M))) #s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))))))
(.f64 #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (cos (- (/ ( K (+ m n)) 2) M)) #s(approx (+ (* (* (* -1/2 (+ n m)) K) (neg (sin M))) (cos M)) #s(literal 1 binary64))))

soundness770.0ms (7.8%)

Memory

27.9MiB live, 811.4MiB allocated

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	584	6280
1	1814	6075
2	6247	6049
0	8218	5765
0	887	32804
1	2876	31723
0	8708	30799
0	931	26181
1	2937	25256
0	8674	24558
0	960	27968
1	3104	26958
0	8425	26181

Stop Event

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

Compiler

Compiled 729 to 661 computations (9.3% saved)

preprocess58.0ms (0.6%)

Memory: -1.9MiB live, 151.5MiB allocated
Remove: (sort m n)
Compiler: Compiled 578 to 288 computations (50.2% saved)

end0.0ms (0%)

Memory: 0.0MiB live, 0.0MiB allocated

start0.0ms (0%)

analyze1.0ms (0%)

sample1.7s (17.5%)

explain458.0ms (4.6%)

preprocess171.0ms (1.7%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify160.0ms (1.6%)

localize175.0ms (1.8%)

series44.0ms (0.4%)

simplify219.0ms (2.2%)

rewrite191.0ms (1.9%)

eval75.0ms (0.8%)

prune26.0ms (0.3%)

simplify189.0ms (1.9%)

localize319.0ms (3.2%)

series181.0ms (1.8%)

simplify312.0ms (3.1%)

rewrite272.0ms (2.8%)

eval417.0ms (4.2%)

prune73.0ms (0.7%)

simplify141.0ms (1.4%)

localize429.0ms (4.3%)

series146.0ms (1.5%)

simplify265.0ms (2.7%)

rewrite195.0ms (2%)

eval261.0ms (2.6%)

prune112.0ms (1.1%)

simplify147.0ms (1.5%)

localize324.0ms (3.3%)

series153.0ms (1.5%)

simplify410.0ms (4.1%)

rewrite256.0ms (2.6%)

eval447.0ms (4.5%)

prune155.0ms (1.6%)

regimes123.0ms (1.2%)

regimes78.0ms (0.8%)

regimes6.0ms (0.1%)

regimes7.0ms (0.1%)

regimes16.0ms (0.2%)

regimes8.0ms (0.1%)

bsearch96.0ms (1%)

bsearch59.0ms (0.6%)

bsearch67.0ms (0.7%)

bsearch85.0ms (0.9%)

simplify69.0ms (0.7%)

soundness770.0ms (7.8%)

preprocess58.0ms (0.6%)

end0.0ms (0%)

Profiling