added case where second input of meanf is complex

  updated the header and interface
  added functiosn for the new cases
update INIT_FillSCI2LibCDirs
changing the unit test in order to test the new cases

1 files changed, 32 insertions, 18 deletions

diff --git a/tests/unit_tests/test_double_Meanf.sci b/tests/unit_tests/test_double_Meanf.sci
index 7caa254d..2e88e4d9 100644
--- a/tests/unit_tests/test_double_Meanf.sci
+++ b/tests/unit_tests/test_double_Meanf.sci
@@ -1,34 +1,48 @@
 
 function test_double_Meanf()
+
 	disp (meanf (4 , 5 )) ;	
-	disp ("");
+	disp ("*******1*******");
 	disp (meanf ([4 5 6], [1 2 3]));
-	
-	disp (meanf ([4 5 6], [1 2 3],1));
-	disp ("");
-	disp (meanf ([4; 5; 6], [1; 2; 3],2));
+	disp ("*******2*******");
+	disp (meanf (4 , 5*%i )) ;	
+	disp ("*******3*******");
+	disp (meanf ([4 5 6], [1 2 3]*%i));
+	disp ("*******4*******");
+
 
 
 	disp (meanf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1));
-	disp ("");
+	disp ("*******5*******");
 	disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2));
 // complex
-
-	disp ([4*%i , 5+6*%i , 6]) ;
-	disp ("");
+	disp ("*******6*******");
 	disp (meanf (4 +4*%i , 5 )) ;	
-	disp ("");
+	disp ("*******7*******");
 	disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]));
-	
-	disp (meanf ([4 5 6], [1 2 3],1));
-	disp ("");
-	disp (meanf ([4; 5; 6], [1; 2; 3],2));
-	disp ("");
+    disp ("*******8*******");
+	disp (meanf (4 +4*%i , 5*%i )) ;	
+	disp ("*******9*******");
+	disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]*%i));
+	disp ("******10*******");
+
+
+	disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1));
+	disp ("******11*******");
+	disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2));
+	disp ("******12*******");
+	disp (meanf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9]  + [1 2 3 ; 4 5 6]*%i,1));
+	disp ("******13*******");
+	disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2));
+	disp ("******14*******");
+
+	disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1));
+	disp ("******15*******");
+	disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2));
+	disp ("******16*******");
+//
 
 
-	disp (meanf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1));
-	disp ("");
-	disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2));
 //
 
 endfunction