Test commit into the README file.
[Faustine.git] / dsp_files / fft.24.tmp.dsp
1 import ( "math.lib" ) ;
2 import ( "complex.lib" ) ;
3
4 concats = case {
5 (1) => _, 1 : vectorize ;
6 (m) => concats(m - 1), ( _, 1 : vectorize) : #;
7 };
8
9 //subvect_even(n) = par(i, (n/2), (_, (i, 2 : *) : [])) : concats(n/2);
10 //subvect_odd(n) = par(i, (n/2), (_, (i, 2 : * : _, 1 : +) : [])) : concats(n/2);
11
12 //subvect_even(n) = _ <: evens(n);
13
14 //odds = case {
15 // (0) => [1] : vectorize(1);
16 // (n) => odds(n - 2) # ( [n - 1] : vectorize(1));
17
18 //};
19
20
21 //subvect_odd(n) = _ <: odds(n);
22
23 eo(n) = _ <: subvect_even(n), subvect_odd(n);
24
25 output = serialize, serialize : vectorize(1), vectorize(1) : #;
26
27 //process = (1,2,3,4,5,6,7,8) : evens(8);
28
29 process = _ : eo(8);