Mercurial > hg > mauch-mirex-2010

diff _misc/general/.svn/text-base/qnorm.m.svn-base @ 8:b5b38998ef3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added all that other stuff
author matthiasm
date Fri, 11 Apr 2014 15:54:25 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/_misc/general/.svn/text-base/qnorm.m.svn-base	Fri Apr 11 15:54:25 2014 +0100
@@ -0,0 +1,15 @@
+function s = qnorm(inmat, varargin)
+dim = 1;
+if nargin > 1
+    q = varargin{1};
+    if nargin > 2
+        dim = varargin{2};
+    end
+else
+    q = 2;
+end
+if ~(q == Inf)
+    s = sum(inmat.^q,dim).^(1/q);
+else
+    s = max(inmat,[],dim);
+end
\ No newline at end of file