Matlab - lectura de datos y guardar en variables

clear all

tilde=char(39);

nombre='Inp_Prodisc_Ext_20_Archivo_de_casos_p1_c'

j=1;

eval(['fid=fopen(' tilde ,nombre,num2str(j),'.INP' tilde ',' tilde 'r' tilde ')' ]);

for i=1:2

    line=fgetl(fid)

end

vectorlogico=line=='_';

posicion=find(vectorlogico==1)

i1=posicion(2)

i2=posicion(3)

[n,m]=size(line); % size detecta el tamaño de la celda line

for j=1:m % for desde desde 1 hasta m

    solicitacion=[line(i1+1:i2-1)];

   grados=[line(i2+1:i2+2)];

end

for i=1:5

    line=fgetl(fid)

end

[n,m]=size(line); % size detecta el tamaño de la celda line

vectorlogico=line=='=';

i1=find(vectorlogico==1);

vectorlogico=line=='#';

i2=find(vectorlogico==1);

Kx=[line(i1+2:i2-2)];

line=fgetl(fid)

[n,m]=size(line); % size detecta el tamaño de la celda line

vectorlogico=line=='=';

i1=find(vectorlogico==1);

vectorlogico=line=='#';

i2=find(vectorlogico==1);

Ky=[line(i1+2:i2-2)];

line=fgetl(fid)

[n,m]=size(line); % size detecta el tamaño de la celda line

vectorlogico=line=='=';

i1=find(vectorlogico==1);

vectorlogico=line=='#';

i2=find(vectorlogico==1);

Kz=[line(i1+2:i2-2)];

% nombre=[solicitacion grados Kx Ky Kz]

fclose(fid);