Fast Fourier transform: Difference between revisions
→{{header|J}}
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.@-:
|