2 files changed, 12 insertions, 3 deletions
diff --git a/tests/unit_tests/test004_Filter/scilabcode/high_pass.sci b/tests/unit_tests/test004_Filter/scilabcode/high_pass.sci
index a3af8322..04eea9d7 100644
--- a/tests/unit_tests/test004_Filter/scilabcode/high_pass.sci
+++ b/tests/unit_tests/test004_Filter/scilabcode/high_pass.sci
@@ -2,10 +2,15 @@
 // given input_signal samples,
 // time interval dt,
 // R and C
+//SCI2C: NIN= 4
+//SCI2C: NOUT= 1
+//SCI2C: OUT(1).TP= IN(1).TP
+//SCI2C: OUT(1).SZ(1)= IN(1).SZ(1)
+//SCI2C: OUT(1).SZ(2)= IN(1).SZ(2)
 function output_signal = high_pass(input_signal, dt, R, C)
   alpha = R * C / (R * C + dt)
   output_signal(1) = input_signal(1)
-  for i = 2 : size(input_signal, "*")
+  for i = 2 : size(input_signal, 2)
     output_signal(i) = alpha * output_signal(i-1) + alpha * (input_signal(i) - input_signal(i-1))
   end
 endfunction
 \ No newline at end of file
diff --git a/tests/unit_tests/test004_Filter/scilabcode/main.sci b/tests/unit_tests/test004_Filter/scilabcode/main.sci
index 9b32b2bd..832ea120 100644
--- a/tests/unit_tests/test004_Filter/scilabcode/main.sci
+++ b/tests/unit_tests/test004_Filter/scilabcode/main.sci
@@ -1,11 +1,15 @@
 function main()
-  sup = 5000;
-  M = 50 * rand(sup,1);
+  sup = 500;
+  M = 50 * rand(1,sup);
+  disp("M=")
+  disp(M)
   //scf(1);
   //plot(1:sup, M);
   
   
   N = high_pass(M, 0.1, 1, 1);
+  disp("N=")
+  disp(N);
   //scf(2);
   //plot(1:sup, N);
 endfunction
 \ No newline at end of file