Apply a digital filter (direct form II transposed): Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add Perl 6 example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: add missing line end commas in output) |
||
Line 94: | Line 94: | ||
say TDF-II-filter(@signal, @a, @b)».fmt("% 0.8f") |
say TDF-II-filter(@signal, @a, @b)».fmt("% 0.8f") |
||
Z~ flat (', ' xx 4, "\n") xx *;</lang> |
Z~ flat (', ' xx 4, ",\n") xx *;</lang> |
||
{{out}} |
{{out}} |
||
<pre>(-0.15297399, -0.43525783, -0.13604340, 0.69750333, 0.65644469 |
<pre>(-0.15297399, -0.43525783, -0.13604340, 0.69750333, 0.65644469, |
||
-0.43548245, -1.08923946, -0.53767655, 0.51704999, 1.05224975 |
-0.43548245, -1.08923946, -0.53767655, 0.51704999, 1.05224975, |
||
0.96185430, 0.69569009, 0.42435630, 0.19626223, -0.02783512 |
0.96185430, 0.69569009, 0.42435630, 0.19626223, -0.02783512, |
||
-0.21172192, -0.17474556, 0.06925841, 0.38544587, 0.65177084 |
-0.21172192, -0.17474556, 0.06925841, 0.38544587, 0.65177084, |
||
)</pre> |
)</pre> |
||