X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/043c676f59520b93dfacfa0d8d7e1fdd448cd7dc..1878a8448a5a73cbf289306beb5e88ab48561129:/dsp_files/fft.24.tmp.dsp?ds=sidebyside diff --git a/dsp_files/fft.24.tmp.dsp b/dsp_files/fft.24.tmp.dsp deleted file mode 100644 index 44dcaec..0000000 --- a/dsp_files/fft.24.tmp.dsp +++ /dev/null @@ -1,29 +0,0 @@ -import ( "math.lib" ) ; -import ( "complex.lib" ) ; - -concats = case { - (1) => _, 1 : vectorize ; - (m) => concats(m - 1), ( _, 1 : vectorize) : #; -}; - -//subvect_even(n) = par(i, (n/2), (_, (i, 2 : *) : [])) : concats(n/2); -//subvect_odd(n) = par(i, (n/2), (_, (i, 2 : * : _, 1 : +) : [])) : concats(n/2); - -//subvect_even(n) = _ <: evens(n); - -//odds = case { -// (0) => [1] : vectorize(1); -// (n) => odds(n - 2) # ( [n - 1] : vectorize(1)); - -//}; - - -//subvect_odd(n) = _ <: odds(n); - -eo(n) = _ <: subvect_even(n), subvect_odd(n); - -output = serialize, serialize : vectorize(1), vectorize(1) : #; - -//process = (1,2,3,4,5,6,7,8) : evens(8); - -process = _ : eo(8); \ No newline at end of file