eval(['load ',filen,'.plt'])
eval(['a=',filen,';'])
tem=a(1,2);
nfound = 1;
n = 1;
while nfound;
  n=n+1;
  if tem~=a(n,2); nfound=0; end;
end;
n = n-1;
[row,col]=size(a);
m = row/n;
c = zeros(n,m);
x = c;
x(:) = a(:,1);
c(:) = a(:,3);
str='plot(';
for i=1:m;
  j  = int2str(i);
  str=[str,'x(:,',j,'),c(:,',j,'),'];
end;
str=[str(1:length(str)-1),'),grid']; 
eval(str),pause

k = zeros(n,m);
k(:) = a(:,4);
str='plot(';
for i=1:m;
  j  = int2str(i);
  str=[str,'x(:,',j,'),k(:,',j,'),'];
end;
str=[str(1:length(str)-1),'),grid']; 
eval(str),pause

return

t = zeros(n,m);
t(:) = a(:,5);
str='plot(';
for i=1:m;
  j  = int2str(i);
  str=[str,'x(:,',j,'),t(:,',j,'),'];
end;
str=[str(1:length(str)-1),'),grid']; 
eval(str),pause

