
% remove values corresponding to index q

% first identify all variables with length=length(t)
vars=whos;

lengtht=length(t);
for truncateind=1:size(vars,1);
  if (vars(truncateind).size(1)==lengtht & ...
          vars(truncateind).name~='q')
    eval([vars(truncateind).name,'(q)=[];']);
  end;
end;

clear vars lengtht truncateind q ans;

