Mercurial > forge

changeset 12520:5e2e99930b8c octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mean: support DIM larger than data size
author schloegl
date Fri, 12 Sep 2014 17:46:13 +0000
parents ca003c383f0b
children 789f7651389a
files extra/NaN/inst/mean.m
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/extra/NaN/inst/mean.m	Sun Sep 07 15:21:58 2014 +0000
+++ b/extra/NaN/inst/mean.m	Fri Sep 12 17:46:13 2014 +0000
@@ -66,6 +66,9 @@
 		%------ case:  mean(x,opt)
                 opt=DIM;
                 DIM=[]; 
+        elseif (DIM>length(size(x)))
+		y=x; 
+		return; 	
         else
 		%------ case:  mean(x,DIM)
                 opt='a';
@@ -82,6 +85,9 @@
                 opt=DIM;
                 DIM=tmp;
                 W = []; 
+        elseif (DIM>length(size(x)))
+		y=x; 
+		return; 	
         else 
         	%------ case:  mean(x,DIM,opt)
         	W = [];