function Pcas=lee_resumen(f1)
Pcas=[];
[horas, y]=fscanf(f1,'%c',[1 100]);
for n=1:24
[Precio, y]=fscanf(f1,'%f',[1 1]);
[ptoycoma, y]=fscanf(f1,'%c',[1 1]);
Pcas=[Pcas;Precio];
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
