Mercurial > octave-nkf

comparison scripts/statistics/base/median.m @ 7411:83a8781b529d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-22 21:52:25 by jwe]
author jwe
date Tue, 22 Jan 2008 21:52:26 +0000
parents a1dbe9d80eee
children 81d6ab3ac93c
comparison
equal deleted inserted replaced
7410:8a3b2ccc4e11 7411:83a8781b529d
92 else 92 else
93 error ("median: invalid matrix argument"); 93 error ("median: invalid matrix argument");
94 endif 94 endif
95 95
96 endfunction 96 endfunction
97
98 %!test
99 %! x = [1, 2, 3, 4, 5, 6];
100 %! x2 = x';
101 %! y = [1, 2, 3, 4, 5, 6, 7];
102 %! y2 = y';
103 %!
104 %! assert((median (x) == median (x2) && median (x) == 3.5
105 %! && median (y) == median (y2) && median (y) == 4
106 %! && median ([x2, 2*x2]) == [3.5, 7]
107 %! && median ([y2, 3*y2]) == [4, 12]));
108
109 %!error median ();
110
111 %!error median (1, 2, 3);
112