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
        