

function [out] = striplin(in,lines) 

% function [out] = striplin(in,lines) 
% 
% striplin.m is a function that takes as its input a matrix and a 
% vector consisting of row numbers, and returns as output a "stripped"
% matrix, which is simply the input matrix less the rows indicated
% in the input vector.
%
% Written by Ari W. Epstein, November, 1992.


lines=sort(lines);
[j,k]=size(in);
n=length(lines);
want=[1:lines(1)-1];
for i=1:n-1
  want=[want,lines(i)+1:lines(i+1)-1];
 end
want=[want,lines(n)+1:j];

out=in(want,:);

