function Load = CleanLoadList(Load,i,p) % Load = CleanLoadList(Load,i,p) % % CleanLoadList % % Load = loads list; % i = selection vector of loads to be deleted; % p = {'0' do not print, '1' print}; % % Walter Ponge-Ferreira % Cotia, 17.06.2018 [r,s] = size(Load); if nargin<3, p = 0; end if nargin<2, i = 1:r; end if p == 1, fprintf('No. \t Node \t Dir \t Value \t Type \n'); for j = 1:length(i), fprintf('%d \t %d \t %d \t %g \t %d \n',i(j),Load(i(j),1),Load(i(j),2),Load(i(j),3),Load(i(j),4)); end fprintf('\n'); end ind = 1:r; for j = 1:length(i), ind = ind(find(ind!=i(j))); end Load = Load(ind,:); endfunction