Fast Fourier transform: Difference between revisions

Line 6:
Based on [[j:Essays/FFT]], with some simplifications, sacrificing accuracy not visible here for clarity:
 
<lang j>cube =: ($~ q:@#) :. ,
roots =: +@]^:(0>[) (_1^2%]) ^ i.@-:
rou =: [: j./ 2 1 o./ o.@(% #)@i.@-:
6,962

edits