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

added all that other stuff

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/_misc/general/.svn/text-base/qnormalise.m.svn-base	Fri Apr 11 15:54:25 2014 +0100
@@ -0,0 +1,17 @@
+function [outmat, scale] = qnormalise(inmat, varargin)
+% qnormalise(inmat, q, dim) returns the field inmat normalised by the q
+% norm over dimension dim
+dim = 1;
+if nargin > 1
+    q = varargin{1};
+    if nargin > 2
+        dim = varargin{2};
+    end
+else
+    q = 2;
+end
+sizeInmat = size(inmat);
+nDim = length(sizeInmat);
+repeatpattern = [ones(1,dim-1) sizeInmat(dim) ones(1,nDim-dim)];
+scale = qnorm(inmat, q, dim);
+outmat = inmat ./ repmat(scale, repeatpattern);