(* 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[     60720,       1236]
NotebookOptionsPosition[     58124,       1166]
NotebookOutlinePosition[     58467,       1181]
CellTagsIndexPosition[     58424,       1178]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Du\[SHacek]eno nihanje ", "Title",
 CellChangeTimes->{{3.5624014997694826`*^9, 3.5624015061806717`*^9}, {
  3.749273071865925*^9, 
  3.7492730931595154`*^9}},ExpressionUUID->"42f5e487-faaa-41d4-a099-\
2b6aefa867b2"],

Cell["Ena\[CHacek]ba gibanja", "Text",
 CellChangeTimes->{{3.562401509004091*^9, 
  3.562401516242027*^9}},ExpressionUUID->"ac2889de-e3c7-4ec3-80c8-\
a50efda1cd68"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "''"}], "[", "t", "]"}], "\[Equal]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["\[Omega]", "2"]}], 
     RowBox[{"x", "[", "t", "]"}]}], "-", 
    RowBox[{"2", "\[Beta]", " ", 
     RowBox[{
      RowBox[{"x", "'"}], "[", "t", "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.562395772277306*^9, 3.562395805214817*^9}, 
   3.5623959875001287`*^9, 
   3.74927312153537*^9},ExpressionUUID->"b2b2f4db-2436-4a97-ae89-\
da05d292c038"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["x", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["\[Omega]", "2"]}], " ", 
    RowBox[{"x", "[", "t", "]"}]}], "-", 
   RowBox[{"2", " ", "\[Beta]", " ", 
    RowBox[{
     SuperscriptBox["x", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output",
 CellChangeTimes->{3.562395806775097*^9, 3.562395988202173*^9, 
  3.7226782856985235`*^9, 3.749272698861498*^9, 3.749273124811307*^9, 
  3.749273626856452*^9, 
  3.749274819031125*^9},ExpressionUUID->"8ff5f357-5e17-4b24-a8df-\
9ba851500e75"]
}, Open  ]],

Cell["Re\[SHacek]itev za za\[CHacek]etni pogoj odmaknemo in spustimo.", "Text",
 CellChangeTimes->{{3.562401523542359*^9, 
  3.562401557267397*^9}},ExpressionUUID->"834948ff-95be-4061-94bf-\
c85a9a84cec6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"slv", "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eq", ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", " ", "x0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5623958082417603`*^9, 
  3.5623958441737413`*^9}},ExpressionUUID->"6b9c7802-2d88-4c22-af62-\
a2bfb7a5b4a7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "t"}], " ", "\[Beta]"}]], " ", "x0", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Cosh", "[", 
        RowBox[{"t", " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["\[Beta]", "2"], "-", 
           SuperscriptBox["\[Omega]", "2"]}]]}], "]"}], "+", 
       FractionBox[
        RowBox[{"\[Beta]", " ", 
         RowBox[{"Sinh", "[", 
          RowBox[{"t", " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["\[Beta]", "2"], "-", 
             SuperscriptBox["\[Omega]", "2"]}]]}], "]"}]}], 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Beta]", "-", "\[Omega]"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Omega]"}], ")"}]}]]]}], ")"}]}]}], 
   "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7492731846049566`*^9, 3.7492736325971413`*^9, 
  3.749274824678216*^9},ExpressionUUID->"9880292c-b229-4343-882f-\
8c7c331cadf8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"primer0", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x0", "\[Rule]", " ", "1"}], ",", 
    RowBox[{"\[Omega]", "\[Rule]", " ", 
     RowBox[{"2", "\[Pi]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5623958473095427`*^9, 3.5623958844555235`*^9}, 
   3.562396680438816*^9, {3.5623967246611304`*^9, 3.5623967248171177`*^9}, {
   3.562396775731274*^9, 3.5623967937633715`*^9}, {3.5623968251011596`*^9, 
   3.5623968258498974`*^9}, {3.7492728120061226`*^9, 
   3.7492728162336407`*^9}, {3.7492731982234945`*^9, 3.7492731988474827`*^9}, 
   3.749273236895151*^9},ExpressionUUID->"637080e5-e698-497d-8988-\
e65924bb1a69"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x0", "\[Rule]", "1"}], ",", 
   RowBox[{"\[Omega]", "\[Rule]", 
    RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.749272817232022*^9, 3.749273200937843*^9, 
  3.7492732407170773`*^9, 3.7492736328311367`*^9, 
  3.7492748287497377`*^9},ExpressionUUID->"3004200e-48a6-4d66-8315-\
78c6dcfad8b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"xx", "[", 
   RowBox[{"t_", ",", "\[Beta]_"}], "]"}], "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "/.", 
    RowBox[{"slv", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "/.", "primer0"}]}]], "Input",
 CellChangeTimes->{{3.562395887887743*^9, 3.5623959217263126`*^9}, 
   3.7492729086618633`*^9, {3.7492732438994164`*^9, 
   3.749273244928997*^9}},ExpressionUUID->"c52da64d-cdcc-4983-80c4-\
256794726011"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "t"}], " ", "\[Beta]"}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Cosh", "[", 
     RowBox[{"t", " ", 
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", 
         SuperscriptBox["\[Pi]", "2"]}], "+", 
        SuperscriptBox["\[Beta]", "2"]}]]}], "]"}], "+", 
    FractionBox[
     RowBox[{"\[Beta]", " ", 
      RowBox[{"Sinh", "[", 
       RowBox[{"t", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["\[Pi]", "2"]}], "+", 
          SuperscriptBox["\[Beta]", "2"]}]]}], "]"}]}], 
     SqrtBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[Pi]"}], "+", "\[Beta]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[Pi]"}], "+", "\[Beta]"}], ")"}]}]]]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.7492728899578233`*^9, 3.7492729095978456`*^9}, 
   3.7492732045257735`*^9, 3.749273249530908*^9, 3.7492736342039104`*^9, 
   3.7492748311530914`*^9},ExpressionUUID->"21c2c954-14b1-41e9-a823-\
17a0d69f1242"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"xx", "[", 
      RowBox[{"t", ",", "\[Beta]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", " ", "All"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Beta]", ",", "0", ",", 
     RowBox[{"3", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5623959286687574`*^9, 3.562395973568435*^9}, {
   3.56239601311697*^9, 3.5623960304028783`*^9}, {3.7492732563947763`*^9, 
   3.7492732948012376`*^9}, {3.749273324924258*^9, 3.7492733255326467`*^9}, 
   3.7492736553259044`*^9},ExpressionUUID->"7e73ed07-587a-4166-8e11-\
d2318bda7338"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Beta]$$ = 3.175363600161842, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Beta]$$], 0, 3 Pi}}, Typeset`size$$ = {
    360., {105., 110.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Beta]$3043$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Beta]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Beta]$$, $CellContext`\[Beta]$3043$$, 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" :> Plot[
        $CellContext`xx[$CellContext`t, $CellContext`\[Beta]$$], \
{$CellContext`t, 0, 20}, PlotRange -> All], 
      "Specifications" :> {{$CellContext`\[Beta]$$, 0, 3 Pi, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {143., 150.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7492728947313313`*^9, 3.749272912873782*^9}, 
   3.7492732093148813`*^9, {3.7492732641166277`*^9, 3.749273295550023*^9}, 
   3.74927332639063*^9, {3.749273636060275*^9, 
   3.749273656449083*^9}},ExpressionUUID->"46eeaa6d-ea15-4b02-9e59-\
b6ecb0c9aac7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"energija", "[", 
    RowBox[{"t_", ",", "\[Beta]_"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], 
      SuperscriptBox[
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"xx", "[", 
          RowBox[{"t", ",", "\[Beta]"}], "]"}], ",", "t"}], "]"}], "2"]}], 
     "+", " ", 
     RowBox[{
      FractionBox["1", "2"], 
      SuperscriptBox["\[Omega]", "2"], 
      SuperscriptBox[
       RowBox[{"xx", "[", 
        RowBox[{"t", ",", "\[Beta]"}], "]"}], "2"]}]}], "/.", "primer0"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.749272949205484*^9, {3.749273362488336*^9, 
   3.7492733746093025`*^9}},ExpressionUUID->"be7d57bc-3953-438c-ac89-\
48d2533b39b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Beta]0", " ", "=", " ", 
   RowBox[{"1", "/", "2"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7492734534189873`*^9, 
  3.749273460126858*^9}},ExpressionUUID->"0b54d64e-c2c0-4fd1-b5a3-\
7cfab42cf375"],

Cell["Slika disipacije energije", "Text",
 CellChangeTimes->{{3.749273535676205*^9, 
  3.7492735425244737`*^9}},ExpressionUUID->"fb0a0a72-e41c-41d3-9df2-\
0b9fecd2b862"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"slika1", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], 
         SuperscriptBox["\[Omega]", "2"], 
         SuperscriptBox["x", "2"]}], "/.", "primer0"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", " ", "Red"}]}], "]"}], ",", 
     RowBox[{"ParametricPlot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xx", "[", 
           RowBox[{"t", ",", "\[Beta]0"}], "]"}], ",", 
          RowBox[{"energija", "[", 
           RowBox[{"t", ",", "\[Beta]0"}], "]"}]}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", " ", "Blue"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5623961426516495`*^9, 3.562396172604226*^9}, {
   3.5623962092493305`*^9, 3.562396209842142*^9}, {3.562396242399968*^9, 
   3.5623962866825557`*^9}, {3.562396329760917*^9, 3.5623963778302546`*^9}, {
   3.5623966365128765`*^9, 3.562396638462714*^9}, {3.562396931440842*^9, 
   3.562396933000782*^9}, {3.5624012884644613`*^9, 3.5624014028372965`*^9}, {
   3.562401450554638*^9, 3.5624014507106276`*^9}, 3.749272988501128*^9, {
   3.749273406214295*^9, 
   3.7492734746189795`*^9}},ExpressionUUID->"f7bace63-7f37-46f8-bc9e-\
43fa0d3a8dee"],

Cell[BoxData[
 GraphicsBox[{{{{{}, {}, 
      TagBox[{
        {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
         LineBox[CompressedData["
1:eJw1mHc41X/cxkVSVlSUXwghVNbxE4n3t2Q0zEr2auhnRDIzk72yKXskIuPk
2HyMYx3HLnsUkYRjh4yn57qe56/7uv+6/3ld93XdN6+5rfYjaioqqmMHqKj+
V0WBfW5/n4KcfQkFV2pwmO3W2cCtbQpSvx4oRF+Gw4o+SQiurlMQx97rxMEi
HCYppGY+84uCXpso2Lhk4bBLrL7D5AEK2htiR40hOAybWia9KaSg0fxSziB9
HKYd0JGHM6GgVFIx6tyUxJy7fG0sahcRzMRmKclIYp8/M8zVmy2gXNboh2JZ
4hhXne2JS5zzKDmr8nKnkyhGsCLSHh2bQ0bR+wNmvecx01CJpSGfn2jvBqav
dVIY24xyC0Qwi364uYu55glimczjHAnfZtCv8u8ZV8T4saSbEvZ9QdOI5anM
7YBJXszH2sxF+MZ3JJPWxrFSeQZzo/ngbL8wibp27qwkpJ7GzLy7+PtzviEb
2RuGAwynsNia6YQky6+o2T7wd2nLCaxyQogxn28crZccjHv1khU7y4Jdu5sy
gpTXmR7oPGHC8CKBlpNTg0hMtLnEepIOm2gq5pGW7keRvw8Rb9LSYNMXYiVR
aR9S4181Nf69C6yeudKiB3oQ83D9wcpbG+BfKtTK8rsbpdqmRctJbMD24nu9
1fluRPso4yeZfQMmTbLdywe7kYEtyy/uyXXAX81suFbUjUSoYxW9XddBmzZZ
/b5JNzLiwW7J5K3BOQ7eDiq3LnQSuAke/6zCBWnKhXerZNRJu71iJLQEj0W9
vCrGyKg78Hgk5egSpAoe7e1oIaMNTN3qHIUCx06KOW8kktG7067858Ip8Pv3
03qV62REU49JTnUsQkPF4r25mHZEao+vUru7ALryi55i0iTk8O2h37z7HET9
69mjyENC545xmRZrzkH7RWZ+XXoSumjdppLIPwcK3KJt3uNtSC5pT36c/BPO
7tsc7/VvQ3rzw008Z37CYt3Ce4eBVpR420AxgfQDXl1f6K5waUHA5LauKT8N
DarzGlIPWpDwaOFHW/ZpoFL71Vmg1oJo8t5w4infwf3eT3ImXwuKUA3lzsj4
Dk6Pp1vDyM2I6dUCXpT+OzwJHKsz42lGL9dTubYnJuE2uaPoSCsRGXQTt/Wy
v0JwN1nMF09EcclvgiivvkLr5/aCvSQiIlqe7cox+wpKY235q8+IaOugjqc/
11dQWGzKGTtNRD7Png6PXpwAcZbatGLbRpQk18fxjWcM2O4WROidbEBlVZw5
bleGAC8YUqlE04Au8BoKxh8cAs0ti+8SlHrkmB/VuUQehOAUXhn6lnr0XGo6
ydh4EPZmYyYqnerRZXoeCX7fAZjxcBPl7K9Dy+T5S/dHvsBTjciEGmGEGAon
aw3LeyFn7eZ87AGEEjsPucsH9sLkm4PY06FatHuc74Ghbi/ofHf+wR1Ui3As
CoV3t3oAXI2lvWdrkFUnA4gp9ABL5vnP195Xo0PEHddT77sAv9F0tJW/EpW1
ez1s1yNB+IeMBoWtCsQcqqKmRU0CK2MvR0JHBaLp2Df4L68N+JtlRjKcKlBl
99VfGvutEBebl+3RWo7+m2Do2fjYAi+kIuVx1mWomaO8Ik+wCXRmbZZysTLU
OhVw4O4gEXBJNzN52MqQhaiqbXgwEeZpDh5hri1Fz5XeVlcsNYJxn9Pn2aOl
iPTCl3uusQGu2RtapXwqQS7Uz/aL/eqAW1CWmy2wBAn0q2a7Y3XwZ4itJ8Sw
BI3e5ZvB/0ZQcrVL2pW2BCXnzuxEzdaCIOs16rv3P6EUsz/lhwargb7o3Jsj
f4pRMsM9q+qFcng3Mh3207cARam0lZuuFcOwO3tqMq4A1SRTx8rEFgMzt0qR
1uRH9HSuV+HopWJwMs3prYCPyNxC5k+5RxEoT1ueDN7OQ2ITF0V3LhbA7CIl
TcQuFz22v16avJIDnBE8+HHuXORHieU9dzcHNCW0GqM6chBej02ooOw9lD/H
T2+L5CDx9eRDBN9sCNp0EGmfzkbNqv1HsqWzQIR6+5OVQRZKJzZriaylgnGm
SNMZ+izkaHoufGkjBaKuG/T3lWci8/4pKvxuMmz7V2/KsWeiIE27IMGTSdDO
4CXP2JOO6D0HBPtdE4DqY6F6nVc6yp9jZ3dKigcp9a8mDqLp6KEEXo61MQ6S
Iq76jIakIR61HWFZzlgYFDkcrheWglprxqM09iIBs/mvqH4uGUn+2ZFqwyIh
p5DUK6yajAjHnJkUAiLAVSrs5DZ1EmJJ222QxMLhH4Vj6W9d3qAKuorzF2mC
wMf7eSN1fwLi5f/0pa8lAH41fJ62xCWg2rWH83Yx/lCtEi8itxiHwvEUk3Al
XzDS4iwZeRCDQtPSTXTovGF+dV3WkRiNvEZkyKd5PcE9rgsxC0QjAbFewaFr
7pA04tN+dSbyb38uERVKXOCCp6HWiHIkCnjpcPgHjTNU8UgPOLyPQDyVSW/G
zB2hpL23SaMnHB25P5hFULeHzyz+PT5RYUi/6hd3/IgdrN6THSPcCUWdxUod
YZSnIPk1de10fxB67rVZw1f9H2gJ3KHSiA9E26zyZ3Q1LcDO8hCjj24A2mFv
Oy1C8wgK16zPzg77IluXsplMoil0yvKInU56hapzcZbx2Uaw6Nl3Wd3I5y9/
AfI8B/SBieiv/JL7JdIj/acymaADusccsp4gL3RcciRgzOYOxCcNV3Ve9UAN
niN7rN6a0C94tU+K+AK1m37R3U+5BSeK38+9VXZBG2GsvGrlynBHjpn6QJsj
YvSz0mG6fQ2imhw4LG49R6yhzcteJVegW2NEvKPDDvWnL7OQmv4F7pJXEY/T
rNFwXNGJlXgxSGzVRJLvLFAm63oVR7gAnBrjWtzLNUcnnpiJsY/+A+envsjG
GRmg65thqacmGEGQ0S5e1EILffCwenhf/7eC92ehz6cb5dEP7h7CheM9CheO
jlnSXuSHpYLoMMEHqQr9yz6pLJuqYCTw4N6lI7MKSxrnVmztdaDlyHOxHWsa
cItWJllJmYLeWsnHJ3AC9jxdE1PFHoGfnobOqhoveFvmW/eJWMILUzn6nUci
QKMzIU8naAsBKhqyPz5JQiNPUEAyiz1k2FerEIRlwTeOz+5SuAMQEyRPSd3E
QJmxWreHwRl4GrK29l2vA53PvatWQa7wkCClqsB/A1p/LwrT0rlDmP0kDUVV
HYJtAo+l+npCz44O+5E1LchejvDgfOkN6u9ufeujugcWFiKPS/d8gO/dt3/Y
eg1Alc9Z/5W8L7jv+ASFxJmA0Fijuqa7H5gn6cVzkc1gTtvo0txWAHCJmzJn
Cj8GEtOH82UyQVD4rhOv6f8E8lo3zvg6B0NNmO/K2wNWYK0QcZh7PRQy9afS
qUXsQG1rdGcOFw5mL3I/RMU+A9ES4eUy+9dgcOf4gWcsz2Ez5tu80GYEHJbo
jTsl5QQV9G5fGhyjQTZx59FxnAekXWTrK+SLgVv7pkZ0il7gr1nYndQVAwpE
nsdeeG+4GzfV7iQcB0J+cofdKT6wxHu7QWQsATqm9TiCvwTAwPUZdDL4DZjn
76xECgRBrYV3zcFLbyHEzygw0TMYQj6WlI9HJEKIrd7Mp1thICjLVRh1PQUk
WJPLdnIigdGwLN9rOQXqax9H0zlGwaqn1gfrlFRIdDyqFq0UDaaTDdpn3dNA
eH9X7+JaDIgK/Vbb/ZIOhS81hq0CEqDtk8n14qAsEOczv3xEMQ2uNF1oPPc1
CxQUIZ6tIw2K+reupki/g5VZhgfmeukQtxUNIVPv4HrDc5Ualwx4CK2XH8m/
h/R8D0WX3izYJ4lLcCznwgXTF4dpVnLBfnS38LXKB/Bu17jLnvYBZhZIoodS
PoB71Ymjlpp5QGZ5dGH1Zh7oC9v09Jblw1udN+c6svKh54puUG56Ifw7eYD7
pW4hqKQzTBGW8CBaeX9ZPLcQKo5KORC0P4Fg1Efi161CINSyHCwifAKG9Px/
09SKQGN85kycZwnsaOqO7i8WASP/IVVBzlIYKyoURhJ4yGhj0dfxr4DhJP3j
J/XxQMI8+mk3K6A/kHb3qQ8eXmwmaxVZVkKnqUE3dx8ePIV3FDe0q6CWhc7Z
0+FvTtR5DmWxGki1MybKl5VAlkJew4uQOkgyPFIQO1EC0Z6vnETIdZCgWhK/
QEeApnFC7n2meojgobdK1iXAn32hcJHIevDuJrDubhEgv0lVA5/SAGbiTCbV
V8qAy/gp/kYPEc4uVW1dbqgAhUatnfiYNnDvUPRdW6gA9jGXgYpfbdD/oZ25
gKMScONnuWwVSRD8aOQs77NKkImjnY1eI8HS8LYaHU8VmI/9dms2IkNtk2xG
n0c1aLTGJ3Xd6gL9xLKb1rIIsEDzrzLtvfC38r8IPEJgEiTlREXVB8w6LSYT
EQh4PFXrWf/tg3qWAQftWQR+16SdWdP64ISim0bSrTqYlBY293P9DG7lb119
tuvgR4e1FFzuhxuZQx3qug1whmBJ2l4ZgiW/gsdNNg3wefhgdr/YMCQ8ebUv
96oB6B/KhG5ZD8PsxYsSwgUNsJNm5XJidhgCy71jaA42wg8idXfKtxFo7Thn
UF7YCKMlq260k2Ogsuk4y0vXBBn/2D1gYvwGSmrHaNYJLcAw+iwGnz8N4WZH
lrfaWsBZmq3AoGcaBh2pJvbGWiAkM7ng7MY0WKYsVh4+1AqJBKOHLNgMhFNI
9pw6rWBX8TbD8MsMDEa+mlTcaIUNOGxZRzsLlv1r9VHSJNBTLeYneMzBa5MB
b/EyMkQoy924Q6KA//wVmCGTYSfJTsB5mwKerhm7iZNkKFGLyTdhW4Kn0TYv
6Jg7gFM14sG40hKot9A4jD/sgJELCeOE90vALCZuEXqsE7hLfxzueLoM4XuB
arM2XfChxU80iX4VWtS5mDSP9cDUTE1NjcsGLPCyefa+7QOpW1VhhIxdcHQ4
b/aavR8mf8qyXemixgZGWbQftw6CHtewHOkjHWbqeuUH3e0RsJFrluWoZMQa
z18KbqQdBzshzrxdE1ZM8Ej1bJbqV6A6XVPBan8C46q2UqIN/Ab2Zw35yPiT
GNU2da795CQw9dBrB3idxn5r1Rg3CXyH+Df4usTbZ7ARKZPTAr7TcEMv5CrH
EC9md5+FlW90BlSqmrBEAX6MI+a77kGuWeAQqDcrsxTECgzS3q+6/IRHCedp
R2mEsfvyXqqtNXPAc9DwS23keazY2Ibv8s4vCMtO0UuTEMU26RVpKu4tgClb
DRYRJ45p98hJcyUswjw2m7VPL4nRyzHUVycvwpfyF5IZrJJYfdbwLcPMRQgT
4dtUOiWJibu4miUWLILdn8LzkQKSGPOZslCOpkX4o92Ck8YksTZrySm2lUUQ
GPreUukoiWGHhSOYb1Og6+rI/sdvktjms81/CrQo0LzKGOE8K4kVjrS8U7tP
gdDUO7rXKJIYd+HjqlDzv/77mciRHUls517WDL0rBTT5SzI5T+Gwsswz8nTZ
FPj1ov32kDoOe8pEacnOo8Bs223j0ns4TNC5Vlu5mAKlx6bexxjisJibRk/8
qinQEKk+ddcSh9kvv42m6aNAhhLvnyk/HCZiYMmdOUgB/gc3O0ihOOwbUTb3
2jgFHF8EDuCjcZhmwmDty58UCI5TjPFPx2GHqXNu8P7dsWqJdcr2OTgMWTl/
rlujwMQbbQmTQhzm9EXZxPQvt4pRW3fUSnHY//0h8P9/yP8AjiCROQ==
          "]]}},
       Annotation[#, "Charting`Private`Tag$17182#1"]& ]}}, {}, {}}, {{{}, {}, 
     TagBox[{
       {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], FaceForm[
        Opacity[0.3]], LineBox[CompressedData["
1:eJwk2Hc81d//AHBllJKMiKyUmWyiktc7ZWaTRENLJX1EmZWEQqJQZG+uva4d
59rj2uMq27XLSpGZ3/v7+PnH4/l4n/E6r3Peb69D8Lad8b3dNDQ0Dgw0NP/7
/f8/SzCsXtmkUiGPMaUfY3j+bxHseCbazuL2jhXumV9fBOLTjb8KuCdthE5b
Li/CZmiT8zHcPTF2l+qnF0Fql0zIv6/yGDfNvgdy/YvgEyqVWIPb1EpALrFp
ERDdD05b3A/POgbzFi3Cn5g4x+VyeezYid6ihNhFOLz3k5URbq5z9qxn3i7C
PfqpT15l8tgtEzXz6YeLYPzt/rxXqTzG+9rKO0dnEY6/sbyrVyKP3Yu43Bkm
tghnHUQ4Borksba/D78m0y4CS9efc2KF8lin30/akYEFqDbUOy9TII8FmRyg
/vRagNC0V0dvZstjFUfD5FtMFkBA1sn7ZYY8xkrXdPnX0QWQrR7rVSfIY3L3
s0VFCuahyVFCqC5OHlOnobpddJmHN5Jlux2j5DE1m63x2jPz4Kqo+okUJo+x
yPtX7i+ZgwOKbGH8AfLYTuLuOKrDHHj/fn9Pwkces/d/5agiMQfm+ykJjR7y
WEFCj1zUp5/wsur4pQwHeQwPte7ApR9Q8oqlatBQHnPdJf15a3kW9AMt2ZU0
5TGJ7CMzpV9mQff+p8FD5+Qxi/C0B01DM7D2/s05c1F5LEow4ZW1wTSIKgpH
/l2Rw/q4CjLs+sdB7cTCG6YXcphXr3SK/d1x8KYSXcpt5LA9229+rs1RwXu2
L2jDXA5THFawa1ofg9MObN/kFOQw26OYAoV2FOR4nq72TcpixpUOnptNfRBr
NibTqiyLLYW6/exPpIAOzfWVLQFZ7MbS8xbJF73gd6Y6eZZBFnMf+i1TLNYN
SVrCAwd7ZLBjdDbOij9aIMvgSLCUrQx2023+TsREAbz5zvqPICuNzewTO/HU
OBtOJ342Y9qWwviTFLwtRpNgbKPLPrFRCrvrWb1Xz+EJNEd+uRlhJYVJNv/w
v/wlD/E70I2MfJLETh4e/lHZ1oyy31gnFx4+iYnqneXM3GxBacTHWmd+SmAS
yabW3sfbkWmcaU0AksAEx7lE/PI60X9n30pV2Ehgz+UWfJtaexE24G73k3wC
ax5OY6K2UBBX2rW10JQTmPO5xIrQxj4kFfqIrOp5AmOKmzV/UvgdbRN3cwSr
nMA+c0heOn97CI3rKbOHVohjLNnXRj5dGEZtA1ydjnHi2JIdQ1vj0RH0ZUf1
zx1vcezZi0Wy6v1RpM7Vy2FrII49T9yt5rQxhr6sMApwLYth5k4d9r5XqYhn
t+ZriyExzEfffvRcERWVbZc9i28SwyIbdZ7YPxhHQbK+ajLJYtgLftcyoZwJ
dGXO3ZR6XwxDwWmNgSsTyOGk+GC+pRhWxjvEV3x6EqnzqvFrGYphW6oxr6TL
J9ETL0w566wY9i+295PT2iRCL4OyHeTw/pnU3TbyUyhdgnp0RlwMSzPwjdBI
mEJzVZcHyEfEsHN/dYvEKFMoUV2US+qQGCbzMuBg2p5pFDv1GcSYxbB4umV6
1zvTSP+9hX4zrRhW4JPsVRMwjTKXXHru7ohiEuKsNAmF02iL8YHvi01RzCDF
0Yr93zQ6x5qutWdFFPvbpMiRyD+D+DWH/z5aFsVmHMRtSCozCJN9e1R2SRTj
8gy5bWM+g7T2fb1msCCKHfL3gjj7GfR2pV0RzYliXyyLX93ynUFiIxdEXX+K
Ym6RTiNZUTPo0e7GeMcfoti9gAfmb7Jn0PLPU8xZs6IYde2O4EzFDOLt+NBx
GLei5ulsSvMMEmRZ0MmeEcUGB51yjHpn0EXyi9EHuEdLRdkshmbQxrV7a4Bb
zvb9zhJ1BrlnFtOcxC1/s23w8NQMyjh1yV4Y98tPWToduHlQWJsQbvMuMWHe
yRnEEOmdeQx3helRr+3RGaQcIJl3GLcd8+9Cp/4ZZCwTFbY1LYot+HBqv+uc
QaXLz+SacffbpO06Wz+DCFmh/7nidm+kGfYvmUE/pzMu0+KePyHD4UGYQdED
mSy3pkSx5x7vOXlCZ1DtdaMf/pOiGPmXuJ/V6xn0t9Xe6OUEvh8FppdMbWbQ
iIrZgNS4KHaHSuewYTiDKneW1SPGRLEnnnpaVxRnkNISq1vpiCimk1qvb3d4
Bu2Nux/wdkgUWxxfPqP5dxo96gyp3ewXxdIOxK2O90yj7wFMn9m/iWKh9y/E
6uROo6uqv1Mae0SxEIuPEv5W0wgYtZVWW0Sx09YPNJ4oTiOeN8Fs9xpFsQt/
T5Yr7p1GihoMc9drRDHlAgZlt9QpNC9o3TJYLIrlRFev0T+bQiRnc1rLPFFM
kFvWy191Cg3frI4wSRfFOn7bXYttnURHNaPWUiLw/Yz92XI2eBJ5vMemNoNE
sXZqs9aC6STy4jzljXzx/kjRpaBnAr33SFz0eyaK7f7kxxZROY5OS36e37yI
5y9ZlUHZaRyJC9jUf1cSxYw4PvupnBxHY+3+DwVPiGIfZj7vjgihoh86Ez7z
TKLY+nEoCjYcQx0lt2o9ySJY/sH1yYecQ8ic6dn5HEkRTOn4u41wi0F0kc3C
99NhEYwpkzm2MGoAqf5Lbt6kEcHqn/rJbx/pR7Ovvnpf7xLGNLVign7v6kNH
vh9R7rETxpbbytL/vetAlzlWPSBcCOPNfJ5p+1872vPI8qzQSyGsgMXEXLGu
FU1Ki1R3WAlhr0k8FKf/mpGTHt+VUFEhzJHq5KZErEGq/b9tbQqOY41xqWaV
VQR0Wy6+elfTMay8O1n11XYNeFPuXd/NKogFWtYWt2XVgez3Iz50q0exanuD
LX2LBiCwJ869GjiKKXqvdsulNsPapSCH36lHMT+i4+jimw74cU53WEnzKJZ5
UWrEW7cTEi6f+GYncxSLjkxV8mfpgqPaiUznjhzF7oi9IMZ87IZ9Uqd3sBEB
jHF97MK3/yhwe9xS8+UFAWwp4DjHPH8ffGWWjkgXEMCePGMwpJL7gHrw1/Uj
2/zY+3mfoZO838HBNcqsppwfu7/nhXbQpwFQP8R1SFKLH1t0lwtbER+EytfF
KXek+LHb9Fs91eWDkM3yNqObgx/7RzX0v9szBAVpSieNZ/iwuRiZvmffRsD3
S4iofiQfxv9gqW5KdBSE/f71f3vHh2WYRY6G3xqFI3k50Y7P+TD/zr7vu9pH
weG7T3HTTT5s6+15luzdYyB0oO2ygwkfxhyiUmygMAYXn6mEH9Tiw86U/Im/
GzQGzQdeUBkU+DCiHY1Q51fc4a8DDCT4sNLWoBDhqTGQ68iSsTnOh42GG4jf
PECFlXnKYz1ePiyT/aXlczkqRJScJCxy8GGfHx0Ydr5MBYfYrr2aLHxYzu3c
BGMnKmzG+Xtp7+fD2leK5yPzqJB5pDtVhJYPq9lWeb+nhQqKeUPmczu8mBLP
TtSlCSo8nk9Skd/mxYypEhr3N6gw5fjLa2mDF6t9Z/PzKvM4XBiS1ORe58V+
nC+VPH50HLQrjPwT/vJiYgMXflZLj8MId6vG61VezG5GHk6fGwdlqr11+gov
xqjh9vqt1jiYP7raxYZ7QihYI8NoHKZqahxy/vBilbHnbhLMx2GnYUHBEfeh
mbPf3K/j41GpB6/iFuVaX5e2Goeip/KMhrh9S5S0KnB39eSeNsDduof4Wuzm
OLQw7eu6hHubvSr2qeU47Dl3TeAs7trCkd64y3g8P7M+sOEW3lRv09Efh+Vr
1zdbf/Nikgbv9wuqj8Phx2SZO7h/vO4ZFj4zDmVc/etNy7zYmiFdraXkOOyq
GVHf+MWLmbZY36rjHwf22Rcn55Z4sZ4VbZ97eH58Nq4vhS3yYrmpX6Rhiwrx
92d2rc7zYqNtT15enqHCzE7nrp2fvJgWQ9HXjC4qGNbF12TM8uJ/f+NuqZdT
4cJtbsOVKV7M6YT2XpEEKgg9fzvdM86LnX8l88zIhwrbfJu0F0d5sYGHtR/I
NlQ4F2NrqTLIi3X8GX30RZcKawolY8V9vNheIRXrs/up8Ej/tL9gKy+2ylZy
68jMGDCfujlI18CLnTA43ne9ZgxOOvqWXybxYrGXgpyFHccgRs3ouWQeL0Y3
Ox5dcGkMZl3hawaBF2NF4fJlR8cg8Lyk/ttYXiz4bNZhjfpReLYn0FzNnxdj
2c63pYSOwh3/ID8+D15M6P2Jcyv3RmH3lWPuWs94sQvP/G1/7oxAolesi7cF
L5YUkRtqrjkMvrqOpvf48fkrPKoKuoZAR8hGIOAAL1YRWW36wXIIaH/cOr2x
yYP9DkWPt+8Nwlp38nIShQe7omK1rnSzH9STsx4befFgDh7RlMbFXnitIC4T
V34Ei9psZ++62gvVbnoFjbFHMJNI/Rr16h6gqZWnXPU6gjkQChMzAruhp72x
okHrCObJKZ4tc7gT1B/m7Vxt5ca4b6+6ZPxoANLpmVrJai4MKTLKMbyqB96G
kq8Po7iwX1+9rhxkq4MOEbLTTScurFc7MrFXoRqmcp4GRIhzYfvKV19FjpcA
yyUnuwuBh7FA/z02zeglvGG4uHzAnBMTDPaf1Gm0Q6eFj8lvynJiMjoPGTJz
AtFffWW9k0yc2I8ZD40/awmoYfH+smsVB/Yv4drco2gi8vG/UPxFhgObrfQc
vrtai5z25a9TRQ5hRKtj+PtWj7TFo+7e2nsIK6W3lXDyaECCCoMe736wY6dH
Lm4kbTYhnYp3F+Zz2TGZzbscplVtSEqgOctMgx27zZEyPzXdjv68YnALlGTH
7uxjKv7t3YG8iyNS/TjYMR1Dlo8jsZ1o3uaJScc0G0bojr49VdyNnNrqCMWf
2TCroIOs1ko96HykbKCwFxvGK2uXIUfsQeIxObEW9mzYL+f3+7yTe1GSdewu
TkM2bDZD+HfPvT7El+/+JIGTDeuNpfL7tPWhN7mPs3n3sWEJ5Ucuyil8Q5XG
abF6/1gxJuEoO8PVb+hK4sOxuhlWTJzgdrDFtB+tflS7GF/Hit2ef3Lob0I/
cti3uOBdyYr1io4c3Z7vR6dzhDjWilmxDG33DG+3AcRu2VvrksmKfa4cUt0q
H0Busncoz1NZMUfLd3RnNwZQ2kGiy3oCK6Y5ctfwn+0gcr+o3aQXyYrJ56b1
PI8fRFvLqm1cX1ix7/EffPK7BtHYXDun5mdWTEwstzOWZghJaft5dwWzYlWP
D7qelxhCtaVuo8SPrJjr0P74z8ZDaLV0//B0ICv2K/xCc4TTEHK728t3L4AV
i12w6zIIG0KLma9kRN6zYsP1p/4UEIcQpTQuXMifFTukvFxf3zaEhniju66+
Y8XiJf9T9Z0cQsZpPnrIjxXbqxGVvrY2hHrTd5z1cUf+OlfMxTiMqjGmShrc
tya8H81y4E75/b7dlxXznk8TtxUYRsdOHTAj4u7TdMtOEB5GZ5beBxFwFzoP
sHwQG0Yd1ppVybiHyOpV8rjRoO3T/9ksTNEvRGgYlbifUY/H3XI25F0e3zDS
iYibDP7f+LxsEMQ+jHbQ4OFnuP8Gv3U+xTCMuGsZilRx8+zIWSavDCGL8A8F
cz6s2HFmpvvUsSFUsTdPwAW3q8kf2+XmIXTVqFV04C0rFmO4GNyfO4QMaiu4
WXDvY9Q1jgsZQvddD1qzvmHFcrEGJ+2nQ8hMTTLhuxcej1cy36DBEJJncnp3
x5MV4+OqI94QH0KWM6p06R54fv+mrvftDCIDGpIAwZ0V41T5u4+cOIh+xEjf
KHFlxRS5ffpM7AfR5XI+3yonfP8Ddwx+nR1EufQ7d588ZcUMXw+5+zcOoOVW
9v9yHrFi2Q+NfcPfDaCkbeUzyvdZMTnaZ2PD2gPItz1j88ptVmybpUZakdSP
3qk37hhcYcVYZTWSrzr3o4N0JQnHjFixZbPgB4MS/eikhNi2hw4rdv2DF0Ek
4DsyuJUt+O0sKxYu+FKdRu4bur3BdpPExYpFC9QFa/b2ocC0OyaImRWTcFj7
qeHUhy5L3ipXpWPFjizXdMTkUdDd47HkinkW7FLTnkaOg71owmTvneoyFiw9
6T+hn4QexH/hNmtFFgv2xoXmAt/5HhS4+phRNw53vLxcrW03Un+v3irhzYI9
D3NgtcjvRKrjly34NVmwbOGU4zW7WtBJWusTps4HsZEcLmEb2hLEffBm7N5Z
JmySZanSdqUQmXTZzU1UMGEcbrT0a1MFaNU+KSkrmAmTclDSGAvOQX78kcLC
KkzYriopn4fqMag8gPHXxw/7sYAyujhpw3hYIfjqG8A+jJ3l+ql13WTg0alr
zuXch5k0ftZJuJgGL4tsnd0WGLFU67fSwUG5kFB8bN+tWEbMj77ptq92CViF
efFK7GHEGCrP0RS9qAFiXB6Tx+89WM5+h/Elu1q4/qYy06VzDxZ4vPUkt1Ud
RM2c2LmUuwcT+e/vqa5TDaDUmvk06MkeLKxIId2qvBl6lzk0ZzcZsPbjr6+6
h5DxejW/dv8YA6Ywo5/ae78Ffvc8ecDbwIBdDXCTHKVrAzqBn+77QhmwwFlF
BWGfDii5KTl6CBiwbZ2jX/aPd4DtK4pWigQDltkR6Vqr0gkRrbdTjnIzYPq/
MvwDZjtBo3Inqn6VHuvZFDELVOmC4fIsr7kpemx/n2q3WkAXqPgf+7fYR4+V
8/WJZIh2g5Se92ePr/TYK+qXLiP7bnBqf3SVPpceI+Y6DgaVdMMZuybaK0n0
GHOV0fd66IEpDZZ9eh/osYnwpLncVz3AFluVN/WGHvM5aB/LX9EDp9x5h5Re
0mOHefmvOsj0glaLw6uZx/SY1JN+ioF1L1jYbGNn79Nje2rOUGPDe2HPq2zB
k7fosat1/7X7rfWCa7WRb4sZPcaw2vOGT4gCgVrqFY+N6bEbWXJPD+tRwMNG
x+mjPj0m7lAyqhBGgQKjmzwqWvRYRx9bqGkJBXJ/ivkVqtNjuSeJc10UChw+
UfQm6AI91uKuVJG9TIHvwe9YGs/TYz/59p6c3t8HyuMxHEYYPeZcfDrt+bE+
aNVnsRcCeuy2tPnSo1N9UBnQsXxalR57oia9t0QTv09wXr7td44ea//np2Zl
1gf7Jy547sPtJ/jj7L3bfYCJ8h4qVKHHLO4rDTQ86gMrk+8DHrgHRq2N/Bz6
IP1HYOI93IkWR7gznPpgxnNT1RJ37g+lVSmXPqC4sn64itu+0HWF07kPNPuf
vjHHbbu98uje0z64vzEpaoj7v6DYVd7HfbB+JzNEGXdZVqUrdrcP+OOGaPbh
brl3+2i3eR+wv4uv+3qWHsvJbLb8ptMHXJTrV7VxT7CRqSZn+kDJu+0K4Qy+
PiORPG3RPuDZzejddRrPdxmVoZK1D5ibH5BJynj8qWH3C9cpsHL1rpatEj2W
SUsMVxihQNUDbfU2RXrsG2XuBVZLAZLxiWxaBXpseV6cSyqVAr5v6ZUXZOmx
X6FKM7t8KaCSsj3rK02PHck3iyBZU6C1r3e17SQ9ZhmSsN/uAgUi4r0qy8Xp
sfWvDlps/BQY7s9s1xGhx+qRuapuay+8Oj6yocpPj518/Hp1Pr4XNiV+i0Zx
0+P1wKZTxLNeKD2zu8H/ED0mtjFaJHGoF8w+vEaHGOmxcy8L60dUeuC8XqSp
2xwd1sBax+uzuwfKKsavcU7QYVzvxrHH9d3wxdBEQ3qADns/4jvJpt0NR9u/
KHQ20GH7ubhOhp7pAhaKYCIxgg67m8vZu53eDhPtXy8XiNBhCYUhZi/o2+Ei
sYLUxYH7o3Lfy+ttkPnqtLYdHR3Gfp12xJihFawE1e+IjtJiAgkbZL1zzTBn
EuXXE0SLhV/deKdpVAuWpj3raHQ3xhxIF1Flnw0vQ8PYpbV3YXVBqXknL2bA
cg0XjbT0LuzJaRfpt5wEUNqOaJHk2IXtsvJsk/saD8Vyf8zPjtFg3WqVpXH6
3iDgFkrH60aDRX3YyXZvSURnZuYLl+/twNMUbo0n31LQG+bxj2KndkB19rL2
5Ega0v3JVfuDYQfkVzeHNUdz0DFByRXZ9H+wkrT9vKW9EL3JWTAKXNuGz10D
y4wuJET5xXWtsHQLWt4oatsJViHCSmhC4uctuN6/mljaWIXeRajscnLYgqo/
j7fqWGqQQLyIdZfUFsg91RTVfFOHpMlbB1LzN8Fzj8CPa7z4Luc/jFj5vAlW
NRceLObWI1LP2yen3DZhW+nwY8uuBtTHJd7+QX0TInKqNw+tNKGOqarlT9Mb
ANdCeHucmlEgfU7lo64NiHgfvlyy0ozSl6b4pSo3ALstVtL6g4xe0900sP2y
AXZuC5dO5LWio6xj1BdXNsDWMSeDh6cN7T5suWylvQE2w9XBC6/bkFikmS+n
ygasFZ0v59VoR9QkT+GJ4xsgq8aG/TbpQPtWLs+92FqHRYG0LdtXHYgrUVGv
7Pc6uMQe5f1D6EBit9sPff25DqJjzgICqx1o4NWe4bmhdYhPiRit4O5EmjyW
Bvu/rcOXaybo5tlOJFNWx9zatQ6kiai9yS6daErmqMjh5nWoEc7kVf/UidJ7
PtsE1K8DbZ1O/FhWJ/KQCxn2rFkH7Tdcz13rOtG3JeLRBdI6CPGIN+4f6ERZ
UQrEusp10Hk3NxK20ImuxSrQ01Ssg4EhqwkfTRfi5jr4OKR8HczuWf2MPNiF
3PKTTzmVrcMMT0gGO18XOhSamxBTug4Js8favcW60N4P++Z24+Y/zt68KNuF
nEPWLoWXrMPRIqLW5dNdSLTd5t8V3E3zd6SLVLuQ411FDUXck7pYBLtaF/Ll
AntR3Mb+w4P/XehCeaJJg0K4f9X8ed2EP//qQ147jltujOaSMNaF+Kds9Xhw
d5jNSnuf7ULVpW9e7sK9X/nLjRmFLvSw+eyl1uJ1OFb28YzpyS5kGZER6Yjb
TP7VtWbBLmRxIt7tV9E62KfWBOlxdCGrqNP8yrjlf68OjDJ0ITt12x9Y4TrE
EGye+Kx2ou4W12e0xHUIzE4svjjRiQTosLfO+evwrahdl7ejE9XJ2gt+zl0H
phjFbdayTuQQmuVpmr0OCk1xDeIJnSiPzl0oO2MdBj83DNz37UQ19lLVEYR1
ePorM7zDthNxOvlYsCevA5/k9scHBp3IqvaeHGv8Orxp+WF6+mAnUqAeFfQK
Wwe9C3LiL+Y6UNtHD8WfQetQ+6zr4u7GDvTeLMaX5L8O/S9IuguuHahuL9E4
5uU60Nlvx3eGtCPKmhGRcHUdtI53Z7bLtyPdL+3kDX08/7fYs4kdbeiLdHVi
+IV1kJ01SXu4qw2t7wmZLjixDknP/0wwYi3odKn60omlNUhquDrV0EhGjq/j
Sbkja/DiT5PYqD4ZBa8VKLu2rYEWXcL8dZNmNH6Nv607bQ1EmuifGEIjOh9P
Cmu7sgb5jjzl6xUNiDXC0ZHxwhrwNd9PqDvTgL6YCk+nSa5Bs/UdbFuqHsll
Wl4X3rUGt2LY3rrR1qLUsXV+8/i/sHR6H1rrqkSRqcUpU02r8MBCbZHGIAW9
tbASpA79AZa2sWcbrYno9cIAtlPxB3SVN5/t1YtHT237HvLH/AGN2kXNjC9f
EJdXCtvzG3+ALvpZ0Pt8ByRLYD9+efQ3TJjk2OsqxEOD1n37D/PLUGh6XYPj
SyJ0ryxf9O5YBopnfo/AWjIkSLe2dBcsw5EfXpX8menwWvOh0ufny1Ab2DLy
ayEPPtdLXOZiWYY1pe/7mqPLwKT0ZOlFw1/wDr9nvCovh56cb2UTyr/giDqR
VbT3K2yfdTeSPPYLBClYwtBmJfzImRMnrS5BkPRD0pZfFYQioWZ2whLc2MVV
IrqnGlZd5csEQ5fA1cwiY/x1NUQ7mnwc9V4CzUVGqVG7GvBkVY2yu7sEFlu+
cqUn64Al/qlCmcQSJNz3fKT0uQ7Mns5ZKQssATe299byRh18Z/4beZ19Ce5d
6i7eqKiH2x9VA0U2F6H9uwOLEk8DUAMYVFSmF+GRTTJHoGMDiCQlE/x6FuFn
WdjPx4KNwES0UMzNX4TO759ezzg0wvSeche3xEVolYw2uFXVCGc2QppufF6E
Yx5XmRQvN8EfNbnbJi8Woe46XYx3RBNsKrsmGtkvwp9Phtnlg01wnMV1Qf3+
Iki22wa2XmkGJ96y8ZnLeH+vp7OxH5sholjsl6f+IoipDn7Xqm+GwT9t32Y1
F+EvnfHBurVmEDhxI5lNbRF+R6mHsYqRocNCVmxZZRHoTy4PSpiSYbE06d8L
5UVYuHwljfUlGRotn4elKiwC06jY8aoEMjh+NlS2ll2E8KmCNuU6Mkz7sNFm
SeHx5JQGOE+QYcPEa9Pu5CKUCmOxL2haoMCpkinxxCI0s5rHanK3QGMbYj4j
vghR7N/ffpNqgdKOWbKY2CJQXdgzpM+3gKWDL8Md0UU4uulcoWfYAvev67sP
iixCjasiWf5aC4T/a1rxxe1W06IyfrcF/jB3KF3DHekV0XvdpgUizn3n1cH9
58GVgmTbFthOM/yogbsxKlCv4lEL+M52fFbH7Ru/zzEVv08Qbujpn8XNkK9s
ct+qBTqJwts8uBPLPB/SmLWAzy3BA4PCi8C1J+6jk1YLyHEbcTzBfYs0+LdV
qQV+KfYMtQgtgtoVc6H9Qi3Azu9xd/o4vn9rZ5bkDrTAWuP9MeIxvL8E1U/n
Nxl2B58nnxBchPI8uqdXKGQIiEobUBVYBOPvra9uFpFhkhfYp3kXYfTSUu8D
/P5jtxhRwX1kEYIMpt+GXyTD+PRnkXW2RZDt/XYngZsMQ58naNKZ8fz2s1Cp
P5vBsfrKvQbGRfC4LcAm5tsMJVX8xeL/FqBCvoFbxbgZWrSkXa3+LkB5tIpt
CnczjHVXPJ1eXIDWaw+8YuOagH7+X13r8AIwnmMnglUTrEvTzAv2LsDxVRH6
q3xNcCczbCGneQHyZFM+8X5shGv9bc/vFyzA+GSk/qZ5A7Sl0rsPueHzvXmf
4UTfAIvXKY9DbRYgKWVN4mtOPdwqWZy0u7oA1t/DxLu26yBy/2LhK4UFWCrZ
22/7Gq/nXiZKMI7Oww8KnR+9bBU4k6NetxyYB56docEyRAJqxzHx74tz8D6A
yZpGjwSdq9Sjxzrn4MaZpp2J+krYJbU9/iJoDqLqW6792F0OvJ68sMw4B88y
uAkhvAXA0cMwmjjyA2T0A9d+73iDcEaZ41GzGdCL9eDWS3ADJnHlT0YyM/Df
dWeqeZQ1nOV8q5m3bwaOvnExpVd+ijL1n7gdJk1D4oGu64aTIahxM8jhlNQ0
2JeS6gLfE1BpyTHXvXxTUH7Z+Ey/YTpiY88j7duehMefNXn0WDORwOpGUdjQ
JBz9vGp84G0Okp3icb4dNwkBpfYpD/gK0PC3kKdCkpOw6HbXace8FLEPVqOx
exPw0sP3Wit7GbppgGIOGE7ArWsqZmHkMvQj4d/juTMTQHYx1pyQ/Yq8Chee
1LJNAKWL+TalrxL5zhjdHGgehwpWxpFVF4SE7lhRosvGIbyLZdF4PwkNtX/g
ZMkYhwS+D6kokYSUvUxGtwPG4eNGO+1yZRVaKJIMb7AcB5c4mYN8u6pRwX4+
mm7DceD2UT9y93w1yven3nihMQ7rWWEiCl+rkUmTinyU/Dg45HDEElerUXAJ
d9N+iXEQO6fNgEnXoBGTlxH7j4+D1fQs8UFEDdKNDFXPPDQOzxSu0u201CDl
lVPjF//3f/5zA8bB2zWo+0OV5vW940ANHjqRZF6LPAwuG2xuU8HJItuYz6sW
NbjmBTuvU8Ei+m6Rb0YtOuLjOWa1QoV3XMQ4ydVadMHs4xfrBSp0z78dluap
QwesTR+f+0mF3PMrwZXn6lClzqPB5zNUoNaJ0Xy7jrvtHzPPFBW+aCrmuD2v
Q2+MLDkOTVDBg5/hSXJoHUqePfbjJpUK0v0Xrl7JqUORud6Of0epEKwk1/ih
rg611Dt97B6hgvaDt1b63+vQTsyvPfPDVLhRrMgU8qMOfTwmEaeC+1CYyub1
9Tqkq9ZxuHyICs5CNxJz6OtR4ruzErdw20oNIt+D9YjNLDVMFLdQm6jRD856
JK5iwb8Ht1bcu6hennp07VaLz9ogFcKzGyV0+euRi2Ftyh/cnkfKWwxwCxyw
sfyf6SPGP1Lx9smHDEKXcK9+W2thOIy332djScV9v/MRF8Lno+2hq6vG7S81
pcvMUI+clyIZ/HG/bat68xePN3Esy04Bd5ezq4D7zzpk6OX6X8kAFfr62IqT
++tQlXJ6MAvuvWOvxR0a6tDzsaUPp/qpcDGWPmQ6rw6FfPTFhL5TQSDCXX9f
RB2qZ0pJ7e6jgvBQ5Z/hV3VI7UTnb1UKFVhRt6XNHXy+I6KvrXqosOOhHZp3
sQ4JDngPyHVRgW30wXLp8To0++cLKbedCi0FFf8JDdSimxOPRSKbqFDuuc8g
uKAWpQkPnPxXR4VhTs/2b361qGZfTct6FRVeM6EIRplaVHqX+UZ6CRX0lNRv
76KpRVmlT9KuFFCheCemaq61Bl0ld18MzMLj3zPhWX6nBj1IFOp5F0cFm5h8
mmyJGuSd2M9/KZwKr2x4dPN/VaPHluUP/ILw83gkJpzFpRr12wd5OntQYfTK
bkUWuyr00u6RxfwVKvy9Oj3/XKwKRSalmtrpUmFynDlUdZSE/kOPL97DqNCT
etNiQYeE4h4UMmaJUOHaAEMIM28luqecMFQ2NwZGPyJGmAklyLryWSen1RiU
htSEv9ksRh7Vz2bz9MbA58eEyCm9YqRB5sj8eWYM2ugPuQb8LEQup1+KaB4a
A0mmi98OcxYg90I59vXqUeDj8x2eupeOWK64PHrNPgpK7faHu2jtkR4xzML3
3BBw5n2VOdligoj1/KfcDg6BXjj/UrXxNeD8Zb47b2wQdpTCXLzpXkH8k+9f
mX0G4YrrFYnYoBCInkqyeUQZAPa/6mc1TiZD80rRFltgP1gWHbv62z8FHu2z
0xq63w/ZbNz0VjOp8B/FK85SrR/+M9Us3ApNh96JqhGf9e8Q6maitdWQAymU
5sec9t/hmfXxDqlcIpxUDbvd5vMNiGCpyXWpEI5VJFXa2X4Df68eOs7xQuAR
XWvnNP4G5oE/WA/tKwbdSr1Ux6PfQOQ/f58vcqVg+InZz7KpDwQeyCTEEkvB
VN3sH1tRHyj1ujUZypeBh463c21iH/S25g15iZTD/XG99T2efWAfdEByz/hX
CJX8xBGj3QfBhb/7FLUrQMzorFHhuT5wpT85XZlRAf3WjWoJcn2gq9kaQ7pX
CfYMdP0T/H1w7XXslxMVlTD33OOjJGcfmEy9iOhkQRBUDcJyzH1g3dmFVWYi
KGqpEzem6QNW/cimtT8I6PRuJd3YoMA5Uh1rFi8J7mXdOcK4QgHRH3ZLCyok
COgZfa+9RIEtxjRazJIEfg6rbYfnKDDZfsg3xpkEyePVfo9mKFCiLvBnbzAJ
3NQeYCqTFCBR/v59mY63r+M2fU2lwDfKm5dbJBJc8pLdKzdKgcMfzAhevSRo
LdJ9qz5MAZtv3r1sMyRoj7Wl5g9S4POliMi0NRL0cB8RsB+ggC6LTbPmnipQ
2ftO1rmfAndNJ23m2augqZhE//U7Hp/jbGUEfxXstsj3PIVb+eee84aiVcBT
cyNw6BsFPv3WTGKWqoLsL1OsBNwt/NRuilwVUIW+bL/HXVq0spymWAVJjMu6
XrifcCtf8ztVBcUcEfs8cSuxxcQ74c9P+WiYeuCmwXb8n+L9C5i/3HDEzRxe
cMRTsgp4f1FdzHH/4ZHwShKpAsHcSRZB3MGVr2SG+KrgeOajovo+Cnhk7qqR
wuOPU+3nP4+7YariYBRDFZT1pYj5UijgfGVHQAxfv0wxcTiklwLHbJtlKNMk
8Jz88vxaDwWadEzy0/D8NR+tse3vokBS4X+aKVUkSHB/d5mhkwKhe01lT3wi
gSONftmlFgpcyQ+vKXUjAcX4UtKVJjw/uqLjnjdJIKkifn+1jgKez11Me46T
INW2T6SnggLRAYM3rWlJsPrvQ8aeUgpo7arueVeNoP2uKF9xAQUUrdardqQR
WOQ2MzqlUkCQR4+EjVfCstjR8zFxFJh4qE6+F1IJhAD6HMVwfDypQG+/HxVg
3ecgm+RLAXsJTqW3jl8hufvBjJQVBZIRrZAC61d4LP/z+0tTCmQcPu0sll4O
42sUGjEtCqgzkAKP9JRBXFbONz9JChyPOZKUxVgKk5f0Q1yWeiHk4C52zqAS
yH5X2B8y0guEgRJbJc4SiBhKV9nX1gussE+Wyl0Mc1W0e5nTegG7y+b+YW8h
LEVGjqRd6cXrCz3G90G5oH6j0aw3vAeOBPkrcKzlQGCE0dXhVz1A2XDuCG7O
BkM+1V7nez2AVdgrRT7IhJjPL03spXvA6Pcz8bL3qbCiOLmLB3XDh0eCY25i
kVB28cie0K4ucP6oH2YW54c0xex/PPzbAaV5bCe2RQPRU42mKRjqAI63fOdj
TINQYLpays2aDkjZZ9TtQP6MPoGAesDHDljTCTQd8otBHk0z7w9KdwC3TDDm
hJdY49+ctkx22qBt6IbycbxeHHsQxfmprw3MZL6eLH6Thr5dYhVryW2DIJPJ
j2CXgWC+LE7Wug325Uy1hHHnoFVTLR+eoVZ4tPly9vFQPjr26tq851YL3OEu
bLJTLUDOVNqL7JMtUJFw7phJdAH6bzZqKKWtBW7sAdF4UyJ6lBsu3JaEP6d7
mx1JKERvQyw+1+P3qq2se0szfwtR2a83dHx6LeDS3uU6frEIpffcmrFQbYGo
R38qmvuK0Nc9aXdcj7dAzAWrlb7RYlTUKe9K+EsGl9svCmn5SpD71I3fiQtk
KHutW1xsVoLipLeGzafIAA5V0enVJei+dmBmdx8ZTnYSpcb/lKCnfbr3/DvJ
kMsoYxEmVIoibq2rjZLJcLhX/OODF6UohUnn/IVqMlx8FYC9TipFdiz/Fs9X
ksE+UruPqbkUkev/TVaWkWGmy6uOcb4UhZx9wJtfTIY8iCh3OlCGpJTHHdgL
yfCIyJpmLFGGAiL78/vzyVDD6f41SqMM2fEQg3dyyVDZffeO6c0y5Ce7v9Q1
hwzVz7h1XB3LkO/aHMKyyfjfb7GTIe/K0JPfI8/PZJGhaQ9rZ0pUGYpMkJlw
zSSDjtnfemJGGWrQvCH5J4MMPx2Sf1UUlyElrcMBMbh1+sXf1ZDKUI3Kpup/
uBeP2PI31OPjmxj7meO29Sr52NxUhma3iquMcZ9qUzvcgdtqqsjof94ajT3b
j7c3NjAt18W9XHiq/yc+3tl232gl3KFvCYJ7S8oQbW5SyV7cdIYywXKZZah6
X8xyYTqer+b1rf+i8fjHNSwVcTvN23lV+Zeh5+8fyrxMI4Mhr1eolHMZskxv
GvMikGGFY3qlDM/H0rm9HFgqGczrtHIeqZehrxIP0wjJZLh68AWfhlgZ4m5w
KScmkqH4a/y0wd4yxLX2gWAZT4akGHWaD5OlqDNJke1zDBnuMTsmMZLw/eO6
NmYeSQbf6VaL+rBSpKTgqh0bRoYznLaeglCKegO8lUMDyTDVM3K/jbkU6ctm
EJX9yEBRrVPvHyhB2SdMS897kWFXyBuy1H8lyPM0tvGfIxms8kb3+cqXoHQv
hhmfx2R48fWO3a3VYmTNe6Ru6S4ZVDo8okueFaMDEbblsUZk2LxuuK0lU4za
gzPdhzTIwDyjlOk+W4SEKr/4WJwlg+xue+Kuy0Xo0P6Y3QzHyPAr+PesL2sh
emDRPzE22Qwv73wNu1tORF36kjcpPc1wpvh59Jk7RKRyaSJis7oZBPf7/aPN
KkCcQrvDv0U1g7SlHrvFiXxE/65a/o9GM3TQfTh2uS4PBbYT7bykm6H2cP37
jBt5SPgoDVXvcDMMvp8cjn6fi9IyduLiJppg+2yU0cHsLHQk9dXuFKcm0Al6
luF3JwUlLXDud37RCG8ytfQCXiejdeIbBebrjXAud75eMiYJtcy9vqJ2rhGe
PRpai+9OQEZPTxuEbzVAyKUL1XV3YpAh79/ZbOcGaMh6yVCLfUDpWW/+Cd+r
hwwTZf5cf3/U0uor8VatHtREgmRGKT5I4AWX/k+Behg49OneczsPlP1bUX6k
vw6y7pSxnjx9CcU6/aEXMa6DxVt3SjJO+IMBP5E9/1ItXFSJZnmcFwh8fXbX
bpyshW9+6LgCdxAMvH8/9eRALRTZf04c+/gJJqxC/Ac7auB52YOkGLNIUCtr
ide/XgMWRT/bt5mSIODmp9qtD9UQSXvC+b+2JJjLL+Jfd6kGlX3+I1hAMpQZ
PxsOuV0Npw6Ev2zanQrm/03NpitVg4ZOg00eOQ1UuvI/uM9WAZcOyc3RKR3U
GJ5yfeirgpjBkMqj/BlAz06ffLG+Cr7XJq6u3MkEnrd/0qKTqyDkzy9nqcZs
eLIWWb/8qAqa/0b8XLicA77b5A9XblZBcLv2X9PRHBDuOnDKxARvPxz14plj
LlirVjjsOVcF01e2c14X5oJhQGlFOV6H0Od4H237nQv1aUxG/8Sq4OSD+zzs
j/Jg9Bd/9fHDVbBu4KtNm5QHbfoX5mgOVkGK28CW4EAexIuLbVjhdVWUxF7l
wQv5UKp+NSJqnQTDqyrHpv/lwwk3C3L0OAk8QhSvzIsVgIzbaQ7pERKcke69
xWhUALk51veEB0gARrZCbpEFQImwoEr3kGB/bu9sc0UBPG3ROXW2kwQuA0Ox
4sMF0BP1mBreRgIHqX0M+7mJ4By5K021mQSq94nn/eWJIPSVpPO8kQQhv9e9
D+kSwWiW7spaPQkOqn9nSrlNhG0bzYXcOhIYpk6ogzMRoh8ZiMTVkuDYHomW
ET8iqCgeYqqqIcGN67yPfCKI0NoSm8yM+0DtQ75TaUR4rvTrt1c1CYRUxpjm
ConQVjT0hwf3iRPqwWkkIoxoLyV14nUUBAko2jURoaVGY1cc7r2HgjLOdRDB
qekRoydu2hqefo5eIiTsk6xywD1Leti91kcE0wOP5R7j1qk7+G36Gx7fxOJ/
trhL314ym8CfK0kfC36EO5ijcnaxhwh3Kr5X3/vfeLLHLJnw8Z9hBxXNcL+L
+xd7Fp8/3eajhDLuPVGm/a/w+JRn09YZcEvr6ZgP4PHrpDTSVeJ1tYFjZ4gh
vr4Hdaz15rjr1HTkqPj6n3QskbsQ7lvH6ELeEYH5Y2S5KO73pk/orF2IoHfQ
39ikkgRUfn/zG3eJkK0/e9+oAs+XcYzBK30iLEj/nuf7itfpb87cbjmF9xfX
/00sI4H5JaqsNh8RThsbJbGVkuAiIcR3fRcRUu6f15UvJkG3iL752EQB/L7+
yoy9kAR/ZX8t3k8uAMnnmVO0uSSgu/jg5kGvAvjzrXn+QBYJmqI3Pu/cKIBr
5z9YNqeRQI+fSbOVtQAWd7Z29BNIYOrgI5N+Jx/oPsRuwAcS/FTrf7VXJh+U
uRpPcfjh94ZdDlohG3nQG8TX5uJJggrjADbdd3nwgzR4cPwpCa7FhEQLfc6F
b4z3J7iMSPAV1N4ik1yw9/G6q6BJgtvLN5vqWXLhFO1Jgx783tO18dHJjSkH
Am4Z9MeJkIDJ/MHyO5QJr1dbKn7OIHD7t5b2XDgTviwwa7i0ItD//fRGn28G
rD1+qnU4DwGn3uR/fFrpkGIWRw13RJA/mHX5YEYq7D3z4bzQn0oYF3XwfXYo
AVKUmdX4WipAl/nm7g8W8bA/Kv2OcFIFMOa5BN+IjYPd0U1fY55XgKLoV4Fp
nRiQqbVi3iNeAXOq5y5kXvoCgif9ylPcvwKR1KF154QvUF4FNlrw4XVzDNPN
b+y+SMosQZjDtgSU+wZ1jRrfoWtPj91Z0iiBO/OtW9wuAaiuznH50rESsP4w
/tbobhDKYY4Mi+gvhvLyQ4FuIaFoNLCsSNS4GOYfqt95Ix6Hess9ExqsiiAr
QCR1d0UcStMJaepULwI+hwBw0I9HJ+QP10dIFEGJ3wPvvzYJ6FmPyVe79UK4
X3k+0MgvCaXblH2+EFMId7XN9xzen4zeSjoY3PUrhNNv39g8fZeMMkWHs7Ud
C4FOIo2j8XUKevZVhNPKoBBkT6twdxkR0A/j7rwopkLoItmfUEUElNCqmFe3
TQTfPdreq+JpiK3w8GbqIhEGgzeZTv5NQ6MRTP8C8PfU2InpV/jVdGQqeWvW
H3+vns2e9FMsTUcx+QlvlSrx78rpDId+vD5mSP/U5Ie/R98r+tso9RkokCeF
KhZHhK+pXitTRzKRQ/t0mHUYEW7n22xJlGWiX2l/QjN9iHA3xF3bjD4LRUqc
as3wIMIbm/NnX+llIWWWTy+U3Ihgf7tIqbwnCx2V3msw+h8R1LBx7nr2bCRX
7H7490MiPGLebYgMshH2ToHw8h4RsobcfBN9s9FBg7/ubreI0PunEtlVZqP3
usTN8etEWJK8jAn+ykb2vE23iRZEaO4aTig8moM8LliOTF4hwl+fylV3pxyE
IjIum5oQ4bVXTGxuVA56EfJP5Y0REVYuW4ZXohw0PtXIvWNAhAK7G7sJIzno
kv7s13L8vZ/PztSw3cpBtapP5oh6+PrKBz7Q789F5OcHrCfw7zK9GruOGmcu
Onrw5dgF3MXqrc/nBHKRYNkyW+sl/DthpuBIJ5aLllY8s1xxrxrP/EcnnYtk
ydFrgHu4wkRdUiEXyf0n73IU99Zw38orpVw0fY7+FDvuaO+GvG3lXORybUKT
BTedA9dwKu7qzuPdB3GLqB9k9ziVi/zGtg/uwy01NsnjK5eLYoR+6v7VIQLV
1na16mQumvs3+6sdd9vvpC5p4VxEYC/0eo/7btlVth6eXOR+dzpFGPe5y9la
eSy56FIX0/FP2vj5+JRxupkW70+KnuzQIsLVtPcFF37kIMOMCbpeTfx8BFZH
ODXlILHXLdXhGvj8/iEd8sk56HxB6AcudSJkvrxp4fkyBw2POjNdukAE73zZ
iIfGOahf+AizxHkizKVH6/06noNmOOhi81WJQCQIN+6uyEa6x8sL4pWJ4PPE
pCnaOxsdeL/8+J8CEaytS3I2tbJR201NsXkZ/DypdZiINGah/eNllY9FiTCT
M7rC4JWFqoTqO1cFibA3jPtC15kstFnWfJmGF1+vx3d+0/hM9GrmN9dbZtzX
ne5evJSBftz7qcQwXwALIXtyihfSkYa7UeiZ8QLw7zSvevohHR2Q80/5/q0A
xk9+fLfRmIbO1Df4G1cXANkijFTJR0CcFrytRwILIELizf4qiyQUphpy4TJj
AYzeEaG5/j0RcevFCsqs5kN71R500iwRza6Yjrym5kPjMHsLQScBJbxVtQ0t
zQfa6dlp6tE4JPblZ/X0rXzw+d1+5smxMKSbHnR1JSYPBoWD629tfkb04nEv
I9/kwco9L73Zrk8orKVAg9Y2D5pzMqzBPRjZBb1Gksp5YCSgRzIP8UfRjSc3
/dtyQTSqZvqKmj2iCR4rX1nKATbWW7qF7A/RJeehhZbyHGBg4NejGNxEBPWt
V8Nvc4C94eGd4lFluNWRwDjElwNcQ23qbHzPwN06zeCZYTbQNnV1dG/7w/oE
z/nCjkyAzFwhVbFAaPRQMP+TmAmZ3FpOzSIfgTZWSp3OJRNIf49PcVwMBm2G
4MC8Y5nwROTqRLBlKNz7Z7p71jMDWCLuD727GgZLHbvtzK9nQM4R0g1R0y9Q
yXrNplY5A9ie0sjMq0ZAXKObdNxyOnws77l+dCYamEzMj+U7pANNQPBAVmMM
RIa+OGZ6OR3+oYPvTyTHQkRf4jjt6XRIjJQ60kGIg7Kmm8IBtOkwMJlgKnM2
AQzF2jzlktNg9qq+gFBEAmy5Sf0n+zENlPxVDtWtJoCGqrKGwos0ePwi8+kC
IRHGbBllT19Jg6MRfOnMS0nQf4nnYjdXGoxo6FZ/OZUMkTv8AfeY0sBi2ubJ
nFsyXOsz1fpKkwaH/u1aGdpKhobJ7j1JPwlgXx/D/PRMCryYZl45QSWAx+Dc
RZJjCogm9Jy4/Z0A5zka9z+bTIGPugN/m5sI8GDYLLebOxXCuha/L1UT4NHC
ZPjQpVRwYT4Rm/OVAJ8UGGcnCKkwVjDvN5xHAF09JeWh7lTQJGMZ57MIcFq6
JNZxKxWCDsRmHk8jQH+SGPsrDQI0v2Uf1EoggHrCqdG5+wTgixnd7x5LAIEH
9Zp/3hJgnq1QiDOaAL/i4s99SiTA216rRcZIAqhYmy2RKwjQuMv8uHE4AUY5
+Joieglg5fL24XQYAS4XlTyiwdd55J3QzepQArgsGRVtbRMgLtH/y8BnAoil
6FZ9YE4D7RnGJAnc61JcI6W8aWCVXcCU8Qlvr7YR+VwsDeQ7ZK8b45aL6Kno
lU2Da03+x47gdjWdvNCknAZN4XMLGyEEYDjmaX3lXBrI2t66No/bXbst9DWk
Qd+uoIM/cJ/1f+SujbtrxqZsFrfCL+GdXJU08PNp5Z/E3RMaIVemlAbdTMdY
e3HTOH5/eF8mDdbM593ycbPCbslykTTg2jC97oSb7sbgmZIjafDZMqybG7fn
YRvfW/i+vzRw4ggNJkD0ghNWtomvly/EdSKIACRdwZq6GQJU6JY7//tIgM7X
N5N9uglgelM4Y+gDAbxPeOTS4vv4oj6q53kgAd4xpYydw/flkknUYNd7AgS6
wMMz+H4cdDHrHXxHgCQ11/RtfL+C89K3Qnzx9reyzrzXJMCS657K5TcEKFdv
Hf0hRABrSWXib08ChAnOuZ/8ngqZNZfjG54TYHVQ/S93bioUyNY0fXTGz2Px
mvecdyrkRDMFzDjg+WF5PHFFDD9fw/WRcg8IoGY5lLa1mgLHT2h38t7G98sq
2iamJgUcgo+4vLEkQJaVdvqyWQoksTQ61+oSQPQW2TWfLwVKJs99+XQRj6db
fcKPmgwpVvVllLP4+fPQWoy0Tob0T+cvpooRwIczTZz3ahIUKTxhu7CZChGH
9/69uD8JJmzcHPTnU2HyefA75/JEGJXme5k4nApLvuekhDgTQedud7AYSoXD
ffFnWgrjIcvsy6Ek51TYtm2xrjKMBrHhUw8SG1KAkVtsiOIRBd19pfYoOwV0
bp91fJYdCXxoQu/C5xTQdk8hZe2OgObiX08+WaUAR+Nhjh9BoaB6fF/Q9FIy
8HvHe++qC4Q5IVnpq9tJUMGv0RK+8B4GD5hzvBpKgi5NR533nP5A5a6peVSR
BAsS1X5mt32A2e82TdGLJHiKBM+VDL+CssUrvt/WE+HppgpDRT8GLgvmk/l/
EmA320G3jnP+6EDj+thp3nhwqPhi5NH4HsX5K75QoIuHsas/5GQNAlFyjd5a
+lwcQDBJkYHwEfXYaXVzojiQOvadfldgCIq78HhE0iYO5ndo2X3Pf0ICL2oS
dM3iwIu5Zej98idElQpIXFOLA3/3FyHduqHoFFpW2OaLA2vNoo9Vo19Qc+fk
WHRhLAh+t4mKcw9H1NtqfcOhsVD2+B5vAHcE8pVy+KXmGgtnrqmYXNOIRJc+
vBO1Px8LY2xlwj5u0chqgfGZ0kgMKF2c5vXaiUb1zeXa1k34d3mOuiLzOgZd
nojWSCXGQKhBwoHnbrGoLVeOxzAwBsT/lNJMxschmdufi77qxcBuiaSxNEoc
YjbeNfkPYkD22l7eZMb/q7jO46H62gCASyFSlhYqiSJlF8qv4klIyZbUWCKM
PcvYzdhmMGMby4xlbGMb2dKCbIlDUhISaVGISkWLCCXy3vfP7+fcc+5zzj33
nOcpRk+DBy4rqBfAZNK+h6qexWib6VuXQxIFwDbktN9lFaNLXo89vokUgJlU
vLxPZzGaMooqIW8sABkhBZ/T20vQ3h/LHxaX2NB1PcLc9XgJWmZahvXMsmHZ
mV537UoJ+nn1qKvpNBv4f7enc0eXIH0bcR/SBzbwxV3fE1ZSgvLV/1M5Pc4G
+1L+m5s7sP67ZPZUjrBhurb7WdNoCVIVUqPlvmDD3Je/SxdEOGjfSIA9zwAb
JpS28Jw6yEEb4mIGvPrY0Pqx+K6+Ngd1dpT26Dxhw6vGbVm25hw0wiMg5v+Y
DcYHivVpjhzk3mFLWH3EhoaGk5wHBA66HGtHffkQa89KaNsRyUGvNzJXFrvY
UNQeNxiewEHdN9+GWGCWq2EYLTE5yJt/b/a7B2xILBPvoOVy0N29z7iyMRuT
A9cUijgohyfd1hfzqs711U8cDjoX2mBrh1lcVWOy5RoHvVdCHVaYq/ob1lVi
rqC/sv+/S526xm5jz3vQQPwC5nT39EPDhVj8VoXTgPlabzkSw94nsHrl23bM
Rz9+vH4Ni8dfXl22v5MNZg8am9yxeJ8qjD+/glkna0UGj82njI/86/59NuSs
U7Zi+XFQwjnnoh8dbNhWwDfJh+egyW8tu8fa2aD8S57UaMFBlmUaQzSEfT/h
9rWKkxzUOxl9ZbKVDSXNosRxRSz/or2I+9LCBksjxa32YhxUWHZMP7OZDbHG
ntIHubDvkzyOxhrYsOuZyB7dTyWIdtzUFtWxYWveeGl1bwkS74+9qXqbDdJy
meE+t0tQk+jfRMVqLD52ND2RWYLGW1JWq8vZwOrSrJo4j+2PgMuCsmw2ZFK2
HZdVKUHPS0/8FWGx4ZPjZf7nAiVoR/X1gz5pbAh/2jdGbS1GKbc/tDtS2NDc
UEhkZhQjnpcPc2ZD2fAycVvoHmx/98reSR31ZYO5F5d8p3Axcnj/sL3Tlg0x
j04RPk8UofcHFasasHOuLTVdp7imCKU+p235q88Gv+zzk++Ni9CJlPuvfBTY
sPf6lfXFUwUo7fLHuYEf+WBlmPXOPaAAJc9dkJUYz4dJaXPZxlU2irwTce1G
Xz60KGW679rERr2EhExORT4o+UnQfQTy0CDrSMHMxXyQeays7VWeha4Wnoiw
Sc2D/K+PW1dEs9CLlPHkooA8kBMo1f4VnolOqgpwm+Dy4Hm72ndL4wy0U6bj
xReJPJhMfyqcNMJAP97iuO4U54K4k9P677EJSEw6Sl0uKwdkn6RWCuyOR5VC
ouIqhBz49OPHSP0tGsp4J2T25WwOSA/gnG2HY1BA6q99WSvZ8EXDam+DYjiK
XTNG6Eo2PH9synMt0xIduxWCG5NhwZMR1dkA41OIct9ws+C/LFBMlSCzN+wD
nweN8oEvs+Cd5B6jsB9WoFdMLdialAURN3mHtL384MGGV3xui5lgot3+bCIk
BvSvSX2JfJ8B18wMatd3xoKo57s7dzozwHKq4mePAA3YyZtoKaUZ8IE2rvww
NR5InwYET7pnQD/RRPzX1WRI9OqY5v2dDnb/te6/n50CFxNv73wymg5n+aZV
TnSkAn3DvIzZg3SQuFax7MDNgLbrY8MF6elgHhTsk3goHb69X/oUfTwdPoiU
DO+9kQ4nr+wK85FLh6KmHfVSyhmQNkaolN6WDuPZkvGaBzOh3YW/5u0PJrQ1
jXD8/2YB/VOENPU2E070GjYe9GDB2+4JcmoJE/Z9djD8NcQC3bXDphczmaDd
GIkvL8oGMX29XL4IJtjzdOxgbs8FRTvTtTJLJly0NxJydckFuqzhzhZjJlQf
Z8gQa3PhxU2nKisDJvC/MtU7o58He4mZKVJaTCi+9bp/OT4PdlvTb5w6zIRH
He1hr3vyoPLPwtioIhNuWERf2nQ6H64Gj9C89zPBjW/IEBeVDxLeGnes9jLh
z/Oqifb6fBhVLXGp2s0Eu/lzxw2+5ENmm9MtO3EmhPTfuTOxkw1PlV7Qvbcz
oWa4bDHdkA29KH7yuSg23uWyOWt/NoS465FThJlwNy7caBd2bhgYloe8F2TC
9/DuXyITbChentwduAmzzNsFMa4CeC1AK9YVwNZHT6xKAbtn3HX50k7zM+GD
/6YGY03snvO/7xqxkQkxmsa8YecKIN9XvPAdHxavidbTBvsCkJtLvumJ+Xbg
PTqXbwGUl3/euAPzkLcQt3V4AXQVnN03ysuELylu/3XQCuCSob7fXcx/2ypj
jmH3orPuT0IF5sh/IqEPmQWwdnSlpBgzKXZ43jWjAHQ2VjOKMJdFtu2UTC+A
opAPzwoxK8R0nP+O9d/ZIcWTi3ljJ/3MSFwBtOi5vknAjARFfnyIKIDBYuXt
npiptzaQRPwKQKj0DFUTc4SZgyPeEZuP1i3RTzxM8Ls3fGXMtACqpi/eJWKO
e3vSn/ZfAbhoTKd93sAEm1bRl1ekC0BWNOGBMmapsYbNvrwFwKfnXmC4ngmX
H84NN2H12pZK/1hlbiboroDKqW42qJx8uTzGhe0PXykr4Wts2C6feM1yjQFR
3t59B6PYsNOi8WzSKgO2KO1+YIadYwfPp+gq/GFAqugVgudqPjT+fvOMvsiA
hUemrZ9680H8i/PLwnkGeHC6xWWd8yFYB+fa+5UBLK6aA/MK+RA25uU+/pkB
nYIXBuFnHpiF8Q9lfWCAbN+Ia0BgHggGvKz6NMKAmNI7Gz0P58GutqmZsGEG
tF62a/r3LRd6o9k6VU8ZkK3aPLvfPheCP6419d5ngKHI4/4u0Vw40v9PtrWF
AaJLXviDXTlQ9kpC9eQdBjyetvCx3J8DprvZtb85DJgMy9e88JAFWw/NS4hH
MiDt399IBScW2PJKlLH8GeC+e7PbPex/XdH2upnqyoCyqtM92gexc2o1UWba
mAHk1s/fdbFzZS1Vcq/dVga8y67evJKWBtcmvCwr49Ogf8rDDh5GQYBF05zh
pRTwlZmaZ1IjgMWRjCk4kAInHORGYvXCgDavm3R3MRmkh6leRveCofaO20Gf
rGS42PWavOn8VUhOsDkx/5wOR6c8Wqt8zqP/AtovvcQlQdmRwPr95jaI9NVt
IPFQEjTg3PJT0x0Rbu6Ax/W/iVDyotX2s5Un+hrRIWRdnAjSxQu//j0KQl5d
hCXb+QS4YeP/65loDLod5BPS0hQPfVUxcQt/Y1C93YHcy6x46HJ6f9d7MhbJ
firTbg+Oh6D5J/ybymkoxWeO8vZoPGiofrMbFkxEkoOctIbOOJic/9wfMpaI
2BHFuJaKOOCce/F+uDoJG7+7KTMlDk5uqL8UBclI/pTJhqeX4+CFws1mmz1p
KEvVuury+jjwWy47qRqahjxjm212/qDB7DoL/v3P0pDoyRWF629o8DJ4dkYv
goHudvUZnGnEkp66o1mNrUxUcdJhQTmUBmmOrrZ3N6ajh68knO08sf5r/3GX
n09HWkL1b03saJCneMvl4Gg6CjQ/cNnVgAZ1jk0SuiMZ6FmQtju3JA2GDcZW
ebdlImmxhCdPt9Mg6eN2EuNcJno8t07lxBYaPCwumPtYl4lSs+sS3nLRILm0
w7ryQyaqZqzZ8PylQn7FOzWZrVlIvCz0Y8MCFXDC7zI1PbJQqaauTP5XKuRo
Zro+SstCWrCN0vmZCg00vsN8DVkowtL4m81HKgxHHVOZf5WFvvnpzdlOUoG+
WjKQ8CcL0eVkuNrHqVDaLvngsRgL5TvkEsijVHikPDVXo85CvyrjE7LeUIGD
C6XomrDQuvftUX9fU0Fej/I0xJmFVPURseIVFVIZd0MsiSy0scKVmfWSCsEB
D81eJrHQ8/Wtb9peUEFgPY87Vz4LZa+VOe7CbMzrvGmgkoWSC4oVS4apsEPm
EDpdz0JPZkL1zTA/ymg45dLGQgnFy7W7MHdaG6UqdrGQdBeHtvqcit1XTS/Z
j1koT+PM8Czms3v3xN99wkIdcnVt3/7frppmEIs5uhJ8/++06J5vK90sNLbN
fd8XzLuKe7MOPGChu5xzsiP/f74sImV9Kwsdlj30uhlzh7OBTVYdCz391VdP
wXw9tLhhopyFuCx/n1PALGBRn/U5h4X0zlUb3h6iQq/L7108iSwUuPZTdgvm
LTyRk39CWGiba/Fe7UEqnBHUPteDZ6HvP2eyjj6jQtKDyfdEbD35BjSEfj+l
wpMG3FVBTRbaUjqlTOynwlebkwPUXSy09+J/HfW92PqMMl5pj2eh13+eKZp0
U8Gj+YQetS0LiXFn4Au6qDDBfiDelZeFRgncT1j3qdDfv4Wma56F3pePPvJr
oQLZW8wkXi4LPdiXvdeokQo88+Zv36xkon31O1Tu1lLBn5WYiIozEXFj+9YL
FVTwaTqnZOuXiYpX2o8GlVBBecvVgl2QidZlCNZJ51OhT53v1p7hDGSe852x
JYUKJrIWxtMz6eiS/qfti1epYFD2ns/6RjpSSaNck3OigqmV8YyUdzpKqcN9
HcRRoX20MOz1JybiGRUMY+pSYZSWK3a/h4EOnXPdcG0LFbi/nwzoi2KgwX/m
skwuKuQ5yff5qjNQnLm23+LPWPhF/s7MzUpDNwVsXeWGYoHbY8+FmdwU5BXh
E22UGgsFRpcqv/MnIKd7MuLHZmNggYXukP2IqP+70vduz2hQ5yWud7oTgsYK
/pxQNY0G6TrdCcnFIOTqHvbVTy0a5leeVc0H+6O7Otm/2EsUuH8Xv/ZvyhXF
EXZnGMdQoKExaMH9ox7ox0R9Y7HJsDCF44QOmcOTwEFCEYUMShO2t9KrceDI
JbHnkwsZnqpY9vmXOIFPcrCWgQoZLPv785ZXfMHu3u/NNUlRIDEY9/trQzgk
bCpqeicYCTfXOQhlHI+EDZXVtqcnIoDqoFNW0BIFa7cXjeoaIuDMg9HbJZco
oNqTXNXoHAFr7V+H3Q7Fgu+w1sC7vnCQrzpFPvUyFoT/TtgtV4VDjtnAgE40
FR4USJhqJYSDkrLPftunNMCfp7w7cDYc5r+Dhq9+ApAP71wYeREGSxe3yRa/
ToDS6jgpudYwOKfneTH8aiJstJ0NyyoNg26K8tSf2CSoVcx3Gg4OA8M5/KYY
QTrcM5rfV+gYBnsMW/5Gp9Fhe6sLhWwSBhrpFqHNycnw9sqfQeLBMBDjCj06
wpsCD3Y1FMSLhWHjaB46HZ4CxtW7UD5fGGQMmE+8sk2FdWoffNumSUAk6VYT
g9NgmwffS817JEjo7TLuKkqDsSvn9G3rSFje16WBe5wGBZk2Q5rXSTDS0T2l
t50Bj47kj/7IJ8Gl+SMHcrUYEHiCXdKRRYIeomS2kg0DaFuH9ykxSMBzYGp6
QzYD/MfGhO/EkcD3Tlu5AXavO3v2kNtjSGDVx2fW2s+AmvTTDWfIJGhnLLZ5
fmLAq1T8B/0IEry/kstt8o8BpOASmRskEiT/GTiP38qEo3J7ScRQErS4HhG5
cYAJYn2tz4uDSVCbKzx4CMubN3TabJMMIkHU+BGL14ZMWMj7u2kqgAQ/tyyE
tVxkwq7tXNSf/iToZE+7DDgy4Wfj+VNamOvJHy3EvZhYHpK2vtaPBJo/m2rS
A5mwkqYTfwnz5E7hPXphTEjnf8fcgzm15oStHBl7/2bJr/8IJCAnr7PXjWHC
54w3LnP/92HrU8xYJlRV6o/9wCzuo2W+G/NM6dCp/9uNy2R5lMIEoVfn0j9j
tnVoGn2D1Q0fqRUfhjC3cx527AhlQonUGr7y/89nFrPSCEygPbxg7Yg5fT0X
6ZwbE379tZf/5UuCwvPPqs9ext53Xc/OBvMd3Mf8ZDMmpJE08ug+JNiQnza+
U5cJOnF8dTHe2Pf7aXz4pyoTemob87S8sPWlXSLtwOoG47zB4FJPEkwHGDyg
Y3m9f8ggs92dBMcGOXo4LG9kCeK9aa4kmHMnWxDHsTxrHaP+B54Ef1zH9Qer
GZD/w8Y0w44ErWrCOcIMBgQ9cuR9YE2C22bydvUBDJBRzf4XdZEEjoSF8lMa
DLDe5bscd44EleHd7eqiDHj/zPdEjwEJSjPbvPK/p0HKkoUOFUgw43xmz6eS
NCDny7RZqpEgMrX/wSApDXYlRZEdD5Egg35c/+z5NHijV5P8UooEp1QVpl7M
p8LxIlfu+c0kEL6ggI4GpYC3zIxo4Tsi8AWcwH/ZkgKKrTZ81UNEUMs18uYv
S4Ytr6d8hR8SQSFjDLp66fBSaon3bQURdIySJhJXE+F7Et9MoCsRykQ8Gh8T
EyGMGWbDsSBCxXJ9WgSWp839fCsiqEOEyy1mzQnj8TD1LVYjXZQItUtL92Tz
aTDRc9L8Xm0oSNNG3mU1UuDgG0We2sEQeL8BV7rv31WoiMMpyTYHQZimd+ns
cQ/4bluTl5oZBGftT/CcIrqC6PZvxG9+QcBvIth+c94BOtrInRz5IIjzeTQR
3mEI8Y8cHEbyA0Ft79h+vMsVNNjYIaecFAALD3Zx5nBO6NfYqy8BngFwf8HM
9t1vZ6T1Rt5axigAvMPaRUsUPZFVgf3AqEAAWIefiuKV90dCNOUcC6Y/xLZx
75iuC0PLEcdqfFr9oH6lqaW9Pxxt/fF9q1KZH6RoGoUmfIxAFfze0xmpfmDu
gqT11pORZNAJQXdnP3glOV1wiz8abQw3kNbZ4QczAc5xJGo0wvsvbffa4Ae8
nMa+kX/R6EPnOjejeQKMqD2WUZmOQb+XBQx3DBFAJ5nFy11CRX68IYv9uQSs
zsgZMuenIaamRKtLCgF+niYGf/CmoZ5OBYOSaAI4VD7c1KQch+Q/jQRwexPA
8Bd/06fEOHT4kBpBCk8AkfOCt45/iEP2+zPfvrImwCTdg62eEo8Ua/WObTpL
gOY5zdXHY/Fo/FE7itAlQKZQMtFDMQGpXmZOhB0jQIKyjk11WwLaqLzyj1+Z
ADnFyh/01yei4X1amxgHCTAYRngxoJ+IyiIjXzP2E0C64N2WmrZEpEjx3flt
FwEKxdx0VxcTUcOur/baYgRwszlWr6iYhPTkZ0XntxKgX2YZTtgnoRKu1Kcb
RQggNdwtfCgZa7/ntZW4hQB8paa3Z5uS0PGfRvo6ggQ4sq+OizGRhM6M5NVY
CBDAa0Oy9kY+OjKc3sW6vZEA6w27/1oeoqOcDI+9FnwEULkTfSj4DB1xydxy
VeMlgOKrsc1Xnenob/CxiDM8BBDy6zujHkFHGSQZT8YGAjS49Q32M+lIWGdO
iRdzm0PJivY1OooK0+wqWk8AtLDOl3KHjmoC5RVsMU+WHZXPbaej/bwWl1Uw
Y6ktNeExHbGHea3FMG+Qe6Vy/ikdcdMED27G/DpcQGn+GR3Zjom9FsAsKVb1
0g9z/AvTuP/bJfjc+NM+OtobjWx5MT//o3ZG+BEddbzoTf3NTQDhDfWeR1rp
6Mv5NN83mHko+XMGt+noXrzK5UrM2z4Gjp0qoiPvWpn+y5gX0UikWjId7ThN
xM2uI8Cr1dagHSF0VPTk5zV7zC9+5tcv2tFRIZ88tYSLADdPN5Jf6tKRprNu
h/eaL2jOabm37aOjMxP4JKVVX6g4a3euhouONKrWekjLvuAQ48z9vC4JDQ6a
3Mqe94UyOao+Hz0JtWj7Xbn2wxeOqEnrIcckdFApUER1xhfGXuZeHeZJQvRb
CXnX3vnCX9Ea8ZPPsf3x3x212BFf4N2iGnemKBGdi6o82z3kC4Xj2xZN1BJR
71GFwqsPfKEoc2CP9WIC4vlcN9PegsW3Z/mCZHMCKnJ4OOJW6wtvVzh2C0cT
0IjO4r5cti8IPpVzq98dj/JiSnuVr2Ltxh/3+z6NQzrO+f43LvvCISGtRBlK
HHpPWZB2MfEFL7dZfNkYDb2T30InKvpCtvIicVMMFdUeFS2VnPCBz0bdiyvE
aCQtN3WzWsYHyk23Nv8WiUaXBO5o1PH7gPcXkztpFRS0i+O0vPbNG5a7zAo6
npFRD5GkSbrjDa7X6oIeyEeimET1Ecf/vOFPKzvb82Uwene54pGRnBcMSwms
ROvYIZncbSU+yAPWa14Y9Vm2QvfuSQ5kZnhAb19y4uFGS/RPHWb6PDzAt90g
zsDzDEoLOJmQtc0D6CLJ0rodh2GKTygvycsd5N7WfbPucwIpsf1TRUpukBeh
l6PY5wxKLT9K/vK5gQJH5fpqtyt0nr577eukK/Ddv5H9qM4TbJK/Kl3PdYWq
b0q/FA5i59rQ+mptUVdYfu9fZasdCvzI+XO3rAt8z/1FZYgQwcA7bPbjJhfw
nxyKMZokQp1fDdebOWfgHrULWAgNA/nippLznc4wv/Wm6Q4ilp9eMfga5uMM
hOkKvbMqUbBxerzZ1dYZnj8nv/OciIK2Tskjh846g+AvO3Z+PhkqLm2KVJZz
ho3mfx5Xj1BAePfXgd9f8XAkfLymSiYaIgdmNzi9w4MhUeiji1c0aAUISiY/
x0Nw6TudlV/RcDJC11kc4WHPse97ejVjoJF7IdO3Hg/U5U/NpwJjoKS4/25w
NR6Ov3cvE56OgaN9B6XI+Xh4xfvrs710LHiJlniHZOKhWetvr+6lWLgX29O3
MRUPMfwCIQ1NsfD8G4sxEYMHrq8KfrpTWF0h/hIvEYWHxkL9oAsiVDBfv0/x
FQkPI1e5ZbgdqBA/KVLXGIAHQW6eHecpWB0+ILP4l4CHuylmKYQirL3ajivH
Bw/PdtjpX2mlwn3lZ8vxXnioq/pzQAKrm0O+Vqx0eeKBe4va5bJZKmx+ErvZ
yAMPylu1dFd5abB0Z0xOyB0PfLXmnlK7aXCxyPe4kBseTo5XlAgp0SBnKUNF
3xUPc4oaX3tO0GA8uP5juQs2/nFylIURDbIYpcc1MMduiH1SdpEGZsHrt7x3
xkPrBs+gbnsa6DwuOHYTc73lRasmFxpsVO0uScWsXydNDfGkAW9flRIF84E0
yVN83jQwf5LTE46ZV6pLwANzpZRVwP/9L9YjteAqDeZuWCmTMEeIfbpT6UaD
dV8XhAmYZd4YZtAdacB/qUjXCrOBohvprDUNWru5lxUx36xN/TRpSoNuEYmE
z3g8SJVvS7U9RYOXs8YXqZiXQqcuNajTQPWZ9diqEx62Tu7DLe6jgXP8FWSM
+WFI0WtJYRps8b5728sRD2sPg6zV/1Jh997xBCsHPKRuCo8++oGK3QMyepuu
4KGT0aeq8oQKVLeIpSg7PCQMAkHyNhWOispM1dji4ZzN6zD+dCrcDD0cmG+N
B4qxVu8HCyos3CI8TrDEQ3HDjPeYChXkKypkY8/jwXHAL2NKgAr2bkKmB0zx
8EH727ajLVj9deC2yIXTeNBR6lZKTIsFrZqDFS908WAnNGe4zjkWAss81v86
ge3X5829/jyxMLeatHVWDQ/l1Wf0iEMxcDe38NxjBTxMBbGftRTGwClja3M1
WTy4VLitblGPAd30rNXSHXjQS8OpVRlEwy+7ZsUv805gYsieNeaNhivzbRye
aScokOUVwHdRoOfh2d7ScSfgifwbwgcUGKgblfZ47AQzfl7HN0mT4Wub5QE+
lhMshC3tuGgaBrdVSrSUdzuB64TfpqkKrM7y/fJqld8JrP1aIXwdVofdXZ+E
/+0IMiUHuFarQ8FItPrZ8pAjaL8QbjnyIwjqJI/1ldIc4bTokM42VQJYsIud
a986wOhgakJfojmwbyc/We6zBzFh9fzaDedgxifnbFmBPayZwpe/C/rA0Yxa
C/C1hwSOhFLLfTWYm30TlC1iD/sy35z0lddBjptTr89a2cHqulpS9bg9InNO
buxatgXt+jUt/jcOSCxgr63VM1vwZCncSNNzQu0SxjxxFbbwdcNr772CLijv
3+KLPitbuPCZPDAR4olkL/xmszpsoE2Cu/U/c3/0YsNi9HSjNXQ5w3fvRX8E
NYHCP1jW4H58pw93bgByTrcT+RVqDepRk283vw5ENMa6nbw61tBxPb5RUDME
pZgtkByfW8Fmv/UGhQ9CkAzLeTjmnhUYlW8nSJ4PRZMGS/sqr1mBWdOf/lsO
RGSu67x5kWQFQUWH2weswtCJlUjfi2pWoDm5rTykPwzdDaVkmEpbQakbvuPW
yXAkcWS4WF3UCnSqUiNv7IpAvh7dm28t4mCTU5eUY3QEOlp2xeX4NA6q+O0X
KVMRqFO8Ir9wDAe0NanBGU4kqh/kPfrqMQ5OqHioHViNRG3/ScoXtePg/DrN
kNsWUWgs+eR+uSYcXHQy254/F4WsFF57XqrExld3FyNKkpHCP6bBbAkO8rzG
XrXrklFY+IyBIhsHbT8fsdjRZNSl/jrpajoOZsQXbygXkdFFxfAe+1QcEI0d
qp63kNF/zS4HnyfhIJxzbn/KMBnpaAmc6ozHgd1VqSnrb2RkMe+QsZ+Gg0um
dktH1lOQ3q0n5K8xOGgMi2XKiFGQP1p/fns0DipHuOX3HaIghzGB45lkLB5j
ETeV/ygoQUDSBR+FgwT+tEPGhhRUXlXxJTgSByuSb+NCL1BQpc6RNw8jcHBg
V2H/HTsKivnocMYIc+znbPI6Vwq6ydMCv8NxcO0P/tIVLwo67Fk79AhzTbW6
zlMCBQUrXJW8jblyR7KtRQAFfb2fZlCB2VJpmXca890buyPLMR9xbuxj+VPQ
PkEB4WuYjz629bPzpSDrWn6bbMxat8I+nfCkIKFDosOhmL0WDKy18BSUKvtN
TAfz5+Xd+y1sKOjUpuqR8TAcLJvIPKebUdCMKP/yRcziB18pzZyioClUS8om
4UDhUdJ+ggYFZV8i0wuJ2PrV/3wtKUNBT7emJONDcdAgklO2LEJBPHOweTQY
i++rqxDfPzLqGD70dEMQDvY9Eugx/ExGdhvf9g3548DKwqelfYCMihaZ2noE
rH+A1FJQIxkFHXmcYuyNA+EtZyhlUWR0OdZjaKsrNt7Z3rOn8GSULnogdKsT
DpwKm484G5DR9abm0Wt2OFha9Cs34iGj+9wvlv0u4MDB5bq0ysMo1PP9bBfH
BAe3wiqeLUZGoZmdzaFWhjjoDq0T1vgciX6T6k5o/4fD8qv7NveyI1GlRLu6
mxoOBLPHF1inI1H5betJvkM4+O7hJeaXG4Ecb/o+5+zAgbmq0Y/+/eHoVG03
Ep65BNeOLgluaw9DkQnqIc1jl0A5Wu3LOpswdCUIL9v77BLM7X9rzRtHQh8c
1BuVGi6Be4Fb9LpHoajx87ai9yGX4N1coseDL4FoB6d39ef4RUiPVBF0cA1E
eyqsQ2g9F2HhsGsvYSIAiRneIOTcuQiJXm3mh4b8UfWTqTTDuIvQWclrRSkj
INmcowQ5uYtA6N965fFhdxS1ff3WdEtL0OXTTllq0Efn/mwbmo23gBPfdpKX
HuogI2udnHJ3C3hIvud1S1YDzdeL95HPWMB1pUOCZd6zOgct46WaNlqARHdF
fbu/AbgpagWup58HNv79t+sz9nB7aeHqEMcc5ASt71nccIA3v75Uj8abQ73t
wMz9CUc4KJDg5ONjDtebNXYvnnQGa/OfNzSOm0MFt9th4WF3ED9wPp7caAbh
GpQ4Zj4BRD16zKKDTYGn1HAoSdwPZDseNeMsTeFf/ZyeMNMPJI5PGMeqmwLF
0q4rIcIfPsGRyXcLJvDa4szUikYgHJHoWgxNNIEBDXapQH4gLJlKbB71N4Hw
zrS/RlxB8HAy04p62QSETm5a024PgmVf4o0UdRNQ2LZ384pECPRTAuRGfxhD
5LHOuiqvEKjoXqCjCWNQruB9atQcAjH9jS9rnhuDPSdu6+mzoRCwVSSb02oM
TjG1yZn0UAjuPP46rc4Y3m8V3It6Q6F84UaRR5Ux+H08HZKsR4T0ph3s+lxj
cPGYrDlEIkKPXyHXtgxjaKEGzqTcIMLLG54WGinG8FtNe6R5lAiKpgkxmxKM
4Yo9I6dcgAQS+wqNU2KNYdZspPKiBgm2S2ep15CN4ely/GyHDQludF5huEcY
wxGX1cbpCBKcKe9gVZCw+Ug73epnk+B6hTzOJdQY/geEYFH7
         "]]}},
      Annotation[#, "Charting`Private`Tag$17226#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->{{-1, 1}, {0., 19.739207190814763`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.749272989483909*^9, 3.749273379694805*^9, {3.7492734101610193`*^9, 
   3.7492734421404037`*^9}, 3.749273476007353*^9, 3.7492736660740976`*^9, 
   3.749274846238002*^9},ExpressionUUID->"7b5b5f0d-406a-4e4b-883a-\
f52fba26285d"]
}, Open  ]],

Cell["Animacija disipacije energije", "Text",
 CellChangeTimes->{{3.749273535676205*^9, 
  3.7492735579993763`*^9}},ExpressionUUID->"f3afb533-67a9-487b-9e88-\
255c64a666b0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{"slika1", ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", "Large", "]"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"Evaluate", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"xx", "[", 
              RowBox[{"t", ",", "\[Beta]0"}], "]"}], ",", 
             RowBox[{"energija", "[", 
              RowBox[{"t", ",", "\[Beta]0"}], "]"}]}], "}"}], "]"}], "]"}]}], 
        "}"}], "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.562396577534192*^9, 3.5623966644345493`*^9}, 
   3.562396940379298*^9, 3.562396971999282*^9, {3.5624014559362926`*^9, 
   3.562401456092283*^9}, 3.7492730076731596`*^9, {3.749273040136135*^9, 
   3.749273041758504*^9}, {3.7492734812332525`*^9, 
   3.7492734968953514`*^9}},ExpressionUUID->"ebb5ef71-d221-4c44-860a-\
8a66a908c693"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 9.859009742736816, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 10}}, Typeset`size$$ = {360., {110., 116.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$17255$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$17255$$, 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" :> Show[{$CellContext`slika1, 
         Graphics[{
           PointSize[Large], 
           Point[
            Evaluate[{
              $CellContext`xx[$CellContext`t$$, $CellContext`\[Beta]0], 
              $CellContext`energija[$CellContext`t$$, \
$CellContext`\[Beta]0]}]]}]}], 
      "Specifications" :> {{$CellContext`t$$, 0, 10, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {148., 155.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7492728321765347`*^9, 3.7492729186924706`*^9, 3.7492729523410234`*^9, 
   3.749273008453144*^9, 3.749273042382492*^9, {3.749273488268717*^9, 
   3.749273497519339*^9}, 3.749273669428033*^9, 
   3.7492748526806774`*^9},ExpressionUUID->"1b08f460-4235-4d31-a269-\
21f9282d0500"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1202, 929},
WindowMargins->{{11, Automatic}, {Automatic, 0}},
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, 221, 4, 101, "Title", "ExpressionUUID" -> \
"42f5e487-faaa-41d4-a099-2b6aefa867b2"],
Cell[804, 28, 164, 3, 30, "Text", "ExpressionUUID" -> \
"ac2889de-e3c7-4ec3-80c8-a50efda1cd68"],
Cell[CellGroupData[{
Cell[993, 35, 541, 16, 30, "Input", "ExpressionUUID" -> \
"b2b2f4db-2436-4a97-ae89-da05d292c038"],
Cell[1537, 53, 662, 18, 30, "Output", "ExpressionUUID" -> \
"8ff5f357-5e17-4b24-a8df-9ba851500e75"]
}, Open  ]],
Cell[2214, 74, 205, 3, 30, "Text", "ExpressionUUID" -> \
"834948ff-95be-4061-94bf-c85a9a84cec6"],
Cell[CellGroupData[{
Cell[2444, 81, 553, 15, 30, "Input", "ExpressionUUID" -> \
"6b9c7802-2d88-4c22-af62-a2bfb7a5b4a7"],
Cell[3000, 98, 1134, 34, 74, "Output", "ExpressionUUID" -> \
"9880292c-b229-4343-882f-8c7c331cadf8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4171, 137, 656, 13, 30, "Input", "ExpressionUUID" -> \
"637080e5-e698-497d-8988-e65924bb1a69"],
Cell[4830, 152, 369, 9, 30, "Output", "ExpressionUUID" -> \
"3004200e-48a6-4d66-8315-78c6dcfad8b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5236, 166, 463, 12, 30, "Input", "ExpressionUUID" -> \
"c52da64d-cdcc-4983-80c4-256794726011"],
Cell[5702, 180, 1207, 38, 74, "Output", "ExpressionUUID" -> \
"21c2c954-14b1-41e9-a823-17a0d69f1242"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6946, 223, 722, 17, 30, "Input", "ExpressionUUID" -> \
"7e73ed07-587a-4166-8e11-d2318bda7338"],
Cell[7671, 242, 2268, 44, 310, "Output", "ExpressionUUID" -> \
"46eeaa6d-ea15-4b02-9e59-b6ecb0c9aac7"]
}, Open  ]],
Cell[9954, 289, 762, 25, 46, "Input", "ExpressionUUID" -> \
"be7d57bc-3953-438c-ac89-48d2533b39b2"],
Cell[10719, 316, 236, 6, 30, "Input", "ExpressionUUID" -> \
"0b54d64e-c2c0-4fd1-b5a3-7cfab42cf375"],
Cell[10958, 324, 169, 3, 30, "Text", "ExpressionUUID" -> \
"fb0a0a72-e41c-41d3-9df2-0b9fecd2b862"],
Cell[CellGroupData[{
Cell[11152, 331, 1644, 39, 95, "Input", "ExpressionUUID" -> \
"f7bace63-7f37-46f8-bc9e-43fa0d3a8dee"],
Cell[12799, 372, 41618, 702, 241, "Output", "ExpressionUUID" -> \
"7b5b5f0d-406a-4e4b-883a-f52fba26285d"]
}, Open  ]],
Cell[54432, 1077, 173, 3, 30, "Text", "ExpressionUUID" -> \
"f3afb533-67a9-487b-9e88-255c64a666b0"],
Cell[CellGroupData[{
Cell[54630, 1084, 1053, 26, 30, "Input", "ExpressionUUID" -> \
"ebb5ef71-d221-4c44-860a-8a66a908c693"],
Cell[55686, 1112, 2410, 50, 320, "Output", "ExpressionUUID" -> \
"1b08f460-4235-4d31-a269-21f9282d0500"]
}, Open  ]]
}, Open  ]]
}
]
*)