Anonymous user
Deconvolution/1D: Difference between revisions
m
→{{header|REXX}}: added/changed whitespace and comments, added whitespace to the output.
No edit summary |
m (→{{header|REXX}}: added/changed whitespace and comments, added whitespace to the output.) |
||
Line 1,340:
=={{header|REXX}}==
<lang rexx>/*REXX pgm performs deconvolution of two arrays: deconv(g,f)=h and deconv(g,h)=f */
call make
call make
call make
call show
call show
call show
call deco
call test
call deco
call test
exit
/*──────────────────────────────────────────────────────────────────────────────────────*/
deco
/*──────────────────────────────────────────────────────────────────────────────────────*/
make
/*──────────────────────────────────────────────────────────────────────────────────────*/
show
/*──────────────────────────────────────────────────────────────────────────────────────*/
test
{{out|output|text= when using the default internal inputs:}}
<pre>
array H: -8 -9 -3 -1 -6 7
array F: -3 -6 -1 8 -6 3 -1 -9 -9 3 -2 5 2 -2 -7 -1
array G: 24 75 71 -34 3 22 -45 23 245 25 52 25 -67 -96 96 31 55 36 29 -43 -7
</pre>
|