(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     68094,       1758]
NotebookOptionsPosition[     60035,       1552]
NotebookOutlinePosition[     60379,       1567]
CellTagsIndexPosition[     60336,       1564]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Vrte\[CHacek]e se matemati\[CHacek]no nihalo", "Title",
 CellChangeTimes->{{3.7226763297453327`*^9, 
  3.7226763482929*^9}},ExpressionUUID->"67596ea3-3032-4558-950d-71b09529810d"],

Cell["\<\
Materialna to\[CHacek]ka se giblje po gladki kro\[ZHacek]nici, ki se \
enakomerno vrti okrog osi, ki gre skozi sredi\[SHacek]\[CHacek]e \
kro\[ZHacek]nice in le\[ZHacek]i v ravnini kro\[ZHacek]nice. Na to\[CHacek]ko \
deluje sila te\[ZHacek]e v navpi\[CHacek]ni smeri.\
\>", "Text",
 CellChangeTimes->{{3.7226763540646415`*^9, 
  3.722676459749899*^9}},ExpressionUUID->"f3aa0140-80cf-4cbe-a455-\
44eec86864d4"],

Cell[CellGroupData[{

Cell["Analiti\[CHacek]na obravnava", "Section",
 CellChangeTimes->{{3.722677145492323*^9, 
  3.7226771585177383`*^9}},ExpressionUUID->"a0f4f050-dcba-43bf-8960-\
acc7d794d8b1"],

Cell[CellGroupData[{

Cell["Koordinatni sistem", "Subsubsection",
 CellChangeTimes->{{3.7226764822440896`*^9, 
  3.722676497094623*^9}},ExpressionUUID->"0a42cbca-7f0b-44e2-b55d-\
017cf47762d4"],

Cell["\<\
Os x usmerimo v smer sile te\[ZHacek]e, os y pa le\[ZHacek]i v ravnini kroga. \
\>", "Text",
 CellChangeTimes->{{3.7226765024919806`*^9, 
  3.722676557855897*^9}},ExpressionUUID->"3eeb4128-ebfe-497e-a19e-\
5e508b04db8e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vr", " ", "=", " ", 
   RowBox[{"R0", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], ",", 
      RowBox[{"Sin", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v\[Omega]", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "\[Omega]"}], " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0"}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7226728224917192`*^9, 3.7226729129988575`*^9}, {
  3.722673097383584*^9, 
  3.7226730996142836`*^9}},ExpressionUUID->"4efc3115-5077-449f-b34f-\
1275c09b2a92"],

Cell["V RKS, ki se hkrati vrti s kro\[ZHacek]nico je rezultanta sil enaka", \
"Text",
 CellChangeTimes->{{3.722676565951933*^9, 
  3.722676594483053*^9}},ExpressionUUID->"24e964fa-21fc-4652-bb34-\
ca46806c13de"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vf", " ", "=", "  ", 
  RowBox[{
   RowBox[{"m", " ", "g", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "+", " ", 
   RowBox[{"fr", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], ",", 
      RowBox[{"Sin", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}]}], " ", 
   "+", " ", 
   RowBox[{"f3", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], " ", "-", " ", 
   RowBox[{"m", " ", 
    RowBox[{"Cross", "[", 
     RowBox[{"v\[Omega]", ",", 
      RowBox[{"Cross", "[", 
       RowBox[{"v\[Omega]", ",", "vr"}], "]"}]}], "]"}]}], " ", "-", " ", 
   RowBox[{"2", "m", " ", 
    RowBox[{"Cross", "[", 
     RowBox[{"v\[Omega]", ",", 
      RowBox[{"D", "[", 
       RowBox[{"vr", ",", "t"}], "]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7226729205645185`*^9, 3.7226730047081423`*^9}, {
  3.7226731698111334`*^9, 
  3.722673198919428*^9}},ExpressionUUID->"a4569c38-260d-4cb8-a43a-\
c2f1fc8b4a80"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"g", " ", "m"}], "+", 
    RowBox[{"fr", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"fr", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "+", 
    RowBox[{"m", " ", "R0", " ", 
     SuperscriptBox["\[Omega]", "2"], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ",", 
   RowBox[{"f3", "+", 
    RowBox[{"2", " ", "m", " ", "R0", " ", "\[Omega]", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["\[Phi]", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7226730074068213`*^9, 3.722673104200478*^9, 
  3.7226732004481587`*^9},ExpressionUUID->"94496ef1-3e18-4b0a-a794-\
41d0502b4c07"]
}, Open  ]],

Cell["Tu je sta fr in f3 komponenti sile vezi.", "Text",
 CellChangeTimes->{{3.7226765998180137`*^9, 
  3.722676629565879*^9}},ExpressionUUID->"cb08ce48-5a0f-4681-b080-\
7a3f5f84cb3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Newtonova ena\[CHacek]ba v RKS", "Subsubsection",
 CellChangeTimes->{{3.722676639206246*^9, 
  3.7226766621996145`*^9}},ExpressionUUID->"2b7053d9-f1b9-4708-a2bb-\
84fb4d5f1651"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"va", " ", "=", " ", 
  RowBox[{"D", "[", 
   RowBox[{"vr", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7226730506168823`*^9, 
  3.7226730638294897`*^9}},ExpressionUUID->"25c207be-c47b-494c-9880-\
aa130ae52346"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"R0", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[Phi]", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], ",", 
   RowBox[{"R0", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[Phi]", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.722673064469061*^9, 3.7226731065715714`*^9, 
  3.722676634354864*^9},ExpressionUUID->"9286747f-11dd-492e-ba4b-\
54e6de7b9c14"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", " ", "=", " ", 
  RowBox[{
   RowBox[{"m", " ", "va"}], " ", "-", " ", "vf"}]}]], "Input",
 CellChangeTimes->{{3.7226730696012306`*^9, 
  3.7226730758565497`*^9}},ExpressionUUID->"b845731d-9782-4585-bf68-\
ba61e7e2cbc6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "g"}], " ", "m"}], "-", 
    RowBox[{"fr", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "+", 
    RowBox[{"m", " ", "R0", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", 
          RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[Phi]", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "fr"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "-", 
    RowBox[{"m", " ", "R0", " ", 
     SuperscriptBox["\[Omega]", "2"], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "+", 
    RowBox[{"m", " ", "R0", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[Phi]", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"-", "f3"}], "-", 
    RowBox[{"2", " ", "m", " ", "R0", " ", "\[Omega]", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["\[Phi]", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7226730780248528`*^9, 3.7226731082718954`*^9, 
  3.722673207280652*^9},ExpressionUUID->"3b63f80a-7dc3-49ea-8217-\
9ac7662bddbc"]
}, Open  ]],

Cell["\<\
Ker je kro\[ZHacek]nica gladka velja izrek o energiji. Energijsko \
ena\[CHacek]bo dobimo, \[CHacek]e pomno\[ZHacek]imo Newtonovo ena\[CHacek]bo \
skalarno s tangentni vektorjem.\
\>", "Text",
 CellChangeTimes->{{3.7226766687513204`*^9, 3.7226766804039974`*^9}, {
  3.722676741241267*^9, 3.722676795043253*^9}, {3.722676827474198*^9, 
  3.7226768313272247`*^9}},ExpressionUUID->"ba13c526-d365-4d2c-ab57-\
b2e0af44a73e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v\[Phi]", " ", "=", " ", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], ",", 
      RowBox[{"Sin", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", 
    RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.722673111844135*^9, 
  3.7226731337611513`*^9}},ExpressionUUID->"c9ce1815-6118-4f55-98c6-\
c3c67b2370cb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.7226731361634436`*^9, 
  3.7226732090589724`*^9},ExpressionUUID->"b045fc86-9ab0-4890-84f8-\
0b0c33e384e9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pom1", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"eq", ".", "v\[Phi]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7226731378169694`*^9, 3.722673145179839*^9}, {
  3.7226732272477565`*^9, 
  3.7226732281993136`*^9}},ExpressionUUID->"df917460-30d7-41f6-973d-\
ebbac144e1db"],

Cell[BoxData[
 RowBox[{"m", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "-", 
       RowBox[{"R0", " ", 
        SuperscriptBox["\[Omega]", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ")"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "+", 
    RowBox[{"R0", " ", 
     RowBox[{
      SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7226731460534*^9, {3.7226732109932857`*^9, 
   3.7226732294316587`*^9}},ExpressionUUID->"6ba23aff-229b-4ebc-ae26-\
199e5f56deb9"]
}, Open  ]],

Cell["\<\
Pomnmo\[ZHacek]imo dobljeno z obodno hitrostjo in integrirajmo po \[CHacek]asu\
\>", "Text",
 CellChangeTimes->{{3.722676853634224*^9, 
  3.7226768839436636`*^9}},ExpressionUUID->"75bafeb6-d3c0-4356-9f13-\
b5100376b012"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pom2", "=", 
  RowBox[{"R0", " ", 
   RowBox[{"Simplify", "[", " ", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "pom1"}], ",", "t"}], "]"}],
     "]"}]}]}]], "Input",
 CellChangeTimes->{{3.72267323117878*^9, 3.7226732888337927`*^9}, {
  3.722673445404967*^9, 3.7226734590855527`*^9}, {3.7226741931760116`*^9, 
  3.7226741975438156`*^9}},ExpressionUUID->"7bb72f1a-4a18-436d-aee4-\
fcdd69ab5430"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "m", " ", "R0", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "g"}], "+", 
       RowBox[{"R0", " ", 
        SuperscriptBox["\[Omega]", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ")"}]}], "+", 
    RowBox[{"R0", " ", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[Phi]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{
  3.722673243751816*^9, {3.7226732765103455`*^9, 3.722673289738552*^9}, {
   3.7226734475264716`*^9, 3.722673459896716*^9}, 
   3.7226741985733695`*^9},ExpressionUUID->"82cd6c46-cdbb-4fc7-8113-\
7ea2aa3feb79"]
}, Open  ]],

Cell["Energijska konstanta je ", "Text",
 CellChangeTimes->{{3.7226768889510393`*^9, 
  3.722676897593051*^9}},ExpressionUUID->"f5ef901e-045f-4ba5-b858-\
9781558b6aa2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"en", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"pom2", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Phi]", "[", "t", "]"}], "\[Rule]", " ", "\[Phi]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "\[Rule]", " ", "0"}]}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.722673292811614*^9, 3.722673349438073*^9}, {
  3.7226733811826487`*^9, 3.7226733900274515`*^9}, {3.722676902257242*^9, 
  3.7226769078105927`*^9}},ExpressionUUID->"927072d1-0384-42fe-8881-\
f4f17b53bf8d"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "m", " ", "R0", " ", 
  RowBox[{"Cos", "[", "\[Phi]0", "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "g"}], "+", 
    RowBox[{"R0", " ", 
     SuperscriptBox["\[Omega]", "2"], " ", 
     RowBox[{"Cos", "[", "\[Phi]0", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7226733389231453`*^9, 3.722673350155641*^9}, 
   3.722673390807417*^9, 3.7226734630633745`*^9, 
   3.722676911086446*^9},ExpressionUUID->"2a20fb95-cad5-44cd-a8f8-\
b55d2436d2d9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Potencial", "Subsubsection",
 CellChangeTimes->{{3.7226769166085978`*^9, 
  3.722676923534687*^9}},ExpressionUUID->"66d1f6fa-59f6-4f73-8096-\
0408665f0b30"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"U", " ", "=", 
  RowBox[{"Simplify", "[", " ", 
   RowBox[{"pom2", " ", "-", " ", 
    RowBox[{
     FractionBox["1", "2"], " ", "m", " ", 
     SuperscriptBox["R0", "2"], " ", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[Phi]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.72267340767026*^9, 3.722673420773672*^9}, {
  3.7226734700830593`*^9, 
  3.7226734805969877`*^9}},ExpressionUUID->"6f97d4d3-1bfa-4f8a-8521-\
1185840460af"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "m", " ", "R0", " ", 
  RowBox[{"Cos", "[", 
   RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "g"}], "+", 
    RowBox[{"R0", " ", 
     SuperscriptBox["\[Omega]", "2"], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7226734736085014`*^9, 
  3.722673481252158*^9}},ExpressionUUID->"897daac7-aa08-4266-8fac-\
24164bd737c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dU", "=", 
  RowBox[{
   FractionBox["1", "R0"], 
   RowBox[{"Simplify", "[", 
    RowBox[{"D", "[", 
     RowBox[{"U", ",", 
      RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7226734836076527`*^9, 3.722673503184774*^9}, {
  3.722675103450161*^9, 
  3.7226751075059795`*^9}},ExpressionUUID->"0076bade-ed6a-4c9a-b6e1-\
e9418c4e6cfb"],

Cell[BoxData[
 RowBox[{"m", " ", 
  RowBox[{"(", 
   RowBox[{"g", "-", 
    RowBox[{"R0", " ", 
     SuperscriptBox["\[Omega]", "2"], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ")"}], " ", 
  RowBox[{"Sin", "[", 
   RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.7226734945115633`*^9, 3.7226735037775474`*^9}, 
   3.7226751085043344`*^9},ExpressionUUID->"03a072b9-70fd-468b-b7fd-\
715ff2c486b2"]
}, Open  ]],

Cell["Ravnovesni polo\[ZHacek]aji so", "Text",
 CellChangeTimes->{{3.72267694531131*^9, 
  3.7226769521282043`*^9}},ExpressionUUID->"1b478a6d-0340-4b5a-b579-\
e788cd0f22ad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"slv", " ", "=", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Phi]", "[", "t", "]"}], "\[Rule]", " ", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Phi]", "[", "t", "]"}], "\[Rule]", " ", "\[Pi]"}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Phi]", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"ArcCos", "[", 
       FractionBox["g", 
        RowBox[{"R0", " ", 
         SuperscriptBox["\[Omega]", "2"]}]], "]"}]}], "}"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.7226739663923883`*^9, 3.722674033735566*^9}, {
  3.7226740789111395`*^9, 3.722674093839669*^9}, {3.722674124507893*^9, 
  3.7226741249446735`*^9}},ExpressionUUID->"70c5d71d-0a71-442c-bddc-\
ef043e1c487b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "\[Rule]", "\[Pi]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "\[Rule]", 
     RowBox[{"ArcCos", "[", 
      FractionBox["g", 
       RowBox[{"R0", " ", 
        SuperscriptBox["\[Omega]", "2"]}]], "]"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.722674026029512*^9, 3.7226740371674123`*^9}, 
   3.7226740944792404`*^9, 3.7226741256310425`*^9, 
   3.7226751136521034`*^9},ExpressionUUID->"9291f3cc-92c0-4c83-a474-\
18a4b2ff0d71"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Stabilnost", "Subsubsection",
 CellChangeTimes->{{3.722676956558405*^9, 
  3.722676962002561*^9}},ExpressionUUID->"c12ce353-d6d2-41c3-b926-\
0c7ca4fd654d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ddU", "=", 
  RowBox[{
   FractionBox["1", "R0"], 
   RowBox[{"D", "[", 
    RowBox[{"dU", ",", 
     RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.722674381896343*^9, 3.722674383596667*^9}, {
  3.722675116693967*^9, 
  3.7226751199230223`*^9}},ExpressionUUID->"64cf6d3a-96d1-4ea9-b741-\
7cf08417655d"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"m", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"g", "-", 
      RowBox[{"R0", " ", 
       SuperscriptBox["\[Omega]", "2"], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ")"}]}], "+", 
   RowBox[{"m", " ", "R0", " ", 
    SuperscriptBox["\[Omega]", "2"], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]}], "R0"]], "Output",
 CellChangeTimes->{3.722674384563823*^9, 
  3.7226751215765476`*^9},ExpressionUUID->"907fa0ea-a4f3-4a32-a2ec-\
fe474c5c9876"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ass", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"g", ">", "0"}], ",", 
    RowBox[{"m", ">", "0"}], ",", 
    RowBox[{"R0", ">", "0"}], ",", 
    RowBox[{"\[Omega]", ">", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7226736430023003`*^9, 
  3.7226736510671377`*^9}},ExpressionUUID->"1bbc031d-5658-46fe-b5b8-\
47d2fe8bf6a4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"g", ">", "0"}], ",", 
   RowBox[{"m", ">", "0"}], ",", 
   RowBox[{"R0", ">", "0"}], ",", 
   RowBox[{"\[Omega]", ">", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{3.722673651659911*^9, 
  3.722675111670992*^9},ExpressionUUID->"5f17d3d9-93c5-4383-81bb-\
14110a8c0c9d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"st", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"ddU", "/.", "slv"}], ",", "ass"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.722673594659069*^9, 3.7226736612846794`*^9}, {
  3.72267411365078*^9, 3.7226741175506053`*^9}, {3.722674585983985*^9, 
  3.7226746001637487`*^9}},ExpressionUUID->"4b84a79c-d668-4a7a-9c7b-\
ebd797724210"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"m", " ", 
     RowBox[{"(", 
      RowBox[{"g", "-", 
       RowBox[{"R0", " ", 
        SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "R0"], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"m", " ", 
      RowBox[{"(", 
       RowBox[{"g", "+", 
        RowBox[{"R0", " ", 
         SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "R0"]}], ",", 
   FractionBox[
    RowBox[{"m", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["g", "2"], 
         SuperscriptBox["R0", "2"]]}], "+", 
       SuperscriptBox["\[Omega]", "4"]}], ")"}]}], 
    SuperscriptBox["\[Omega]", "2"]]}], "}"}]], "Output",
 CellChangeTimes->{{3.722673614236191*^9, 3.7226736623454323`*^9}, 
   3.7226740436723204`*^9, {3.7226741034644375`*^9, 3.722674127721349*^9}, {
   3.7226745885266705`*^9, 3.722674600881316*^9}, 
   3.722675126739916*^9},ExpressionUUID->"81d5e84d-ccd1-4421-b701-\
9a31242b0631"]
}, Open  ]],

Cell["Dobimo pogoja za stabilno ravnovesje", "Text",
 CellChangeTimes->{{3.7226769715961304`*^9, 
  3.722676982172456*^9}},ExpressionUUID->"37de4ef1-1c9a-487c-9836-\
bf1453f7afbf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Reduce", "[", 
       RowBox[{"#", " ", ">", "0"}], "]"}], "&"}], ",", "st"}], "]"}], ",", 
   "ass"}], "]"}]], "Input",
 CellChangeTimes->{{3.72267460236325*^9, 
  3.722674675431371*^9}},ExpressionUUID->"e54894f8-aec1-4e4d-a387-\
8e5614eb859d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"g", ">", 
    RowBox[{"R0", " ", 
     SuperscriptBox["\[Omega]", "2"]}]}], ",", "False", ",", 
   RowBox[{"g", "<", 
    RowBox[{"R0", " ", 
     SuperscriptBox["\[Omega]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.722674613547948*^9, 3.722674625372217*^9}, {
   3.722674659987064*^9, 3.722674676507723*^9}, 
   3.7226751306241417`*^9},ExpressionUUID->"6e26f244-6dd6-4030-90cf-\
e0357a784832"]
}, Open  ]],

Cell[TextData[{
 "Harmoni\[CHacek]na aproksimacija periode za primer ",
 Cell[BoxData[
  RowBox[{"g", ">", 
   RowBox[{"R0", " ", 
    SuperscriptBox["\[Omega]", "2"]}]}]],
  CellChangeTimes->{{3.722674613547948*^9, 3.722674625372217*^9}, {
    3.722674659987064*^9, 3.722674676507723*^9}, 3.7226751306241417`*^9},
  ExpressionUUID->"7d8a1cb8-8705-4c9b-9fc0-b61b78c95fb1"]
}], "Text",
 CellChangeTimes->{{3.722676992374398*^9, 
  3.722677020733926*^9}},ExpressionUUID->"8e12faf2-87dd-4225-b441-\
14e55b272fb4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"perioda1", " ", "=", 
  RowBox[{"Simplify", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"2", "\[Pi]", 
      SqrtBox[
       RowBox[{"m", "/", "ddU"}]]}], "/.", 
     RowBox[{"slv", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ",", "ass"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.722674876448148*^9, 
  3.722674930078541*^9}},ExpressionUUID->"1ba3769e-6e07-4445-93a1-\
224cd3ee096e"],

Cell[BoxData[
 RowBox[{"2", " ", "\[Pi]", " ", 
  SqrtBox[
   FractionBox["R0", 
    RowBox[{"g", "-", 
     RowBox[{"R0", " ", 
      SuperscriptBox["\[Omega]", "2"]}]}]]]}]], "Output",
 CellChangeTimes->{{3.7226749082551203`*^9, 3.7226749308897047`*^9}, 
   3.7226751352103357`*^9},ExpressionUUID->"1cdb5fcd-3723-4d46-9ea1-\
bfed1aeaecbb"]
}, Open  ]],

Cell[TextData[{
 "Harmoni\[CHacek]na aproksimacija periode za primer ",
 Cell[BoxData[
  RowBox[{"g", "<", 
   RowBox[{"R0", " ", 
    SuperscriptBox["\[Omega]", "2"]}]}]],
  CellChangeTimes->{{3.722674613547948*^9, 3.722674625372217*^9}, {
    3.722674659987064*^9, 3.722674676507723*^9}, 3.7226751306241417`*^9},
  ExpressionUUID->"40846e4e-e4d8-4cc8-abc7-e18c9b46cb8d"]
}], "Text",
 CellChangeTimes->{{3.722676992374398*^9, 
  3.7226770311230593`*^9}},ExpressionUUID->"91a932ec-9b19-4282-8117-\
6fcc77c36e15"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"perioda2", " ", "=", 
  RowBox[{"Simplify", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"2", "\[Pi]", 
      SqrtBox[
       RowBox[{"m", "/", "ddU"}]]}], "/.", 
     RowBox[{"slv", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ",", "ass"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.722674939438121*^9, 
  3.722674941996406*^9}},ExpressionUUID->"072cd38f-bd3e-4e43-bb5a-\
98a0757903e9"],

Cell[BoxData[
 RowBox[{"2", " ", "\[Pi]", " ", "R0", " ", "\[Omega]", " ", 
  SqrtBox[
   FractionBox["1", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["g", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["R0", "2"], " ", 
      SuperscriptBox["\[Omega]", "4"]}]}]]]}]], "Output",
 CellChangeTimes->{3.722674942776371*^9, 
  3.7226751393909483`*^9},ExpressionUUID->"0d45f71b-559b-4f55-8804-\
e707b747e271"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Numeri\[CHacek]ni izra\[CHacek]un", "Section",
 CellChangeTimes->{{3.7226771230605297`*^9, 
  3.7226771340268373`*^9}},ExpressionUUID->"41cd2c5d-0d60-45c3-b6db-\
d2c4105fa239"],

Cell["Brezdimenzijski zapis newtonove ena\[CHacek]be je", "Text",
 CellChangeTimes->{{3.722677175006199*^9, 
  3.722677187095656*^9}},ExpressionUUID->"ee855988-5677-4966-b3a9-\
48a2636097f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eqeq", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Lambda]", "-", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "+", " ", 
   RowBox[{
    SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7226755116380444`*^9, 
  3.7226755397791815`*^9}},ExpressionUUID->"e2cf97d6-38e4-426e-aceb-\
284eb424ad99"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"\[Lambda]", "-", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{
  3.7226755411831183`*^9},ExpressionUUID->"42ec52eb-2647-4c6b-aee8-\
7bf1d1e830ea"]
}, Open  ]],

Cell[TextData[{
 "Tu je \[Lambda] = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["g", 
     RowBox[{"R0", " ", 
      SuperscriptBox["\[Omega]", "2"]}]], ",", " ", "t", " "}], 
   TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "487e3596-d2fa-4f8b-aefb-c695f9fc8b8b"],
 "pa je sedaj brezdimezijski \[CHacek]as ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", " ", "\[Omega]"}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "c3308c34-f726-4cc2-a3c9-fb2097d6d0e6"]
}], "Text",
 CellChangeTimes->{{3.722677189997126*^9, 
  3.722677251117183*^9}},ExpressionUUID->"af334f11-814f-43ae-accf-\
8c2ff0e7aff0"],

Cell[CellGroupData[{

Cell["Izra\[CHacek]un podan za za\[CHacek]etni odmik", "Subsubsection",
 CellChangeTimes->{{3.722677307836238*^9, 
  3.7226773226867714`*^9}},ExpressionUUID->"bceb1d0e-e66d-44a3-b18e-\
29a36ada6a71"],

Cell[BoxData[
 RowBox[{
  RowBox[{"NumericnaResitev1", "[", 
   RowBox[{"$\[Lambda]_", ",", "\[Phi]0_", ",", "tmax_"}], "]"}], ":=", " ", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "slv", "}"}], ",", 
    RowBox[{
     RowBox[{"slv", " ", "=", " ", 
      RowBox[{"NDSolve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"eqeq", "\[Equal]", " ", "0"}], ",", 
           RowBox[{
            RowBox[{"\[Phi]", "[", "0", "]"}], "\[Equal]", " ", "\[Phi]0"}], 
           ",", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Phi]", "'"}], "[", "0", "]"}], "\[Equal]", " ", 
            "0"}]}], "}"}], "/.", 
         RowBox[{"\[Lambda]", "\[Rule]", " ", "$\[Lambda]"}]}], ",", "\[Phi]",
         ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "tmax"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "slv"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "}"}]}]}], 
      "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.722675202444319*^9, 3.722675209058422*^9}, {
   3.7226754819993744`*^9, 3.7226755063966794`*^9}, {3.7226755439909925`*^9, 
   3.7226755956714735`*^9}, {3.722675629740344*^9, 3.7226756778797846`*^9}, {
   3.7226757399649982`*^9, 3.7226757888376055`*^9}, {3.722675824701396*^9, 
   3.7226760091641183`*^9}, 
   3.722677326820586*^9},ExpressionUUID->"899808b6-ffb7-4e24-a935-\
9f4786b39f4d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NumericnaResitev1", "[", 
  RowBox[{"0.1", ",", 
   RowBox[{"\[Pi]", "/", "3"}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.7226756911079907`*^9, 3.7226757046793814`*^9}, 
   3.7226773313599825`*^9},ExpressionUUID->"afe693cf-857a-41cb-8736-\
717e56b2f149"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[{
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwd2Xk8lF8XAHD7MohUmLHPCNlKP6WFzklpEW1oFZGliEpZijZLoghFqSSl
VERJi5QtS7JLyFIKicjMkG3myXt7/+Hz/Tw8z517zz33OWc0XQ5tdRMSEBBY
T378+518ykXM2PXCinNHDZdsLWZD6UcN6+0aB6A1PZ5nSzxdXhCqoXEczC/c
U95JPCP+xRNaawg0W7jddyZOLopWF9WIBMcnVTe8iQ2GXWOmPS7B/OlWXjBx
54xbf/kt8RBUGVp+iVjrvuTiKV4C2Pi9590jPmju5z2ungQBAqk3ComfNXWl
ja66CYcZvHsdxFNe1h0cjxTY/7KKQRHfFuyIHLdMhZvF0lMaJWxYXRM3d6zl
DhyPylu1jvjntbXFowfSYINZ1bgv8UVXymGEdw/6NyxSSCX+yNt/ha3+EOYp
P4sTf8cG/wq1BcNPH4Flf+xvIGZcbqoaWpUJRoNez4OIXfRQ+JdHNvSH/DpD
EQvxTtSNBj+BYco3fFUpG5q67FVHLZ9Cy4rckYvEgZlSedyWHHhzu0par4wN
VvE/xLi3n0HXe5eXJ4lVAovtOAdywSRoaVUTcdGqAPYw7zks/WVrFF3OBvH2
7zpD6nkQdzrqi/Z7NrQWvfUb/JkHxk3FdQnEj+5fe/fr6WvIvGY8T6KSDRt9
NzoNrHoDD9eYzR4nTpR8ndjnUQjzXVTLqSo25AZY+R5VKgInl/TRiGo23Bww
pY8EF0ELe0bUnBo2+NTLe3Ati2Hfttyfy2rZIH/zvRCnpQSu65cfyqpnA2/G
i4eHzd7B8NacOtsGNvScvbuZffsdVDu0XuETv/A4dWv4QCmcsuy32fGRDbv+
M1n2m1cGHzULji1pZkPqh5Qjv9Qrobfw1e4bHWwYvfZc7+vFSnA6sSMuspMN
azyquhsnK2Go9kZh0Bc2DAqP27/++AGGFl4SOdjFhiXmG5dFRlSD/rtxreAe
NtRn84V0hutg45ruvbuGyHhB0lHGqB5OlOgOR/xmw3LtK8siXOtBZj/zUN4w
G2JGH46caKiHhpolFrpcNpjEfXJzyWiAzzaV2ovG2XD6g4GVsdNHcA0L8pUS
4sCDpy+1MxI+wsQlq84AYQ40XrMQnlv9EX7FqBv/FOGAlseON0pLmyD75tG4
JnEOfBAOMxKY9QncORdYHTIcUDBvl68rbwbpVa7UPQYHsrIj2w8atQGHGXJf
3ZQDA/IDF62c20Bv5TuvviUc0PG3WqF7pQ2yu8fCc5Zx4LaZVGr3ZBtMJ5x5
sXUFB+IrL7rvKmuHKlrj6GtLDvh3X+KsdeiEKAHBtXr2HEiRqgqdadkFC/xv
jp/y58AK8yCHM45d4Nbx+Hd2IAc6fPQXDQd0gb+hFrPnBAeUGi/8qH7UBYV+
Fcu2neZA3DXr9eflvkF01VqG83kOhM6tnTHd/g30lEYr5G5wwAMakgZ9u8Ff
/JlpQwkHBO6MvW6/0A37mz36dpVx4JqISseHtG4QjHmd0FfBgfeV7moPm7sh
+u+CAckaDuja8e+4LesBjY5qe98WDvzcr5P5RbAXzGfzbRoGOeAZf7KgPvYH
bMtp0Siic8Gnd153blY/3E6K4KoFc6HL8bNEcWU/9HYai9w/zQXb1vNGNT39
UOXwFxeEcmFJVd/xXsYArBjPN9kYxQXhp/fkFCIG4FvgsYbsa1y4Fqy5IsDp
F2Qk25tLvOBC8Sx60lK5IVBf985aYIQLNM0wna9L2PBL51TGNb8RiJGr0kvd
OwIGtIt/noSNgku7XaFw9RioLozzr6n8A0fKwlwO6UyB60dNH3mVcXh6WNpW
aT0F6ctNPOQcJiA1yGtgwXYBxGXitucfT0JICn/L6KAgvlgprvygcQo2L3h1
RH9EEJUfdG381TwFasVH41wmBdH7/LwIg/YpeP19oL5eVAgluKq8B91TwJ37
edNjNSHUzziaETk6BS6Zz23cNwuh2N8hyZ9zeLAyz2d96zMhPFQ/yBHfzgOB
j1345oQwFh0+GGzbyIOw/oLUE2eF0XWCE23fzANJgWShpeeFca3Iz2S7Nh7I
G+4sfZ4gjO+C7mat/86DuRENa7OfCOPOqB1WslweWC0v2XjnhzC+apHQF5vJ
h8t37zqc3yqCq2ecpcdZ80Hp9dm3a3aK4NDeufJGm/lws95JTXSvCKqskHhd
YcuH+5Ry11lvERT6tmUGZxcfXm2/si/ovAgWhopEKh/gQ4dUuKdPgQgybJTr
a8L4oH3MPdBOTxS5L08HXsvjg+Gyr7YpC0TxoNycrNg3fDAR2DF/YLEoVigL
lIUX8sHi4vofp1eJIl3ZO9a9jA+OaQZ2GQ6iqDbf6IhQAx8Sm7jzhS6J4rGt
LlRqHx9EF53uyx4RRaEm6Xd+8hRI88ZLpiZFUXzjeiPxORTIFx++ZSkghh8u
uG9IUKRAw8bFvl1aDOPftiekq1Bg5mb5TkxbDGVVbdakaVNwLEEqZc8OMfzB
rmfzl1LQ8+fqNqm3YmhZaZfDdKTgzsr/jna+E0NW4Mgnv70UOEXXXsr+IIZi
jtTPUhcK2rREK21bxXDE/1XLNg8KGmx9l98cEcOZHw2erj9MQcFTaw1DPXG8
PHumrudZCoKpPrPpBeIYWz6eEhRKwdL1oTsbTMXxVqUq93w4BbldefF+luIY
fdJM42okBY9kdUQL9opj9f3Bs2fjKLjqLTiw8ao4xgno2EffpsAu76aY5i1x
LKELde++Qz6/6BLWSJo4NnimL9FOoyDmpo/D1RxxlDs+0zQrnYKwqvbarzXi
yDq3Yt+FLAoOz3vx7LCIBGZcTrp2PJ8CI78t9RZSEthnZTpP5C0Fv4oGB2fL
S+DgcMuRqAIK3HewtPPUJTDZMlonqpiCPRGx1wSXS6CX6gbpbRUUWPV6now/
IoHqYTXTao0UrDnJylwdKIHSPvJFjh8psJjT0TZ2SgIf7/G2vd5EwTJLmyW7
L0qgoEgqW6SFAr1780dY6RKYmTyPm95Ogbb5T83mxxIY32S6pLyDAuan25vP
50qgUaa8dVcnBQxR+azBYgl8mvyyTbyLAim30f3POyTQ56x4qFYPBRJU5lWP
bglcVpSjrdlLgUiCWzl9QALbtIMv039QwC9tZp0al8Arf6Cc6qNgUCvvyxp5
SbzfNHz28i8Kfr45IjOpJImRuV+dfAZJfNjpmWWoS+J+o89ClkMUdITdSJI1
lMQd4tKJvb8pqO45ade6VhI3rh3qGeFQ8D54cWjURknkWCR8yeRSUDp7+KmZ
vSTmhlQlOY9Q8Gb1XtlUF0kcr99qWzBKQWaaxYcDJyUx74/L+9XjFDww400o
h0liRbRQaTtxWtMzndooSZzzbOMpnwkKborMDV94TRLLjB8aRkxSEO0qjrwc
SSw1nX0onEdBFL/Q53GeJMbn526fIj53JTDZqUgSZ5e+4nvyKThV2j/1rkYS
A/kjJ4Ci4ITDnXn+TZJo7frc9i6x/+iuHbrtkviu8Hef0F8KfLSqn1/8KYmu
JeMrnxN7vgnrWTEsifvOu4pLTJP4sDOfxfkjia9OhUZsI3YZ/LPyLl8Spenz
Sm4TO4ZlHbYXpqHvXIOXP4h3qXikiNNoOFDl5q4r8Be25arX5snR0Dz6aZ0b
8caeWH01NRr6LZ+s+0hcrd/T5KBFwxkBrRaCgn9hw1HTUzf0aBh+uo3SI/7w
OkqnbQENHRf+EthCvE7oS72SKQ2llk9sOEpcvt74xHZzGj6Q53yJI7aMC2Ml
rqJh6XR5XiZxaWtLddN6GqooeHe8I7bQ0PeftZncb3HrmhbiIo9T6lu30bBf
ZnriBzFkN7yPdaBhnEIbl0tcMKblW+dCwz2J+0x4xGYrApVnHKChVcrVt9PE
r8OrSq0P0VBS9liMgNBfWFKj5nPBjzw/ZuI+Ra6/mO2r+CGIhp3x2uLjxIsc
yookQmj4eJdg9iBx7l0lz7XnabiBHX3rC/HCX16zzsXQcI3ux0/VxE8WFr4p
vUJDz9TPdi+JjU7IuwvfoOHZ0gzlW8SZxW6yFqk0lC+11ztLrC+Z9+pMOg21
b/ae2Uv8aLO0S+FjGgrLe6mbEetec5L6+4yG3GfjorOJ73/NyTV7TcPp1lsm
P8l6zNURcwwqouGr234Zr4jTfHaKvy6nIZsb7xlOzHyR+WSimoZnTsv6biS+
TU3vNP1IQ7EC0ZJZxOqWtsL+n2n4aChu1ycSDypNk/YjvTSUE/zhZkN8Xdlm
2niQhtFrhluFien7bj84zKWhJs5MeEHiT4G7hjf0l4bpNxb1yxFfWXo9zUBU
CguSI86+IvE76+yQjZcU8c24fQ7EcnJXbv9UlMLpojOiSST+Y7b3rddRk0Km
WGmZMbFMyrIRNy0pfBgRVF9O9gvN6Jtl9wIpXOatWN47RYGwtdGvzvVSKOtE
XzJO9l/I5bNXVDZLoamfxFZfYoH2JvPd26RQf/7yV/1kv/IPBMW2ukghI9nP
s2aMgrGI94s+BklhUn+/936y34/VKX+dGSKFZ6evcMpIPhhROHR+83kpLCov
f6dOzL43p73mihSyFgvZvyf5ZOCdy5n3j6XQQ1HJZIjkG/W4Vs+YXCl8feJs
lQqxneNGe7t8Kdx865fMOpKfCiaW6nW9l8KDWo8S4kg+izec2TTeLYXp7s8K
2CTfVUydK3g7IIVeyaP51L98WMF/EMqRQuMNa/eLEbu7/DwpOy2F4/N21tNI
Pl1+tVBHhyGN59zX/P76lZwfrovkhzSkMZardOzDFwruG2fwc3Sksdsj+/ET
kp/lqhMbViySRuf0pysOk3zeI+ATtG2zNN5dsGcgv5mCi54qdeHnpNE83lT4
XDUFxabxeRuipTHM9rGCQRWZLxGJtJlXpPFZpEl/TSUFe1NGApNTpdHlzd1a
EXLemDR9YD5/I40pnh+eAjmPOs2P+/dwpZFj+ebqQC45z2Y2q65yksH7Ar/3
KCdR8CP6R0iCmwyq/LxntPsqBcm08b4+LxkcEpRwu5pA3idElHIuBsrgwTEv
MdF4Mt9jO9c0x8ng9W+Ri55HUXCvo9PnQKkMJj6xY3gGkXh90Ft4ad4MDL10
T85wFwVNWmNa3+fPQN/zNqd42ym4kCoWZbJ4Bgp9CfAtt6dg6rqO3WeLGRgx
9Ye7ZQsFrdEHfjIdZmDc1HE/WEfB5aNDci9iZiA7ZnuM3yISf/DHuWNkBkYl
1vVtk6EgcKWuxIupGfhZcY7jGRr5PKt2Z10SlEUIWci+J05BybriKQtZWbS1
1j3UK0jy+dboyw/1ZPG4pqjU4jE+/HKbW+bvLIs3RoQd1L/wofqive7MOlns
MPQX0cjgw9qhXeNMezmcUfKhetMyPtyaHfrx9A45zH4K2amL+TC6PCO7Y7cc
1ot8sWcv5MPtKJ5Hoosc1orPngzV58OUzs1WycNyeCrXpS1MhQ+ZLp157Cg5
9Bns1R2meCDX6hRcUCSH3m0zTwUU8KC1xFVwl8FM/Prx+Klfi3nw/Hypo8af
mcjPvqD2VH0K3EX9umpr5fF6zhK9rKYJ2Ocb9Fz6+ixMut9p2RA3DvM99Gut
nWfj/q6OxXV2Y1AnbyDlt3QOXi+7T+NJ/oH8rJAbBsIKaJrytWX50AiIWdsz
roopYFLBlTcZP0dgS79OkiBNAVf51s1U6xmBPlZNYrOcAv5t/KBEax+BWUmK
8WfUFHBfqmDv9PsR8ArNPN+0VAFda93rXO+NgPKOZr/gwwq4ffNhQ21SdwQJ
6m2u7lTADtegm3JfuPBjtVSr9jcFvPRfcZZFGxc2nx90OtujgBvM4p4ENHNB
Szb70OJfCnjVsDBqoJYL1Soml25PKKCl8876kUIuqC1ZUXtsliKunU/bkniH
CyU+W61V1ytidu9RY11PLhjk/NcUYK2IZxXiuvLduZD4Z7ZD4yZFdLyy7PXW
fVzwCm7xitimiB4+YyORDlyYHeVwgbNPEfclDmerbeKC+z33D2WnFPFRgnfe
dxNST3WcWOeTq4gftP4qdQlxYXHAQ5lLLxWx8MV5STkBLjjLtzZmv1bEm4mh
PywoDrxat2gPp0gRG5ScPZ+Oc8D9+fCRYzWKyJh7Ou8pqQ+LY1xvnPihiKMB
Kj5I6sfAlRt/n1NSwp3y++8mZ3EgrSP4WbqyEj48fcvMMJMDdQEZge/VlLAl
fai78CEHtLMkhGlzldC2MXXv7zQOfGS8U4w2VsJNUskGh0l9azRquvKylRLe
Y+a1i0dyoPe+5pWUYCV8vfByVrQ7BwbDvk0Kn1FCTqxvgp0rB7guqU77Q5XQ
dFuIiboLqYfVNfWNo5SwN0shpXAPBxhXNUpKriqhJbMTDUl9vjlCnd2bo4Rp
9Ipzb1ZzYLvbV3urF0q4wnidc6EFBxxXpeRn5Slhm/49oXLkgNe0WkRAkRKe
lt+V/MWMA+cC1NQka5WQ+V7RynwRB954qFob9CvhmPfvRU+1OfDOsvNp7KAS
wubdXWwtDnxgJSv+GVbCLfLujiYsDrR8Vel+O6aET8+sbi1XJ+PfrnJikwgd
vW6tb6HTSX2+TvmBrzoddf/eSw6U5sB87XaZFiYdT29e0vyHxoHFIjeOLtem
o1uq7ZC/JAdWFTFAxJCOTT6peWFiZPxLGM0Jy+h4zu9Ge60AB67o0kXy7Ol4
u9u6QnWMDQ6O2undO+j4sHxb+u9RNmhd+c9qhgMd73v7/y4ZYUPutE3sPhc6
7lW688yPw4am5hCVGYfoaBsvO1dkiA2zwgdN9p2no7euIa+0hw1trydboi/Q
cbEPN6i6mw132GJBr2Lo+My250DLdzYsdNAslkmgY/b89JjxLjZs/W+bzatU
Oh5rahRx7mRD/LdCN5l8Orb39P5sbWbDLsUaiSUFdBw/ZOWiSMy0actwKabj
ptLHNjs/sSHn1SjnZQUdY52OB/V9ZEPjpXmnXJroeGSascywgQ3XyxZrRrfQ
8fh8P6uIeja48FaVvmyj4w5mYW1PHRu47o40mW/k/52FTR7VsmHmisuJL4fo
mGa6IMCxmg2tR28v/c6mY4T0qEFTFRtuP3zcIT1KR76Y1Q4b4gVz3jNdpuh4
NcJdzuoDGyasPpVdpOgYpRCRXFPJhqIz3/e/FGBgZefQbTvizYP8LGlxBqr8
MpHyfs8GJSZtqymNgZK33Xz/VrCha7viH2cZBi47cnLzZeLD74yXv5zFwPlz
xo5UlLMh9rp7hbMGA23s6212lrEhwD/kaDCLgfRcc0kJYsett9SvajPwltAE
/XUpGwxozQHVBgw0achbrks86weH1TefgQeecax73rFhqlimXvA/Bu6xanl2
l7jyuKWu6VIGjooJhBoQP7F3btpixkDfJM9ff0rYcM345JmDwEDN/IaHJcSn
ZZIMIiwY+HrHmoJ4Yvf+3NZUS3LdolXXndimrD7szToGVugl9psRm6QOLmjZ
wECJR9ECisTKJyU6ORsZeG55lfdoMRuEdmpFSm9lYCTsMv5E3G+Ci3TsGbiX
t3pDHnG9nMO3lTvI85Ku5N8mfjUYEO2wm4Fi+ltCLhCnvL+8NMCRgU33zqYc
Jz6Xlt0b50zmr09/lhexz5mquExXBv7Nset0IrZ36DOv8GCgS+40tZ3YbInw
wDdPBsqdmu/3r7/Omq2eyPdm4POoXot//Xcae5mF4hEG2pozPeyIOVXbfhsf
Y5D3h55v//rvrem+160DGGidqf/MhbgwNGaNxwlyPX+kzYf4vtMj7tmTDDyl
uHTnKeKY5eW3bp5hoEbOmGEcsZ/id6uXoWS8+7V3phM7jFBjDecYCILFbUXE
q+vodwcjGTg2vyCnk1g/Y9Em8WgGHo2a/e1f/10+YgtPM5aBKSF5bppkfidd
vNPNLjOw2TMV//Xfu1ZE2m5PJOvtX3jkX/89a6wo4+JNBq6d59ZcT5zQ2LE9
PYWBBjdrJEXJ+gdnTQiX3GHgyUrDy2bEG9wXOIw/IPdPjEp/TrzQwlpCPpOB
M6WcFo7/68+r7c81yGbguu42eTMSbz8/pUi7PGeQ8+tgUx1x3dP8V8GvyPpt
3vxcjcTri+gW16v5DDR/fPzXYeIwS9m31cUMrFtuuF2dxLuXpv6BvlIGau08
eTGIeCu1Zo7Qewa6Hbql0E6s+fyUt2ktA4NlP+qmkf0iEXedvrWBgWrxd5/I
kP3FPvii7GATAx2mCy6eIC7Q+q16p42BF2D1SkeyH3dd2VMr3UfGv3H91X/7
WeUZTdlrgIHxzcdZncRfG156VA4x0LnpadJhkg9cZeUFz42S+XyycdXdf/35
qPL/pgWV0bwxJMyU5JcFD4+e2SOqjEOFuOsH8UiFRk2+hDIu+k1TSiL5KFA0
yD1QVhmFZR5a0Ui+CjkzP4mjoozKe8ZClUl+W53S0btJQxk910rF9xOLF0Qu
zGIpY8RgdXh+Cxsu8rqrPPWU8baqhKrXZzYk+l/7222qjNy6rwKTHWx4eFDQ
tXmrMj4carKuI/n44IWsJybblLFH3PhCey8bjB7tpuJ3KuM2U8uHv36Q/Nn3
PHHTXmWc6v0aotjPhjcunpXvvZWx/2lkSjLJ7/U7Phrln1dG/7JMhX3jJD8H
nAmiX1TGW+It9McTZP8kGr4PuKSMh5W1/kxNkvz/McLZJFEZ616JL7zDZ0PP
RrMrj+8q40le/nM1IQ5MrL43mVKgjMWZh9zqZDgQnJ8SWlqsjA5GTbZmsuS8
Xnhdpr9UGT/M7YvPlOOAuPolzYVVyvjFVUzw6iwOKEwGri9tUcYFF5xjLpPz
8b/H1kk/2WS+9vZz9ch56zNndIkxSwUnZboraleS8/TC7xJ7bRVcJ6WWk7aK
A35C/dYn5qmgoubPzyctyfOHO/e+m6+C6jYHvi5dz4ELlRXn7c1UMPdldFbr
Zg48OHmj9bi9CpYmMN482cuB7l6LwJIIFUw/wlpRFsIBi5TaO3oXVFDP6sd9
43AO3N6xqyY+RgX9L+8sTo0g52/VEea+BBV8Z/RNLPoiB9qe3K4WvquCxzYN
5l5K5EBj0F8NywIVdEp4mLQ6gwMlM19XVoyq4Eq34cl95H3qjrmxco2zKh63
+hJouIy8H26khfJcVVHdykhktTkXvjt1D8zbr4qP2pYG7UEusEISXp/zUcXZ
wTN1ktZwIa18cicGqWL4LfNN/9ly4d6mkmvPrqiieZdrOucgFx442ypcr1DF
3BN/V18k75+Pw/1mehiq4Z27xX7f5oxAhP2+DcJ/1HC4I9rz+OxRWNSR+jCi
Rh3X5p/86r7hD1ybd+NxzQYN3EsTXVQTOgani6KvbcjTQC9ZwQ6pb+Ngo2x/
74OWJm4QTNshZzIJK30qds+M1MT31Jv1j52mIEXFRav6jyaGPEhkD4XxYNl/
+kYu45ro9ujNtR/nedC0ftR0YkITVw0vK+u4yAOJgHMbtPiaeI7Wk1p8hQeH
Gx75Bgsx8Xd4ja53Gg/w3EiRgSwTZY74eK5/x4Pvw2F7onWZeP/mrhni0zwI
FtvowdJj4um7GzszhPigoKp4JE+fiXV2B/ttxPhgZfUwrNeI/H3/uyeRMnzI
SavJMF/EREx+XPxVmQ+hOxWmhlYycfXABk2RJXzQepeeuHE3E+UK9/ar+/Ch
1mAircOBiQ5JE3+2H+FDYOK6Z56OTGzblKAWfYwPVQf66845M3GL9PCb3yf4
4CunL1nowcTwHtrfmAg+FO7JCpp/jIme590ULW7zYddE7l65aCZ+WnHd1KOO
DyIuooduxTDxwdY70dDIh6wq+5MGsUw81f+javYnPgimjCWtu8zEZGMj3vM2
PjywXPLxTBITJ0z28Bp7+fAnPt+Sc4+J/uvfm/vz+BBrWKLXWMDEL95K0ju0
KHiwZLdkSBET9Zy3F0xrU1C4arTPuISJuplJ1+7Oo+D3Tu17cWVMbJxbXvDV
iIIN56LUt1QzUTbq7r15SykQ+7p1dv1nJu5tNgsXsqFAdeAX93Q7EzPOp1Ne
m0g9/yesYX4nEzcsKQxvIPXxPqmXMZe6mMhzMyuM3UZBkamy5KY+Jj524mR/
daIgKLabqhllIidHyL7gCAXxN4I7To6R9VagNH8epeDR/Tn5hhNMHOpm/5Tx
J/X2m7WB0TwmMu4/c7I5QcHi/gyutRALm3WKam6EUMBeeayvSpaFrCKbZD9S
/7uPiDRU6rEwdrxbZU42BY6PVtc6GLDw2hHD4pQnFGxzDqsaNmRh0uz0Mu0c
CtbUCZfPMWYhb4vS4LznFGhnCOU7m7LwvV1Hkkg+Bb0uAvcmV7Hwu0J0M62c
gg463rloycKcUw/n7q6goKn+dIr6WhZeX3uhMv09BaUrppMsrVgoFSsus7iK
gjTG35i4zSxsna13RLueAtdGXuC8PSy8FB+nve0zBQ6Ry/3fOLKw8O6SQK82
Cuww6OimvSyMD9Kac7KdgtVZU95++1i4712mUUInBVpRky7FB1govoHeeO0b
BSorl+6182Ihh+d7KPY7BbMnAvf0HWShkIa4XVg3BSLuE9tlDrNQ9wLF3ttL
QffKceud/iw8aOLqPfSTgraJxVaDASzsDS8zreinoDHbf+3p4yy8+LvOMnmA
ghLVsZX3glm4W3O5/opBCu5Mji7mhLCQ+XeLnO0wBdefmJiEhbHQr+bT4Aw2
WU+PY8aK51j47UW/ZAVxyKcRffNIFm5n7xAx4FLg8pSrEXmJhS9WfGW/H6Xg
YIgt3yqOhSvb7HoD/1DgZ5vbIn2ZhTvlevS0xig4/8cvJjaRhQu2Z6UfHCf3
L28+sPUaC0NYGl8kJyi4cdXUcvZ1FqZNK7neIc5aOsm7mszCvlmGe8omKXhF
29WyM4WFJlqJdZumKChuf52jnMrCyFHN2E/ETSeDD6SksTD70J6pRh4FnRs7
VzvfJ/Ol7XvXik/BD/UVGqwHLJR5djTpLfFk8XTz/QwWKpjreCVQFAhd3puz
/zELoz3t10wRS7sWR+tls1C/dr/3rr8UqImFrs7KYWH1zu23pKcp0G3pVj+c
y8LpirJ0R2LjB6t5xi9YWDkO/Azi1VZiOc/zWOjzKTl8yb9+urJHdEA+C8Pq
9V8HEG8frNi/9C0LX2kzluYQ732ru5pXQMZraCn0r7/rGROp/raIzI/ixTl0
wb9wzGlg6lQJGd94va8l8ckFG5qxlIW5bybo3sTnBDOfCpWTePvvFy2WOLZR
Orq0goUBopcts4iv3/Xef66ShSMvOysriO8eq121roqFezPzr3b8609bzlen
1bAwSF3j//3uFwqxU1W1LNysLyg38a//3sf+FF1P4r16++u/xJWvtjzd1EjW
v1s9618/vTEy5+LMJhY2mez49a+f3rFr1v6Pn1i40UPId4z4h/6xVQktLLwh
yrIYIB7mN6lt/8xC2ZPFuz8TT9QsmlJqZ+EV1Z8F//r/QimJn9o6WOhLT/N6
SCx1ePzJzS8snBEu6hJFPHvljouOXSzM2KZ+x51YTT7PQ+M7C43dxQ1WEOt0
01d972Zh/8HmaTniBbkn1NJ6WWgh+kD1K5nfZeHtk259LIx7dD38AfGqbWaf
dPrJ/n5VZ+pNbK2T/KR/gIVnDnqZGP77fmSCupAxyELN71eCfpL1dap09PD+
zcJVCv4yKcS+XhpqHA4LHWgK8n9JvASbnZ3MGWFhp4Zp+H3icJnvTcf+sDDw
TtMqK+Jr2XcvTEyQ/KNzIC2UxNudMyIer6dYeCfg8xo6ccYWN4tgPgsbPrxa
9IjEay6zXHXFXzJ+rtWRxcQFI9qT09MsPH2zefItiff/AcrSylA=
         "]]}},
      Annotation[#, "Charting`Private`Tag$55508#1"]& ]}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{0., 9.999999795918367}, {-Pi, Pi}}, {{0., 
    9.999999795918367}, {-3.141592653589793, 3.141592653589793}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7226757063173084`*^9, 3.722675757857395*^9, 3.7226758382883863`*^9, {
   3.7226758724206543`*^9, 3.722675922525606*^9}, {3.7226759776691313`*^9, 
   3.7226760119251947`*^9}, 
   3.7226773317811637`*^9},ExpressionUUID->"f953eec8-8c6b-4da7-aa96-\
d6abfb4a2af7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"NumericnaResitev1", "[", 
    RowBox[{"$\[Lambda]", ",", 
     RowBox[{"\[Pi]", "/", "3"}], ",", "20"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"$\[Lambda]", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7226760153102427`*^9, 3.722676088112176*^9}, 
   3.722677334152257*^9},ExpressionUUID->"0052b3e2-32aa-4de4-8413-\
fd93e9f089bb"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`$\[Lambda]$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`$\[Lambda]$$], 0, 4}}, Typeset`size$$ = {
    360., {107., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`$\[Lambda]$55595$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`$\[Lambda]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`$\[Lambda]$$, $CellContext`$\[Lambda]$55595$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> $CellContext`NumericnaResitev1[$CellContext`$\[Lambda]$$, Pi/
        3, 20], "Specifications" :> {{$CellContext`$\[Lambda]$$, 0, 4}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {154., 161.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7226760484587555`*^9, 3.7226760887205486`*^9}, 
   3.722677334916623*^9},ExpressionUUID->"e733dd38-144a-47a9-ad3f-\
8b4252b1b863"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Izra\[CHacek]un podan za za\[CHacek]etno brzino v spodnji legi", \
"Subsubsection",
 CellChangeTimes->{{3.722677307836238*^9, 3.7226773226867714`*^9}, {
  3.722677354244156*^9, 
  3.72267736507007*^9}},ExpressionUUID->"0aebbbe6-6087-46ee-a06a-\
f51c5be4b7b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"NumericnaResitev2", "[", 
   RowBox[{"$\[Lambda]_", ",", "v0_", ",", "tmax_"}], "]"}], ":=", " ", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "slv", "}"}], ",", 
    RowBox[{
     RowBox[{"slv", " ", "=", " ", 
      RowBox[{"NDSolve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"eqeq", "\[Equal]", " ", "0"}], ",", 
           RowBox[{
            RowBox[{"\[Phi]", "[", "0", "]"}], "\[Equal]", " ", "0"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Phi]", "'"}], "[", "0", "]"}], "\[Equal]", " ", 
            "v0"}]}], "}"}], "/.", 
         RowBox[{"\[Lambda]", "\[Rule]", " ", "$\[Lambda]"}]}], ",", "\[Phi]",
         ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "tmax"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "slv"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], "\[Pi]"}], ",", 
            RowBox[{"2", "\[Pi]"}]}], "}"}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.722675202444319*^9, 3.722675209058422*^9}, {
   3.7226754819993744`*^9, 3.7226755063966794`*^9}, {3.7226755439909925`*^9, 
   3.7226755956714735`*^9}, {3.722675629740344*^9, 3.7226756778797846`*^9}, {
   3.7226757399649982`*^9, 3.7226757888376055`*^9}, {3.722675824701396*^9, 
   3.7226760091641183`*^9}, 3.722677326820586*^9, {3.72267736862671*^9, 
   3.7226773860511284`*^9}, {3.7226774587750645`*^9, 
   3.722677460256998*^9}},ExpressionUUID->"fd2629ef-fa32-4aa5-97c3-\
be623d66adf4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NumericnaResitev2", "[", 
  RowBox[{"0.3", ",", "1", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.7226756911079907`*^9, 3.7226757046793814`*^9}, 
   3.7226773313599825`*^9, {3.7226773976570077`*^9, 3.722677412788328*^9}, {
   3.7226774727988358`*^9, 
   3.72267748785216*^9}},ExpressionUUID->"e32942c6-5b75-4e1a-b4b5-\
49c2ae593274"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[{
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwl13k8VN//B/DZjmVmMEgpxSxkr0ii1LwpVFqkiKgYS0mJko+yFAnJRFlS
SCpSREWLbNeSfU2JKGVJaVGUXX7n+/j9dR7Pxzwed869933er/flCI5ZuVJI
JJIdmUT635oSJBDRcbm4nhTx/2tlG3vrHrY7X04haLk9XueqSs6x2af4npRk
b3W8phBCJcS+wH8rPsJSxuuRdSePjitd42/TO1B9mH2N3zZ9KO6X0j2+3MOc
khLOPb5oV6/qD6UCfoX5f1t5qgX8tLpU729KtXzm2y6ZWKNafk7uha4jy97x
1RUqaDrZ7/gH+a3Xvh/v49+8dLWgRb+f7zmg3pef85Wf7OOW02H5jU/nhKr2
GPziW6sOG/7K/c2/xKrXSHMc5b9zmzGUiPjLF3TtLqU2jPFvs7rbfW9P8r1f
hgqOqU7xx/8r2GHsNct/5MXcJb95lu/smxK514oEDddlTz2wmeVLDfSU99iS
4HPlolQTl1n+8+VPFzkdIMGiherfjpyZ5Z++VcO2PUKC0DLTc2VPZvmaL6jb
F4SRwEbmTN5h7j/+n0Tz0I7nJJjK+y1bPP2PX5IVUL9XgQxp/h5DK/aQYGb4
bIrCazKsIMQnwveRoDHbrZnfSQaClol6nEnQaeLu5PiBDB+F/WyhFwnEykjp
CV/IoHhz356vF0jwfe3ijLczZLheuaMyrYgEI+2N/lnKFLgioXdDhkuGmhCp
vOveFAhJndn55zsZqguTetJJVLBc8dxbc5QM4c1v3zbSqKBYduKyYJIM68nf
XUfEqPCid6ilBVFgl8paMx1pKoyodO54oEiB+lEzjTAOFQTZT7a5WVLgzfS3
JUJjKhgXeG7uyKPAsOscU+4MFSS3aLhLvaBAQkCNVmsIFbrfDUSYERR49nTt
9IUwKvjNONTkN1BAtDj37m8hFR7yLcwvD1Bg32qG7bVkKrCrVE23LKDC0yNo
YEsBFUhtH6HoNN53S4tg3S8qhH4tSTsdTIUh1ZcenaNUECelUAwjqLDUaM0j
73EqyGjbVT6Jp0Lx1OexhH9UUAlvNc99SIUUMbMr+UwabFlbvv3WZyrciOhf
uU6NBrG3bztEWNFgJ+lVitCBBvIvgovN7GgQ98WgNe8ADZJbDigiRxp0aEcc
aRfQIGNW4WPwURqkqXl8ZLnT4PmeOGf/CBrM5Mr37z1Jg27G+cOeJTQAve7L
G4U0WOrj5rdbA8GMt8savxc00F7Tsyt1BYKgTP3quSIa6JFslw/pI0jlu9iF
ltLAJGrz5zMbECBTuBJaSYP9d7R2ZzkgiDL46ePURIOE1yPLKdEI3sm4/BF+
ogFadWYwdxRBZ6KlTwFCwJweL5+aRLBXraK2TxSBTJnXDVOSCEj3LzZn0BGw
twmsu5gicFAht3inJAIjV9MKkaUi0Dpp9qxoPgKfeEbqPlsRqGPFlzFUEfT/
vWrDKBaBiK2LVsabIrhlvPLE+woR6KrQOyI0R3BA2BSdWycCivS1J0I2430p
o9pdHSKwp75xWLANQeuu42uTR0WgLGte5exuBCWPtrK1NURBs+lnd5IzgoDZ
QaO5FaJQZFxz1skVgeHmc3atq0Xhvf4kTfkggvyPBVdOmoqCb03d49TDCO5L
qaISR1H48aug3NsbwdWj5KHtV0VB5D3/dnAQgt0FySKcG6KgNK+2Ue4svn9k
wBu9IwofdFK/ZgQjuJTs6XD1sShUmRlOloYiCK3vauppFIXbibOxjZEIvNSf
5nnRxIBNGF/ek4Bgy8DhwCveYtB5sV5JOwuBWSAve6OfGDyxKsu2z0ZgItf9
bixIDBJTnJ3DHyBYY7rNwD5KDJS0H1u25yLQSF8+yrsrBr5P1oBVPgKG659D
T7rF4FtfumxFEQKx2eyrB/vEoOxd0JXKYgS0eNeqhUNi8NHIxqyiBNdNZTsv
aFwM5nZf3/GcQPBdueCDmYw42CXvmDpbiaChP3B3h7k4tBPxhsJ6BDUB+uci
t4vD3xUfrAQNCCrnDT8yshaHxceq7+s1Iija6CiVJhAHjaBM+dYmBNl3TOrc
A8Xh2X7f6S+tCDKNpicUQsXhfN5t+cxXCO68zlNtihQHl/hkP5c2BMk0lfO6
ieLgkzdAefMagdBFFKYfiwM7UGV7/FsEkTOlng8KxEHVlhG9vgNBWJxfygFC
HJwlT80fwA6q/DpV0SgOhX8yp9TfIfBUbngS9UUcAh9xlGO7EWzvj9FUVKSD
QKZpV99HfH+a/a8dlOkwzlarsf2EwOLE6qAkDToMN+v21WNvonxokV9Nh2+H
3SSzevH7YGv6ylrS4clDK9jWj4A4GKRkZUMHHwXz37nY/NzWmhgHOjwy6t3C
GsD1v95PQdKdDssMf07UYq9yeEmIhdAh+ryRGWcQ199t+cPmEXTY47vDxBtb
95uHbNglOjhI3ftSgr3stIwbNYkOuts/6+36gp9nmauUSRodNkRzuq5ha4oX
PD97lw4JD6y0PmCrJR5g/Mujw6BQv+XAVwQZPY/zjV7QIatnFS8FW0VVZL8/
QQdCq5LTgc19mv1wooEOFsIFXPMhBDdn5+xWt9HBVUJR2R9byXQX1beTDjcd
9V9lYy9+PWk9OkAH6ympleLfEFxX2Dan850O1Wmin1diL3S+mek1Qgf1T4Gm
DtiJ90d35k7QIepi5M4Q7PkjZtM//tEhQn4jPQM7zvD6HS3EgDe3S49VY8sG
/9jmwWDAr++skM/YV2pg/J40A4ptthhTvyNgseJuflnAAN5gwIMl2Jf2DG5W
VWRAvtnzqlXYEqlrRl2VGbCZoAstsKM+C5PvaDAgHYJJB7Dpyz6Z9q1gwHwb
VY4XdsRJvWHOagbMWyE6HIQtUhye6LiOAQM31A9fxA6ldRmnbmDAetmEK/HY
1K3Lvr3fzIBPKVaHUrBDYoPjFlsywGTY+dstbFLX63X2Nnh/exoVMrCDuGqD
1xwYsKYyZvJ/nnH3j+kQMKC1Iic0Hfv0oybDBe4McAleWpyGPTnB6bM+xgDT
qr+3krD94GRU3En8/5Py+rHYY+E1q9r8GbBM8aJvBLZPs0KPdAgDHrwxdfHH
Hp1/LMIyAtvBeM4D+/j+cp3oSwxQiPIx34v9K12uqzGOAYEdr43MsD1/HApl
JjEgcadNz3LsH3pF2hZpDGDf/rZsAfaRAKm3F+4yIIoTpjmD38dQheBszQMG
WNbJvfmArXS54/ClfAaYk3wFRdi792+33l3IgLG87JVXsS9oVvIXlTPgFvXm
pmPYJROGGh9rGCCirpe2EXv0Ze68jGZ8v6cs1i3AVotVmfNoZ0C3S9XiQVxv
V7SlX4/3MeCU7YH0IOzqqbCS4iFcD7V6282wZ6pnMs/9ZkBBZrchA9tN8CVQ
ao4BwuzZjihc32uvlqqqLmLC7usxOsfw+fByWSXzg80EjUiZ72zsDJ2smceq
TPBO/jrYjM8bqyGhdf0qJvQG5d9Swe4nefrbWDKB7cZWfIjP78KmPtfFe5hw
vrOw2wJ7e5KdZe8+Jhg0PHnXj8//81WmKp4eTIgmZcRKYkcdXtx8PowJX0xX
/QbcP8pWXymwEDJhVjL6VhXuL2M0sTvScUxg2XXEbMZ2TB31S0ljwlH4wDXH
/UnvdR33SRET2tRbZDgfELingYR/BRM4w/VpMe8R3PB8Og51TDDSaTk8i/ub
mPithoa3+Hr69veauhC8X3fKt3+ECd9OjzTs6MR5xRh2vD/JBL7HU/Y93C83
dbhYeJEkgJulnDWH++vj45bsGQkJSH6rLbjTjvvrXdU6WXUJkJist2jA/XmZ
dPuSDQckIGOKfCMe9/vPws8h8a4SEKbms6MF50EKfXxw0EMCilzco8SwmTT5
x1F+EqC2inrXuw7Xz5idWftlCQCXxzuXViNI737v6V4pAU/1fCQX4vxxsPvZ
VlgnAayRF+u0ShHMa/9nINkqAYVyZ34Z4bwKaVai5r2XAKv+7R9scL45ljtd
nRmTgJeCo/VHnuP+lDlQGq0uCWI39hxmP0TwWnlMuXe5JHAbKUIGzsuLaSKR
evqSMCTbrP4H5+nUddXdnSaScMDTtLkY52+H0P0L10ESvpYVPNO9iyD2xA/W
00uSsCZGxONWCu4f/L9O3aOScFNxnn9cBD6fxmpiT6ck4YXj1AmpcPw8Ntjn
RJOlgJE2Yh9+HkH5prIpEykpWCki//doCD7vVsLYexpSENXxavn8AATfXFVe
+jpJwU3PtA+tnjiPoqzVpJulwJiaGfVzJ8776IimoTdSMN1tb4cscX5eLvSp
7JaCnndKI/LbcX9K4JT9NyQFUxvkzulvQaDYMqY1TGHBM3VZsoUJgvbO8pfW
iiw47txt36GDwPzH3nGuNQvWBG4r8cfz2Y1559rO2LIg825FkB4TwZ+1Wbnd
9ixYva2TPCSO8yBy+mCCgAV6481bLPD8N6Wa3CHuxYJj83UqP0/TIFvwvuBX
JAuyYlh6Z7/QgNVxIKCEYEEJR9i5Es+bbnPhtgqVLEhcjdxD8DxatPShnl81
C1bWUi83FtDA/STph04TCyZcVNPt8mlQLpO2L72LBbtG/jzbdI8GPtt610eN
sUAs5JV18BU8J5e7kPdqSYNJwWy7FZ6Xfxm/WxS4XBqE/9ZlH8TztGjZDr2b
utJgMPjD5RSet/VL1xz8bCANzq+WBsTa4Lm7kNV43FQair81cm9tocGO/KLE
i/ul4Wikoa2aLg2q0uetKI6Rhr02Y7kteL5/ElG5n/1XGt5WDjlaX6JC5pZ6
+fAJaXj3azd1SyQVrjNfvfoxLQ3/xQbmrMHfH2djeswKKTLwptV+ESuIClsT
p5bZsGRgU8Gc6sWjVOi9u2LuoqYMvGdPKJVZ4O+Z6uTUcScZ8CnYvlwFUcEN
nfzY1CQDt0wXKad4UGCRUu3b6VYZOLMoPqnXjQJNBkua1d7g628Y81IWUED/
yMvikC4ZMCMO6aXYUkCkTS5J/4sM7I2oWeBsSoH0m0+tb5BlIadYSRPwd1b/
2om6o3qyEO9gpstvJIPzcf8nzOuy4DG/fMKBTYblBzWbtjrNgydx2vv3b57j
N8toMU4aykGM3dase+nT/MKckCQt6nzQrT12Y97YON+frGHZ8H4+nPEqH13S
Msqnd5/e5Jm/AD4GGgwVBg/zBzI4cakB8nC914j8afkXfpzaQlqB9UJgTLde
o6d/5Mdcd6t2Yi+CebYDAyd+tPH3xu1rYg4ugsanZaG1a4v5ExvTJ1NLFCA/
Qy1QvfB5ad+AiV95+GJQp/WEWv18VXprnY5Co9MSSE8QnIM7H0sfnD8pfVBb
EYRLbBmNeYOl4dbOFtS/isC27Bo9P/WzdFV32r3wRiWozc63VYkbLU1UT3rQ
aMEGqsnrj64e46VnCGGiRQEbVNNmtTW8p0u3KVin1ylzYMVpb8JJbq7U2LPa
XvoCB9K+n35FY5KJqY6vZpWRHIiTbXonJ0Mm8jcwdf+L4sDUTcNWrjyZWLpw
p9j7aA7UnH12boUymWBWvsvPTOCASWXIx0VGZKJj4U8JuMMBS2JbkoYHmfB6
OY/wLOWA7j9ByooqMpG6WKDc8JcDilNh5cQxCrFmpeYywTgHFHi+aid8KMTr
zX9WT0xwoF9BZZhzikKI/RdmoTzDAUNZ2k2fEArh1Xr/eACFC0crrK/9jKMQ
EDZKaElxQTd+xHhVAYXoHQ7dJ1TjwuW7Fq2sOQqhXHE3Ybs9F7q513eonKUS
TVoTd7oduJByxGPpp3NUwi9hU97h/Vx4eH/m/rVwKlHv/rU5zIkL97xHCFI0
lTjO0hQvPciFg/uCDe+mUInSfTn+y324sG6TipbNCyqxdyLfkSXkwvoqiWaT
31SCJkDHblziwmIeRyfhD5XIqbcO1Irhgq3UhwOfx6kEOXXs2qZYLiSrn1AN
/EclMk0N2s5e40L8NRQQyqARf68Umv5O58LwwzrlaWUaEaNdrvGqhAt33C73
RlvTiEwDe/EQAv8+5XSxxJZGlG74M6hTzoW+5I9Xv9rTiJ92S9Mvv+RC1+/j
n/QENMIiLFJpZwMXcoar9t30pBEiPVbzWjq5cJd5XrchjEb4x/TNNv7hgmlW
jkhwPo24khTQHTjGBZefv9+sf0Yj7mfIFWpPcKG8at2qyQIa0VFk7iec5kLD
Ao97zqU0Qv9r1shWCg9Wt7lekqqjEb+MfQbrpbB9ffwrP9AIt1Faa60GD75G
HzPNRojYf39jk4MWD6ifqplvRRFh4xRaP6zNA+ZjyvQ/cUSYNVOr5HR4kHTS
wtJMEhFLsyiFTqt50OmqO/14PiIGBKT0yQ088DjDMUCqiHB5Ne2nvo8Hissi
rOJMEeFwYa1v0X4eNOdf+e5qjojd4H9ihyMPrjtYN+ptRsTGnKmjJ515sDC6
3K1uKyKUIycFZe48qDxuIvtmFyL6jMe32vny4O38l0ruTogQPBphX4jmgVy2
qcGV04g4ErJrZstlHvSuTDu+JgARJ3flv2XG8kDbguPRE4iIiL8nL8Uk8CBh
t1iSUjAicgwnp6+m8ODY8/1yp8IRMVk2156RxQPzLxmul2MRQYl1fHzoAQ8E
hS9pIvGIYLqUCTVyefC5TeHEfwmIUBQ5tzHnMQ8ePPcus7yG979F5PGTAh6k
XTwJ728gIuYVU1hZzQNI4qTuv4eI67ePHgqr5YEIoZ9x8z4ibvs0bdhUz4O8
oPyLPVmIeDo/Zqq+iQey7d5/d+Ugonuv7KG2Nzyw1FrvsCAPEap9Czf09vHg
VMZnXfEiRKzIP614Z4AHzjl7wxYWI2LN+a5J10Ee1Cl4vVxagoitqikPvw7x
QOV4mLgBgYjjHmzF3795kGitVLKqEhEBRsGTj0d5oPrJ45z2S0Scl+h97fOX
B47Zumu4VYhIzL19cWKCB6Oaf4IoNYi4dZZ28MUUD65u2ir5Eztrp6tJwAwP
lL07L7fXIiKfW7Vk/T8erOeZ0ovqEFEyunRybo6Hc1Tf70Y9Iv4PAipcWg==

         "]]}},
      Annotation[#, "Charting`Private`Tag$69292#1"]& ]}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{0., 9.999999795918367}, {(-2) Pi, 2 Pi}}, {{0., 
    9.999999795918367}, {-6.283185307179586, 6.283185307179586}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7226757063173084`*^9, 3.722675757857395*^9, 3.7226758382883863`*^9, {
   3.7226758724206543`*^9, 3.722675922525606*^9}, {3.7226759776691313`*^9, 
   3.7226760119251947`*^9}, 3.7226773317811637`*^9, 3.722677413599492*^9, {
   3.722677465420367*^9, 
   3.7226774886165257`*^9}},ExpressionUUID->"b89a5ee7-83de-4d48-b59d-\
2611b16de171"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"NumericnaResitev2", "[", 
    RowBox[{"$\[Lambda]", ",", "1", ",", "20"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"$\[Lambda]", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7226760153102427`*^9, 3.722676088112176*^9}, 
   3.722677334152257*^9, {3.722677422491093*^9, 
   3.7226774317102795`*^9}},ExpressionUUID->"d6f8e8e8-5595-4f83-a0d8-\
2f380df68d76"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`$\[Lambda]$$ = 0.25, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`$\[Lambda]$$], 0, 4}}, Typeset`size$$ = {
    360., {107., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`$\[Lambda]$69012$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`$\[Lambda]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`$\[Lambda]$$, $CellContext`$\[Lambda]$69012$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> $CellContext`NumericnaResitev2[$CellContext`$\[Lambda]$$, 1, 
        20], "Specifications" :> {{$CellContext`$\[Lambda]$$, 0, 4}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {154., 161.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7226760484587555`*^9, 3.7226760887205486`*^9}, 
   3.722677334916623*^9, {3.7226774247529917`*^9, 3.722677432443446*^9}, 
   3.7226774689458084`*^9},ExpressionUUID->"5f1d3333-30c8-4276-9b1a-\
41c552430f05"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1218, 982},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (March 13, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 185, 2, 101, "Title", "ExpressionUUID" -> \
"67596ea3-3032-4558-950d-71b09529810d"],
Cell[768, 26, 420, 8, 30, "Text", "ExpressionUUID" -> \
"f3aa0140-80cf-4cbe-a455-44eec86864d4"],
Cell[CellGroupData[{
Cell[1213, 38, 175, 3, 70, "Section", "ExpressionUUID" -> \
"a0f4f050-dcba-43bf-8960-acc7d794d8b1"],
Cell[CellGroupData[{
Cell[1413, 45, 171, 3, 39, "Subsubsection", "ExpressionUUID" -> \
"0a42cbca-7f0b-44e2-b55d-017cf47762d4"],
Cell[1587, 50, 230, 5, 30, "Text", "ExpressionUUID" -> \
"3eeb4128-ebfe-497e-a19e-5e508b04db8e"],
Cell[1820, 57, 687, 20, 50, "Input", "ExpressionUUID" -> \
"4efc3115-5077-449f-b34f-1275c09b2a92"],
Cell[2510, 79, 211, 4, 30, "Text", "ExpressionUUID" -> \
"24e964fa-21fc-4652-bb34-ca46806c13de"],
Cell[CellGroupData[{
Cell[2746, 87, 1063, 30, 30, "Input", "ExpressionUUID" -> \
"a4569c38-260d-4cb8-a43a-c2f1fc8b4a80"],
Cell[3812, 119, 919, 25, 33, "Output", "ExpressionUUID" -> \
"94496ef1-3e18-4b0a-a794-41d0502b4c07"]
}, Open  ]],
Cell[4746, 147, 184, 3, 30, "Text", "ExpressionUUID" -> \
"cb08ce48-5a0f-4681-b080-7a3f5f84cb3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4967, 155, 183, 3, 39, "Subsubsection", "ExpressionUUID" -> \
"2b7053d9-f1b9-4708-a2bb-84fb4d5f1651"],
Cell[CellGroupData[{
Cell[5175, 162, 294, 8, 30, "Input", "ExpressionUUID" -> \
"25c207be-c47b-494c-9880-aa130ae52346"],
Cell[5472, 172, 1356, 40, 33, "Output", "ExpressionUUID" -> \
"9286747f-11dd-492e-ba4b-54e6de7b9c14"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6865, 217, 249, 6, 30, "Input", "ExpressionUUID" -> \
"b845731d-9782-4585-bf68-ba61e7e2cbc6"],
Cell[7117, 225, 2177, 62, 55, "Output", "ExpressionUUID" -> \
"3b63f80a-7dc3-49ea-8217-9ac7662bddbc"]
}, Open  ]],
Cell[9309, 290, 429, 8, 30, "Text", "ExpressionUUID" -> \
"ba13c526-d365-4d2c-ab57-b2e0af44a73e"],
Cell[CellGroupData[{
Cell[9763, 302, 485, 13, 30, "Input", "ExpressionUUID" -> \
"c9ce1815-6118-4f55-98c6-c3c67b2370cb"],
Cell[10251, 317, 364, 10, 30, "Output", "ExpressionUUID" -> \
"b045fc86-9ab0-4890-84f8-0b0c33e384e9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10652, 332, 299, 7, 30, "Input", "ExpressionUUID" -> \
"df917460-30d7-41f6-973d-ebbac144e1db"],
Cell[10954, 341, 688, 20, 33, "Output", "ExpressionUUID" -> \
"6ba23aff-229b-4ebc-ae26-199e5f56deb9"]
}, Open  ]],
Cell[11657, 364, 230, 5, 30, "Text", "ExpressionUUID" -> \
"75bafeb6-d3c0-4356-9f13-b5100376b012"],
Cell[CellGroupData[{
Cell[11912, 373, 501, 13, 30, "Input", "ExpressionUUID" -> \
"7bb72f1a-4a18-436d-aee4-fcdd69ab5430"],
Cell[12416, 388, 884, 26, 46, "Output", "ExpressionUUID" -> \
"82cd6c46-cdbb-4fc7-8113-7ea2aa3feb79"]
}, Open  ]],
Cell[13315, 417, 168, 3, 30, "Text", "ExpressionUUID" -> \
"f5ef901e-045f-4ba5-b858-9781558b6aa2"],
Cell[CellGroupData[{
Cell[13508, 424, 579, 15, 30, "Input", "ExpressionUUID" -> \
"927072d1-0384-42fe-8881-f4f17b53bf8d"],
Cell[14090, 441, 541, 14, 46, "Output", "ExpressionUUID" -> \
"2a20fb95-cad5-44cd-a8f8-b55d2436d2d9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14680, 461, 162, 3, 39, "Subsubsection", "ExpressionUUID" -> \
"66d1f6fa-59f6-4f73-8096-0408665f0b30"],
Cell[CellGroupData[{
Cell[14867, 468, 539, 14, 46, "Input", "ExpressionUUID" -> \
"6f97d4d3-1bfa-4f8a-8521-1185840460af"],
Cell[15409, 484, 527, 15, 46, "Output", "ExpressionUUID" -> \
"897daac7-aa08-4266-8fac-24164bd737c0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15973, 504, 399, 11, 46, "Input", "ExpressionUUID" -> \
"0076bade-ed6a-4c9a-b6e1-e9418c4e6cfb"],
Cell[16375, 517, 466, 12, 33, "Output", "ExpressionUUID" -> \
"03a072b9-70fd-468b-b7fd-715ff2c486b2"]
}, Open  ]],
Cell[16856, 532, 173, 3, 30, "Text", "ExpressionUUID" -> \
"1b478a6d-0340-4b5a-b579-e788cd0f22ad"],
Cell[CellGroupData[{
Cell[17054, 539, 781, 22, 47, "Input", "ExpressionUUID" -> \
"70c5d71d-0a71-442c-bddc-ef043e1c487b"],
Cell[17838, 563, 692, 19, 47, "Output", "ExpressionUUID" -> \
"9291f3cc-92c0-4c83-a474-18a4b2ff0d71"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18579, 588, 161, 3, 39, "Subsubsection", "ExpressionUUID" -> \
"c12ce353-d6d2-41c3-b926-0c7ca4fd654d"],
Cell[CellGroupData[{
Cell[18765, 595, 360, 10, 46, "Input", "ExpressionUUID" -> \
"64cf6d3a-96d1-4ea9-b741-7cf08417655d"],
Cell[19128, 607, 673, 19, 51, "Output", "ExpressionUUID" -> \
"907fa0ea-a4f3-4a32-a2ec-fe474c5c9876"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19838, 631, 366, 10, 30, "Input", "ExpressionUUID" -> \
"1bbc031d-5658-46fe-b5b8-47d2fe8bf6a4"],
Cell[20207, 643, 321, 9, 30, "Output", "ExpressionUUID" -> \
"5f17d3d9-93c5-4383-81bb-14110a8c0c9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20565, 657, 409, 9, 30, "Input", "ExpressionUUID" -> \
"4b84a79c-d668-4a7a-9c7b-ebd797724210"],
Cell[20977, 668, 1003, 30, 60, "Output", "ExpressionUUID" -> \
"81d5e84d-ccd1-4421-b701-9a31242b0631"]
}, Open  ]],
Cell[21995, 701, 180, 3, 30, "Text", "ExpressionUUID" -> \
"37de4ef1-1c9a-487c-9836-bf1453f7afbf"],
Cell[CellGroupData[{
Cell[22200, 708, 363, 11, 30, "Input", "ExpressionUUID" -> \
"e54894f8-aec1-4e4d-a387-8e5614eb859d"],
Cell[22566, 721, 456, 12, 33, "Output", "ExpressionUUID" -> \
"6e26f244-6dd6-4030-90cf-e0357a784832"]
}, Open  ]],
Cell[23037, 736, 510, 12, 31, "Text", "ExpressionUUID" -> \
"8e12faf2-87dd-4225-b441-14e55b272fb4"],
Cell[CellGroupData[{
Cell[23572, 752, 415, 12, 39, "Input", "ExpressionUUID" -> \
"1ba3769e-6e07-4445-93a1-224cd3ee096e"],
Cell[23990, 766, 341, 9, 69, "Output", "ExpressionUUID" -> \
"1cdb5fcd-3723-4d46-9ea1-bfed1aeaecbb"]
}, Open  ]],
Cell[24346, 778, 512, 12, 31, "Text", "ExpressionUUID" -> \
"91a932ec-9b19-4282-8117-6fcc77c36e15"],
Cell[CellGroupData[{
Cell[24883, 794, 415, 12, 39, "Input", "ExpressionUUID" -> \
"072cd38f-bd3e-4e43-bb5a-98a0757903e9"],
Cell[25301, 808, 416, 12, 69, "Output", "ExpressionUUID" -> \
"0d45f71b-559b-4f55-8804-e707b747e271"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25778, 827, 182, 3, 70, "Section", "ExpressionUUID" -> \
"41cd2c5d-0d60-45c3-b6db-d2c4105fa239"],
Cell[25963, 832, 191, 3, 30, "Text", "ExpressionUUID" -> \
"ee855988-5677-4966-b3a9-48a2636097f6"],
Cell[CellGroupData[{
Cell[26179, 839, 553, 15, 30, "Input", "ExpressionUUID" -> \
"e2cf97d6-38e4-426e-aceb-284eb424ad99"],
Cell[26735, 856, 472, 14, 30, "Output", "ExpressionUUID" -> \
"42ec52eb-2647-4c6b-aee8-7bf1d1e830ea"]
}, Open  ]],
Cell[27222, 873, 655, 20, 41, "Text", "ExpressionUUID" -> \
"af334f11-814f-43ae-accf-8c2ff0e7aff0"],
Cell[CellGroupData[{
Cell[27902, 897, 199, 3, 39, "Subsubsection", "ExpressionUUID" -> \
"bceb1d0e-e66d-44a3-b18e-29a36ada6a71"],
Cell[28104, 902, 1810, 47, 55, "Input", "ExpressionUUID" -> \
"899808b6-ffb7-4e24-a935-9f4786b39f4d"],
Cell[CellGroupData[{
Cell[29939, 953, 289, 6, 30, "Input", "ExpressionUUID" -> \
"afe693cf-857a-41cb-8736-717e56b2f149"],
Cell[30231, 961, 13625, 241, 236, "Output", "ExpressionUUID" -> \
"f953eec8-8c6b-4da7-aa96-d6abfb4a2af7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43893, 1207, 425, 10, 33, "Input", "ExpressionUUID" -> \
"0052b3e2-32aa-4de4-8413-fd93e9f089bb"],
Cell[44321, 1219, 1777, 35, 332, "Output", "ExpressionUUID" -> \
"e733dd38-144a-47a9-ad3f-8b4252b1b863"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[46147, 1260, 265, 5, 39, "Subsubsection", "ExpressionUUID" -> \
"0aebbbe6-6087-46ee-a06a-f51c5be4b7b5"],
Cell[46415, 1267, 1941, 49, 55, "Input", "ExpressionUUID" -> \
"fd2629ef-fa32-4aa5-97c3-be623d66adf4"],
Cell[CellGroupData[{
Cell[48381, 1320, 364, 7, 30, "Input", "ExpressionUUID" -> \
"e32942c6-5b75-4e1a-b4b5-49c2ae593274"],
Cell[48748, 1329, 8895, 164, 236, "Output", "ExpressionUUID" -> \
"b89a5ee7-83de-4d48-b59d-2611b16de171"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57680, 1498, 447, 10, 33, "Input", "ExpressionUUID" -> \
"d6f8e8e8-5595-4f83-a0d8-2f380df68d76"],
Cell[58130, 1510, 1853, 36, 332, "Output", "ExpressionUUID" -> \
"5f1d3333-30c8-4276-9b1a-41c552430f05"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)