eval(['load ',filen,'.plt'])
eval(['a=',filen,';'])
[m,n]=size(a);
if n==2;
  x1=a(:,1);
  x2=a(:,2);
  plot(x1,x2),grid
end;
if n==3;
  x1=a(:,1);
  x2=a(:,2);
  x3=a(:,3);
  plot(x1,x2,x1,x3),grid
end;
if n==4;
  x1=a(:,1);
  x2=a(:,2);
  x3=a(:,3);
  x4=a(:,4);
  plot(x1,x2,x1,x3,x1,x4),grid
end;
if n==5;
  x1=a(:,1);
  x2=a(:,2);
  x3=a(:,3);
  x4=a(:,4);
  x5=a(:,5);
  plot(x1,x2,x1,x3,x1,x4,x1,x5),grid
end;
if n==6;
  x1=a(:,1);
  x2=a(:,2);
  x3=a(:,3);
  x4=a(:,4);
  x5=a(:,5);
  x6=a(:,6);
  plot(x1,x2,x1,x3,x1,x4,x1,x5,x1,x6),grid
end;
