clear
%
[fi,txterr]=fopen('datos3.txt','r');
%
[n]=fscanf(fi,'%5d',2);
nr=n(1);
nt=n(2);
%
fscanf(fi,'%s',0);
%
for j=1:nt+1
  [a]=fscanf(fi,'%f',nr+1);
  AX(j,:)=a';
end
%
fscanf(fi,'%s',0);
%
for j=1:nt+1
  [a]=fscanf(fi,'%f',nr+1);
  BX(j,:)=a';
end
%
fscanf(fi,'%s',0);
%
for j=1:nt+1
  [a]=fscanf(fi,'%f',nr+1);
  CX(j,:)=a';
end
%
st=fclose(fi);
%
surf(AX,BX,CX);
title('Dibujo de helice');

