function mato=mvt(mati,vector)% Matrix vector multiplication (scaling of matrix columns)% Written by: E. R.: June 9, 2004% Last updated: %%         mato=mvt(mati,vector)% INPUT% mati    input matrix% vector  input vector (number of entries must equal the number of %         columns of "mati")% OUTPUT% mato    scaled input matrix%nvector=length(vector);[n,m]=size(mati);if m ~= length(vector)   error('Matrix and vector are incompatible')endmato=zeros(n,m);for ii=1:m   mato(:,ii)=mati(:,ii)*vector(ii);end