SetDirectory["Z:\V2008-01-10"]

Pod = ReadList["kontrola1.txt"];

FT[x_] = Fit[Pod, {1, x, (x^2), (x^3)}, x]

RPd = Table[Pod[[i]] - FT[i], {i, Length[Pod]}];

ListPlot[RPd]

Per = 1.63843 (10^6) 24.41 (10^(-12))

1/Per

Troll = (2^21) 10
Tper=16384338

Simplify[Troll/Tper]

Skok = 
        ReadList["kontrola_preskoka.txt"];
Skok1 = ReadList["kontrola_preskoka1.txt"];

ListPlot[Skok/10^10, 
      PlotRange -> {{120, 145}, {2.785, 
            2.79}}]
Sl1 = ListPlot[Skok1, PlotRange -> {{120, 145}, All}]

Sl2 = Plot[(2^21), {x, 120, 145}, PlotStyle -> Hue[0]]

Apr[[150]]

ListPlot[Table[Apr[[i]], {i, 120, 145}]]

Table[Apr[[i]], {i, 120, 145}]

ListPlot[{196070971, 197709404, 199347840, 200986275, 202624711, 
          204263149, 205901580, 207540022, 209636905, 212914037, 214552468, 
          216190903, 217829338, 219467773, 221106206, 222744642, 224383078, 
          226021510, 227659947}/(10^10), 
      PlotRange -> {{0, 26}, All}]

{196070971, 197709404, 199347840, 200986275, 202624711, 204263149, 
      205901580, 207540022, 212914037, 214552468, 216190903, 217829338, 
      219467773, 221106206, 222744642, 224383078, 226021510, 
      227659947}

ListPlot[Skok/10^10, 
      PlotRange -> {{120, 145}, {2.785, 
            2.79}}]
Show[Sl1, Sl2]

Razlike = 
        Table[Skok[[i + 1]] - Skok[[i]], {i, 
            Length[Skok] - 1}];

SDif = 
      ListPlot[Razlike, PlotRange -> {{120, 145}, All}, 
        PlotStyle -> PointSize[0.02]]

Show[SDif, Sl2]

Apr = Table[0, {i, 500}];

DT = 0;
Do[Δ = If[Skok1[[i + 1]] < Skok1[[i]], (2^21), 0]; 
      DT = DT + Δ; 
      Apr[[i + 1]] = Skok1[[i + 1]] + DT, {i, 
        Length[Skok1] - 1}]

Skoki = 
        ReadList["kontrola_preskoka3.txt", {Number, 
            Number}];

Skoki

Pikica[x_, y_, barva_] := 
      Graphics[{Hue[barva], Circle[{x, y}, 0.01]}]

Show[
      Table[Pikica[
          i, Skoki[[i]][[2]]/(10^6), Skoki[[i]][[1]]/
            4], {i, 50}]]

Show[Pikica[0, 0, 0.3]]

Sl1 = 
      ListPlot[Sig1, PlotStyle -> {Hue[0], PointSize[0.02]}]

Sig2 = 
        Table[Mod[2.4887676  i, 1.537], {i, 
            40}];
Sig1 = Table[Mod[i, 1.537], {i, 40}];

Sl2 = 
      ListPlot[Sig2, 
        PlotStyle -> {Hue[ .7], PointSize[0.02]}]

Show[Sl1, Sl2]

AllSig = Join[Sig1, Sig2]

ListPlot[AllSig]

TT1 = {0}
TT2 = {0}

i1 = 0
i2 = 0
P1 = 1.29988
P2 = 0.2390
t1 = 0
t2 = 0
Do[]