Anonymous user
Fast Fourier transform: Difference between revisions
m
→{{header|APL}}: trimming spaces
(→{{header|APL}}: shortening) |
m (→{{header|APL}}: trimming spaces) |
||
Line 202:
{{trans|Fortran}}
{{works with|Dyalog APL}}
<lang APL>fft←{
1>k←2÷⍨N←⍴⍵:⍵
0≠1|2⍟N:'Argument must be a power of 2 in length'
Line 210 ⟶ 209:
T←even×*(0J¯2×(○1)×(¯1+⍳k)÷N)
(odd+T),odd-T
}</lang>▼
▲</lang>
'''Example:'''
<lang APL> fft 1 1 1 1 0 0 0 0</lang>
{{out}}
<pre> 4 1J¯2.414213562 0 1J¯0.4142135624 0 1J0.4142135624▼
0 1J2.414213562</pre>▼
▲4 1J¯2.414213562 0 1J¯0.4142135624 0 1J0.4142135624
▲ 0 1J2.414213562
=={{header|BBC BASIC}}==
| |||