1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
//SCI2C: DEFAULT_PRECISION= FLOAT
function test_float_Meanf()
disp (meanf (4 , 5 )) ;
disp ("*******1*******");
disp (meanf ([4 5 6], [1 2 3]));
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 ("*******5*******");
disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2));
// complex
disp ("*******6*******");
disp (meanf (4 +4*%i , 5 )) ;
disp ("*******7*******");
disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]));
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*******");
//
//
endfunction
|
