X-Git-Url: https://scm.cri.minesparis.psl.eu/git/Faustine.git/blobdiff_plain/043c676f59520b93dfacfa0d8d7e1fdd448cd7dc..1878a8448a5a73cbf289306beb5e88ab48561129:/dsp_files/make_init-mdoc/src/make_init.dsp

diff --git a/dsp_files/make_init-mdoc/src/make_init.dsp b/dsp_files/make_init-mdoc/src/make_init.dsp
deleted file mode 100644
index 3026904..0000000
--- a/dsp_files/make_init-mdoc/src/make_init.dsp
+++ /dev/null
@@ -1,25 +0,0 @@
-rec(a, b, i) = a ~ (i : b);
-
-vect0 = case {
-	((y, z)) => vect0(y) : vect0(z);
-	(y) => _ , y : +;
-};
-
-init_value = case {
-	((x,y)) => init_value(x) : vect0(y);
-	(0) => 0;
-	(x) => 0 : vect0(x);
-};
-
-make_init(x) = (0, 1 : prefix), init_value(x), _ : select2;
-
-A = +;
-B = _;
-//B = serialize : _, 2 : vectorize;
-I = make_init((2));
-
-//process = _,_ : > ;
-
-//process = (0.000001, 2 : +) : rec(A,B,I);
-
-process = 0.0000010000000000,2:+:+~((0,1:prefix),(0:_,2:+),_:select2:_);