function  nt= plotn(n,t,c,i,nam)
% plotn(n,t,c,i,nam)  :: plot n subplots, begins from the component i
% ylabel is nam

close;

tn=length(t);
t1=min(t(1),t(tn));
t2=max(t(1),t(tn));
for j=i:i+n-1
   subplot(n,1,j+1-i),plot(t,c(:,j));
   axis([t1 t2 min(c(:,j)) max(c(:,j))]);	
   s2=[nam num2str(j)];
   ylabel(s2);
   if(j<i+n-1)
      set(gca,'xticklabel','');
   end
end
nt=1;