3 %
function deleting zero-columns from matrix
'X'.
5 % Detection by `norm^2<\varepsilon`. Optionally, the inner-product-matrix
'A' can be
6 % additionally passed
for correct computation of the inner product.
9 % X: matrix whose zero columns shall be eliminated
10 % epsilon: tolerance value `\varepsilon`
11 % A: optional inner product matrix used
for norm computation (Default: `1`)
14 % Xdel: matrix whose zero columns are deleted
16 % Bernard Haasdonk 20.7.2006
22 if nargin<2 || isempty(epsilon)
26 i = find(sum(X.*(A*X))>epsilon);
30 Xdel=zeros(size(X,1),0);
function Xdel = delzerocolumns(X, epsilon, A)
function deleting zero-columns from matrix X.