clear
%
[fi,txterr]=fopen('datos2.txt','r');
%
[n]=fscanf(fi,'%5d',2);
nx=n(1);
nf=n(2);
%
fscanf(fi,'%s',0);
%
for j=1:nx+1
  [x(j)]=fscanf(fi,'%f',1);
end
%
fscanf(fi,'%s',0);
%
for i=1:nf
  for j=1:nx+1
    [CX(j,i)]=fscanf(fi,'%f',1);
  end
  fscanf(fi,'%s',0);
end
%
st=fclose(fi);
%
plot(x,CX);
axis([0,x(nx+1),0,nf+1]);
title('Dibujo de funciones seno(x)');
xlabel('Posicion x');
ylabel('Amplitud');


