(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     38395,        790]
NotebookOptionsPosition[     37836,        768]
NotebookOutlinePosition[     38181,        783]
CellTagsIndexPosition[     38138,        780]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Vernier: Zpracov\[AAcute]n\[IAcute] dat ze senzoru GPS\
\>", "Title",
 CellChangeTimes->{{3.409063469921875*^9, 3.409063485625*^9}, {
  3.4157295121724176`*^9, 3.4157295270630426`*^9}, {3.415882137220565*^9, 
  3.415882139408065*^9}, {3.416418036875*^9, 3.416418044109375*^9}, {
  3.4164789362482786`*^9, 3.4164789440295286`*^9}, {3.418906693520979*^9, 
  3.418906718802229*^9}, {3.420713056385069*^9, 3.420713075697569*^9}, {
  3.471106922*^9, 3.471106926734375*^9}, {3.471348582109375*^9, 
  3.4713485855*^9}, {3.5073079739375*^9, 3.507307982078125*^9}, {
  3.512642554078125*^9, 3.51264256253125*^9}, {3.512642596078125*^9, 
  3.512642599984375*^9}}],

Cell[TextData[{
 "Tento notebook umo\[ZHacek]\[NHacek]uje na\[CHacek]ten\[IAcute] souboru ve \
form\[AAcute]tu *.xls, ve kter\[EAcute]m jsou ulo\[ZHacek]ena data nam\
\[EHacek]\[RHacek]en\[AAcute] senzorem GPS firmy Vernier. Z\[AAcute]znam ze \
senzoru je zpracov\[AAcute]n tak, \[ZHacek]e je mo\[ZHacek]n\[EAcute] \
zobrazit:\n\tpr\[URing]b\[EHacek]h sn\[IAcute]man\[EAcute] trasy \
(z\[AAcute]vislost zem\[EHacek]pisn\[EAcute] \[SHacek]\[IAcute]\[RHacek]ky na \
zem\[EHacek]pisn\[EAcute] d\[EAcute]lce);\n\tz\[AAcute]vislost ura\[ZHacek]en\
\[EAcute] dr\[AAcute]hy na \[CHacek]ase;\n\tz\[AAcute]vislost velikosti pr\
\[URing]m\[EHacek]rn\[EAcute] rychlosti na \[CHacek]ase;\n\tz\[AAcute]vislost \
ura\[ZHacek]en\[EAcute] dr\[AAcute]hy na \[CHacek]ase spolu s pohybem pr\
\[URing]m\[EHacek]rnou rychlost\[IAcute].\nNotebok je rozd\[EHacek]len do \
dvou bun\[EHacek]k. V prvn\[IAcute] se pouze vybere z \
adres\[AAcute]\[RHacek]ov\[EAcute] struktury soubor ve form\[AAcute]tu *.xls, \
kter\[YAcute] m\[AAcute] b\[YAcute]t zpracov\[AAcute]n, ve druh\[EAcute] pak \
prob\[IAcute]h\[AAcute] vlastn\[IAcute] v\[YAcute]po\[CHacek]et a zobrazov\
\[AAcute]n\[IAcute] popsan\[YAcute]ch graf\[URing].\n",
 StyleBox["Pozor!",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 " P\[RHacek]ed sv\[YAcute]m spu\[SHacek]t\[EHacek]n\[IAcute]m mus\[IAcute] b\
\[YAcute]t tento notebook ulo\[ZHacek]en na pevn\[EAcute]m disku po\[CHacek]\
\[IAcute]ta\[CHacek]e!\n\n",
 StyleBox["\[Copyright] Jaroslav Reichl, 2011",
  FontSize->11]
}], "Text",
 CellChangeTimes->{{3.40907696590625*^9, 3.409077108171875*^9}, {
   3.409145551578125*^9, 3.409145631390625*^9}, {3.409145667296875*^9, 
   3.40914567334375*^9}, {3.409147204421875*^9, 3.409147399171875*^9}, 
   3.409147598234375*^9, {3.409221071546875*^9, 3.409221072453125*^9}, {
   3.409409197265625*^9, 3.409409294328125*^9}, {3.409409625859375*^9, 
   3.409409666515625*^9}, {3.409409711515625*^9, 3.409409722359375*^9}, {
   3.4094137924375*^9, 3.40941380440625*^9}, 3.40949534953125*^9, 
   3.409504773171875*^9, {3.41563912934375*^9, 3.4156391795625*^9}, {
   3.41588214879869*^9, 3.415882337564315*^9}, {3.4164789539826536`*^9, 
   3.4164789697014036`*^9}, {3.4164790042795286`*^9, 
   3.4164790054514036`*^9}, {3.4164820108420286`*^9, 
   3.4164820302951536`*^9}, {3.418906745599104*^9, 3.418906939052229*^9}, {
   3.418906989786604*^9, 3.418907049770979*^9}, {3.420713101697569*^9, 
   3.420713175447569*^9}, {3.420713248260069*^9, 3.420713328760069*^9}, {
   3.471106931765625*^9, 3.471107252828125*^9}, {3.471348591234375*^9, 
   3.47134883978125*^9}, {3.50730798959375*^9, 3.507308250953125*^9}, {
   3.51236405390625*^9, 3.51236406971875*^9}, {3.51236411221875*^9, 
   3.512364281015625*^9}, {3.51237421221875*^9, 3.512374213640625*^9}, {
   3.51264257265625*^9, 3.512642788453125*^9}, {3.512642824515625*^9, 
   3.512642851640625*^9}, {3.5225981994375*^9, 3.522598216046875*^9}},
 FontFamily->"Times New Roman",
 FontSize->14],

Cell[TextData[StyleBox["V\[YAcute]b\[EHacek]r souboru, z \
n\[EHacek]ho\[ZHacek] se maj\[IAcute] data na\[CHacek]\[IAcute]st",
 FontFamily->"Times New Roman",
 FontSize->28,
 FontWeight->"Bold",
 FontColor->RGBColor[1., 0., 0.]]], "Text",
 CellChangeTimes->{{3.51236370096875*^9, 3.512363740421875*^9}}],

Cell["\<\
Po spu\[SHacek]t\[EHacek]n\[IAcute] bu\[NHacek]ky u\[ZHacek]ivatel bude vyzv\
\[AAcute]n k v\[YAcute]b\[EHacek]ru souboru, v n\[EHacek]m\[ZHacek] jsou ulo\
\[ZHacek]ena data pro dal\[SHacek]\[IAcute] zpracov\[AAcute]n\[IAcute].\
\>", "Text",
 CellChangeTimes->{{3.40907696590625*^9, 3.409077108171875*^9}, {
   3.409145551578125*^9, 3.409145631390625*^9}, {3.409145667296875*^9, 
   3.40914567334375*^9}, {3.409147204421875*^9, 3.409147399171875*^9}, 
   3.409147598234375*^9, {3.409221071546875*^9, 3.409221072453125*^9}, {
   3.409409197265625*^9, 3.409409294328125*^9}, {3.409409625859375*^9, 
   3.409409666515625*^9}, {3.409409711515625*^9, 3.409409722359375*^9}, {
   3.4094137924375*^9, 3.40941380440625*^9}, 3.40949534953125*^9, 
   3.409504773171875*^9, {3.41563912934375*^9, 3.4156391795625*^9}, {
   3.41588214879869*^9, 3.415882337564315*^9}, {3.4164789539826536`*^9, 
   3.4164789697014036`*^9}, {3.4164790042795286`*^9, 
   3.4164790054514036`*^9}, {3.4164820108420286`*^9, 
   3.4164820302951536`*^9}, {3.418906745599104*^9, 3.418906939052229*^9}, {
   3.418906989786604*^9, 3.418907049770979*^9}, {3.420713101697569*^9, 
   3.420713175447569*^9}, {3.420713248260069*^9, 3.420713328760069*^9}, {
   3.471106931765625*^9, 3.471107252828125*^9}, {3.471348591234375*^9, 
   3.47134883978125*^9}, {3.50730798959375*^9, 3.507308250953125*^9}, {
   3.51236405390625*^9, 3.51236406971875*^9}, {3.51236411221875*^9, 
   3.512364281015625*^9}, {3.512364325265625*^9, 3.512364364859375*^9}, {
   3.5123742434375*^9, 3.5123742491875*^9}},
 FontFamily->"Times New Roman",
 FontSize->14],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesta", "=", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<.xls\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"soubor", "=", 
   RowBox[{"ToString", "[", 
    RowBox[{"SystemDialogInput", "[", 
     RowBox[{"\"\<FileOpen\>\"", ",", "cesta", ",", 
      RowBox[{"WindowTitle", "\[Rule]", "\"\<Vyberte soubor ...\>\""}]}], 
     "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.512363691875*^9, 3.512363693125*^9}}],

Cell[TextData[StyleBox["Zpracov\[AAcute]n\[IAcute] dat ze souboru",
 FontFamily->"Times New Roman",
 FontSize->28,
 FontWeight->"Bold",
 FontColor->RGBColor[1., 0., 0.]]], "Text",
 CellChangeTimes->{{3.51236370096875*^9, 3.512363740421875*^9}, {
  3.51236383859375*^9, 3.512363849421875*^9}}],

Cell[TextData[{
 "V n\[AAcute]sleduj\[IAcute]c\[IAcute] bu\[NHacek]ce notebooku \
prob\[IAcute]h\[AAcute] vlastn\[IAcute] na\[CHacek]ten\[IAcute] dat a zpracov\
\[AAcute]n\[IAcute] na\[CHacek]ten\[YAcute]ch dat. Data i v\[YAcute]sledky \
zpracov\[AAcute]n\[IAcute] jsou zobrazeny v grafech.\n",
 StyleBox["Pozor!",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 " P\[RHacek]ed spu\[SHacek]t\[EHacek]n\[IAcute]m n\[AAcute]sleduj\[IAcute]c\
\[IAcute] bu\[NHacek]ky je nutn\[EAcute] na\[CHacek]\[IAcute]st soubor s nam\
\[EHacek]\[RHacek]en\[YAcute]mi daty - tj. je nutn\[EAcute] spustit prvn\
\[IAcute] v\[YAcute]po\[CHacek]etn\[IAcute] bu\[NHacek]ku toho notebooku."
}], "Text",
 CellChangeTimes->{{3.40907696590625*^9, 3.409077108171875*^9}, {
   3.409145551578125*^9, 3.409145631390625*^9}, {3.409145667296875*^9, 
   3.40914567334375*^9}, {3.409147204421875*^9, 3.409147399171875*^9}, 
   3.409147598234375*^9, {3.409221071546875*^9, 3.409221072453125*^9}, {
   3.409409197265625*^9, 3.409409294328125*^9}, {3.409409625859375*^9, 
   3.409409666515625*^9}, {3.409409711515625*^9, 3.409409722359375*^9}, {
   3.4094137924375*^9, 3.40941380440625*^9}, 3.40949534953125*^9, 
   3.409504773171875*^9, {3.41563912934375*^9, 3.4156391795625*^9}, {
   3.41588214879869*^9, 3.415882337564315*^9}, {3.4164789539826536`*^9, 
   3.4164789697014036`*^9}, {3.4164790042795286`*^9, 
   3.4164790054514036`*^9}, {3.4164820108420286`*^9, 
   3.4164820302951536`*^9}, {3.418906745599104*^9, 3.418906939052229*^9}, {
   3.418906989786604*^9, 3.418907049770979*^9}, {3.420713101697569*^9, 
   3.420713175447569*^9}, {3.420713248260069*^9, 3.420713328760069*^9}, {
   3.471106931765625*^9, 3.471107252828125*^9}, {3.471348591234375*^9, 
   3.47134883978125*^9}, {3.50730798959375*^9, 3.507308250953125*^9}, {
   3.51236405390625*^9, 3.51236406971875*^9}, {3.51236411221875*^9, 
   3.512364281015625*^9}, {3.512364325265625*^9, 3.512364505421875*^9}, {
   3.5123742599375*^9, 3.5123742641875*^9}},
 FontFamily->"Times New Roman",
 FontSize->14],

Cell[BoxData[{
 RowBox[{
  RowBox[{"prvniradeksdaty", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"velikostgrafu", "=", "750"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tloustka", "=", "0.005"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"velikostbodu", "=", "0.005"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"velikostpisma", "=", "12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RZeme", "=", "6372.8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barva", "=", "Black"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvadat", "=", "Red"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvadraha", "=", "Blue"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvavprumerna", "=", "Magenta"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"barvapismatitulku", "=", "Black"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"barvapozadi", "=", 
    RowBox[{"Lighter", "[", 
     RowBox[{"Yellow", ",", "0.95"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"soubor", "\[Equal]", "\"\<$Canceled\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<Soubor nelze importovat!\>\"", "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"data", "=", 
       RowBox[{"Import", "[", "soubor", "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"cislolistu", "=", "1"}], ",", "\[IndentingNewLine]", 
      RowBox[{"pocetdat", "=", 
       RowBox[{"Length", "[", 
        RowBox[{
        "data", "\[LeftDoubleBracket]", "cislolistu", 
         "\[RightDoubleBracket]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"draha", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"Null", ",", 
         RowBox[{"{", "pocetdat", "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
       "draha", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=", 
       "0"}], ",", "\[IndentingNewLine]", 
      RowBox[{"vprumerna", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"Null", ",", 
         RowBox[{"{", "pocetdat", "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"cas", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{"data", "\[LeftDoubleBracket]", 
           RowBox[{"cislolistu", ",", "i", ",", "1"}], 
           "\[RightDoubleBracket]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "prvniradeksdaty", ",", "pocetdat"}], "}"}]}], 
        "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"zemsirka", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{"data", "\[LeftDoubleBracket]", 
           RowBox[{"cislolistu", ",", "i", ",", "2"}], 
           "\[RightDoubleBracket]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "prvniradeksdaty", ",", "pocetdat"}], "}"}]}], 
        "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"zemdelka", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{"data", "\[LeftDoubleBracket]", 
           RowBox[{"cislolistu", ",", "i", ",", "3"}], 
           "\[RightDoubleBracket]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "prvniradeksdaty", ",", "pocetdat"}], "}"}]}], 
        "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"dataprograf", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "zemdelka", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
            ",", 
           RowBox[{
           "zemsirka", "\[LeftDoubleBracket]", "i", 
            "\[RightDoubleBracket]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "prvniradeksdaty", ",", 
           RowBox[{"pocetdat", "-", "prvniradeksdaty", "+", "1"}]}], "}"}]}], 
        "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"perioda", "=", 
       RowBox[{
        RowBox[{"cas", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
         "-", 
        RowBox[{
        "cas", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], 
      " ", ",", 
      RowBox[{"(*", 
       RowBox[{"Perioda", " ", "z\[AAcute]znamu", " ", 
        RowBox[{"dat", "."}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"graf1", "=", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"dataprograf", ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"PointSize", "[", "velikostbodu", "]"}], ",", "barvadat", 
            ",", 
            RowBox[{"Thickness", "[", "tloustka", "]"}]}], "}"}]}], ",", 
         RowBox[{"Joined", "\[Rule]", "True"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*FractionBox[
StyleBox[
RowBox[{\"zem\[EHacek]pisn\[AAcute]\", \" \", \"d\[EAcute]lka\"}],
FontSlant->\"Italic\"], \"\[Degree]\"]\)\>\"", ",", "velikostpisma", ",", 
              "barva", ",", 
              RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*FractionBox[
StyleBox[
RowBox[{\"zem\[EHacek]pisn\[AAcute]\", \" \", \"\[SHacek]\[IAcute]\[RHacek]ka\
\"}],
FontSlant->\"Italic\"], \"\[Degree]\"]\)\>\"", ",", "velikostpisma", ",", 
              "barva", ",", 
              RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}]}], "}"}]}], 
         ",", 
         RowBox[{"TicksStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"barva", ",", "velikostpisma"}], "]"}]}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{
            "Framed", "[", 
             "\"\<Z\[AAcute]vislost zem\[EHacek]pisn\[EAcute] \[SHacek]\
\[IAcute]\[RHacek]ky na zem\[EHacek]pisn\[EAcute] d\[EAcute]lce\>\"", "]"}], 
            ",", "velikostpisma", ",", "barvapismatitulku", ",", 
            RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", 
            RowBox[{"Background", "\[Rule]", "barvapozadi"}]}], "]"}]}], ",", 
         RowBox[{"FormatType", "\[Rule]", "StandardForm"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "velikostgrafu"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
         "draha", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "=", 
         RowBox[{
          RowBox[{"draha", "\[LeftDoubleBracket]", 
           RowBox[{"i", "-", "1"}], "\[RightDoubleBracket]"}], "+", " ", 
          RowBox[{"RZeme", 
           RowBox[{"\[Sqrt]", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{
                    "zemsirka", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}], " ", "Degree"}], "]"}], 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{
                    "zemdelka", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}], "Degree"}], "]"}]}], "-", 
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"zemsirka", "\[LeftDoubleBracket]", 
                    RowBox[{"i", "-", "1"}], "\[RightDoubleBracket]"}], 
                    "Degree"}], "]"}], 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"zemdelka", "\[LeftDoubleBracket]", 
                    RowBox[{"i", "-", "1"}], "\[RightDoubleBracket]"}], 
                    "Degree"}], "]"}]}]}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{
                    "zemsirka", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}], "Degree"}], "]"}], 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{
                    "zemdelka", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}], "Degree"}], "]"}]}], "-", 
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"zemsirka", "\[LeftDoubleBracket]", 
                    RowBox[{"i", "-", "1"}], "\[RightDoubleBracket]"}], 
                    "Degree"}], "]"}], 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"zemdelka", "\[LeftDoubleBracket]", 
                    RowBox[{"i", "-", "1"}], "\[RightDoubleBracket]"}], 
                    "Degree"}], "]"}]}]}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{
                   "zemsirka", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}], "Degree"}], "]"}], "-", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"zemsirka", "\[LeftDoubleBracket]", 
                    RowBox[{"i", "-", "1"}], "\[RightDoubleBracket]"}], 
                   "Degree"}], "]"}]}], ")"}], "2"]}], ")"}]}]}]}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"i", ",", "2", ",", 
          RowBox[{"pocetdat", "-", "prvniradeksdaty", "+", "1"}], ",", "1"}], 
         "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"drahanacase", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "cas", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
           RowBox[{
           "draha", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"pocetdat", "-", "prvniradeksdaty", "+", "1"}]}], "}"}]}], 
        "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"graf2", "=", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"drahanacase", ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"PointSize", "[", "velikostbodu", "]"}], ",", 
            "barvadraha", ",", 
            RowBox[{"Thickness", "[", "tloustka", "]"}]}], "}"}]}], ",", 
         RowBox[{"Joined", "\[Rule]", "True"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*FractionBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"h\"]\)\>\"", ",", "velikostpisma", ",", "barva", 
              ",", 
              RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*FractionBox[
StyleBox[\"s\",
FontSlant->\"Italic\"], \"km\"]\)\>\"", ",", "velikostpisma", ",", "barva", 
              ",", 
              RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}]}], "}"}]}], 
         ",", 
         RowBox[{"TicksStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"barva", ",", "velikostpisma"}], "]"}]}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{
            "Framed", "[", 
             "\"\<Z\[AAcute]vislost ura\[ZHacek]en\[EAcute] dr\[AAcute]hy na \
\[CHacek]ase\>\"", "]"}], ",", "velikostpisma", ",", "barvapismatitulku", ",", 
            RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", 
            RowBox[{"Background", "\[Rule]", "barvapozadi"}]}], "]"}]}], ",", 
         RowBox[{"FormatType", "\[Rule]", "StandardForm"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "velikostgrafu"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"vprumerna", "\[LeftDoubleBracket]", 
          RowBox[{"i", "-", "prvniradeksdaty", "+", "1"}], 
          "\[RightDoubleBracket]"}], "=", 
         FractionBox[
          RowBox[{"draha", "\[LeftDoubleBracket]", 
           RowBox[{"i", "-", "prvniradeksdaty", "+", "1"}], 
           "\[RightDoubleBracket]"}], 
          RowBox[{"i", " ", "perioda"}]]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "prvniradeksdaty", ",", "pocetdat", ",", "1"}], 
         "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"prumernarychlostnacase", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"cas", "\[LeftDoubleBracket]", 
            RowBox[{"i", "-", "prvniradeksdaty", "+", "1"}], 
            "\[RightDoubleBracket]"}], ",", 
           RowBox[{"vprumerna", "\[LeftDoubleBracket]", 
            RowBox[{"i", "-", "prvniradeksdaty", "+", "1"}], 
            "\[RightDoubleBracket]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "prvniradeksdaty", ",", "pocetdat"}], "}"}]}], 
        "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"graf3", "=", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"prumernarychlostnacase", ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"PointSize", "[", "velikostbodu", "]"}], ",", 
            "barvavprumerna", ",", 
            RowBox[{"Thickness", "[", "tloustka", "]"}]}], "}"}]}], ",", 
         RowBox[{"Joined", "\[Rule]", "True"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*FractionBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"h\"]\)\>\"", ",", "velikostpisma", ",", "barva", 
              ",", 
              RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*FractionBox[SubscriptBox[
StyleBox[\"v\",
FontSlant->\"Italic\"], \"p\"], 
RowBox[{\"km\", \".\", SuperscriptBox[\"h\", 
RowBox[{\"-\", \"1\"}]]}]]\)\>\"", ",", "velikostpisma", ",", "barva", ",", 
              RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}]}], "}"}]}], 
         ",", 
         RowBox[{"TicksStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"barva", ",", "velikostpisma"}], "]"}]}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{
            "Framed", "[", 
             "\"\<Z\[AAcute]vislost velikosti pr\[URing]m\[EHacek]rn\[EAcute] \
rychlosti na \[CHacek]ase\>\"", "]"}], ",", "velikostpisma", ",", 
            "barvapismatitulku", ",", 
            RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", 
            RowBox[{"Background", "\[Rule]", "barvapozadi"}]}], "]"}]}], ",", 
         RowBox[{"FormatType", "\[Rule]", "StandardForm"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "velikostgrafu"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"graf4", "=", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"vprumerna", "\[LeftDoubleBracket]", 
           RowBox[{"pocetdat", "-", "prvniradeksdaty", "+", "1"}], 
           "\[RightDoubleBracket]"}], "t"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", 
           RowBox[{
           "cas", "\[LeftDoubleBracket]", "prvniradeksdaty", 
            "\[RightDoubleBracket]"}], ",", 
           RowBox[{"cas", "\[LeftDoubleBracket]", 
            RowBox[{"pocetdat", "-", "prvniradeksdaty", "+", "1"}], 
            "\[RightDoubleBracket]"}]}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"barvavprumerna", ",", 
            RowBox[{"Thickness", "[", "tloustka", "]"}]}], "}"}]}], ",", 
         RowBox[{"TicksStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"barva", ",", "velikostpisma"}], "]"}]}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*FractionBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"h\"]\)\>\"", ",", "velikostpisma", ",", "barva", 
              ",", 
              RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*FractionBox[
StyleBox[\"s\",
FontSlant->\"Italic\"], \"km\"]\)\>\"", ",", "velikostpisma", ",", "barva", 
              ",", 
              RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}]}], "}"}]}], 
         ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{
            "Framed", "[", 
             "\"\<Z\[AAcute]vislost ura\[ZHacek]en\[EAcute] dr\[AAcute]hy na \
\[CHacek]ase v\[CHacek]etn\[EHacek] pohybu pr\[URing]m\[EHacek]rnou rychlost\
\[IAcute]\>\"", "]"}], ",", "velikostpisma", ",", "barvapismatitulku", ",", 
            RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", 
            RowBox[{"Background", "\[Rule]", "barvapozadi"}]}], "]"}]}], ",", 
         RowBox[{"FormatType", "\[Rule]", "StandardForm"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "velikostgrafu"}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"soubor", "\[NotEqual]", "\"\<$Canceled\>\""}], ",", 
   "\[IndentingNewLine]", "graf1", ",", "\[IndentingNewLine]", "\"\<\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"soubor", "\[NotEqual]", "\"\<$Canceled\>\""}], ",", 
   "\[IndentingNewLine]", "graf2", ",", "\[IndentingNewLine]", "\"\<\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"soubor", "\[NotEqual]", "\"\<$Canceled\>\""}], ",", 
   "\[IndentingNewLine]", "graf3", ",", "\[IndentingNewLine]", "\"\<\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"soubor", "\[NotEqual]", "\"\<$Canceled\>\""}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"graf4", ",", "graf2"}], "]"}], ",", "\[IndentingNewLine]", 
   "\"\<\>\""}], "]"}]}], "Input",
 CellChangeTimes->{{3.471020641171875*^9, 3.47102064240625*^9}, {
   3.471020720234375*^9, 3.47102076615625*^9}, 3.471020809765625*^9, {
   3.47102084875*^9, 3.471020966671875*^9}, {3.471021020875*^9, 
   3.471021444875*^9}, {3.471025039828125*^9, 3.471025077796875*^9}, {
   3.471098454203125*^9, 3.47109854425*^9}, {3.47109904921875*^9, 
   3.471099268265625*^9}, {3.471099333265625*^9, 3.471099375265625*^9}, {
   3.4710998193125*^9, 3.4710999988125*^9}, {3.471102438171875*^9, 
   3.47110247390625*^9}, {3.471102584640625*^9, 3.471102657234375*^9}, {
   3.4711026894375*^9, 3.47110315396875*^9}, {3.471103233359375*^9, 
   3.47110328571875*^9}, {3.47110334521875*^9, 3.471103382546875*^9}, {
   3.471103413921875*^9, 3.471103425515625*^9}, {3.47110346425*^9, 
   3.471103614015625*^9}, {3.4711036554375*^9, 3.471103845453125*^9}, {
   3.47110389709375*^9, 3.471103899*^9}, {3.471103941578125*^9, 
   3.4711039420625*^9}, {3.471104208*^9, 3.471104310109375*^9}, {
   3.47110434903125*^9, 3.471104449171875*^9}, {3.471104545140625*^9, 
   3.471104619375*^9}, {3.4711047105*^9, 3.471104738625*^9}, {
   3.47110486190625*^9, 3.471104891078125*^9}, {3.47110493890625*^9, 
   3.47110499121875*^9}, {3.471105058859375*^9, 3.4711051153125*^9}, {
   3.47110523059375*^9, 3.4711052731875*^9}, {3.47110530378125*^9, 
   3.471105615109375*^9}, {3.47110601*^9, 3.47110601615625*^9}, {
   3.471106251390625*^9, 3.471106293578125*^9}, {3.471106346671875*^9, 
   3.471106602078125*^9}, {3.4711066376875*^9, 3.47110686840625*^9}, 
   3.47110727509375*^9, {3.47110962178125*^9, 3.47110962290625*^9}, {
   3.471346961671875*^9, 3.47134697615625*^9}, {3.47134703059375*^9, 
   3.471347066859375*^9}, {3.471347100671875*^9, 3.471347143828125*^9}, {
   3.471347201703125*^9, 3.471347244921875*^9}, {3.47134727565625*^9, 
   3.47134732621875*^9}, {3.471347434234375*^9, 3.4713474596875*^9}, {
   3.4713475341875*^9, 3.471347541078125*^9}, {3.471347579953125*^9, 
   3.471347647390625*^9}, {3.471347677515625*^9, 3.47134770478125*^9}, {
   3.47134773515625*^9, 3.47134783990625*^9}, 3.4713478991875*^9, {
   3.471348345546875*^9, 3.47134843371875*^9}, {3.471348874609375*^9, 
   3.471348877140625*^9}, 3.471349642875*^9, {3.48897081865625*^9, 
   3.488970929875*^9}, {3.488975006859375*^9, 3.488975018265625*^9}, {
   3.488976533015625*^9, 3.48897667896875*^9}, {3.488976930125*^9, 
   3.488976936390625*^9}, 3.48897720134375*^9, {3.488978617546875*^9, 
   3.488978699390625*^9}, {3.488978792265625*^9, 3.488978831453125*^9}, {
   3.488979420578125*^9, 3.488979495375*^9}, {3.488984212578125*^9, 
   3.488984548265625*^9}, {3.48898473721875*^9, 3.4889848026875*^9}, {
   3.48898487453125*^9, 3.488984916796875*^9}, {3.488984952875*^9, 
   3.48898495878125*^9}, 3.488984992390625*^9, {3.488985110125*^9, 
   3.48898514053125*^9}, {3.488985190953125*^9, 3.488985254828125*^9}, {
   3.488985307890625*^9, 3.488985337*^9}, {3.489036248625*^9, 
   3.48903625303125*^9}, {3.4890362958125*^9, 3.489036328859375*^9}, {
   3.4890363726875*^9, 3.48903639715625*^9}, {3.489036456671875*^9, 
   3.489036457203125*^9}, {3.489036492625*^9, 3.489036635296875*^9}, {
   3.489036674640625*^9, 3.4890366953125*^9}, {3.489036753078125*^9, 
   3.4890367734375*^9}, {3.489036817828125*^9, 3.48903682909375*^9}, {
   3.489060856390625*^9, 3.489060859375*^9}, {3.489060973984375*^9, 
   3.48906097865625*^9}, {3.4890610203125*^9, 3.4890610220625*^9}, {
   3.48906111975*^9, 3.489061135578125*^9}, 3.489061229140625*^9, {
   3.489061269671875*^9, 3.48906131665625*^9}, 3.48906138009375*^9, {
   3.489061639671875*^9, 3.4890616674375*^9}, {3.48907492753125*^9, 
   3.489074955859375*^9}, {3.4890750303125*^9, 3.4890751171875*^9}, {
   3.489075765015625*^9, 3.48907576815625*^9}, {3.489075798453125*^9, 
   3.489075799578125*^9}, {3.489075850109375*^9, 3.4890758508125*^9}, 
   3.4890758894375*^9, {3.4890771678125*^9, 3.48907722534375*^9}, {
   3.489077276390625*^9, 3.489077281921875*^9}, {3.489077313421875*^9, 
   3.489077330796875*^9}, {3.4890773658125*^9, 3.48907738159375*^9}, {
   3.4890774139375*^9, 3.489077582859375*^9}, {3.489077642734375*^9, 
   3.48907764453125*^9}, 3.489077687359375*^9, {3.489077747078125*^9, 
   3.489077820234375*^9}, {3.489077854046875*^9, 3.489077858359375*^9}, {
   3.48907794475*^9, 3.4890779979375*^9}, {3.489078800484375*^9, 
   3.48907880371875*^9}, {3.489079029453125*^9, 3.489079073796875*^9}, {
   3.489079300453125*^9, 3.489079340484375*^9}, {3.48907952696875*^9, 
   3.489079527578125*^9}, {3.489079785328125*^9, 3.489079808015625*^9}, {
   3.489079840734375*^9, 3.489079845375*^9}, {3.489079915984375*^9, 
   3.489079916734375*^9}, {3.489080156703125*^9, 3.489080160796875*^9}, {
   3.489080245921875*^9, 3.489080268171875*^9}, {3.489080308171875*^9, 
   3.489080343140625*^9}, {3.489080723703125*^9, 3.489080859921875*^9}, {
   3.48908120309375*^9, 3.4890812214375*^9}, {3.489081275875*^9, 
   3.489081276359375*^9}, {3.4890814204375*^9, 3.489081474765625*^9}, {
   3.48908167384375*^9, 3.4890817041875*^9}, {3.48908173590625*^9, 
   3.489081763265625*^9}, {3.489081796109375*^9, 3.4890818285625*^9}, {
   3.489081879390625*^9, 3.48908190759375*^9}, {3.489083190375*^9, 
   3.48908329828125*^9}, {3.489083347015625*^9, 3.489083347375*^9}, {
   3.489083408515625*^9, 3.48908341375*^9}, {3.489083476484375*^9, 
   3.489083476671875*^9}, {3.489083529796875*^9, 3.489083537859375*^9}, {
   3.4890836223125*^9, 3.489083633546875*^9}, {3.48908367228125*^9, 
   3.489083692828125*^9}, {3.48908375428125*^9, 3.48908376484375*^9}, {
   3.4890837989375*^9, 3.489083799328125*^9}, {3.48908385053125*^9, 
   3.48908391821875*^9}, {3.4985729310625*^9, 3.498572941296875*^9}, 
   3.50687828284375*^9, {3.50687833040625*^9, 3.506878412921875*^9}, {
   3.506878475734375*^9, 3.506878518203125*^9}, {3.506878549328125*^9, 
   3.506878564078125*^9}, {3.50687871*^9, 3.506878729578125*^9}, 
   3.5068788971875*^9, {3.50687893978125*^9, 3.50687894371875*^9}, {
   3.506879013828125*^9, 3.506879032015625*^9}, {3.506879078734375*^9, 
   3.50687911284375*^9}, {3.506879143046875*^9, 3.506879199703125*^9}, {
   3.50730763646875*^9, 3.507307683296875*^9}, {3.507307743125*^9, 
   3.507307900390625*^9}, {3.512230743171875*^9, 3.512230749984375*^9}, {
   3.51223083990625*^9, 3.5122308494375*^9}, {3.512230896625*^9, 
   3.512230899640625*^9}, {3.512230933390625*^9, 3.512230961375*^9}, {
   3.512231003046875*^9, 3.51223110025*^9}, {3.512231156984375*^9, 
   3.512231186984375*^9}, {3.512231230859375*^9, 3.512231263546875*^9}, {
   3.512231741203125*^9, 3.51223197165625*^9}, {3.512232189046875*^9, 
   3.5122322015625*^9}, {3.51223229053125*^9, 3.51223237046875*^9}, {
   3.512232415015625*^9, 3.512232416078125*^9}, {3.5122327136875*^9, 
   3.51223280709375*^9}, {3.512232892453125*^9, 3.512232946296875*^9}, {
   3.512232990203125*^9, 3.512233020078125*^9}, {3.5122331426875*^9, 
   3.512233336*^9}, 3.512233505625*^9, {3.512233574640625*^9, 
   3.51223358346875*^9}, {3.512233713703125*^9, 3.51223371615625*^9}, {
   3.512233817203125*^9, 3.512233877203125*^9}, {3.5122339418125*^9, 
   3.512233951375*^9}, 3.512234038*^9, {3.5123167236875*^9, 
   3.512316736984375*^9}, {3.51231676975*^9, 3.512316773890625*^9}, {
   3.5123174011875*^9, 3.512317450671875*^9}, {3.51231828596875*^9, 
   3.512318286671875*^9}, 3.5123184274375*^9, {3.51231873534375*^9, 
   3.51231873765625*^9}, {3.51231877984375*^9, 3.512318832859375*^9}, {
   3.512363444875*^9, 3.512363462171875*^9}, 3.51236362625*^9, {
   3.51236368078125*^9, 3.512363695015625*^9}, {3.512398869484375*^9, 
   3.5123989086875*^9}, {3.512399405421875*^9, 3.5123994065*^9}, {
   3.512399755421875*^9, 3.512399764578125*^9}, {3.512400139828125*^9, 
   3.512400140296875*^9}, {3.512539240234375*^9, 3.51253924103125*^9}, {
   3.5125670728125*^9, 3.512567095796875*^9}, {3.512567144375*^9, 
   3.51256723271875*^9}, {3.5125673040625*^9, 3.512567377078125*^9}, {
   3.51256743121875*^9, 3.51256748740625*^9}, 3.512567520390625*^9, {
   3.512567560375*^9, 3.512567860828125*^9}, {3.51257185146875*^9, 
   3.512571909453125*^9}, {3.51257203434375*^9, 3.51257203478125*^9}, {
   3.512572284453125*^9, 3.512572314640625*^9}, {3.512572432*^9, 
   3.51257255178125*^9}, {3.5125726325625*^9, 3.512572754484375*^9}, {
   3.512572790796875*^9, 3.51257291865625*^9}, {3.512573008265625*^9, 
   3.51257303409375*^9}, {3.512573255078125*^9, 3.51257336065625*^9}, {
   3.512573481875*^9, 3.51257348334375*^9}, {3.512579185765625*^9, 
   3.512579206171875*^9}, {3.51257925084375*^9, 3.512579352*^9}, {
   3.512579429734375*^9, 3.512579490375*^9}, {3.5125795435*^9, 
   3.512579605703125*^9}, {3.512579691734375*^9, 3.512579694109375*^9}, {
   3.512579834625*^9, 3.512579869890625*^9}, {3.5125799229375*^9, 
   3.51257992721875*^9}, {3.512579963609375*^9, 3.51257996540625*^9}, {
   3.512580009234375*^9, 3.512580012359375*^9}, {3.512580226421875*^9, 
   3.512580263640625*^9}, {3.512580372234375*^9, 3.51258054975*^9}, {
   3.512580663109375*^9, 3.512580703390625*^9}, {3.5126428935*^9, 
   3.512642894578125*^9}, {3.522595912640625*^9, 3.522595960609375*^9}, {
   3.5225960014375*^9, 3.522596074609375*^9}, {3.52259611259375*^9, 
   3.522596138859375*^9}, {3.522596179640625*^9, 3.52259622371875*^9}, {
   3.5225962626875*^9, 3.52259627540625*^9}, {3.522596312078125*^9, 
   3.52259638771875*^9}, {3.522596471390625*^9, 3.522596480015625*^9}, {
   3.52259653378125*^9, 3.522596731796875*^9}, {3.522596807875*^9, 
   3.522596846359375*^9}, 3.5225970469375*^9, {3.5225970929375*^9, 
   3.5225970941875*^9}, {3.52259720534375*^9, 3.5225972196875*^9}, {
   3.522597272015625*^9, 3.5225973013125*^9}, {3.522597342765625*^9, 
   3.52259735290625*^9}, {3.5225973981875*^9, 3.5225974216875*^9}, {
   3.522597532578125*^9, 3.52259760021875*^9}, {3.522597634484375*^9, 
   3.52259769159375*^9}, {3.522597987953125*^9, 3.522597989453125*^9}, {
   3.522598078765625*^9, 3.522598089546875*^9}, {3.52259817903125*^9, 
   3.522598179359375*^9}}]
}, Open  ]]
},
WindowSize->{1016, 654},
WindowMargins->{{-4, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 663, 11, 83, "Title"],
Cell[1233, 35, 2983, 47, 219, "Text"],
Cell[4219, 84, 303, 6, 46, "Text"],
Cell[4525, 92, 1599, 25, 30, "Text"],
Cell[6127, 119, 634, 17, 72, "Input"],
Cell[6764, 138, 292, 6, 46, "Text"],
Cell[7059, 146, 2041, 33, 50, "Text"],
Cell[9103, 181, 28717, 584, 1723, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)