Apply a digital filter (direct form II transposed): Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: moved a statement.) |
|||
Line 919: | Line 919: | ||
0.961854, 0.695690, 0.424356, 0.196262,-0.027835,-0.211722,-0.174746, 0.069258, 0.385446, 0.651771} |
0.961854, 0.695690, 0.424356, 0.196262,-0.027835,-0.211722,-0.174746, 0.069258, 0.385446, 0.651771} |
||
</pre> |
</pre> |
||
=={{header|Phixmonti}}== |
|||
{{trans|Phix}} |
|||
<lang Phixmonti>include ..\Utilitys.pmt |
|||
( 1.00000000 -2.77555756e-16 3.33333333e-01 -1.85037171e-17 ) var a |
|||
( 0.16666667 0.5 0.5 0.16666667 ) var b |
|||
( -0.917843918645 0.141984778794 1.20536903482 0.190286794412 -0.662370894973 |
|||
-1.00700480494 -0.404707073677 0.800482325044 0.743500089861 1.01090520172 |
|||
0.741527555207 0.277841675195 0.400833448236 -0.2085993586 -0.172842103641 |
|||
-0.134316096293 0.0259303398477 0.490105989562 0.549391221511 0.9047198589 ) |
|||
len dup 0 swap repeat >ps |
|||
for var i |
|||
0 >ps |
|||
b len i min for var j |
|||
j get rot i j - 1 + get rot * ps> + >ps swap |
|||
endfor |
|||
drop |
|||
a len i min for var j |
|||
j get ps> tps i j - 1 + get nip rot * - >ps |
|||
endfor |
|||
drop |
|||
ps> a 1 get nip / ps> swap i set >ps |
|||
endfor |
|||
drop ps> ?</lang> |
|||
{{out}} |
|||
<pre>[-0.152973989500313, -0.435257829050217, -0.13604339698849, 0.697503326547963, 0.656444692469029, -0.435482453256106, -1.089239461152929, -0.537676549562755, 0.517049992313214, 1.052249747155353, 0.961854300373645, 0.695690094009605, 0.424356295095532, 0.196262231821789, -0.0278351244633933, -0.211721915450118, -0.174745562222761, 0.0692584089011949, 0.385445874307439, 0.651770838819305] |
|||
=== Press any key to exit ===</pre> |
|||
=={{header|Python}}== |
=={{header|Python}}== |