view support/normcol.m @ 13:4b356e8b673f

Added contents file
author danieleb@code.soundsoftware.ac.uk
date Tue, 21 Jun 2011 14:33:02 +0100
parents e2a029a70df3
children 2e42f5fb764d
line wrap: on
line source
function [x n] = normcol(x)
%NORMCOL normalise the columns to unit length
%
% [x n] = normcol(x)
%
% normalises the columns of the input matrix x and returns a vector n
% containing the initial norm of the columns.
%
% ----------------------------------------------------------- %
%  Daniele Barchiesi, daniele.barchiesi@eecs.qmul.ac.uk       %
%  Centre for Digital Music, Queen Mary University of London  %
%  Apr. 2011                                                  %
% ----------------------------------------------------------- %
n = sqrt(sum(conj(x).*x,1));
x = x*diag(1./n);