function  nt= plot8c(t,c,i)
% plot8c(t,c,i)  :: plot 8 subplots, begins from the component i.

close;

tn=length(t);
for j=i:i+7
   subplot(8,1,j+1-i),plot(t,c(:,j),'linew',.1);
   axis([t(1) t(tn) 0 150]);	
   s1='c';
   s2=[s1 num2str(j)];
   ylabel(s2);
end
nt=1;