Mercurial > octave-nkf

comparison scripts/statistics/base/var.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents f158e093e32a
children 693e22af08ae
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
64 if (ndims (x) == 2 && sz(1) == 0 && sz(2) == 0) 64 if (ndims (x) == 2 && sz(1) == 0 && sz(2) == 0)
65 retval = NaN; 65 retval = NaN;
66 else 66 else
67 sz(dim) = 1; 67 sz(dim) = 1;
68 if (n == 0) 68 if (n == 0)
69 if (prod (sz) == 0) 69 if (prod (sz) == 0)
70 retval = zeros (sz); 70 retval = zeros (sz);
71 else 71 else
72 retval = NaN (sz); 72 retval = NaN (sz);
73 endif 73 endif
74 else 74 else
75 retval = zeros (sz); 75 retval = zeros (sz);
76 endif 76 endif
77 endif 77 endif
78 elseif (n == 1) 78 elseif (n == 1)
79 retval = zeros (sz); 79 retval = zeros (sz);
80 else 80 else