SetDirectory["Z:\V2008-03-02"]

data = ReadList["Crab2008-03-02-00.dat"];

f[x_] = Fit[data, {1, x, (x^2), (x^3)}, x]

f[1000000000]

raz = Table[data[[i]] - f[i], {i, 1, Length[data]}];

ListPlot[Round[data]]

Length[data]

perioda = 0.030;
zaga = 
        Table[data[[i]] - Floor[data[[i]]/perioda]*perioda, {i, 1, 
            Length[data]}];

msdata = 
        Table[IntegerPart[data[[i]]*1000], {i, 1, 
            Length[data]}];

porazde = Table[0, {i, 1, 100000}];
For[i = 1, 
        i < Length[
            data], i++; porazde[[1 + 
                Floor[data[[i]]*1000 ]]]++];

st

ListPlot[porazde]

inter = 
        Table[data[[i]]/0.001 - Floor[data[[i]]], {i, 1, 
            10000}];

ListPlot[inter]

poraz = Table[0, {i, 1, 1000}];

Table[]