X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/043c676f59520b93dfacfa0d8d7e1fdd448cd7dc..1878a8448a5a73cbf289306beb5e88ab48561129:/dsp_files/fft_test.0.tmp.dsp

diff --git a/dsp_files/fft_test.0.tmp.dsp b/dsp_files/fft_test.0.tmp.dsp
deleted file mode 100644
index 968ba3d..0000000
--- a/dsp_files/fft_test.0.tmp.dsp
+++ /dev/null
@@ -1,45 +0,0 @@
-import ( "fft.lib.dsp" ) ;
-import ( "complex.lib" ) ;
-
-evens = case {
-	(2) => _ , ! ;
-	(n) => _ , ! , evens(n - 2);
-};
-odds = case {
-	(2) => ! , _ ;
-	(n) => ! , _ , odds(n - 2);
-};
-
-eo(n) = evens(n), odds(n);
-
-shuffling = case {
-	(2) => eo(2);
-	(n) => (evens(n) <: shuffling(n/2)), (odds(n) <: shuffling(n/2));
-};
-
-shuffle(n) = bus(n) <: shuffling(n);
-
-input2complex(n) = par(i, n, (sca2pcplx));
-
-fft(n) =  input2complex(n) : shuffle(n) : xbutterflies(n);
-
-picks(n) = par(i, n, [i]);
-
-concats = case {
-	(1) => vectorize(1);
-	(n) => concats(n-1) # vectorize(1);
-};
-
-modules_vector(n) = concats(n);
-
-fft_test(n) = _ : vectorize(n) <: picks(n) : fft(n) : pcplx_moduls(n) : modules_vector(n) : serialize;
-
-//process = +, _ : + : fft_test(128);
-process = fft_test(128);
-//process = (0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7) <: shuffle(8);
-
-
-
-
-
-