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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    122037,       2628]
NotebookOptionsPosition[    118213,       2496]
NotebookOutlinePosition[    118556,       2511]
CellTagsIndexPosition[    118513,       2508]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Tendenciosidade no M\[EAcute]todo dos M\[IAcute]nimos Quadrados\
\>", "Subtitle",
 CellChangeTimes->{{3.5940169791894803`*^9, 3.5940169932207513`*^9}}],

Cell[CellGroupData[{

Cell["dados experimentais", "Subsubsection",
 CellChangeTimes->{{3.59401751458419*^9, 3.5940175203044357`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dados", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "490", ",", "210"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"33", ",", "1400", ",", "400"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"67", ",", 
      RowBox[{"-", "850"}], ",", "350"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"100", ",", 
      RowBox[{"-", "130"}], ",", "220"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5940173424659224`*^9, 3.5940175014279203`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "490", ",", "210"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", "1400", ",", "400"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"67", ",", 
     RowBox[{"-", "850"}], ",", "350"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", 
     RowBox[{"-", "130"}], ",", "220"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5940175031779213`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<ErrorBarPlots`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.5940175245544434`*^9, 3.5940175434294715`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"graficoDados", "=", 
  RowBox[{"ErrorListPlot", "[", 
   RowBox[{"dados", ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5940175485388536`*^9, 3.5940175634607515`*^9}, {
  3.59401774491718*^9, 3.5940177502609377`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], 
    PointBox[{{0., 490.}, {33., 1400.}, {67., -850.}, {
     100., -130.}}], {{LineBox[{{0., 700.}, {0., 280.}}], 
      LineBox[{Offset[{1.5, 0}, {0., 700.}], Offset[{-1.5, 0}, {0., 700.}]}], 
      LineBox[{Offset[{1.5, 0}, {0., 280.}], 
        Offset[{-1.5, 0}, {0., 280.}]}]}, {
      LineBox[{{33., 1800.}, {33., 1000.}}], 
      LineBox[{Offset[{1.5, 0}, {33., 1800.}], 
        Offset[{-1.5, 0}, {33., 1800.}]}], 
      LineBox[{Offset[{1.5, 0}, {33., 1000.}], 
        Offset[{-1.5, 0}, {33., 1000.}]}]}, {
      LineBox[{{67., -500.}, {67., -1200.}}], 
      LineBox[{Offset[{1.5, 0}, {67., -500.}], 
        Offset[{-1.5, 0}, {67., -500.}]}], 
      LineBox[{Offset[{1.5, 0}, {67., -1200.}], 
        Offset[{-1.5, 0}, {67., -1200.}]}]}, {
      LineBox[{{100., 90.}, {100., -350.}}], 
      LineBox[{Offset[{1.5, 0}, {100., 90.}], 
        Offset[{-1.5, 0}, {100., 90.}]}], 
      LineBox[{Offset[{1.5, 0}, {100., -350.}], 
        Offset[{-1.5, 0}, {100., -350.}]}]}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  Method->{},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.5940175536013594`*^9, 3.5940175640701246`*^9}, 
   3.5940177510578117`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ajuste dos par\[AHat]metros", "Subsubsection",
 CellChangeTimes->{{3.5940177602765784`*^9, 3.5940177652297106`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitSemCuidado", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{
    RowBox[{"dados", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"\[Omega]", " ", "t"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", ",", "\[Omega]"}], "}"}], ",", 
    RowBox[{"{", "t", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.594017572257639*^9, 3.594017656382766*^9}, {
  3.5940177281827803`*^9, 3.594017730120283*^9}, {3.59401781990413*^9, 
  3.5940178371385307`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"1143.2944299416783`", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"2.135548100704137`", " ", "t"}], "]"}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`\[Alpha] -> 
      1143.2944299416783`, $CellContext`\[Omega] -> 
      2.135548100704137}, {{$CellContext`t}, {$CellContext`\[Alpha] 
       Sin[$CellContext`t $CellContext`\[Omega]]}}}, {1}, {{0, 490}, {33, 
    1400}, {67, -850}, {100, -130}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`t, $CellContext`\[Alpha], \
$CellContext`\[Omega]}, #], {HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.594017643570245*^9, 3.594017658476517*^9}, 
   3.594017730870284*^9, 3.5940178379666567`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"graficoDados", ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"fitSemCuidado", "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5940177338390384`*^9, 3.5940177364484177`*^9}, {
  3.5940177886853333`*^9, 3.5940178446385417`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0.24720000000000014`, 0.24, 0.6], 
     PointBox[{{0., 490.}, {33., 1400.}, {67., -850.}, {
      100., -130.}}], {{LineBox[{{0., 700.}, {0., 280.}}], 
       LineBox[{Offset[{1.5, 0}, {0., 700.}], Offset[{-1.5, 0}, {0., 700.}]}],
        LineBox[{
        Offset[{1.5, 0}, {0., 280.}], Offset[{-1.5, 0}, {0., 280.}]}]}, {
       LineBox[{{33., 1800.}, {33., 1000.}}], 
       LineBox[{
        Offset[{1.5, 0}, {33., 1800.}], Offset[{-1.5, 0}, {33., 1800.}]}], 
       LineBox[{
        Offset[{1.5, 0}, {33., 1000.}], Offset[{-1.5, 0}, {33., 1000.}]}]}, {
       LineBox[{{67., -500.}, {67., -1200.}}], 
       LineBox[{
        Offset[{1.5, 0}, {67., -500.}], Offset[{-1.5, 0}, {67., -500.}]}], 
       LineBox[{
        Offset[{1.5, 0}, {67., -1200.}], 
         Offset[{-1.5, 0}, {67., -1200.}]}]}, {
       LineBox[{{100., 90.}, {100., -350.}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 90.}], Offset[{-1.5, 0}, {100., 90.}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., -350.}], 
         Offset[{-1.5, 0}, {100., -350.}]}]}}}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUmXc81d8fxyUjI2Tv7J291327V8hKVKJSicyvvfee13U/UkZRQlkhISMc
KpSREAolUSIlhRL63d9f93Ee53zOeN97n+f5enxEnX1tXampqKhYGKmo/v8p
lr1bWizcbYh08tAr9yDcowOyh/9zv4Wb/PJtyb7JFrrDastk3OtwoyOntJar
nKFX2d+Nzr0Ll5mxFbgQHwBRXP9a/t1+gtvuP5wlthMC13OOGu5k9eFqQyUZ
JM9HQj9x1GzD7SXuZht/n+JcPKwlMX8Oq3qFU2kWUKqbSYToJ3WyW7fHcB/6
XIouPUkGRmo77+C817gLqn+eKeWkwnXYrP2ZNYkzy7PJEzJNB/HYgh/+SW9w
eHE+d4u5DKjv0Fdfi5jGeZm+oP19lgj6O+9DfPxnccdWn5UktGTBc93E1q9u
73GBz5cLvX+RoFqfI0ajbg4n1TFCPkJPhh/TLreCqj7gzldYOBITyKAd2Ywe
ls/j3rnidQdWyBDDf2B+/fZHXIHzs7sheAyetjrsV725gBv75huhlIIBo0O1
hH/eIo7r9fS56mYMbH7vHK3P+YRzk8ZxNo1hkJdn7fY96zMup/Jtl8IsBu80
b6cppi/hOB/+3qan9EtM/Kj8L+kLrlTo9NKJJgw8gwkDNbHLuJrWJUn5JAzq
Oa99XYlYwQU1slU+x2Gw+fDTQfmQr7gFw3OJYUtkMLDTVvL0X8VlRAmT82LI
kLSeblPp/Q0npabOdIOaDC+waf8lt+84UvyYGPcyCdLyrz+/qrKGa30ryE13
PwsU3HGOanVruEOEBmrn40R4qbW0PKrwA6d842Fn5WgGBNBjkQFVP3C46BzD
WO104JrUYWaXWcdpOhq8KEtIhZa78zcflK/j+juHWP42JMPeUfXOtds/ccPx
d36aDsdDCdesNVn4F06jGp/IEBkLxovJ75Vu/sJFWl1d/KkZCZlJk1S+eRu4
/Q1Hzm45BADvkwjCatYWzlRU6KzFLRrUniM+TmT6jWsv4BQtdbBDTs6DLgrp
v3E/Xjgupuw4o7J9wileSX9wud90N0orA5Dpq15uJuptXGnL7hSveChavu17
ryp2G3eB+5WDdGIkUoHu/i8Rf3Hmn0S3d3/Eo3FWT4f0339xG6zH2/pWE1HY
e/ZlmZAdXH+Y8uP6sWQkUNce0f9zB6c7v0QuLUlFnTEuTO7+uzhpqUc85afS
0SXrgzfpv+/ijrLWV02sZiAa4WaFe957OLBSVwhzJ6J7q04dJst7uMtVH9a/
PMlC5h301p/c/uGSgz5itXskpPLPeYN7jdJ+ZmLRyk1GRJELw+L6VDB3ODPA
oYCM4rqZxfTjqCDPHaeVTYehIOe24JNPqUDAnP/h0HkMue93f+59YB/YWbw6
XVaMoXNlXELJlvvgVsCJyK5+DNkcfeJXRN4HJ51qhpamMWT8ye9p0/g+iMlV
vEY/hSHtVGHeYV5qMC8yHhPpwJCCzKDXp3PUUN5Na2CfiSGR5+Fde7epQeSJ
N8sKHkMcntIcPIvUUGgb9khngYzomF5fUZLdD74qxZc7fMlouzqhzfS//dDH
4NDCO5iNvlkqs1x8sB/kfZ4T67NJaH519lLYxn5IEsiNeiufhSZImU1kHRo4
ZpdXfOlOJnqhpMNQGU0DLWf18o020lGDf279G1pakDt+f3pWOwXdZcfTrB+j
hVt7xw96Kyahwoff7RlJtHBUw7x2jSEBxW+Y/9PlpoNXGpPFHDsRKOj6b1s7
RzpYLi6c39IOQe5ad+96FdNB12VDD2UHf2QTvs/6phQ9NOnHs2YEnkciu49u
7moeAOWaOUJtgwdwFruucUUegO4b+tUNQ/5wAMdhrNh1AEaC4/5xVYfA9zif
FSdTBnjFf/fsv/1xMC8qiAvNZICAyNjJRwYJMNHzPCf7JQMcxN7nfb6QBJ00
krrInhHwea7Cg7Zp0FA+mjV1gxE+repXuwtnwF2TuA9r7xlhl1x507Y/Ewo/
H9FgkGACtRzLABfrLCClTaeJujPB16jk5bu1JEiQTZ/RqWGC4pr2TLvP2RDy
QlPZdo0JMv+cDfWKJIOn10KipzozBBzIuvxllQznmXMmE8KY4TS+fCzbnMKr
+zj5G4+ZoWdoxPAzGQNj69WYh1QH4cA+74VchIH298LRAeOD0BnAZ3T2DQYK
ZDOphbSDUNcj7MQ/jYGIymb4zuBB2Gku2X75DAPO0dIhzkMswBBOJuUVYHAg
8ITokVMssKeiIl11GoMdjn9BRwtYoK8rRchplwxrjTX952dZoDr8y10pEhkW
TjkKhoiyAnvXZbjKQIapTXo/kisr/JOTWCmaI8FAXtOTu5WsIOq4Qo9LyYJO
7cs8XaussLm/5lE/LRHeeKc1rfCyAX/8xj+5SxkwdFCTgeY8G9znjV493JgC
oxbs+cNRbJARZU0XNpYEU+nfpApuskFr7OcO5+kEWKC9Z6w4wwYGR92k+s9G
w84uT9yZs4fAdlm/7UbiFaDW/8UiHnkIJtuKCpp1HeFAxEjRauEhyr3m5fYK
bwAcm2ntCW8PQdnZom91KU5I7tufzRoHdngbyFuYuROOlBUmkkPD2eFb3xGf
96djkKZnAye+gB1oapcl0k3jEf6Tp+rkFDv0PDE9IkZIRmYSpt0lv9mhPMfw
tZRwKrJ2Frfx5uWAytKDUnLv05DDu+n/9p3hgMyzV964MRGRk2DLzkAoB3xd
XMpgC8xCLo65mdfzOOBpA21qfisJeeb78V96xAH1vD+jyLPZyG/CslJ+kgOC
ZdP2Jn3IKIRTVntzkwP4vY8Ee82QUZQtbR/i5gTxD4QL9FoYSiB/OJWpyQma
DlUvj8ZgKG24Y+HUaU7gO/y1ZOIBhkjMhYEiIZwg/9ttPPYVhnLNQ6hXrnEC
XTL5udAshgrTbLGmJk7ourHjWzqOoVu9iiJxrzlBN4P/BH8LhspomOrMNzjB
8VFwyp1UDFXhPxtwcXGBR2PhtQAChurjngy+V+cC4/M9qpMrZNTceets1Uku
0KNNX1aNJ6PHO5HLQUFccAqxP9zdT0Y9umfCcblcwP9X9UXaFxLqD1M/wNjI
BT+j/ujaVGSh4Wa2vPExLrCxZmRrP0pE47++St76yQXsGcdlzjzJQG9Vnzd6
cHDDNYezsm/F0tFibfzoni03XPp4p3uPlIyWv56/9DyAGxSWm/Pv3UpEa3K6
a1dzuKFZ8uQJg8J4tHN3/aDsKDfwszvXtddEIM5bl4/ZneCBedPxTOrHFxH/
LG5KyJ8H3vGOdVUdsUIiAoJuS2QeoJfKrWDxUgH5vPGk6BEe4Mz5t7nD7Ar4
7KPo3nFemPRdi8irjYI488bKUR9e8GUpOnHfNw46acWv7mbxwl9jiDwWkgC6
UVRX7AZ5wU9DRTvpaAqEafkej1nhha317bM0jGnQvD6rXcnIBxd1rKtSGtNB
zaOd6Z8ZHyhN3daNbCRCgITchqw7HywyfpSpoyNB/fv8dydT+SBG67eAt3Y2
fCuk74+9yweXXBi71STIoHA65EHVMz7IeuZR1lFI4c+hxcLXC3ygc+Ralt0/
MlQM2iVR0fDD9mWz9rQTGHxK7flPXpwfPFK5LWgwig8RVOxP4/khJC2pIL4D
A+e9WxB/iR8Mn+GIIxMY3G5lkauJ44eiOJHe1zMUnwqK5pi8xQ9df7ueZrzE
QFD5686+Ln5wUE/4vFuLgeOK4yeFd/wQVc100TYSg/y7z1/a7/KDN7U6M1LH
YOKSdmuCoAC8x4p1rk6TgUvo3p37egIgZKFrp+BHhpNTXMQpRwH4oUCzvreY
DTlXk4L3RwgA1+AMjcxzEoxY/3RSLBCAoUjcFH1mFrAwOps5tAhAyhhy3lQg
guWzEZWkScr8fc4SPvUZkBGHE6jbFIDjm6ezGHnSgW5L8BuNhiB8NGfRbs1N
BuOGzEmlk4LwNXsAXa9LhIT/tpFjoCD8flTuIt8UD3sfJ6/WPxAEpl32fh32
SNgaydE5pygET6/sMz9u6wyaxH3iqVZC4FMuFWUibQtBpn7MDd5CgLNmmM71
3u5a67B6T18tBH20NhZC7c5oqepA8kNpYSjyU6YXIEQiqSuhPu9MhKHl+zm+
2phY5CL6yZ7hijDESi6O8Q3Go7m8J3IXyoThW/xXl57KZCRsp8qZ8UQYDJ5e
lowISUXnWEp2G+eFgX5d5/qYbDp6kxQzwih6GMQ2ZA4rGhARL6y2asBhCMnU
Xp4uyEKn/54tvXjhMLyvoXVJmyCh3OYXxMyYwyD99p307I9sNOqvE9JcdBhc
q2m+2wWTEduRigsfHh8GM+noJ6vvych6ifsY88xhyKnieWmmjSFiabKq1t/D
ULnQlE5L4ZOr0vZBlYMi4P7yLnGqHkOW06nlvMIisHFn2vzMKIbUU7kMqJRE
YDrb8L08hU+CaqXjn3EiAC0TiUcp/KJ5r+z90kYEODDFc421GPqa0bn/0SUR
eBFyyLksGENjmpY3igNE4EZpwREnKQy1zb9RTUkUgfiHr/NNusnoDsntxX+5
IrCuFol7Z0JGGbobl06Vi4DUj5zmeN9s5P8p4Y9+swh8bHrz10yWhM7ksGES
fSLAP/vY9sFjIgLDYhnmKRFYrhzKzpDPRDLL8ujnkgjYcMkwjoWmI7brrfbT
f0Rg84Aae1NpKnq/Op5SJSAKKcWvldpKE1FvgbNwjoIoxA2mb/2Mike1R9ea
wg1EIYjY4zsTG4NiipgWzS6IQrBgVY6RUDAStMITPt8RBcjcH8Mcq45o/rx8
O/xQFM4eIJ/VYbKGlbLzAc1PRWFsL/7QWuYlaNsJK0n+JAoh2cqzx+4FgENN
3T9xOTG4PPGXOo+UAHDGII9JTwzYSYHuXpVJIEMzoPjTQgwuyGpUbVamAFv9
md6358Tgu1B/W01WGvw+++l8z39i0F7/W1fKNgPm6IM2KmPEwD2oOU18IxP6
Hu7LwrLFYKvE5UZ2UBbUXsiWCL8tBuJ3f1cmDJPgOpPQ44sPKP28Ty3uUFHy
26MqO7MeMRiszsfuJZPB9bL2itKYGJirmX+9t0EGS9beBJ4FMVD5pfae0wYD
9XY7/n+/xIA3Kv5iZC6FJ24fHnyiFYd2pzSvpB4MaDh8jw1zi8PeySjfDYoP
fe3cmWuSFoemz2sF9W8xGPPMCCvSFgfm2ec7jU8xaOPmZUs+Jg7HJDyzhfMx
uNNTfs/bURxaOw8zSZ3CIMNHDXfSSxz2fflzR2SHDAH83RN6UeLQaeuaF5tF
Bsdeax/xLHEwPcZ79yXFh4wCZmiZisVBxoi51u8jCWSEPYvWa8Uh5Gik9SaF
P2wvttTfdolD7ulEyUUWIvwOTh7sHhGHeHm5XVGfDHgvyuFS+UEcBtUfHeiq
ToPacMWrYfsl4IiwO6YxkATXJR/LXeSUAGK1Kdp9kAAxr471mEpKwIK4GOzG
xYGVrOsPblMJ6Ege8Op7FgrbmcHts6cloJqdUdTYPBAqviUnl12RgFwNc4fu
gP+ApvEun2qKBNzh8CkWrTsFbYZLRlbPJEBjV6Sl6IYnci/5zcT5WgKooP8j
YcEfcdEwTLxdkIATIzkhi1dCkN9zWU93Gklg+yywOCAYi4QVdNWVOCUh9GjU
vHppPBogme9tiEvCFKN4cFhZIpI66ZWTSJAE6/LNGzmXU9F4c+Q5cztJSGN5
6IIXSkfxfESpQ5cl4VXLn1Gh9gykGHVzbTJAEupO/7B01COimXc1bcUJkiDK
ksZkfTMLZRh1JLnmSMLmPH7df4aEtMuGrBXuSILNoVK4vJ2NPtG94/35QBIG
ibezAiLI6KrHt/nWbknwXAva8FskIxjcq4l7JQmnPAXNmg0w9E2RNdT0gySE
8B9pmkvA0E3ssBHLD0nYf+RLXmkjhsx/KTG9ppKCnfcKg30UPv0+Da9vsElB
9nDayv/5VN5qc8tZRAp6B40Dno5hyFbwkoesshT42IgN3mjGEFWsv9oaTgpS
CSNmo8kYqv0Qv9t8XAp4mIV+Fxlh6KxxTl/0BSnwDmHxMV8mowP37mDGvpTx
H0V9teMoPsXw8CxTLGX99EPJsxR/cvF+IjlKkgJfLfk/KSskdOjl2Pf8YinI
Mb1cwHo/C3WqLLReqJWC9VKfkSYrIvLO/ZUo1SkF7QJxv/aGMxD/Fo316pAU
8P9ZEbyqmo76HLh4G2elgLRPy1IvIhWJHdasMdqVgtf40otJHYloJN4k5MBB
adgIWfA61hGPYhZOw0tBaShz3uc2aBuL3lSGjp/TlwZFWsn097dCUApzWrG4
pTTkuTINnhMOQOq++e7LZ6WhZ88kgHjIC5HVW3dCI6Uh+YDFUapJG2TStS1x
tU0a7Cyr6XV2veGXKNN3hxfScMiXXcqXLRBKkgRaRd5KAwo2bRTNCoWdY/pW
tX+kgcHb+k8dXxxU1VjyBDPIwEyKClW1bALYs57/oMcnA/U1clXJkknQMB4d
/FxbBrq0uwqkp1KhItnFef6YDGiuBvD+vp8OxZoWx/86ysAg042r550zIfez
ij6ntwx4CNBLiPwkQkY+r+yRaBnImy7EazqRIO7YPy4TkgzUpOz59JVQ8t32
IvWFWzLwm9vIgseJDN7Vg99D62Wg7R+D4N5rMlw+93CG3C0D7MoguqNF8Z+D
hc8rR2XAvsPkNZZIyXudcc09H2Ug96Pf9LkWDEx83Uqnf8mAygh1HC/Fr/RF
rMm/aGWh9ELBoWKKX6m+Uo8+yCML14KTOBYHMJBJEPCUkpGFHPdRs/1lGAir
UdvjdGShW3QvT8GVkv8WlghnzGXhxIBLXwMrBozXXir7n5UF7fW37LRlZKAy
aRbK8JaFobyVwjoxMmxu3mQsjZYFGam/55p4s+HrvcStdpIsHBQpeH/1SRbM
n/FcGL8lC9Ye5dXNpkSYYjjxarVeFpiDZ7iZ72XAMy/h6sNjsiBemTjx618K
PBakzddekIUlhetMx/Yo38fQStKJDVlI6k30t/iQAMVKrU6JPHKwb/+vhxso
CkJ+2rF/PisH41LjgppOzuBdpvvvn7cc7M8s+iIVYAPOp0S/8sbIwcXCDQk5
byVk/ejbM/PbckAt+q8s2egKMnZ/3XD5gRzkDlxSphX1Q7p8j29F9chBZW2d
sTlzMJKOTA+vXZADpxNftF0zYij88rvStyEHLbyb9n5p8Yhz9rTdHJ08sFaG
sM42JiJGkgH84ZGHjNC/FWV9yYgKJ3GEXVYePBUPeHJ2pqLN74z88rrysFIQ
G1F8LR19vf2DzthCHuL8k7RmLTLR/Impn+fOUcYz0ttef0dEU9Rdc8H/ycPf
7rXGDgsSGn5YPkSKkQdJK2mlMCwbPXUhtt3Lloc61d/fWOzJqI0r8B66LQ+8
GWZywiNk9KDXIffNA3kwcj6Cs1TDUEUoxK/3yIOYi4MgbxyGimWkfZjG5eHZ
+dhXQhT+5L45eFZiUR44j188xPMaQxkZv0wNNuUhlN0sa3oGQ3F60+qn6RVA
/Wq87KUhDIV87Rb15VWAcusYxsd3MeRdVMGSJqsA+6lvRwh7YMjZOvvvbV0F
MCzprZjixNCZf8FLrRYKcL17C3emiuJ/9edej55TgAj8vSlpOTIyvkToWflP
ARynm9JmZLORHrtcHU2sAuylS3tMT1Dy3j7H50PZClD/ebkC50JEF3+kf7x+
WwEGFhkF6Cm8Shr5wiPbowA7B+c+vzdMRdyIT3V9VAEye3BS7ubJqLLumGX7
RwWonUNP9fQS0TCpMs6K9gg0RLG+8KuNRhdj3hRycx+BjZbrV3tZw9H6fwxN
76WOwACjx1TNiSDEY+Xxxd/sCIjUfq5VEHZFF5lkba9nHgGDHwsmT545w/r2
Ge8LN4+Aq0jRXelSb0haTkuRuX8EgCpUxkYxECqfL7W1DR+BZY9vSrcLokC/
lfd14vsj0BT2tFyFFAfDFWbfLdeOAKeQL+/LtgRYT60Qf39IETwzPbzWX6RA
UuiUQYWYIphmjRddqEwDbrcDZ/zVFOHR8ljHrHsGVJzWDtA1VoTlqUvRevRE
0DNxJ+4/pQhYbZ2Af0IWDGvk3x10VYQJT54fd6ZIcFGyH10LUYR+33cfDtGQ
YZ3z91unVEW4y/rHrz2VDEk0MhvS+Yqg8W32X8UmGbh/2bP+qFAEpkvZnscp
vlXxMVW2rVURyg/mGRhSfEt37BEh8YUi1P5mJ4hQfGuo5/N5y2lF+OqSt9pO
8a2LDTxhXF8VIcLvwu2fFN9aLzHNebejCFc/+o8/e4ZBEhZac++gEvQVZPJb
FWLAHX+v109YCbyEh/50naGs5zc5p6OkBASzU9V++zDQu0j/lxqUoKFY+OFg
LhmGj2txDdoowYHPt0+f4yDDRZyb0rVLSnDbqvdj4l8SrCvmHXMKUIJw+kr7
gMosSBLuuyydqAQnP01wKagSgZtlK3rtqhJYfHOZSM3LgMpdqfzWMiU4Ry1S
mzadBvqrpxsSmij9WaFpZ6lSYXgmZdCiVwlWwla9Tx5IhvX2T1TvPitBeV+U
RdtAHAgbjKnHcynDKJFv342H/8Fn9ZXuRSFlsA7E2JLfXIZ6hf3HzaWUQeuh
qyf7kB3gBdU8OLSU4Svurb6F8knk9jenqPyMMgj3vrpmkhWGcq2/Pgm/SBmf
o2u1OxeFUMnRZSt3ZTj6909wXkYc4jX7rbkZqgzLWWVf3FKSkPGNE+dfxCpD
5GpfeO/lFOT3rSqxOFUZ0jaFOJtk0lB/7vkRkzxlCB5DT8svZaJfn5s3+W8p
Q1L/vnDxUSIS0WMT+n5XGY6f4DFXECchS5IH4UmtMnS+yz9nY5eNwj70eOQ1
K4NK+/ZsiTIZlakLkr06lUHyz6X57+VkNJIa3IzrVYbHWgpq7AwY2nk7PMMx
rAytm4eLbjpgSFZRZv/Sa2UQytDW1srD0On4eNnHs8rwVi6/r7gbQwnjb4+T
F5XBd3eZunyK4kPS6iEuq8pw49dyvzKFR28jsm5qbyiDhM+QruEghuiGP/Uw
7ypDc0EUeleBIVVR+DJHowKFB/M3tAMw5BRUwNrErAIRR0/EpslQ+Na3rpHO
qQLsDLYDQoMUf+K3PHdeUAX2+n8+On+ejOb/K09QkVCBgvjjlgmt2Yile6+C
VkEFXNjYViqukZAu55mXb9RUoEOSMPGfTRa64vZg476eCojU69Orr2SinDZG
wQSCCuy28l+Od8tAKxc73OXsVKAhwfb+f0ypiLeRO3vPUQXshc/aP9JMRsb0
fk2jzipQ/JKt9I15Irp5X4w6MkAFdCIS/hl7xyDL7dQbA5gKtLaHVAY6e6Aw
qw/dtwpUgOYnx6ttqYuo7LbuUmCJCvSYDDgkulmgHZNVdcEHKuB8h++NZIE9
3L9qO+w9ogLKkdE5tjxh8PZT9S+YUoFfJ/j32H2igE6XVoBrTgXmb0y/W7SN
A6e5R24d31XgVvPd2z9skyBD7RAJ21KBlmu8Nk9UU6A5xbPR9R/lvINOaY7b
qcByRGgfC6sqWAsJCavoZIJuXIj0PLcqCE6RKhdriHBl7KVVs7Aq3EtI27La
R4IcKdmgDClVyHytELOpng2d4QmFToqqQN/C0moqToblwWmkqqkKW/PR/KGF
FP6IaHymM1SFMIdqq9R/ZMAHkg5OH1WFY1E2NIy2GPj2flars1IF6rO7SuUY
BghqvBROq8JuZ3D9GsKArd2vtNJJFfwen2oL/D+PNDSmpdxUIV59bYplGoP6
uj/sZb6qkJNRt9NF4RGVXKe5aJgqCNW1Rd8pwOBEWUJCcZwqSKzM/v52mpIH
hU3bBNJVITRoge7vLoWf+Uzr+ZgqlNCiYe1syv44RmS5C1XBwY8pUJOJDFez
ci9dvaMKYtZmj3QXSbBA71DAVk3Z7530FmdiFqgnCL3KeqgKT575Btw6SISk
nQ8HmB6rwuvg59wznhnwOuQupD1Vhdtmpoyqd9MgxEupPuG1Krxjw7FcQUnQ
u/jz879ZVTiH9801LksAnosth6M/UeoTtvtF0y8OWk4aZYduqUK0suhSQl4o
/DGw8/HmU4MPNd6do1eswbyF5+4XUTUoKTYfDhVVR4WqM7NX5NSgLZ3nW52B
A9KVdrW6pKcGVjY/Y89Y+KEotlCF0+fVIFNsXDU9Mx4NZui5jLmqwfIAfGOg
+JAQLdVNGx81GIkNbjZ6kox8Yp+ODYWoQSSB/k9mcyrq/JPGZBGrBitTPttu
memIJciK0J+qBuxypsxRuEx04duhyKNkNXgS74PljxBRvftEQ0++Glxpkh9s
0ychqo+Fy7gSNfCu6QhgTchGNucviHVUqsHF/oTEiONkVDIp7qjboAazrJJb
e/1ktH5iCXvUpga5ZqrifxQwhB+sea7+RA3+xe61LUVgKMfEf1/DgBrsc1xu
82jA0DzS0FEaVwO/2fYldUpeU9Xb9quZUYMaNTolEUqeS2zqrJBdVAMfFvkx
4REMjSslzt1dVYODV+qTjWowJFFlyiuxSalfwWvLZn8MBUkw25TsqUHdf4nH
+kUw9LR4JFWYXh1+N8yfft9KRpx817pusKpDywmu5FgDMnK96rDFy6sOAdHh
78lnslHzQWGl6yLq8LrOen7pIAnRpc1f4ZBVh7V99lfqbhLRaep7xWQVdejr
7TXopMtE96K8Jg7qqoOTn5WDsHU6MvP/dfSAhTpMvySNvYpORvkrLdHJduog
LBRxiNErEX1xjW6iPqcO+VLsjPa4eJThSCe5660OYmk3hOdswpGhMvPmlyB1
2Nl3K7R0Kgj9oGXvm4hShxSbgBWuY37ozAMhj3qiOswd/sfHNn8WSR7QuH+5
Rh2eHnCfe/XIDaZmdWNsGtXB7b+V9r9RfkB8CMcNHquDXFt4aBFTMKw7Wf7g
HlSH+74B941no+Guum3P/nF1GB8kJmoyxYMD45mra9PqcGzlfmYbZyKgpssa
L1bUocdNYpK4mAJBmR50j36qw8HN8qzrFWkgfcl3svQvpb79LwaYbDLgrWZw
BXm/BgQwHPzB/jYTSMyR4dFMGvD3XIHpT+MsMJqPM/fk0IAHoPeDO5sEvx6l
CNgLaEDMgRP3mR9lQ0UW8StBXAP45hbbnp4nw9nLOR3K8hoQkdD8u3GIDCw6
+SQhNQ0gnh+deSOHQQ9L8QVGPQ24wnFCZyAIg+CFUuUtvAa8uarkqFlNyWNt
lfsWzDWgO2zk0rshDGay60ZHbDXAr4o16yYlv2W7NpV2OGrAlHSR08VJDPB6
7UFVzhpAH+zzQKkTg0227qN5nhqwyKLaIEXhXdWnXu6kAA2I1xrsCqX42fnH
g5/9IijPO1Cpee2QgS1ntOV8ggbEHkg5eOEaGZ66TaWbZ2gAA+8CuVeADKEG
7xy1cjRg+D1LpJ1INshxLMhLFGpAS4xF8LFPWfBu6csO2x0N4AhROD6cQQSs
8/vQbqUGCAf11V5hzQTj3I3i5QcaED30+VtbcDr89vjrO9mqAfza/xlf60oF
Jy569gfPNUDg0G/hO7RJwL7C/LHolQYUe/298Y82AZ4h9saMNxpQybv3xX0h
FhS8hU+7fNGAsGGNDjqlUJgzkpA+8UMDtAJbLv6uCoCrPHK/Df5ogGTC4qND
Et6w3aNRyMOgCZm7ls/Kp2yhn8/q3QsZTTBaIdgJH/FGUd9t6x4pa0JKfcMz
77oApPTsTFyZtibQhW8buKiFout+LmIxZprg/bxJIGMpFh0z8fzpaaMJj+5J
luzSJ6AdAb+n9mc04erbvVOZ9Enocl/kFRV3TeDTssm27k5FLvpS1pu+mlDz
jp+JyjcdXXkwotEeqglz8Sc6HfdlIjepSKG4WE2Y7S2WrQ0hIvcbkrRHUzWh
Favb5zGUhTzZRr4yZGsCYynpHT9NNvJKjhgfvk7Z78Gxj23MZOS9LfH4arEm
uOY7DUmnkJGP78vSM3c1wUJY++6rVTLyWwjPFKrVhFJLV6pjBAz5O0gEzjdp
gspFz12VFAwFDA873uvQhAwS4wNjSt4LIoTjvZ9pwmR5no8VhW8hLeJyKkOa
MNQXTXWEwrfQI8OHNsc1wTnz5fMpSn/YnbA/bTOacCq49pXjIwxF8Ih/iF3Q
BI+kxJZXqRiKIg71G3/VhAg3jjy/oxiK3hdWz/BLE14hrC9mjYxiQsTyh/9q
gnDct3z7dDKKWxmMvbpfCz4/q/vqwUZGCRdD3c4waYHVrcRYX+ZslPha9LgQ
hxaE80QYVFPyX5L5oOY8vxaQGP2Zx+OIKKUrRPiemBZE3ai44MCcidLURem8
5bRgKyGsYCAiHaVXDqwqq2rBxsy3c2+HUhHxqkhHm5EWqCnxnxCSTUKkAwNl
sce0QKEYO6yvkYCyo4OJxie0oOl5eHT/kTiU4/bi7PBFLTi83Cv29U0oyp0J
Ilx11wJ8Ic0ZO79AdO3EYfkzflrg6Lg4XvXxP5SvF7T9IVYL+n7k39CWskfF
rMIFG8WU+TdsVe7aecDtpP64trtaMK09UbSr7A8lfwLcY2u1oLiS3+9+eTCU
fezTYujUgolUee8s4xi4eybg8PAzLSjUjal/rBoP94YE6a8OaYF58H88zcqJ
UPXIf0JwVguCytlutXxNgRoFwc4PC1qgmaoh3Enxg/slveV3v2oBt9YlHmOT
DKjl9s/y+qUFit1uHzOfZ0J9pkCw8o4W0HX+1NxQzIIGqt5zG/u14fCdffP/
gkjwMNjPuI1JGyz/TnpbFWZD4zK/QiyHNsSfvmj2ypoMzReecRgLaMOWcOjR
X51kaBn3/XtAXBtEgtkkeIQwaD3G/3FIThsCHy48HHfHoK3z6YscVW3odn6e
MV2CwWM13wZ7XW3QGFU/960Pg44KvkJBvDbUEsT0Fij5sFPoafyHY9rAM8Xa
W0Fpoxwfj7sntAG3/klfnzK+m57vhJeDNrxKfBT38DYGn0oVzd9c0gb2x4d1
Qi9hwAzGBFNPbfBPWR3QZ8ZAdcZBvylAG7yDpQ75lZDhTJivhnikNjD5Rijk
i5IhhjNZEUvUhmtDqU/v82dDWX2h9L9MbTBTv3/t5YsseGFZL/JfrjYIl+Be
GJ4iwvelZ3zTNynz/UnjGG/PAM7kafZj5dqArYvFXaNKB13RH0yP7mtDe4Hf
14eSqZDiILiX06kNZ/reupL5E6FmQ2WLqk8bbHz+ELy/x8EoZrrm81IbKjln
cxvPR4PQi4B58zltKFF+Lff6RyDgr6RNtyxpg4rHjiSTlA+4UxePS/3QBn3L
+qWjeBdo1H3eS02tAwsHM8Zp9XdxFtWHq9vEdeDD+Ev7ytZA5GeqUSajoANh
W4otiXFh6PpH86Lr6jrA825a8rxMNJoXCMkOOKoDeqOkh6/3JaIDLZlpc1Y6
YKpdUrbBlYwUT5bEW5/WgewYerwbayoKJw4GyrnpgM8nHfkrFRmoWGbeO99X
B9A3L84rBCJ6+nTLlS5MB+76nL93py0LLV88eCEoTgf2WsO5jCj/b7ZdsTPz
aTrQff8tp4UAGWkWaJ+wwXSAuSdblfMmGZ3TsDbvLNABez2Tb1P0lDz46jJB
4Q7lPEYxy2xOGLr3X7h+YZUOzLx3ZDlejKFBhmyNAw914NnH+6z4fgytl5cp
hrTrgIng+JvGaQzx4tukF57oAH/v+xESJU8avnspYjuoA/JKj9fGOjHkErHI
h8Z1oEhavL+MRMmH3H/ZFWcp+7njedzQDEP1DWzMNxd14Gqp040/K2T02lqK
lvGbDtCJp3tbRJDR9rLeXuimDjh+/6qZ+jkbiaSe2Frc04F5kvMz3gYSMhF3
W7Oj14X69BaWsVNZyLsr6ks3qy7cyv3V4zNOyYtnc+aVeHVBnqyfMaaUgVq2
7k0XiejCw6K+G1yeaWi/8thQuIou3M6RMjuRlIRkBpd6P+voQowEn6eORwKy
dt/rOoXXBf4ZqnuvNeNQ4W3ZBhU7XdjkrO9/phiKVA7FXf8SpAunX5aeLOOw
RG0HJmX6onRBYEy5fWJCFfBUiu1lSZT1QxJlDvrZw8nv0+8v5FLWr6JLu2Dk
AzOfVAMMbuqC2cl7NuSaQHB9l04jUKYLGcIjn5+IhUHIkJbsxENdMPLQWrc4
Hwf/npLaH7brglVw/smLHgmQ9njRCnuiCy0iJaPyl5KArVF/zmdAF8T7P11I
xKdAQfXVAMsxXSB9f1hzkikNxEqXaeSmdSEvysKnojUdqgqN8ug/6kKIqVt6
mUUmqOXkyy4u60IWX7YgqYsIj9O/t/es60JA4QH3AQ4SHI03sb69rQtLxSbY
okk2DIcVzUVT60Gn3s/Dz+TJcNrvV8BZRj2Kr+qmm9whw3s3C1oddj0Y7rwf
FESHgfuFO3nc/HrwqNUicc4eg7XTf2R/ieqBMF8glcp1DMKtbR6/ktWDDv1W
Y9FuDKhN7lnXqeiBw/GsfQlTGGQa7M0RdfTg+JfTwToUn+PUOBXoaaQHb4Mn
UgmDGNxUqKE1O6YHl3gqhh9UYCApsT9f8oQeZLEvhFf7Y1Ar4Ci330EP/HnX
Zf6TxkCT48HjuYt6UE3Vdc/sBRm6GA8c73TXA7304twyRzKYUV/4cMNPD2YH
wt5tPciGV3+aAsPD9ODwOVWx9kwSOP5gprOP04OhLzYik4QsmF+6nK+epgdJ
ixG8TdOZ4DXXJsdOptRng2vkw8kM+DV5qON7nh5c2xOfZXqQBlEv3Y8P3dID
t9l3A/vWU4DUyR2UVkdpjz/UOyyXCDzN/9FdeaQHUubiPP6S8XD7/tN8Qpce
GLtIL3QIxMCDmwEde8N6UPH4m1WDUzCMRwzTBX/Tg1zuozpdV03hfIBkge2m
HuRdc+mIm9JDnzyi5JX39MAdJLOCah3Q1hk5m5WD+iA8PW836+iL4mzi5/u5
9OEWz12l35pB6IDZVNBdIX1IJ58m6FeFIX6tlIJLR/RBrXumWrcoDpUqzsrj
NPRhYO8McfduAlKQUu8UNNAHg8Lcu2o3k1CjUKbNtrE+6PCO9jZGpCADrvn5
SUt98FOq7/CHNNTLrBPcdFIfsvB/y0JW0pE1DZn+6jl9sGH2pVsNz0STfz8V
+Lnow3wtw7zQMhFd/GmgYO2tD3n8TVigLgkdZKcaGQ/Sh5ICsVNO8dmoTbkn
8Gy0PrCecIpHlLzqdjyJZz5ZHwqsFW82PqfkQR+TdneSPky1lxevHsFQN/HA
he/X9SHie+jQl0gM+VS/oA65pQ8nfp3UNH6IIYEXxLs79yjrNeSqNlF8rX/J
2jyxXh/qzTefsFN8Lpj+0DeGVn3oyvn7wuYlhsSkxjBytz48cizkjq/C0Evj
axo8L/RhUErJasyH4nOX7d8UjVLW13xZmyuIIdkEvmiJaX1gbjj2QKmRjCZu
T4tUf9SH2isOIfKaZJTYVfRU5as+OP0L0Dltko2U311wb/mlDwya/9682cpC
szuizLhdfTgmVdCbk0BEGQILdc9oDeBrsaSiy1IGWjjjvjXKbQBdv06cfG6V
irBQuRsOhw0grOCIHb1tMjK8/tVwTtoA0i7nEGp0E1H+mF/KqrYBJCGioWFa
NDq6rioXZGQAHYOy/9xeh6F1to2h7WMGsJW1P8GbOghZWodzHThrAO6n3KIJ
ci6I6nl8mVi0AXhMPw7cdHSB+58JZpXJBjDSa20ne9YHHOnoviqRDIBhajPs
AH8QNBIy1AxuGcB994HCO8XRcMnZcvLJPQP4o8IXpMcVDyzxLJHm9QYU3vd1
HjiaCO6dOT323QbQuimSxm+fClyzJ6+8e05p394W41dPh56/3IyuowYQMq39
NXwtA3z539xfeWsAUOtwfzudCII6N04EfDSA0FJru4y9LHhuf37j94oBXNS+
c9PEMhtCQg4XxP4yAKG66add2mQQv/ZBn27XAFRid5+daybDyMPSOSKtIURN
FLTYC2MQPeqaxMFiCEf7dGjk/DCQ+yEtU8htCBv9R7s8KHl0knV5QOQwpT9U
WPvFSwySFGt870kbgtw/5zOCsxioWPlwKCobQl3zwgfrMQzeeSk/atQ2hM3t
30k+DRTeZaw76hkZgrcv80h5BAbalY173ccMofgD8be+AgaLfSF3zGwNweuw
f3RBHxlyPmmbvHQ0hKnHk6UGVmTA0f79cuqyIdQ3Dd3MjsyGr+IdWTNehjDr
Srr4UY0EBfhYlctBhkAoTG0VfkYEk0tGr79EUdoHMj0EVTKhpPiZ4FaWIbCG
RWq3lKTCzXMKk6euG8LgqLfklcZkyOe/ijUWG0KRI1mDqiYRSNcv0gXUGcK+
X14xYRUxEEH6+/3riCHUmqmkpDq6QbClc5XFG0OYqfryrmnFEfwYn7tUfTAE
8d3b7wX268OVlOtv3NYNodHoK07d6yKyjVF5Ms+BA6IOpBUERyIr/fxoI0Ec
nEjpKazbi0Vm23tatyVwkG75umlVKQERWlzX9xRw0JNnITZ2LAkZhgzWnNfA
gZnhKq2HeQrSUVdze2yAA/ZMt89KSmlIfb1AVMAEB1LvHuy92EhHyvVUM+HW
ONjrzpTefzMTyfu4XZ86jYPjy7Tlzw9nISmFYRutCziwDCxt0I0lIbFldabr
bjioynr//lZLNhKquPHsly8OHthf5dNxJSPeK9RxdmE4uBE8eKD2DRlxSHjo
NsThoCuoMEhIB0Ms8y9/saXjoHe12ootEUMMtzXrfDEcsPF8tpWj5EEapyKP
4QIcjCvGJ8m9xtA/ARqJI3dwkObMFbwyg6HtN57vMqtwoMdwOuzyMIY28l7l
LzfgYGNNqK6sEkNrp7TtjrXj4FX96NoMhT8rHLcOVjzBwQ9N9ZxTwhj69Iq2
n24QB03LcwyBLWT0Ids7wXUcB2LJVIGNBmQ0YzWm/3SG0v/z8qzr+Ww0yaS7
JbaIg8cZNC+MeElo9PntB/GrOMhYbLTMuU9EQ6n03nMbOJim35gROJyJ+o/6
SOH2cED1PDz3pU86mo/3XLPeD3Bjj+ZJf3Eqej9XZBVDD3DoTq6V+YNk9LaY
5sAsK8DPJ2/e3E2NR1O7Wq7MnACZp7pyr5TEoNfnvHr0eAEqGOh/mR2MQCP8
o1GFIgAjd1oGvNL9UO/1Wz/sVQBWiob9T0qYw9ONUetUDYAzl6xKUMRF6D5J
V9OsA/Dr/hvWWXtPeMz+3xUuPIA0vj+g5lUItPnffmJsAsCZU3RgLCoSWkbG
RILMAcSnRv6bpI6DhyTd6VFbgIvt1NeYrJLA+QYLbdtpgEqVGO1++RRgr5hX
LHGkPL9zZD14PRW6G5vPpDlRzifmelH6Vjr4dWck+DoDGNPsP8mknAmHh51q
Tl8BOO+g99ynlAjDb1UnDDwBpvxKujq3siD6Mx2VpA+AYnjI93T5bFD49VaW
OQBAVlz5SLcwGaap6ux+BgPEzy074q6TIeNgYvTbcIBz76cnOv6SQYff/l53
NEAaz0zMsDUGS1LyryriAf6JKSnzZGOQp/ZvOzsZ4IOoraztYwxMYEwiNB3g
uuX9U9YTGGxY3rN2ygJYYp1I+E7xrTKHyLCjGMCbJelYxREM7K4cv6NwDSB7
MEeUr57ia4HigxwFQMmN13VHozB4ELu1sX0T4KRUlA+micFF4sDh+dsAGuy/
ft+ZJQNrwa1jz8sAtkydHN0CyNBZHhhYXwGQwyn5rnw5G/5rMC3KqwFQZtKZ
fztEAsEugb6Yekp98UvP72RnwcDA9zXXRgDbqdKPp1WIEDH1hN+qBaBZqdoy
sDEDpn54+QgggCbeF4/DXVMhdQ+XT/0UYIO4+Xr7ejJoMnH2fOkDIM6bR7M8
SIRcicdcLS8BmEJvXUu0jgWCChl3awzg+2J1RAprJKwbuHikTALEDAzIKTwM
ARt75o6T7wH+PGw9OeLpBcwZ51x+fAMgX05zGjSyQ+3XlUlT6wAmYwmpX+ed
kWcpTUvXJkDGow8uQWzeqP9xDRNpD8Bxaeyl7P5QlPR9p0GOxQiUJ3a6dMYT
kdrOyMwhdiMwZrzOQ2pJRvMHyun+cBnBcwd/kk0y5T7nClee4zOCr+QS2Szt
dARiVo59QkYgL2N022skA31XFE2qFTWCrZ5vZ1UsiKhYb+P+NUkj+MvI5kC4
l4WszJ5PRskagVvHqwXpjyS0c7Jon8sRI/DeotJK281G1Zf85S1UjCA0jupn
PiWPOfocPaWqYQQ7u2V8xAUyYojki+XTMQLZ8cQ8OX0MtaSuVlAZGMGRT0Nn
uOIx5JbbPfoZjCABbefuo/gUd8m1nWFjI7Ds/Ha49RWGnt33kGo2MwKb4idl
/BSfCmozsCmyNAJy58/nfBTeNTn2Ub+xoZzvSp81sRlDm9s2TZynjMBLU3rc
mTK/9o23bjYORvBLJEnjgwaGwvVc+InnjcDuzq0xt3EyapteHey7ZAQzH1P4
As+T0U5kaOz+K0bgV5/SrlGajQwE96niPI0ggJHHSPwyCcU8zliI8DGC1QcT
x013iKjrHGdec4ARSPce3PTyy0RUu0XH1kOMgCE8LTKjOx0lGDyo9Yil1K/b
jDl0fwp6Mqt7qTzRCGzFzlIx/0lENDFPOT6kGoHvjD1R7HU8Su2cDDtDNoKo
p3IfO/IiUL/TJfncXEo9rEMEi6eCEeO/5dmX+Ubw9OaRgRu7foiI28OblhhB
bZVb+mm1c4iMJA5qNhjBWwsRLlt+T3h1sbbLv9kINjsnX+z+8Qf2fdoB99uM
oF/jVvDcyxC4ZmQxKfHECG7uVumIscbBxIfx9It9RhAeZeEVcDQBeBOc9G8O
GIHoLk7LzyUJCnv8SzjGjSDDTDu2+0QaTDv/tTs+ZQTPruY+OySQAYL7k+ky
Z4wgvXbuNuuTTDhfytLaO0cZLzn3vsg0C4oJ+V7Ui0ZwkCmTOHiXBO8/igob
fjGCYm1B1+l32SCSVD0SvmoEKf1CzMKhZHCW0Ehs+mEEa78bRV58IUPp006N
HxtGELSSg703wWDBxWxJYZtyXkVz0ucsDKRoRwvd94xg9LW7d2onBm7lZ63K
qPFgOKAqEE/JhxVHF/+9p8PDbtbbgIfTGHxZ9GkQYMLDP40xJ/5+ip+l/Hax
Z8XD0w7aj8NFGHhJJfBc5cBD4/L8X7rzGNT0Mr0Y5sGD8bUIBy5KXl29ci2K
URAPOyZrG+4FZFCkP6xkIoIH+sWxVCIPGfzuVXyIl8BDta/UHQvqbHhgqprb
IYOH8NuD17/cz4L1z+0mfxTwUFKdfqVcjQjqaUf/qKvgoYNbd/HStQxo7j/j
VKODh5FhMQeLjRTYcp9nWzLAw4kJ9TXe30mgzeD9RByPBya/CUxsLgHajsXK
3DDHw3aRzKmA11HQ9aJ8Pf0sHlw2U0+rf3OGBt4R/+gLlP3Ej7SOCdlB2ZXt
Nb/LeDCpDBQVjV3HZVAf/27vhYcWqVDVmTJnFGUT7mPhS+l/8UHh03cv5Ftc
umoYiIfm8+XO37MC0End3yuSkXhgkxi/txcSiUzTxLz4YvHALp6+JoNike6E
5TJzIh6aRk5yU/+MR4cDSpZ+ZuAh6/Go/pO3yYgdDbh9JuGha8Fs27A6FdGw
bH56m4OHyoElX/dL6Wi50nyxuxAPH7luT5qEEtHMVpBLUzEezmTOXckay0Iv
j976WHEHDxfu+LZWsGSjnqvPnW/exYNA+aZKEQcZNX74+SG7Cg9Bph0qtCQy
uqckfCmxFg/Xpx30aTbJqDDabC6kAQ/9bDrVUhYYIg4EXPBsxgN3fsKrg1kY
iuUrene+DQ9Dgs6ufu0YCnDrO3+iEw+h91Jf8U9gyKXpx4xxDx56B5J8KPcf
st8veE67lyIM472lnyh5z/yEybT8CzxgwLDGUoch/Vt+joeH8ZCpovWGGIEh
pdXCN+yjeGCtG3pSqErJh3rPztBN4OHGr5UHaZOUPJr+ffLPG0p9fjsst3uQ
Ed0kn/3qLB4STUdYz49loz8SxhNzH/DwadH842wdCX0N8Dk1voiHU7x04Yae
Wegdyh/v+4IH0iO5b0v7iegVyxO79lU8FDqGIK+YDPT03Opo7Q88bJ3l4gib
TkOVv41eXfuDh/Okipyrxsnopom3TfouHlKVeYtvn0xEpNzrL6P2EUDW3jdE
8Xg8ClJeGbrMQABM+bxLF18EMnTPfaHCRwBz32rSkP8FpNLceUxSiADUnQyf
JeyOIQmaL/28ogTw7j27s9GgDQy3Dfr+yRDgOu2NE18nXWFn1c3kpwIBdEeb
jobw+cI3vZxnn5QJcBonbqohGATjk5+eDGkToLlIq5b3ZxT0Sh4idOsToKlw
s+10fhy0Bur1NAIBpkJ56mvKEqCYlYxumBFgxcF0eyMqBbDzbbhsSwL8Yvz3
6I5xGiRVL3Qm2BDg3UFyge2PdAj5w2IYcpIAnntZCzLxmeBhqtPhcYYA1TIv
f7qvE+GbDN+zB+cIkFnjZyTmRKLcC38G/1wkwHdn8n8ad7Jha2Vq3MiVAMs2
xJpoJzJEDbXMpHsQoDtnyj1+ggz76vIXXv1HgFdTH3XStTFIIYd95QsggM/j
WVGuJAyYAs78uhRCgPZ0xpieFgzIdto7lREEuGSXmWpJ8S0uDV6a9RgCwF/Z
+0SKbxVy/2bSTSSAzY+HzyIGMBD+PcmRkEqA3eUS/iOlGJS+eSTwIpMALJV7
5lOXMZBpzxNnJxMg6UUD3cuDFJ7dDJV3zCXAzoXsO/ElZFCJsVe7k0+AaNWy
5OjD/3/foKW3fJMA8RH4D1Ns2aBnxENQLSFA+TN3kG7LAiS2ZR5RToCJKIa8
cn0ixVsnbXsqCVCQq0VlUpgBzxebHRlrKb8X78BWuddpYN133dm2gQBndyIc
Sr+nwGhFiGdhM2X+soUB2a9JMOOlGSHXRQDrbfdF+utxcMmKOyHgCQFOqZ9d
O5QTBZ8UN9Pb+giQJx5/u3c0FL7/aCowHyHAqrABPmTbC6jDNFo9PxAgcG+u
49NxB5TqwNXdsEiAoCq12MT+K4hZb6N/+wsB1I55Eqpc/RDXXuNUxjoBxtKj
/xsXjUCF73PnRjcJ4JjrpD/3MgYJdwct8f8lgPGSfuNUVTySSVL/XbXfGAai
wmtvLyWj+66cVD/pjeFyvGLA5mwqUjX9Ra/HbAwGRf7vxBrT0SOZcdZENmPo
dWbgRO6ZSJ+xkWeA0xjMnKppcv8QUffK1cMcfMYQxWp89qoLCZkMBUqfFTKG
vL8G0gv3stGLWjulUlFjOPuuXHztIhkdJ6tprUgaA/dVk/7MKTIa9+fAqckZ
g/TPW5Myuhg6Y/fTJFLRGB7TGr83TcbQrPqY9RNVY8jZV/wipRVDztwPTzNp
GcOVPqrLJRR+fd7KcbLTM4aNu80V/hR+eb8JuHIDZwxnJItp1l5g6Eebrc9H
gjF83GO3VbuDoZCbqiHyZpTzBHJ3+zlj6G80e0ygpTEcm/gfBdcdT+X7hosG
30o0KCtRdoO0pNzG2Q5nSJkpI2Tvvfc8L5KU0ZJViISiJzJSJEWyUrayIhXS
7/39+X7O897Pc1/39VznunzQz1nehKHgCz8injK04ex6yTva2Ry0TqMjgfus
NjQ8rRn/JMpBMZKPrtIMtaFPo4Lx+r8kxLcuOTPFVBtWpAhgXJaAkkdc7vVe
1Ab11t0b9x2NR0JNzAdS1tpwKlb/wa7kWHQzT+nxFTtt6PJ4wjB5E42aP1k0
ZztqQ5VjbuKFmUi08F9a73tXbVgN++oR8TMc0RyW1qr5acME8+iyzuNgtKRU
r7s5XhtejtnnOKo7IGmLnxeBow2JlbmdBRcsECtVxsM9FX/fh+f0f29ZqGAx
7kbfTW1wIJtmGKmfBcOn+uNFD7ShNvb6ZsFObwj/Hrk8WIr380zij7lXAJSI
VfHtrMD5kXxdirYUDDzBYkcDarXhqMic1kOVCFAp1SOX1mmDDWE0bJ9CFJh/
DTEeacT7szqn4rouBuK3lzvufq0NJKvWfK3aWKjUHg2hv9WG7gcT3fYG8TDs
setqyHttgKgj2763JAD/fWre44/acH1zWvT33Umg1u3/dKJXG1rDSvSGJThw
mbe4TWwQ/3yX22pEDgeSVb98YQ5rw5WwuGLVTRjUXtn+M2JcG4afTAr5m2Mw
eZPAU/1dGzwUA74NZGMg2OYlMj2L88NJxXL7Kww0/+UflPypDQUCDrkjuH9y
PNynYfBHG0RDlbnO4P4q4yLf2di/+P7NfAJ7cf/VmAw2tWsJ4BoLJcW4P/tR
7+r3Yz0BlPLMPkqTcL36eTdR+j8CpEZm0j5PcoAq/fGWER8BbOIFD9N9OOBx
jvdx4jYCXJhUG/v/3xPmRJ9qrhMkwJ6OlyfPlCbCmyqH3kVhAuSHmXzrO5sA
vyezp+X3EPA88FaR0xkH+0Q71l7AudUvP3zvlHIsMOjrdqbIEOCrQMGOGYdo
8A88JtukQICFLdTHQ7GR8GEwQ/eQCgEoHPHfR1xDYc221osWJwigvrXF9olG
MChq/XO/pkaAuNErZrF//CDsnsWNf9oE6Dg707cu1BWU7RTH354lAHnlDUZR
PIrMbpgtcxsRwK/hAZeIriGKfcPhO2FGAPOB3+fvpVujrwd/quRYEyD53Rnt
bVs8EJ+5DPmDHQGy6lklz5t9kCpmaMzjRAD/Tdj7PxaBCJuvCXH2wvE4XPqX
FwtDjh2ciyZ+BOidpM3c9Y1AOqUWGuQgApyj/Git1IlCcpxje1XCCNDutGsb
aX0M2uDEu1YiigBmzrOyDrdj0TC9b3BTHAHGw7kjrCVxPVIsRr8SCUBfGk9I
DEtAWZtCc4aScfxalu0vvUxE/pP6wW/TCFClLvg4dCgJGb6SMX+agd/dqhcu
PU4cdCxvSf1+FgEUo8HkRy/uX6Ja96TcJsDVP98eJeP5a84q519gLgEsdkhQ
DP0x1Kbt9tmugACHJFTTf+P+qEiK+NzgIQFuSoXvONGOoRiu3dmajwhAPL7/
ygKuT9ZfvgUerCCA2/uOvD24fmmjWjPhagIEV+yivMD92d5s7MyGWgLk3pc+
uIj7t9UAS/EfLwjQsPVAyKwOhvpMjq/2N+Dz47/i9+s3B1Wd+m/g1SsCVFLk
d11O5qA04f6ax60EePv8b3Hxbg5y/1OceesdAZyiLZcLxJMQszs0IKGTABhz
WnhwLAEdfHLW1OcTAXhanx5gc+LR5jTZ01b9BGCKtIb7745Djey2FbURnF+V
2gP+H6LQXeVbfbITBJifPlc+zhuJQgTcn+2YIoAM18uYwzLhSO3tbv/vCwTQ
EYmzLd4bjHY//G7c/ZsABuW+1Jsb/NFi/PNTL1cI0Lrs9Fm60AuVUq2Wb6wj
QrGLHeuhAa5njSW+tB1EWG9gr0ix0IN198KMju8iwoE731SbZS/ClzADVSlR
IlxAvA4/rOzgpsbKnyUpIvQW/ZZ+qe4JAjUkn4IjRLiTslvkdlQYTN8QNkw7
ToTfnOnd+S4R8MZ36kToKSKYTa30KWtHQb4h2uWoTgT4edUY/kZD5ImU34Za
RKgfSvSaxr//LYWsuwkkIvxscuXzFokHjcUTlUo0IvzI7ps4HpAA4p2b0sX0
iKDJ3RNfUJsIK2UDXrxsIpz6btLnhOfBT8ml534aECG534OR64D7EZfw41+M
iPDBb2FmZw8HUhnnhFrNiBBG91/Pr4KByyH5X5WXiJBCFOFS9sNAl+9v111r
IsTd518+UIyB4tTbCo4dEXqkpf/9/+ftvG9up/k7EuGBy9azI7ifGi3w8LRx
JcL7R3G3HXG/ZSC2OpDnSQRVNe5ewyoMGpIiSRO+RAhNUtrqFoGBCtfWErkg
IkzkGG/7q4rBXfdru+zCiBBMTqo/h59vx9iekIIoHB/xI8n/LDgQZpg3MRlH
hH1vs57uLk2CH68PsxQ4RMiufmZh7ZIIl85UVV9Jxc/TCjXB/yVAR4mGVFE6
Efo/nBo8FhgHGlItcd9vEuFV6zneqLYYkODpNXG4R4SZW8e83m6JBI6vRcOD
fCKUSc2U3lwbDv++fzsw/YAIsWcEcu/3hsDAu5VVxwoizJ+rsqLc8AVd7YjL
xdVESJhUlBvv8oCaii3tM7VEKN/XbGuz6Aw3b4jfcm4iwpJm9aDYhDEYWYGW
azcRGOHdQvuu2KGWj82Fj/qIQGAnKx6RcUUnqcwd84NEmD5655P7Wi+069Cl
EbcJIvxqaNoZohCMom5N0suniGAQvyNtn0UoWtzuVrEwR4TrL5fcRcLCUefv
sCiPJSI4C5PfHnGJRtpXNs8+XiWC4LqCMYJqLCrvTz2/yEUCeXsv0ZQvcUiK
Ifbi2EYS7JcA2yVL3D/U3ZPz2kQCzzVza2PqEhHX0YPJT7aSYDZqc6f/7yTk
cr9i6dd2EphOJF++E8pBg7vVLU7sIoEvl5Fj4zwHMeKbXnuLkkBI48P7nXoY
Qqt6KlUSJFgQI2wUTcXzmkv3zT/7SCCWcl0uuA5DWUPm61XlSKCwtjNoQw+G
+AwmHHwPkKBo6vdzDv4c2OzSVa1Egv+urjsh/hJDU6pLZ5aPkkBTuKftdRqG
TB6E3j+lSoJHijyf37Mw9GbPJn7/MyQw4cv7loDrk1pyivczTRIcrSg55BjN
QYXrRL+sEEmQJcngWc/NQcJedymnaSSg8wt5rrxLRLETio8C9EhQZamgBJ4J
aMn4sXAtG98vb3YpdSEO2badDls9RwID4UcW33RjEblMVz/IHK/nWqKnnROJ
Kvd/fPbckgQ/5goj190MRzLpF/avscX393DOPxUQijYEOC8Gu5Bg5UV5nNKi
H3pJTE4PDSXBv/fdHwYHzNGI9dNW30gSPLWf2BHxko42RA1zucWSIKDre3yD
zGEgNx1zsEgmAevmj6L6z5ZgO3bhtnEaCRidTl+phxwhdmPMR3YGCdLHFZje
D93gDalXQ/s2CWTqrv95leoPU5fXeanlkoA2pfVsv0Mw8EUfKFIpIMGGz6tO
ngGhwGgOEtz/iARjlM3LGaaR4DKeRxOrIEHvHlDeKRcNyTwdwTurSaCu6fnP
+VMMPJJdfryllgQJMScFX9nHwXvyvm/r60gQdYH09PyXeFiwoUusNpAgQ70a
BRxNhB0xnmcXX5Eg5N0V4+rLSXA0Pzt2upUEQz3PLxuf4oDBq+bno+9IAGtF
fG6VcMBrYm5hoJMEEUcKnitsxyCdV0T+4ycSvDFi58RdwqBKTvvC2378vFf3
c9tkYdBDcUht+kICq0HDJwGNGCzbpr16PkKC8/9qarN7MBCNfb76ZALn+6aj
wU/w59MF40dKpkgwN7bjy0t8vVmLgG3eHAmSj2gTBvB6QZOqWTk/SWAZtcvz
MJ7/cv6zfJ/+hwSC2gLOq/h5Xsgn8GB/ScBk3xe6VcqBr9SK0zFrybBCiOyM
VOMA95XPriHryRCfdvqotV0S7IvjyfPhJYPSqVPX/U4kAqFQqd9lCxmkf3Uf
uzccD9avjbbZCZBh294/webOcRD1LYx0aScZzilaMfX6YyBv0wN/o91kcP/7
avuxA9EwSfs3St1Lhra1st8yA8Jhk72sqNZ+MpyY3CapGRoKivFM5ik5Mry/
zTO5xzUYHN/ceaqgRAbztDFldNIbfuiQOZs1yBAek96mJ34Otju4NKwjkKFC
cPGkZO9hUEnIWFohkyG1RFpq3o6OPFu/W04xyPAm8Xr+PSk7dG1qZ8aIPhna
FTZ8LixxQZVb1N/2n8efv6hV55/yREt07GSbORn+CguzW9YGIRHHasdGSzL0
tBcuxFwPQWqJQ3dqbciQ3NUa5ZAVhkwfbv5UYU8GZtJ/j2kJESiw7ShfsTP+
vuu+DX8solD2tJnWfXcyaJdyKVpJxCDEF+2d7U2G5tQSvUwUiwYPlj645k+G
D/9RNNs049FavZ6vScFk2NpiGEO8l4Caa89KuYeT4VeUyWTAYCLiHHxncT6a
DB+PYb1WS0nofJbOXbV4MriWNYiPeXOQBF8zHgPIYFh9fEfXVw4aD9Davz6V
DAtZcxEJeF4smaq1mrhGhuih9o6HQRjyNlXNbb1BhtMT761nSjEErY9HS7PJ
4M9J3LT7HYZ4TivJpN0hQ45FruR//RhqLyq67HufDL5HhFoed2IoXVQ2z6yQ
DMT1uyelcD9mHn9nXLOYDN3sdEUX3I/JrojLyZSR4e1HykAb7sdmr2TYbnpC
hmFlv6rQPxxU2buzYKaaDMUDnzJGUzgomIZNvq8lQ3pEiIQNnh/JTzcrVNaR
IaLC/TK/TBLiV4i+crORDHkCbcvl8wmoO4O7KLiFDJ1Wzsm8OfEo57+g75Zt
+Dy+377hfyAO2fguKVI68PNc0+jOzIxBhyc9HA50kSFb1q9A9EcUQq/sp3/2
k2FeM7ciTC8cRZ8cP9jzhQxysc6D50xCESPfwql2hAz/Ory1Tc8Go8Foo9nI
KTL89+NV2E05b7SGTP4h9JcMT0RCDIlnz6PmJ/XKK2soUHvhnFbp8eOII6Pu
NriOAmIZVwMuBlFAYuOxhbzNFIhIKov91GYD456lKgn8FKjezb6TOucMJaOK
Hi47KDCyM2Gnh60HQKPU4klRCujGycYc3hoIPMeyj4lLUKAsy7aod3cItN8T
9uLaR4HBy30qRbvDwDxC4HeLAgUor1PIdp8iQfZn/IniQxTI7htw1bkaDbOW
PD4pRygQK9l2Pv8Ynjc/hFV5HafAmeD9VbVP4yBY+98f41MUmAis/DAumQDk
cl9VUKcAGj995K5dIvDvW/Tdp0UBZQaTkIQlQXeKy1MeEgVUmmdmj9I4kMM9
tfydSoEKq1Jd/mccsHGzUXunS4GEtpqVPmEMDg8N+T9mUUBv9e3jo5cx+M26
UHPdgAK3VL6KNudggOp6/gYYUeBVIY+gQRMG0coGZy6ZUSA52ZW3Atc/xu13
gcRLFJhdS+F/jz/v2kZ/Lm9NgZSIU5se4OsHQ5r/8dlRQHb41u3ztzDIm9OC
eQcKPOE6cvgfvp/zxefBH10oMD9lkzwggsGJd6ovnnpQwFSuboJcw4E1GhVr
c3xwfAiycFeHA0baYy3dARSIZ4jP7AtIgnLSrlSBUAocmDeV3HgyEfhoFFNq
JAW6J1KuxbbFg42ur3RYLAWacpZD/dTjoI5ZOPM0kQJrp7SiPiTEgOjZvsqF
ZArcqT+v/OxpFLwzPkOzvkGBDqmiipvPw0DxgtOO7GwKlJ71L76bEQKRl3L6
P96hwIDCT63c2kBQteVyphRRIPT+OXGpSx5w27MxVbEG59X5bMdfZ0/Cis8v
U6sXFOB/WtLbeZWGDAJkZbIaKHB42ttn/Ls5+i88tmprGwXPQ+GFxudckWXU
01ByBwXGOt0WV2W8UG3sd1pIF75+nHZcrdcPuWG6Az8GKJDYkRE3YROK2lKD
7isMUWB/Aatp5P+/H5le4mw5RgEYTd/aGRmJQm98OZn5jQLfC9sm5O2jUV/W
Nu6uGQoYiLrIBynHomO3td7wLVCAlHKBG/sYhzj33K+SflNg75jMIMUwAU3m
3TMLXqFA50zFZvQ4EWkXdclUraGCesVWqZPfklBW8ca5uXVUaFzyERf056Df
j05Uy/NSwc/ZaP7WFAexKmzDLLZQIcvZcLyYgufLqgydmwJUIP55JP46CUMb
al7v7NxJBYmffFcznuN6hVYGtghTIWo+OP1LN4aq6w/kEcWpIPnvmkBwL4Z2
Npm5BElSobdG9IFrE4acW5JUK6WpMLyHOthxE0MtrYh7Tp4KtzX8mruMMbTv
3dwbuUNUSInxGm1fh/vBD5Jpl45QYU61/PGhdA7q/si+cOM4FYy9+SUCBDlI
uTdc9sMpKiik+GU+XZOE4gcez20GKmz4av1I4kECGv0yWk3QpsKfb1dyu4/E
IxgRCg8kU2GLso5nXVosyhgn05/oUOEwayRl8mM00p0p+Cx7lgo3lKd+Lf0N
R3k/evMuGlKhRLB+sXEsFHEtbnbNMMXP9/J3YHJVMHqy4rhuszUV7NcsVBaC
N9q2JqdV244Khs8IyWRPN2TP/S4twJEKQas3BMylHZDEf0fkZjzxfraJLYg7
sVC00C96RxQV2FF2KtQ3jpDa3DxUF0eFfsat9pkfbpDtk+FTlkQFVYGmiUJb
b6joPX0v9RoVBHzCBIqCg6EufuupiBtU6JguFrCMD4W201/aPbKpgE3xDl8P
C4eR7PAVg/tUaBBeihxVwPWLYZBMKqSC+W+93T+6Y2BlrazsiWIqrDJ/+dja
xgFP2Z8a2TK8flfzZ6w3HnZYvmbvfkKF0IXIdR0HEkFiZ+YE71Mq6CtaTpSZ
JYFCo2PQUi0VOp9rqbod48AxL9j5rQ7Hf+ara3YhBzRltxX2NlLB57Avvykf
ni8/DcGbFirMCxwZPWOGgWHs465nbVSw8VW89T0DA8tTUfYPOqhwc0FSXuol
rjffz3NldVHBbj5rpvwTBv6Z8umJPVRY4T23K7YX1zfdlQNBA1TYZpGYmfMK
g9R/rfW4M4adeiz65rsYZJdkG5qPUkHHKbV80Q6DgosuM4xJnI9lJ+eyxDGo
2KYVoTFNhZHfDHvD5xyoq98hovwDn4d9rX8SnQNt7qMlkotUyO6OGAlISYKe
/ZXE7UtUaGKg3fM2iTDSFdPHvUoF8bvWD5pFE/DcZOy6sJYGszvmhh1K4mDl
xAGekfU06Mtde9NjfyzwTK5mdvLS4AjXYlRqQDRsv9F+pHELDRr6Np3Nro4E
+b9uF+7vpEEY8d5bs2+hYPiiusJ2Pw2qQjrPNzS7g6VrvI6RHA0U13fdKlV3
Bmcps6/UAzRYrf1ApVMuQ3TEWj7FozSQUD+tXGOjCRUUstW0Ng3I+fHW2885
o7ql3csDZBroCWqK1H52R62F3zhvdWggXCxmps/0QcNbkp6V6NNA6Jt+bv9U
MJqtNWfdOk+DfHU3zYSfoWjFSXkcM6FB9YZcO+J4ONre0bndzZIGH85rqTIj
o5F42P18CxsabNpVs3T7QCySV/FR17engZl8+AhXZRw6NkLt1Hamgenmsqln
UglIM030ylF3GqS+spw445SIdEnTa6S9aaCVbKYrfD0JGf5+niboT4PlxYIh
LgYHWeZjihuDacCu4mU4veAgZyOLul9hNLjy0In7rASeJ7MnB9WiaRAVNTv3
ygXXryGXfyHxNCgiuUhdK8IQVfaPWBMHx3snXdW5HUNj9sFqm6/SQE1SKU8a
92fhpRuNmddpMLYhZTK/A0OSi4k+aZk0SGndm7MR93dIVTC99xYNEl7u9Lri
jSGzoMwKiVwa0HZ7LojLYWilfl+nVQENEkczd8TUc1AGT9F8wUMapJX7Nxwg
c9AJ+pFts49ooKAR7GnklIQ6serDR5/Q4LVhLETuT0SuXRp6vk9pYPy1VjOu
PB7xi7xyeP6cBj+NrIrJ4nFI5+7HAkozzodiq1/nY6PQ5LjZq8Q3NJCXiTBi
YhEo+sDo2Pt2GrSVNh8k+Yeh+oqFfWafaHD+foy06rZApPpKINt1kgY6KtIX
KghWqHvL9Zon0zS449LLE8w0QJ4sib6VHzRYk+s26Jq/B5X2HtwdtUyDL7Ou
5zUYFiA7TUu5sVkHgqVUsisVAqBR+X3pIL8OqHJb+TweCAZLL6P2/Tt1YP9M
xsQ9gTDgevZl2m63Dhx+8S66QyECstfYbikR04GNmxRsg+WjQI0wq/Bzrw7U
vN7I2rUpBnpivKiq0vjnl03E5F/Hgnfbqk2QPP45EL862cSD4PbIqJcHdSDg
VON4+2AClJ/bkst7RAdMC1suWSon4Tk59aXucR0Qrw6arzrAgdlBkaGUUzqw
7dfOzjMPOJCw/87aT+o6UBwnpioihIG8nbyEuLYOdJcp3W/A9aH5YekZC7IO
OL3d4/7uPgbW8ydM83R04IzlOsOZVgzWnUB+UwwdkPXR6Jzqw+C2PylD+awO
3OU0O1V9wABetFV6GepAX4Nlu8ljDAbWG3x8ZqoD/CrDpWuCMPCj9v9ce0kH
3uQoP/imhPuvJMsdJGsdeCRS0B/SxoGK99+U4+10QOke/wXtsxzQ3+XGfOeo
A/b2H2m3EpLgh8mSk6CbDux8u8H6OSkROLdCEo29dMAl8zQxticeDo7yPMjx
0wEka3GijxQHdk5Ck/LhOiB2s+2gU3UU8JRn8ThH43gFs4n0lxGQ+3u/zON4
HbASvpw+WhoGX0JULNWv6kDjOvqCWWQgSAvyJTpf1wHLDVwTDjM+YFcw9uRW
pg4YfK/j3XDCAxY6Mjaty9UB3wD1RYl/1sCzb21Zc4UOTNQ3blXvNkf0yp6+
P9U6kCB5Xyq10g4l65RvUHiuA6LBUvSnp1yRiMdlo4QmHN+vw5GyJX7InFcj
vPa1DkTc67G4LxqM7mYKP5x5i9dnxkZtpYeig42ta1ndOlD/jn4twjoSuRnd
Vwjrw+cX0dLnQo1GldPBZ8sHcby0q7QXt8ailVCjoJFhHZgWadrTWx6HNIRU
8gUndGBt0dVUgeMJKLJwy3vSlA7o6Bw9UpGaiFrUx1a853SgS5jM2v4mCW39
gKQLfurARVX76+8cOEjfJoPR+0cHfsUJL/B84aDrK26+m1d1gEeqMniPOoYG
OPS7p7noEH33mE92FK4f+2XaHDfQgapiInawGkOXq9b8zv6PDkN7TPbFd+H6
RO/Z+46PDg828m1O68Pz3ZcyGtd2OmSbmRO032DoqGeCxxEhOhzJbDtdeA9D
vv9dzrYUocN/jLeEZRsMPc+CV1f30CGN20g/WBBD644IzzdK0YH3Rfv9Ww/x
/Nc0L/pbhg6f977U/qLEQQnGrUQ5RTpcDrycW6GRhDpmcp2NDtOhw+5ARezv
BCQYHpwRp0KHqlaNup6YeGS8y+jlsxN0sP9U98rlVyzKKToyPaVGhzqepVCS
VgwagS279mjQ4YVw93CAUxSS7xzVYBDooOGS4GcWGIHK/16/+ohOh3M72jf8
oYegJt01p73M6LCbX/mg3RpntHnok3XeJTrYyt3K4FGyRgyvMs4nazq4+G4z
+RZ7HvVkWw+fcqIDt5ZrvkirLuxRAT4HN/z9HaebnO9fBMvm3SeyvOhg4rjk
FxJxBaZn38StCaaDnKW8/pbLXnAkIvexUjgd7t3rGlHn9wfv3cGfL0XT4Y0K
o1OWFgxrNY8caeDQ4bTz6ad6WDgQuzabLqbSYeKFusyOpEiItRuNlLlOB7O7
UiU3nKNhR8r1nphbdBgM+GZZ3BkH/3Vuf+d6jw4l/6L72WoJsEYosck4nw7i
aybz94YlwuJ5nlrtB3RYflU0VJ6XBFMZoeUHSunwZObg5Ch+v4f7VgoEH+Pr
Sztk8xs40CPudetfJY6XDtlbRgqDdvO5a+PP6LDipr9xxQGDxttXEt8hOhi/
6j3XeQ+DZ8Mj4dUv6eBnevuaZwsGj6TN/e4000H4QPTXJ7g/yrPpcYl/Q4d4
jyWHSNw/ZRfo23i000ExxS5zuB6DtO9tZmYf6NC6p/zfBO6/4g9SzpK66VAo
7XG0Hvdnoc71tMN9OH9M3VHpVgy8H53W3D1Ih0Q29dmmhxxwXHhygmsYn4/6
jeBTqhywPKZ86NsYzk+FJKNA2yQw8i7a/+EbHVK4pTQZaonArJYWrZmhQ/G9
6xUq0/FAXsnZljuP45Mel3wtOA7OnBHhTfpFh8kCzTUbf8aAfN3WRfN/dKjZ
a+M3EhsJEutiv1O4dYFd+TRgc0k4CBHXDSlv1IXF6vHpwtpQWNfy++26rbpA
vL7pzwuNAOh/9yU/T1wXyLRDjeQRa/iw3SQHk9SFvxvyp0zpxtBytivNV1oX
Di68YfdbakDFp5YwnYO6IDj1Iyo+zgQViRB8jyrrAp7G3q8Lu4zumD53Fj+m
C3lHrE7rs50R50uZ6expXZAsHeF+quaDIqUO6n/S0IUz8rdcbsQGIH+rPGod
QReoAyV/ZPqCke3EzeOpdF1QPRb4OLU9HJkrCB0MYOoCKZ2S050fiQwcsH3W
Z3XBRiFxv6NdNNKcixA4YaoLTv8C+nky4tCJI2t49l7UBVOxdd1X1yeggx6+
q7xWunCxaf3LKGYi2vdkYeGHjS7MkT/s9fBPQiJ/HL/12utCT5PDkXhNDtp2
auLLS2ddkCPsKJF9zEE8ARbdD9x1Icta8ljKTgyt1va3pXnrQtrH6IZLFhha
WHO+IchfF7ovnr6lmYWhSc2OpzbBuhBqGFb4owFDg+E6j5jhunDgUW0hqQdD
XY2NearRuhBUERGggOe/Vh6NbKl4XZARq5XNbMbQS+rTq5s5ON6qhV9LbuN5
Mf5o/M8UXUjZ//1Xki2GStqKQweu6YJRW0i2txiGcvnlfZpu6ELG4pYnNbUc
dHDU8Pe6HF1QG3ojaKfFQU+exnhp3tWFX3K/+SOskxBgVYtBebpQXa3G+ieW
iJqtJzxqinShAC4Wjj2MRwy13T+XSnSh5lb4qR0iceiTAMX9xGNdKHnwSTHW
MgZNPstzLavRhQdPPPU10yOQa3L33OwLHO/AO+UXo8LQ8mUel4ONuqC7Ri4p
0DQEbd5u45TfpgtxxU+EG1J80AFbGfvszzh+xRFGbyrPoYoz5771DemCr+Nq
jfgpRXRmR5Sd8LguxErtvxHzkAG6z0dtrs7qQs71xpNa5vbQlSo43rGgC7db
m1WYwm5wwY54mf+PLqytaJjn/e4FzjtzreLW6sHPXxtEmtKC4fdk53Dzej3Q
dd+U9rw5FELQessN/+mBdqnXw/yv4fBf2tEhLT49sN16MuTDl0hIvmJ1KWSb
HjweINuX1keDsMbVL7WCekBJ4T37MSIW7gg2mK8I64GeSGrteul4UPy+8Pnk
Hj0wPb62SOY27rde7LvgJaUHclf+Ug1+J4LaNf2Bchk92H8nq9RhOwca7MNN
fyjoQVPHp/rdaRzQ1SzvO3RYD0yumXJHc2PQJTRs7KCiBy6txjRFYwzMprb3
FpzQA+J8uFnaTQxG67SMxtX0ILarwdO1CQPHdLdP+zX0IKiBUxKD69kvhzvn
LQh60NAry6zrxiBY6/3HHIoeZFtfHdvzHAOe3dznBuh6cFlxO7k+EQPOtHKX
CEsPNjvyXpok4X7r5aWzhgZ6AL6VszOTHBz35A9pRnrwxHrjRpo3B+Sc6tgf
zPTgnf+madEvSfBI+0eHgIUeJH1uVmjPSwRVYUmW3mUcz6QH1eqUBKibYb6L
v6IHI9JzXQdexgGtIYTR4qQHrU1cDfEisWDi/EWX4I3P56qFJMkmEoYJAm2h
/npQvDWi/MKlcHAQ0aCjYD0QnfPVMdUMhcDGHNqpGHw+tpvi+AP9YMPN9hbv
BD34ql3jt1TnCUkua6gVmB74MV021k66QI6oOVkpQw/MqTd9uWYuwAvXPQSZ
Qj34YHjPWJ1lg5Z+znBEi/WA/9DDZwNNzkjFB/UJlOnBkFZm0BDbA+UFXXRf
qdYDmu+MdfyeQPSVSxnN1erBW5Lfu2L5ECQaybV5rE4PrGk2vc7KYYgTf+fO
uxY9OKVPHgz+F4latrrPNLbpwZLShhEMRaN1KdqnnnXogf7Kif3c1rHojODO
qNIufB7+HZTVqTjkfX2kI7dHD9p+zfW1GiSgR6IV4jcH8HneFVH+nJWIvmdH
2mFfcf4EZMq8fJmEpKXOVUSO6sH5uasXMiw4yDxXhst/Ug8kNv4iRHfg+Uru
N91lWg++jx9eKj6IoQ9Fzdetf+DzLT53p8ALz4OHr48YL+rBQ2PRt9IPMEQu
s1ViLulBI/3Rm/E2DIUeUw0gruJ4cjnMtOD+a8AkYlhsLQMSGl5X1uD+zC/L
IXYXNwP8bV5OND3D0K7Bs4e3r2dA1aOTfhuSMPR475muLRsZ8Gf+XkARHUMs
C2l/Hl4GDL0VG+T6w0Ezd/kkuTcxQKV3UtwG46D40cWmv5sZUPR1V4+eEAfJ
yX52+M3HwP3Mx7xwwSTUaNu0fZ6fAW3x6RVPehPQpcLiqqltDJjrLD+cHhSP
/n2/dmF8BwNoY88zCrjj0M2DweuHBBngU7npV5ptDDrhbFPYv4sBjV/dpqTL
opDr/IlfHaIM6FDqv7zwOwxtPbo3s1WcAb0Cpz8Y/QlBRZ68Ws0SDAgwW8Nn
+ToIjf75lFizjwH1d0N6hYS8UNipOpVKaQaEnjy1+0OKK5IIKOh5JMuAvg9l
Tvm/riCjNX7SeYoM0ElUE/sUzUJtG0Rrk1UYIJa/KviNYg9XyOssE47hzytv
AlnPXIEn9jtv9AkG7HHuvtV4xgs0t9ScDVBjQKVvScfMbBB81r237HWGAVj9
jWPem0LBn5NwyxUYkH78/baz/4VDxXazqcvaDJC8eGnoQ10UsM8SUy4RGXDk
UPAHhncMzKYdPGlKZkDQGa/ZCwJxkNAt+PkclQHBWw4+OhkfD/LC/8JZOgz4
d0eGdnwsAZqMx+TpurgOW5v7dUokgWXm23YSgwFuMrUSvSIcWPv5iacmiwG7
JB4dZl7lQJZEjuhpfQZsVX97gbDCAb5YpeYDBgz4+59ewxtdDILm69zEzzNg
i1aywEtcf2ZN9PdsNWLA4I/u/NGnGJg3jrT8M2bA8sP8/eu6cH93yMtz1hSv
9+hZ6Jp+DDSu80h+uYDXE9qg9aEd93NcGa3vLjJg7Zrn7vGlGEjaK/jUWTDA
65flXSqeJ5M7n+0rs8LxKK2t1FbFcB+m237nMgMgZ3PVy68ccM/77Jdqy4B9
vncCZH1wvyngIhNxBedfeFxa3XIS6PtxvfdwYIBJPqNs9GsiNAynBFo7MSDO
mxw3mZcAx3T3y59zwfF4Z/xZXC8ecp9UdJLcGKC4MTBxsSsWBPeSQ054MOCU
1MTG9ZoxEBX7SVHOiwEedg4ZK1gU2JiuhP3nx4B3mn+u/xsLg+7GhEPL/gyQ
7s/h+TMXApTDe3q/BTJgLM2wyvpdEMhzayq3hjKA8kDqmivVCzLs3/fXhDOA
X2lw86HPrrCpyzLmYSQDQl6Nrhg/t4fveVGDSbE438Nq4tX79eGhbmsiK5kB
VO6elGpbOyReaaaqlcoA0pmG368rXVDS3tmRI2kMWCPu87lSzhM5L2w7vTMD
x/dQ3vnrzwPRoOnd8fU3GXB7a/+HQocQxGw6mrqYyYAnQtzNn2zCkHLG+W8f
bzHApg8SKsWj0G3uybTmOww4uuZitmNnNNru4KdZdY8BpzvbINQlFoV3bZ7O
v8+AZ6+P+J+ci0ML6lnXM/Lx+4IH0t+sBGSZf4gQV8gA4s7zT7WvJqLObS9m
/R7g9Q+MPaivSEJEf9ZN+2IGyAt84uwx5qCKkSGSaSkDLlkTY1mvOEhaz2Oe
XsYA8qW45PD9GLpWuSH7zGO8vpNEM8sJQzyS6dRDTxjw60kZl2Muhrzj5Bb3
VDHg7iyf7I0WDI0vVN/if8qA5ie+V8pwv2ZopkNfW8MA3mRjr7ufMNTS1P97
rhbXo8HeYOeXGFJVcrr7FTHg0bMEwsGbGCrIWMN4X8cAutrGeZ6LGBJZl7xc
/5IB/7FSfqtvx1C8g9T98kYGWE/K1kuXcdBKVznrXjOuH5pzFvs0OMgeiKtX
Wxgw3+erZe2XhPryP+ZHvsHnfbz+23NWItLZbnvWq40BkV7rJ1N4E1CN/9Ia
m3YGLLrNkbVuxaHF4tHZ0A4GFDeMCrT/jkGHhzoGMz/geqyvvRM7FI3uUgrR
+24GmNW4jPVqhaMB/2sl0z0MiPimtM9QOhQJlYTl8PYzIHxtikPXUBCKFTQJ
Vv/CACNNotOObE/0kkJ2NhpiQJ28R8DXNhf011/F3GOEAfkpLrmX222R89Bm
KJxgANvF8MqjEBIyKKn5J/iDAdUlsn/u/3EGzlD+jNICA/S5mP/2tnnAK8G0
zzqLDOg85qy8PcoX1AIcn4cu4d83OXeizzaFgGeJUXHmCq5HX1osfo6HQfEQ
MbtylQFvXX5vc5mLAEnqnqBpLiaUCm9d/FQUAyYBm5x41zMh3Z+rit84Dq6W
/DLbt5EJ/dxBF5+NxkPb0JCuOi8T/lpW0yfoicAj1H7GaBMTfl12nHuXmASa
1GcHPbYwwUmBHDPL5oB/QJ44ZysThJdChj+95kBFSSpfoQATpMYuZiccxGBm
KHi1YTsTqsP3CSX5YSAr5DA9uJMJJwfv8wU8wuAS1XBgWYgJyepH5ba9x+Bm
AKFNUJgJ+8yFNPfj+tZVolSrJMqENVmJOfm4vvEPiz3UEWfClstfNhY/wIAi
9F/WZQkmZD5yv3PRHc+f1MWEUEkmoKz1b3n343k34GtA5j4mHLpNfboJcWCx
pM2hUpoJ8WVOM6MEDhwarjZ9L8sENbow44pjEtgI3adPyzNBS+mV7Hm5RLhN
TTnNe4AJXFVlIwdr46EvIOjAvkNMiLuSKFJ9MA52ll4RU1diwmnq+JEf/jEQ
LaT91/0oE3ivKFdIPI2AOurhqaTjTGAl1ud1FofBcoBof8FJJry/4IQ9jAsB
x+GFZ4OnmfBRZuqby0Zf0C+9569DZILPetuEb8eNIHEYs79MZsKPlvG+vvIT
0CQUaBJKZYJYpHh6SgsNqQYaqFXqMqG1cuKZ8oAd2kvbuCJ1jgkbgqOGjh0K
RiqdWh3Chkx4xssJNVMLRcQLwXkCxkyQrbc/4Hs0HJ2feBbIY8oEN4WX2Wa7
IpGd2x/9f2ZMKHx/fO2fr1HI/+9RhUVzJoSXzysyU2JQUpTr2qlLTHh4cKg3
TiYO3RYo/jhkyQQ5D/ni75nxqPzGtwc91kzYviV3V/dCAmrcLxv+zoYJBJNz
ezrlk1B3saVRsx0THDxGA0l7OGjy5K3Dz+1xflpd0LlyjYP+1vdvqHBkgnbx
3lHmXw7i1xXuL3JmQtEWIVIcA0OS3QZld1yZUHJd8cdTDoZULqXEZLgzoTF3
xCCzBkPE728vYJ5McBadFl/F/dh5z83Hor2ZoLfhnGUd7tfs1lA2B/kyYaBa
o30I93P+sRFfPfyZIPn14y0X3O8l7airtA/E8SuLzuR4Y+h21mqiRTAT2j9k
DvsexlC57Ckro1AmBLD0Hwd1clDjI69TzHAmXPv8fDu3DQd1q5ULkCOZ0GtV
8mSpPQlNNs6OnYnG+7nP8v35MBGtMA7UHo1lwo50Z42jVxIQX69tqmI8EyhG
cfNiG+PRXqtcO6lEJgiuM113PDwWqcx8BWEOE6ISIxrlhqMR0WePkEAyE6Jf
L197LhuF7BLS61evMuFowbVDiZfDkL9Q5/Wf13C+C2pljFmFoMRbAs7frzPh
KePKfY3bgajscaxoTyYT6FP5Xz5Oe6CVfn+Px/eYsARqHjOeOojPpopWdJ8J
Cab9fzuWlGDvj5977+Qz4e3nefXZI+eAuMGpjfOACcf76uMqxB0h6eBFGfvH
TJjyDyLwsYPhdmXm30tP8Pv1quTgjFkolGv2vDesYgJb22BflkE4NL4RLGA8
ZUKDGLfb3PFI6DZgB5NqmGCtxFr+uCYaJgeTDM48Z8LoNY6XcXEM/LV7o3j0
BY7Xj6E7tzXigP8nD7diPRPWOSUQ5x/Hg2QQ4ZNkA34f8rYIlv+XCCq8ocW7
m/B5D27zczyTBMSU2gj+V3g/0XsFx2U4cF5s2XjjaybsiuZjdmVx4Mr948qr
b3A+cxUdDsLzZqCSO8/PNiY8XpXf4n4Wz4NPSwa+tTPBoP1Ym1EqBrcJU+Vf
O/D1r//Rp/H8WP5WLu7TByaeS8/cW/2Ir5d6cW+piwltXe5/v+H584rXeSTy
iQmPjJ+ebWrGgPh6pketlwkXb1fb5Gfh/mxP1E/TfiaIt4RnNZti8NdVnD/o
MxO+FdAbvTdguP95LJ/zhQka/8kUyF/nQLkwnfBiiAmfpegBVwQ5kOQ4fOHr
CH5f/YJozX8Twa7Oz5d7nAmqL6VfluQmAFFw+9V9k0ygaspdp8nFw167gmLC
dya8nt/oGxEVCys1Gi3W00zIcKjc4Yvn+26BT8NRs0zoLvE3cfkcCWVWzv/y
fjBh5E7stb7+cLDbkq3ybZEJ+7+7BCXFBwPx4jG9zX9wff/k9K8z3B/2Pm61
PbDMhCy+s68fv/aCbpOVLKd/+P2MdI9a3WAPhCJD3oWNLGhoGLzyuuk8klgz
J7XzPxakHHPNMfSyRivs6DPHNrOg8F3/0tAxZ/RoucLNm58FZuIBFTLjPihR
Tzfx+jYWjK+GrzzEApHtnZG86h0sMD3BjOqLCUEStB0DK7tYwMnLD5BsiEAr
WYW/xURYcFNn/+bvVVHo4w/N7epiLNjZXM/ayolBj4g9B8z3sODIj7ZVRUIc
SsxwIYfsZUHH8oQV/8d4ZDvNY3FbigWSbsEXHmklIm3NnID6/SwIP2A/dCom
CUmkHU8flmFBdfvxo+vYHLQ80fZovTx+HpOqDfpvOKjrtHWrtCILlA5fKpk9
hKFH2N8x0kEWxNoGhBsGYChhJJXL9jALFjvLwuTLMWRzUlEsVpkF6/eeHBD9
gCHthPrjhSos2E4m6G3sx9CeL0asN8dYwKdgyRrA9WtJ5Yf91AkWLBgZKJfn
Y6grOiaK7xQLZqac5iod8P36JG4fOs2CE4Mpm1RF8P0OVz5jqLPgl7jottuP
OMgmXO+jiwYLkqIOSXqrcJB29+hcshYLIuyd7Gs1k9AexcDN5QQW+B4syZXH
9XwpaKdMJ4kFspe/y4wExqOu90UaixQWGBdK7G0fjkWlMtomQjosyFVLY/yV
iUHxfr2eJ3RZQGrgnC2kRiGbt66YIYMFr7K4WjT1IpC4163GG/osYPDtc0ni
CUHxjauHJUxxPNS3/91/wBGBy6iS2AW8nt+FBMNPlmhBpE1Z+CKO93GZdZJ9
BsjEJVNlhxUL/l7acK9TQBcOiKqd4HFgwcdPazLyz3nC10apk+udWMD9aD5h
3WtfSHPZpMrlwgKLjxtMlCSCYLWx59SKOwtc7IWOMR+GwSOXOrU/nixYuvbq
o15mBFiLFpxe9GbB2lnfWz/doqDNxUd91p8FLe9DP25qj4VQ0YswFYjjsbvZ
pYwZD8eayBqTwSy4/+fYe/eyBJh0Oaw5ForzIdM/5MV8ImSJ7tIaDmfB6wcD
59N5OMBq+qf1JZIFbvsDnSCCAxtcx7QHollwaU4yQ2eGA9Wibwm9sTj+I6GW
BCIGTk0VxO54Fmg+FfjYHIPBPtcsUmciC9pPGo/EVuF6IRpJ7uCw4MFoUf3Z
Tgzimxwob5Px/V8+lPoP91Pgepb6JpUFfz7lnsvG/dSC6GnaqzS8fqu6iVQJ
BnlN+3Qa01mwO76puRr3ayaum+n1GSzQf/HrXs4R3H+JLdDRTRYQoj0VpLs5
8LKpV7cmiwUYGFk+suWAt2u9XnUOC67IHPIMe5cEimKFjCe3WfD1TWVPS2Ei
DDYlM8vv4vxW+tYeYZEAqa6+rNJcnK95M2LSS3FAFrvEfpiH8/vZUrumSyyU
uiqdzSvC7/v9bUp/N0aBtdhug3sP8fuQoh/rqhABws1rzt0uYYG30z/61uNh
ECrWfv5mOQtcA0nCOnsCgdXsaMJ5hvfvMqdov98GNrgZmCbUsqBK3UrIJtQU
qsXOmMUiFnQudNe7KxHwe77FPPwlC/LVsrp3UIxRl9hP85BGFsxdUyUQNl1G
sc19FwObWfCu1zZyvaIz+iFWZOH9hgVRdrUVK2o+KLc5xdKjjQWtBmdzjDID
kJGbn5VrOwsq5qXMDk4Ho7pm6mX7D3h/r7ssC+fCkaebso1tFwuU0fDS3neR
SF5c2Na6mwXPcwJWhtOiUYrbhJ15H34fXh2fd22NQ8JEXxf2AN5/5oXwxiMJ
6PauTd7EQRa8LFFf4++biOS/3Qg8+RXXN4feQqWcJPSoRjFCcZgFT9VN6z8w
OUiVUxO3Z5QF1qdvMEdecNCLS7rJ28ZZQNVnKbzbgyHy0c/p6ydZoHGRN0f5
CobaNzpn//6G77fp9LbKO7if6lmT+22KBU/O1ujte4WhwSKsaGCGBULxM+91
8TxoEyRZ9m6OBbqoaF6qB0MzzLKql/Ms8LJK+HG3AUOe+7TRk584/vOxa8cz
MbS6+KGx4BcL4gX+SO+ywFDkK6vWzD8sWCXObvXYiSG+m4vvOct4P/kmr1mP
OSjNMaon7C8LpKWWHXdrcZCYxq4vnv/w83bo0WMCk9Dd7fljtmvZ8F1q1qRR
PxEpjp6cNuFmQ3WZmbPifwmovLJlQW89G2Ieu/rszYlDanHGy5ob2XDTstH9
wK5YRDscwCO3iQ0JWkP61MeRqIOLb6voFjZo891/u34gHBl1Zu3cupUNeq9t
nOVmQ5GdL5L8uY0NoeY5BiqPAlD0S+7TL4TZcLlJaO/xhcuI/1qqVrkoG8r1
ngW8CDBF12z3U++Ls6H4kPpO+igB5fKRziVIsoH2voERrGQEB798NA3ex4b+
enNOAdMaKspsLN2k8fNtL31m5+oEDedjXQzl2bCe8+fqutveoKMg4q2jyIYd
9L9abbP+8OFvYaD6QTaY/fA+tJcTDMO3W+P2K7MhsvLFkfSocLD3MEvepcKG
oaPtFbwWkTBPmknfdAyv/+3koTPS0cA1xZ87dxLvV8/luJ1JHMQ+v1U0fIoN
2wolboy9jgeBZOWyj6fZoJ5efeG4aCKkW9ZXtajj69vvW07RkkDiuD6q0WDD
uo/5doOKHMjjHWks0WKD1LXrjf//f4SH+zxa7xDYwJfIW1CwHoPKhxs+pJHY
sMuz0DvHAAP1kGs9MRQ2jO8Pim3H/VYjW/aLPw3HI7o69hfut3Slq8ac6GwI
4SlBo7jf6vpNmb6kh6/3ttQM78PA7HXPwlkmG+LqM/lft2IwmnllmcxmQ9Q0
TfR1IQYOzitr1c6yYeAe8Wi+J65/mgk8h86xIeuny9csPK/67xTfKmnIhjJT
D6ml9xxoLeU1Ujdmg2CR1l8BUw6I6/68a2LKBsmz5zh3bieB4+TgjM8FNhil
KfB/vJQIzyPfqF67yAbC6bCusyvxwC9VGVFuwYYXSfcSxp3jwPz5nfZ3Vmw4
rDQ9FlkXA1y/fa0327HB66jl0VvrI4GVal0qZ4/zIWrb1sHlMLhzmLVCdGSD
Q6c2uaA7BLRt5ZJDXNkgq8b7vf6WL0T1fKxZ9GXDheTyO05uJtDtWc+zI4AN
Jen9e1zyAWS3F7OVgtgwJz1hdiyfhFpokRNXwtig8tpt5MSsLRIed1GJicDr
/+l3WxlyQVfCTYNyo3D8gl66bqvyRJtrVHZ+icP5NhO18Qh3MDI1lDBfTWBD
a9taeauToejhz02FIhy8n5r+QPPz4WgV+/XzRDLez64VMxfTSKR3cAgMUtmQ
OnRaej0xGuW0tMW5pbHhaVWQ74OtsWjWurqLk84GJVFjS6nKOKTBnbv3YQZ+
HuNnR6mnE1ByNmb/+iYbsnfcUFXOTERDpwKejGexQWC3zWGRriSk0m3DteEW
G9YeiIRTbhwU7q5Pl7rDBo8XjGz3UQ7q5Id0uIe//+rhtLQ2hqQfKAyZ3sfx
OPX8Q08crkcUoYN++WwYfVy0rILnx6YRLp/0Qjb8vLA+cvEjhnaFTtc/foD3
19Vm9hfXN1vxHr73xWxY3j5rqY3rX3V1g+FsKRv0d1a7DGVj6L9zpXe3lLPB
sDdSdas5hoznb87IV+B8iry6Zfd/GCpKilYlV7KBtcXHzjGLg1YU3COsqtkw
5pPpmS7GQfTmC+2hz9hQ+kQ+05M/CWVZ0kRyatmwZ1bETr42Ac2sOW5dg/Dz
zY/DMiEeQaZkaU8dGwqer2U258eiL51/iDub2MCruZpVsSUKKbuOYMqv2DD9
lv3DeVsECuV716f3Gp9/h3cbeyUU7SPluca+ZYNz9v2q3B0ByH0opeb+O1wP
jhLoR2y8UUNQEE/De/z+y48O5d10Q9aVBln/PrJhpnxyw9MQC5Qvt77FfZAN
V8XfnJktsYQOUY1lh684P97mCrvNO8DK1gDFy8Ns0OnRWDWJdQPdxYVEw3G8
fu2NpSwrf/CeOIxYk2zwCwnrU8Hz460++znadzYkL68b9r8YCgt1w+wzs/j+
5l55hWciQbxCIuL4Dzb0Rb9qJPNGAynfpOLwAl4vXWSbalUMON9MH5NbZENL
y3n1HJ04yEj6sEvqNxt8ZLHipy/i4WUoP1V0iQ3cWgXm04KJMOWh47dzBedn
U31lDTUJBG2ji/hW2ZAmLrdz8gAHwORl/8Y1+lD0MfFcyF0O2Omt2bqWSx/e
j6pvvsWDQYqmGixx68P9QxW7ewwxeHbU22V+vT6o/w260HEN1x/Z8tvfN+rD
hUoNYUId7p9EZ9+P8OrDzRWuw9yfMDi5VXH95036EGXlajmP58VLXDbHurfo
g/u2Ufdtr3H/9vPO5Xdb9aHm7R8Rt1wMKsY/p7cI6EPnl8aV044YfO4Vaanf
rg/rQ994lEpiwPP23PKznfpgu/2p8d6XHFCuS1GsENIHmc+ONxdZHDB5/Na0
eLc+nNjNfdU0Owki8jYl5Ynow/CWMaknHonw8AYJ3RLTB7EvWw9oyydAd2LY
XMYefeD/tdnHvTYOuEKfS6bu1QfzDaZVvUdiQcFjmZ0gpQ9WyX7Nh+KjIdDY
rSJIRh/Wle3i3jkVDnm6xWPecvowKC30reBPKLzT+LbLVUEf3vpcvKc8Fwz7
ZC38LA/pw8WLeVus9H1AVyS7yFRJHw59kHR6P+gOXny9/QZH9IE2xb9dyMAZ
WhZYQDmuD2OGTnL2p03A6YXm+oPq+rBMWUd7ZHkZpZcHHpPR0IfIGh8xup4z
qrtffVlCSx/2R+zYLtvjjnYkKrdsI+lDrNEpZti9AHQmxHF5EwU/j8rXSgnc
n112L1BcT9MH6+rFmIrFUFRtJJn0S1cfei6JKFxrjETDdDM0y9CHfT+3S9yP
iUZbNDLmJlj6cHzv6Xf+SrHomEqX5JC+Phx4dfeHxrM4ZC6zTb/PQB+4j3K8
QTYBxQrrRnSe14eMj/EBw26JqGxLbEWbkT4gv5tctZlJqG9N41iTiT48f96g
pcHioA0La3e/MNMHpX+dalH1HPS7JD1x2Bzn1xGPm1pyGPrmcGgdj4U+ZFbc
uHvHG0MD8o0+ClY4n67l/6+iM4+H6v3iuEpJUSKJJEmSLGVPi6NFSCJzl8qe
LMm+RfZtLMPMFaWSKKKSLCHr90lSUkiIshSKLBEJJX739+fzujPPfc45n/O+
5/Oaec0MaRfQ89ug2biRPQOaL/tmNbZQqCZzytbDkQFCPJ5bpWk/WWwd+zHZ
iQE3e659VW6mUI7EVuMyZ/o8a/82rs6l0I1PpS+6XOn6z7+b7XajECvFaB+X
B62ni+uCf0tQKBj7mr/NiwE9z3+JohIO8hAMkDnmw4BImEis0eQg2ybB1AuX
GLBtIGrHkeNshLPur0vwZ8DYkHTG/vl4pK8PzIIABqQd3Su+LYqF9q/4MN8a
xIBOr9xVvcOxSPG5s8dsCAME/+Ydj5aPQZIh3EObwhnw4kCQu+0JJhI6cNNc
O5LWx9NbDf20n5wteaUXFcOA9SN9r05yh6KaB9u2rE9kgMP5yUOmP5zRE/vy
JI0kBtyR4JjuHziHsqVNVp29yoC+vbM3vEJMESstaDrjBgP0Hj4LAx0M8MTO
BqW7DKiDJ3ElO/1A76SbjmkWA74b7D612B0I+/h4Sn2yGWBr5o3y1EJBsf6W
/I37DNhv+8/k5/lwkIxSvVP1kAF8psyzYwGRIHi4QeTLIwbMFn2t/+7LhOVc
NvHc+XT+NyosP8WIgdnK2aWyhQxoqXc/UbY2Dob92JeOP2HAguDN/u5sFnSp
y/xwKWGAt47in4diCdA0VXku8SkDsrz3XwA7NtTkm3YWlzOAS80nyfsIB544
Dxt1VjLgxLRaVQriwD250Nr5appHlcXjgzIUXB8U0ZJ8xoCSeOPubnoeYmXm
PT78nM43tQEXpP1gkPXR7fYvGFC6OaFZq4UCN4muG7EvGaAa0/JajvaT5z55
COTVM0BOKZH7/58/4im8Ue8a6Hik0indRxToYel/f72l84EveZHvQYGWoIb7
xmZaf0zOL4utFCg0vf22r4XuZzZTuKKMA5IsWzPLVvr6f67Khvs5IKj/911Y
OwMCt53xcTJlA/eKxGP3OhjAoyJk5bw8AWZqZKvqP9Lx8D0yMeGwYDj4P+Wx
Lga47Wv0+DcdC1378RyBXgZc5s9zjNaMgaa50c2qX2heqbrfUT/DhJqS8CtE
PwOKlfvO+JpHQvbugqC0QQb0x26W2C0UCi7CP+dKvzOgcf+5UOncQFD9s9v7
3QgDEqkjQZl8foCe5ztxTzBgxcZPAe7DLtCB55MXZhngkcx6mlFjgtL2TbwP
/8MAn8o5n9oPNshWcvfJW/MM8PXPKo0vuYgmvj8+2syFwSv5Tzpd/3xRSeM4
+r4UA8Fplx1TmQEooEhp/7LlGGSpa+9cmRSCVgY+VlbnxWBIzcxmqi0CNVqP
Pzq5GoMNKnI7ZpqjUJKu0k5HfgzyyyxWmj6ORmd2uWaGrcXgzrp/+/JcYpGk
wOMtqesw+PVqyVA7Hwt9+/XjRrEQBi+Bd6CWGY9yOxU3NAljUNmZopvanYA8
ql2oIREM/DY5dRMrOEjzbh7fUjEMRn73nHgWw0ELzB/MTeIYiO0Rczw/y0G1
FxWXqUlgEKT+Zm+ZCYViTVyCjCQxmGXZsw2TKWSsnjdnL4XBMB9v3OsaCm3Y
9MMrVBoD0ZC1q/50UqhrUWHihgwGN2u7x6po/3hnwNnpiSwGUQxnEKb9o0P9
o29v5TA4ciRcbdN1CinmjVkPymPwXTlqJQ9BoV+JCt1cShgkrpcs3bXIQeW+
zqTYHgzaZ5Zen6E4KMTs0XsVFQzSck3bptZykK7OmNEJNQxWPmm+yJxKQHwy
Cq/tNDA4WGFXdiw9HrWscj4ashcDIe6nd1t2sFDKeC66vo/Ov7L5Hy5WLLJo
Hd1XdACDxhUO0x8ao5F0mXzpG20MIgQbcqMmo1B+WO6jxcMYDLaFOw59DUM+
9qOyoroY1BxzMCsoD0H7DeUzlfUwuNi/n2f8VwB6JZx747whBmWNBfI1LE+U
8GdEONgIg9EfzwWKrJ0Ro3cXlWKMAW9Dy8KfiHPoc85DZgMDg6MqC/31lnww
u++h1x5zen+l41Pv5zyhWnJk3MASg0cTx0dKyy9BxPJdTrbWGIRy6X9jmQWC
QNMD62vnMZjaaug+JxwO7UXDXfn2GLSO8Kbv3RFJz1Vy5GtHDGSZB28PbWbC
TpsHRv+cMZB4aif3sSAWXt3Syp90pc/7atpYZzcL7Dpfrxtyx8A9IcWnkx0P
y4XPenZ70nq2HGdINSVApvFIa4s3Br3dBdPVo2w4zLqs/soXAw3nVSkVnhzo
e7k6pcqPPn/g3yDxXg6ELkudK7xMx3/v8Xs+TQokteXP5gRiIKcSbr0riIL/
/CsrbwVjkNThELmrgPZ/JYYSV0IxcDXLDW2jeTT/sys4OhwDt8ye8hU0r24q
OH8JjMRAPiOnu6CN5pHjv0OeTDqe8rNjPeUUdGTGZzrEYHDmndK+hywKfD9v
XmERh4Gxq6au/nEKNojn2ZvG03rYohrBNcOBYuJgvR6b3l/fQ0iBwwHGlUa5
gxQGyj+kcW0RDkw2WrBUrmDwLmrjuI8oG6hV42OyyXS+ZrhL3fviYbdu8EmJ
a/RzZtfqyZpYFjSGri0Quo6Bz5oh6BOKA745Ja+FVAwuZZ3GBZuY8FAVtU2l
YbCo3v+kmDsKDNyMNb6nY7DbLNFVTyoCmINuf95nYrBArhWlNofA0vaCkPu5
GGg1jgQtGDlDxrpDfWl5GKgLlRyLFbcFONFyOCmfPt8NmFDLwSCwdnJF8BMM
VjVcazMgT6LZQpV4RuX/9yvf5LTXB1378fyHfjUGNt5n/e6k+iN1OYaxNqL1
9EJ07nlfEPLM8BKSq8VA0YfL71ZYOBLs5vbeUofBePjHPfjFSJS/Mbl9/SsM
zDDR5syDTPSDXXx9sQEDi3oYlE2ORfENR+nnBQYOFrUuT4VZSJ6n3Wy4CYND
+nenk33j0etDdtW97zDguyNYfrAsATkG/d7S9p7u3wkbBdNONlpZHhX6ug0D
R2EJLUMnDro3vaH/vw8YGCZa9M5/4KCje7KPFHdikLMxvOKIMoUGLmrce/AJ
AyNlD6lnfhQKz3nJk95N8+gtmtyWRyGpAcIxuRcD37oNIypNFHq2Zeh17BcM
KnJqht50Ucjq7CX5kH4MgtU0135up9Di1ZUJ3l9pHlwx6vCk/WRaS8r4hUEM
Iq3k+TM5FNq/ZqeJ1XcMDph/z84wptAn/bJCbAQDtfEVaYX/OOjQyUzSewyD
/oz14m8TOOgBg72QNI5B/dzJLRmrOEjwjH/mk58YrEjsmcnvT0D+lucNWqdo
vTaZc7vGxqM+W+OJqWmar33S3JqrWcjgwr6rQrMYxL2tNZu1j0Vi3uv6Ts1j
wOb+7j9dFYXC/OeZHgsYvIncGD5YEYGGgwcVErlwOO/bbKZ2OwyVxVb5vePG
wfEbFlSpE4DIdMd1xvw4+C9z6ItjWSOUxSh1XYuDs2Bj8KGPJ5DsQ21z9joc
VLctGvPpqcFssfD9RmEcRvkjtQab7cCqguvkDxEcIhWLLB9YusErNPKLXwyH
99sWND7oeMO1hmdwQgIHZv6rRvG8IFhozv12URIH6xdti3xXQ8Gu/RqLJUVf
vzLc5VEdDo2fwpRzpXEIQoHq/m8jQf2Lc0eDDA5alF53IGJC2jcyaEQWhz35
SzLmk2Jgxehh6dW7cBj4si86VS8OXH4qvpZTwOH04y9tCp0saP8t6maghIOR
/MWOR0cS4OA894YLe3CYeaoZrB/DhntLJipiVHD4vIB1Pqb91BqeT9b31XAY
DFlb8qyBAz58dTz1GvT9ej1eHFSioGddwaOhvTjEHV6lnB1Aga5IqunK/Tg0
nQiNvFZEQZ44c27HQRwu97vL1r+nQFjK4/YxwGGzycYqQZpXATvMj9ofwmHZ
bn+GQxMFA/J6I1FHcMh8URH46QEFhsoq1D1dHOR2cpRuulLwRENCo04Ph95d
X+KmNlMgfoC3+6sBHU/CfOCJEg5EHPoVtvwEDg0qtSqKezkweqxXdvtJHN6K
bv560YgNjBOvG4+Y4HBERYY6vDQBKk8Ve9ma4rDQ36ERx2aBNJkuFoHhIDj7
erfkbCz8svGxe34ah2d+ZTdZ55hg5mDN138WB3Zd/ot/FyKh1tmwcKkFXZ+v
1199x8PhyiWpBR0bHMTOz48vaQyEP4H8mda2OPB0WFr8t9UPbMJn9UPtcJA6
Vr1UGfMC5YTGZHQBB/F+8YzlQ7bQctdfQdsThwNxXleEfc8hQa6SMi1vHLS1
/3mqvbqITM1+HlX3xeHD7bkQ1rwHal3vYKFwGQeRENGZq0OXkbD73WHZQBx4
DT++2CgagvC3PT7SwTgk/Ar269kVhj5EYuxN4TjYPVZaJykYhTb2cTaJROLQ
05o7cuALE5EH32QLMmn9br7OdSs5Bl2/waO6JgaHS5O3kxgKcejj70OINw4H
GwkJ7tR7LCRmGmS4PB6HK7qcmjeL8ejs47IOLjYOKhvfq9hqsFHq6mnbeQ6t
FxaVt1SGg7rsd/+cScTh4s2/agfSOEi81ilwKgmH+ztCVn5aRiFzyWze8av0
eYIH8As4zZeAvuThFBxyuFruJ9DzVU/HZqlvN3A4is7rL3lGIQm103lfUun8
VdqyqA4KWVJJWt1pOGS0VKzZTvMrfaypriOd7ueQNU2lDRT6rL/atPUODpVH
VVTMsikkeU+3tymT1ltuypSWK4Wsl4Y5NdzDQWLFg7HEbfR8ZlE1U5dDv/+n
XffTWg7qK58Nr3mAgz0zYGGDKQdtE1EVqM7FgfM9Se50GhvZerqmluXhcI9d
iMRo/5vZ9EC2OB+HacnnX59tj0dfd317kl+Iw5pTWpPPS+OQTPRWndwnOBCV
jo3lcrHIbsDsbXYJHY+K445zIdFoKPX917RyHMJ5tq42/xSBZOfWeNyoxOGJ
qjTn+UAYcsQMFpKrcVidrvSLqzMEDfM/2xBfg8Nrn3fNwRv8kNyF+TvRtbS+
dZI6ZVK9kFOdhlJEHQ5ekwpZT1e5odGgvGOXX9O8WBWRlNZ1Bv0Yv3nJsQUH
293hD6u1HUDR8AP3+Va6H25wrFqRG7jmCFJW7Tg8qqmbXX7SGyasYu4TH2ke
qZivficRBHuqatVMu3AQfivNo7srFDxEuWqMemg9vLnfM6QSDlPvfD4e7aPz
bWWs6b+UCaqKhXY6AzicSazX3F4bDV6xY5P7v+FwrNH/lNCFWCj+JhusOYQD
3pr522kyDn4fsl2tOoyDX3PFU9+z8aB++/Y1pVEcGofjte7cTQDfvx+37fpB
8+aRzM/L9Wx4SmzIl5nAYWRu7+fu8xzal5rsl5qk81s6rpbeygE+TfVGoV90
/BH/cb4r0vNXpZjV8t84yMyYjBTRflEVFn/+nsFhZ5P0YsFD2u/V9ocPzeFw
UDvn2YO3FJjpvRL++BcHlx1ZGX5dtH98k5vd8A+HPxHX89Z0UBBhTO2tWsTh
dunn+y6I9qOt3g15SwjI3pa8pCiZ5iN5xjx9GQHST3YX85IU1HQdHKeWExBT
xCtdzENBu9W20HAeAkR0v7xYncWB4QEeIW9eAkRdmt/67ubAgsNopt1qAiY4
465jDDYIjjWrk/wE+It+jNizIwFk3Itf6a8lQN99/C4XzX+t6etn9q0joJ47
OqrGKQ6M/IJG5YUISPbnnOL6EgM2/2yCJIQJMNh5ZspGKxpil8vfWSJKAJdL
p01jegSkxQioTokRkPPERqm0IAwK+adfDIgToGfESg/JC4FPwtXfX0rS6yMF
Mt+GLsHE9TuXy6QIMFo5n2oS4QXcEkz+h9IEKClu983mdQN5GeM9CbIE2In0
8D9NPgsB6n2XGLsJaA2RUbGUtUec8rpVusoEJGk5r27d4oYyDz5M1VCl468p
0dt8wwu90fVCYpoEnMUgweVYIPr8mjzFp/X//Xe8ZD8NQb+MDgz820dAA7Af
OlSEoc3EipVftAmo5D17IzosCil/Gr7eokPA88PV6dWHopGuZdOu2sME3P6y
xvbDUAw6019UVXyUgMh3JXF8nnHIxT7lZPYxAureadQW97JQ2EjAlxR9Au6Z
DzMNFBLQVVdrz9jjBCgUhbw4d4aNHkwdXR5wgoCryYcLepQ5qNpX7przSQIS
vku+2ZTNQS1/1+y0NKHrPVi6/iIvhb4FT5UbmxJwJep96fnTFPqzrMPwEEZA
i+KV24VXKbQmurJHhSCg4Mz6ZgGaf1J8GW7bTxOwca1f3imaf+qcyKUiZwnY
VLqwx5Lmn8H6C0krzQn4GTexsOcthSxSjGT+WBAwxCSd6Ocr8hBXeTpiRcCd
D47OId4UikoXMei2IWCxpNTzjAKFbkjPf2q0JWBJ/LkdpS0clJfz2RnZEfDh
XcTG2fMcVCP/YrHAgYBVXvoPpJvYqD3/PnX3AgFtNoHtm/IT0LBqwrbkiwQU
R9/IXeUWjxafehRHuRAgu39pob4AC3WtKIy740bfD1/WEuMWi8oZP62rPQgw
K+R3N6D9vdeE65rfPgQcH3ePPP0uApkcfDywzo8AwuW8SkJZGFJk/ShXuEzr
3YmZyhsbgoZ2ONufDyZgjFx1aXmPL3rhnXsgNJQAHWTomyvoie48HxG6FU7A
oWsl1CmLi8jc8gJqZRJQlDCQvKLPGLVctRc9wiFAil+van2EKzweuDdumUjA
MfuZ8IA0L2Apf3txOYmAlyHeXE1WfjSnbD2KUggINR55ytYOBWnxTL2mG3T9
PX9PvbQPh6UX+iVGUgkQ6D6pcME3EiqX2zRIZdDxUiUbbh2KgeumGRkH7xIw
6SB0wnIuFnwyPvueyaLz14ll/Ypngen4FiOfbALQ2XtMswXaTx2wlE68T/dv
mqRyrR4b+OPS/jx6SIBz/MaIWjWaDx3dzfWP6PO6+J26VciBVzKbs78+JiDl
3W/cSIyCLC+zwCWFBHh4T+5hXKQgrOam6eYnBJgI9Mzo5lBgJfBp594SAqo3
fn3ykebbAQsxLuwpAc0uO9720nwTyz3d7lZOQM/cqr2HaX85M5eSy6okYK6R
uLWmlILWYx1hOdUExDK4tB3CKChIFjldiwjQ7slsSdSgIKEfV/pcQ8CMgoDs
WDsHnPZcXT5fS8DgD5HCn1Yc0Atu+yTyko63eLLdKZcNMm/XF6rU0/pTGlN+
75IAyzYxok82EMAfqv/x4ap4+OxwxcLpLb324+UtC42D6pIWVWYTASrFptdH
22Lg0imTL9XvCfj9Fzd3kIgCLJ1T+rGNAB6+UTE7kQjaxzbF//5A98+xc/j4
71AYizHSUuwiYMtM8HOB7/5g8+z4lVsDBNzXWN6U12UO2mvjHMu+0fxpD20S
v3kYxM1fa7cNEcDtU8H79+YR1D6rN8o3RgCLiioGKUd0fLfu0YBpAtZ1tOto
pwYjrra2JV4zBHyK/uBwvTcUlfidr3aao9fNGWpnu8PRRYlp/3N/6Xzdms9U
fhGJpJ5HaJz9R+8XrRC2PJmJOuzX/zq1SMcb3yLSahCDEvgy8w2WkCB1ycm2
YiAWHSlQcT60jIScUU2lGSsW+oM936m1nIShJdv/9lfFo/w/p77t4SHh/FZ2
G9efBGR3u+/OTl4SVhwJCp7lpeexIx6WW1eTUOU9WnwwkubT0BJxUX4SRC2b
+I//4KDoeKpDYC0Juw/73Ll/hEIHlbcmr1xH0npJk/vLpNCv9nwTLiESNspQ
1tOlFHpwGdbMridBLnHD6XOttJ+UbH49voGEAeaHou3dFNrwwpI5uJGE+KC5
l8otFHrjOH64V4yEGP+X968WUShsTTDXB3ESVMItJDz//38cRWuqGiVI6F5y
0WdxH4V+EGl+dZIkzGzbYRLdz0GZ8wrq1VIktCS9OuZ6iYPOZFRNFkuTMHWr
Yhn2m40EdE88fiRDAjOr+3x0RwKqG+5yypIloXIzH/eTlHgUwL4oe0uOhMd2
kaWamiykrDo/kCRPwofrFyxvPo1FQx1xGSxFEkRay1XCN8WgtMBNFhG7SdjS
6ThZasNEvC+1PniqkjAcs/RjVVY4qnZ6fcVJnYTtg+r1eVmhyEvgjPE5TRJu
pKkcPSkdjD6f9qs/tZ+EQp8rxz55+qCno6UVe46Q8KtuUnarnjFyoY5d2qlL
gpLQwRDjpm0grf5BdaseCc+frRnbuxcDTvDvRwKGJJhFt2wJV3QGB0G19HFT
Er5ceTehJBkCEqW1ZoMYne91PGMNimHQepYh2kuQ0PrPO4HcGQGxXANt7adJ
EPtVM3+PPwogyzOx8SwJm1Xufk/vZMJv/WUn68xJqNBi9BjExUDuj8TV1ZYk
cLv7ONVJxoHNFalXxdb/f/0XTUYKCzZqFkY8OkdCze+dU9hEPDR26ehknaf1
wVe93ngHGyJC3/1LtSdhATteO72ZA1oy1uVJjvQ63yzx8lUOTLye8GE50et7
7oFP5jlwzzVEJcKZBM/P09VKxvS8tV5g4rIrCaB74gDFoUCw7HaupzsJ/5Dr
T6qKgpfmSo5OniR89jqqxvWBvn7OoeKWNwmGZXqJ2/7//QmHDP5mXxIunP72
vuwVBQ+cP1ou9af1jDXc706l4LeHUKFqAAlZpW8tGuh57NAlQ277IBJseVdH
fabPEx8YiV8PofPL0PW/GcOBjrDqnIYwEjZtdrZSW2SDdPT/fyaJrvdJhzKN
/xLALX73id1MEiRc+nqnGfFQkeh42yaGBG+3o43WNXGwIuXOz6Q4EnYOe41m
8sbCqVufDr+MJ+GmgYDIZoVoSLuz/uocmwRtuG5xWikKvmefGNqVSMJXsZmw
DUIREFL4H4tzlYRZt96lOcLB8KZ0tqcmhQS25s50CQN/EKnas2f6BgnNz7Rz
3M94Q97Lu22nb9P9IgdXpkztoLuLKbEth4RawaL16k7nkGwfcsMekJBro6Qp
XemMvAbnapi5ND9mQmREJz0R36ST/Wg+CU4ZDwMEngUiciazTKKIBNwoMuaQ
Rii6O9+92qSYhL1XN1md8glHWjzG+cVltN4ySacDGUwUxRezdKiChKQUt7/m
zBj0bl0NQ6yarmfvz0d2BnFIXOTvPUNEwn89g0EjgyzkIK46F1RDQsJJq/ki
8wT0ZKvz8YJaElRD20yr77MR1457t/rrSHCW1Fm1lZ5HDOV7x4XrSdigfsGk
s4eDru3ZeEivgQSD9qZcKx0K9ambJPm/JUHWa91DJRaFFPfHfsttouu/RNWn
t5pC/jrPNXvfkbBn5aKVXCeF6nTnY9e1krD+Ua3u6EcKCRqqdR9up/t9UKBK
qpb2qyYuSj4dJLTf/7thLIlCOXh2aM5HWu8XRLVYJ2genv38/mMX/XqNo0dt
aH6CtagMfy8Jn/5U8076clCc3alL2l/ofL7Iy6tso+cnp7jX7v00Dzfp7G1h
JyAp91rxzK8kPX/nPR3YEo9cfP65tA+SEJD5dXKMGYfKL6s/WzlMwtJXPKUS
r2OQSVTOeecfJOw6FPmj/FskSo37Unp7gq53RUNhUF04GuKIrWqZJIEI69YX
igtFITdZeeozJJh3y6rLp/mhN+kvuBznaD69L2nge+CFRO4tnLr5l4S/gmX1
q1Rckc1Djay3/0hwa0ikNg7aorx8t5nFRXo/v4CB1nkG+h94cF+y
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  Method->{},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.5940178142322435`*^9, 3.594017845966666*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitSemPesos", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{
    RowBox[{"dados", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"\[Omega]", " ", "t"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Alpha]", ",", "1000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", "0.06"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", "t", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5940178567323103`*^9, 3.594017877263591*^9}, {
  3.594019806841358*^9, 3.594019809872613*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"1312.382445214807`", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"0.06095144553411952`", " ", "t"}], "]"}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`\[Alpha] -> 
      1312.382445214807, $CellContext`\[Omega] -> 
      0.06095144553411952}, {{$CellContext`t}, {$CellContext`\[Alpha] 
       Sin[$CellContext`t $CellContext`\[Omega]]}}}, {1}, {{0, 490}, {33, 
    1400}, {67, -850}, {100, -130}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`t, $CellContext`\[Alpha], \
$CellContext`\[Omega]}, #], {HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{3.594017878982342*^9, 3.594019810919485*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitSemPesos", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.5940198279820147`*^9, 3.5940198397476573`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"\[Alpha]", "1312.382445214807`", "337.5585945038487`", 
      "3.8878655930647428`", "0.060241069490126975`"},
     {"\[Omega]", "0.06095144553411952`", "0.0029574158516477663`", 
      "20.60969731401134`", "0.0023459913224165296`"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{3.5940198402320304`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"graficoDados", ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"fitSemPesos", "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.594017901263627*^9, 3.594017902607379*^9}, {
  3.59401981490387*^9, 3.5940198169663725`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0.24720000000000014`, 0.24, 0.6], 
     PointBox[{{0., 490.}, {33., 1400.}, {67., -850.}, {
      100., -130.}}], {{LineBox[{{0., 700.}, {0., 280.}}], 
       LineBox[{Offset[{1.5, 0}, {0., 700.}], Offset[{-1.5, 0}, {0., 700.}]}],
        LineBox[{
        Offset[{1.5, 0}, {0., 280.}], Offset[{-1.5, 0}, {0., 280.}]}]}, {
       LineBox[{{33., 1800.}, {33., 1000.}}], 
       LineBox[{
        Offset[{1.5, 0}, {33., 1800.}], Offset[{-1.5, 0}, {33., 1800.}]}], 
       LineBox[{
        Offset[{1.5, 0}, {33., 1000.}], Offset[{-1.5, 0}, {33., 1000.}]}]}, {
       LineBox[{{67., -500.}, {67., -1200.}}], 
       LineBox[{
        Offset[{1.5, 0}, {67., -500.}], Offset[{-1.5, 0}, {67., -500.}]}], 
       LineBox[{
        Offset[{1.5, 0}, {67., -1200.}], 
         Offset[{-1.5, 0}, {67., -1200.}]}]}, {
       LineBox[{{100., 90.}, {100., -350.}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 90.}], Offset[{-1.5, 0}, {100., 90.}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., -350.}], 
         Offset[{-1.5, 0}, {100., -350.}]}]}}}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VN8fB3Ap1DdaFMqSQlmy72P9RJaSZeYOpiQqIvu+ZU9IwszcIiFb
G4VCSeLYWhQJbSpljShbIUq/8/trntfznHnOOfd8Pu9z745jvjRXTg4OjvIV
HBz//5VI/1uUt63RwE7Bf3el607D+6tlxb3drxgOLD6KrMtfCY1hZcUy7uWG
0j7z/un5m+Cxsr8bt3uDYVbGu3X++ZLwNLXL/JfbS0NukYwTRvlq8Ezn9IMJ
t8+Gl2P3UG5fMYY25gf/UbdJw4xsup1nLgH7H/FYjbj9M9TND670IY9DO5/m
mlWOG6Drou1coX4QGKWboOvWW2C70PNgvrtR4Kq0yKfCtx1kjjyoSjU5DZay
rtOCZlLwOfrRBHdzEtztiQp+pi0DPAnH3QwvnQNdfrnyVTHy0KFRIypvlQ4d
Kw49a0+XBzep6WvVDungPH128GK+PKwz9vmjeTIdEjrHhGSb5EHAfPPS9gQ8
Pu1mrCWXAuzLKxxiPsDj18rSLp5TAJs7BooBGzMgYZXML+ksRZjwfzd/KTQD
3JZYuVcZypB5fLluQJMJpNVEc7izMuTbbJtQ0WMCKjD5ZumuDIIv8xSj9jBh
i/mC5lyoMuzYODXKc4AJT0nHTtNMZeB7arHxhzMTZBVlVo6+Vgb73TnSf84y
Ydz5kbscoQIXmC+shd7j/1cJpi8fUgG3uaxrI5+YsJfHr7rrmAq4avwcvzPA
hJzbEpynAlSA9FrU15tgwoHFpMvPmSoQOTz5RfwfE26zaR1enSrQH9qnKiHF
At/HX9XKLVWB0rFQu9aTBQhuecrbqcLOnHNOlb4s2PDQr+jmEVUQsz2z2S6I
BRXlv/mLfVUhYfl+SWoUC2ay1s5kMVVBl3nbtT6dBSGeShXxr1VhyLeTW62S
BZEbQuXtHNXAO669mTHHghcpui7drmqg4xwu7bzIAjEujhwbHzWozfIMObbM
gvrfyWstYtRg7PD7V/bcbOAYzP5mWKAGah4SR7kE2XC6uv6G7LAaVH2QXvBQ
Z0PKIe6df73UgVa6xHXQmw0GyrxzY0HqELZj58l4PzZMc/E/eROpDqYHdxhf
D2QD447YyYpUdUiZKGIMhrNh52qN28dvqYP7hpRfUolsQNXHNdrG1aH7xlZG
ey4b5jY0mmR6aMBhDXXOsmdsKBl5LJgQoAE8jJDRvS/Y4Fj34qtfhAbslZVQ
ftvBhha3d2f3p2jAvSRq//duNjDrJ9v/3tQA/oDE2sFPbJD32mbnMqYBZaVp
T6am2HD8yakTKu6a4DgvH5O6iQQXvV1Wc76asLX1P+8EARJO3OnUeBiqCYoJ
8+9DhUhwv7yTyyRJE8z7DZSoIiT4+L4sYlzTBOafhIftEiRECEn2xwxpAsc7
w+XvyiREprY/3TuhCfJSLSW5qiRErQirWPNTE97Mdr40VychdvxFDHulFjD+
ccUztUhIbAjZdl1CC6w+FkVO6JPAcmtz6HDWgrmPGpFP95FAfgwyZrtrwdiH
C4lKFiRcoIrvZvhpQef40krWARKydIMW+2O0IP9Art0+axLy1m+79CtPC2IK
m2lxdBLyE57G1l7TgmXyw0SzLQkFvwPcY8q0INEoe36FPQnFg0+01tRrwY20
SUe/gySU3Pd/I/pJCziDvU8IHiHhlrxoff+QFrAKpKPVnUi4XfD46rUJLRAp
9lhl5UxCxTmRYOU/WtB+K90h8BgJ95xaN+0V0YaAujKFpBMk1PT4Lq2W1AZZ
xxWVsW4kPNgnPNgupw2rojmuBruTUKfme9deRxsqmbIdVA8SGnm2Uj0PasOu
e65K3d4kjBQp7n9/VBsWLonPP/AhgRf2Gpt5aEN+5spDl31JYIT5akie0gZH
K8cpS38SJkdbt37I0YbPPkoHA4JI2HzmA/++q9rgNcnzUyGYBJ0d02vv39YG
bj87mSHsxIOiy6x6bXgQdvEwhJIg1hYwsP+LNtjef/DjfjgJRieSP9SMasOf
A9Y25hG4HjjzenZNa0MsN+f+buwqnWePOTkpEMlS4Hp/ioTeN30Nfv9RYKvl
0cdEJAkcgT9r+vgp8G1JWvwZtkWpeGmtJAWcamcvFkWR4GemUSwjT4EBsYbq
1dEkXBzcn3tRnQIeYiWe7th1Mc4XV+lToCvock0T9oBISHqACQUyLE/lCMWQ
sLrmXPIXSwo8MlATcsNWpBfEWdlRYJtlmcwdbPrUvYi6IxTYOf6u8xd2eOqL
QDk3Cswt5K/XiMX1IjPgleVLgYCWX0M+2C0t867cYRRQW/PUpgj7mzOfU1As
BTKn1hBd2Bv+SjAGkinQsLF8fAlb85I21YZJgQv+t4S3x5G4b63211+iQEf8
wmcD7PhXx43lCykwvvOcLgP7une4XnYJBQxvOip4Yb9Yk66xupICE089qiOw
Z64WK4Y8pMBYWVn3aewtRrXSQ80U+DezKzkJ26Dv5XbaCwq0Z3d1ncF2iRje
inoo0Lr1bmU0dorgEr/iJwooUZ/IBWBX3N3AmzNMgV0ZAtrO2K+tdnH994MC
WeyCD+bYi990l0PnKGCW6C8gj709iTo/vEyBFo7zw2uwTSXdpggeHfBZ89di
AO/XqyFyrHE99uYX5tXYLAfWgNIWHahbyf0xHrtm/vqH3O06sEG6hssCu4/9
qGetrA6M6k638mGvVO5uD1fRgRjvRtHn+DxkXow+/krRged0nf9OY1u5LzfY
GulA6IJPmgZ2dr7sXRVCB9ZXHXFIweeP9AxLrzjoQNlf02J57JF39GI+Fx3g
czNJeIbrSWVj7MWxIB3YfffHmllcb7Wr38o8idSBu6rr2UnYRhyKD4sT8HjB
5yeEsOmTHz47kTpwTSfqhwyu348jqgH6OTogblFSWILr27Xv7CqRYh14ffhL
gTR2SLuW7JtKHVi9pj9uE+6Pfy1pDysf6oCN8Pix+DASkuuGLZnNOnBMOCp9
AvfTpVJ2wIFuHeh+0Pz8bgiu57OTD5tmsFsHe7hxf5rEmVrlL+qA1FpFQZtA
EjrCcr9EceqCPIdqMRlAwmc3Cy4Kvy7MHN18fT3ub07T61blKrog5KBv2Y7z
wZzTqf+yny6EXI4ydcN58+p3dWB4mC6IH5g+6epKwqFpXm77WF3YcJr66YgL
CZ5fauX4M3ShdP5ZlTHOq7R6waDkcl3oCglTeO1IQk9EB3fwD104+8AwVgjn
p2PAzku0OV2Y+Cre2EbDz/tk5G7lZV24AWp24VQS5hlyNuN8elBYIxf91IoE
Ya3ES0cV9GB1h0iHIs5v51l9eSsvPdCMO31fBOc7Hz9HZ0+QHkSOnVs4qovP
R7kp0CFKD+TyPjYVUnBe+Zg+dE/TA85I3V+bNEl4Omq1/3SFHgglxfVVKZKg
3OfkXvNTD2TmMtWnt5Hw6c8OXsO/ekBrWDT5IorrX2SovJVLH0a/DIw+EyZh
iOE+3yWoDxc/nxlOFcT3Rbdf4ndtfXj3SLftFR/Op2dxxRJR+uCz9vAT+yU2
3P5qbH7zjD6coHzXmlpgwyFu7gmlNDx+b43x6Tk2VBmnqOlf0QcxhRylS9Ns
cK9nNdk36oOLtZVnwlc2dFYWfUnlMgCbshreg11sKMhrFZ0/bwDKIRcEOYrZ
kHNY/q3tRQNAXoX1S/lsyBJmM6vyDOBE7Zv9M/j+T7vozB1QbgAr+b/wd2ay
ISJtaXKi0wA+8o+HWp1jAy1apXlgkyF8qhqxtPdnw6ojuSc7LhnCljfDilco
bPgnskpKodAQzFJS/i5osGHxvUffuRJDcL+g/MJSlQ1TttrEvoeGwG4ivEfl
2PDRsluv5aMhyD1c1dsvwobevFWrP60H+M7XQhn5w4LKNJ0PXTSAnQs8enoP
WXDs8jquWjuAWEVLtOc+C/hvDCgWHALINlrgMcbvX36NKfG+xwCWeMSHtUtZ
IP+zV5Y3AECyUX9qOpsFxQdPhZkwAZS67Ldmh7OAlKoTqHkJMDB9yfWZGguC
avVtcg/sgVMrf/t+vMyE6kNPON/b7IGMlWaD3heZMLdoU73Zdg9Ufcq+vpjB
hHBdF+FUxz3ATpWU5U5kQnRdylCEzx5YDC3RHvZlQlL92zBGxh6g5cm/bjFi
QnaTf8Gmnj0QbhZXsHk4Axrars6cdTCCMaXzntaiGXDSjPLoJMMYBp9kWBRN
pULODZVqT4+9sD6tWq1pLBmYs4/i/EJN4KA449i61AQYKQkOcQ8wBWElvRa9
3bHQYsrKio83A5OtbuZVRAissO4dSI81B17pol4Rs5PAsefeivzwfVAyv1BW
XW4GyULzll1J+4Hwqb4tRhxBfoeON82ftoDgbIdYJWt/1B+n7mJ44QCoS+Rc
l2WeQpvZl3rPFlhCm2V0RVlmPLq2QS78yWUrqIg21fHsSESNAeIm0qXW4MFh
zafJeQ7lbc8X1afbQOxbue7axDS0LkXlqYKdDYx86BopZaehmNmmwG0MG/Bx
FpO8mJ+GnB8Pt/1zsIGUaN7/7GrTkITX7vCm4zZQuf05nP6ehq7dv/faLNAG
hEwud2XQ0lGZVXsajWUDnK2/fO+uzUCPIhc53DttoJW4ZnmrNQPNlY9MxXfZ
QMVNiX01zzOQ8mDXl9weGzgcOPy24VUGKt5Xirrf2YAxx/CNxk8ZKEXwcKxh
vw1Itl2eSP+VgewqHv0TnLGB9JuQayvFRJODscutm6gg6kj/GRHNRDJC3j++
CFCh/XS2w9xpJjq2/2DfkhAV8nNzd3qfZaI3FSr1KqJUEBvc+vEAyUR1UQNR
uVJUqI4aK+m5yUTJQnv/BmlQoaumj72qh4l2WPD8kbSngn/6ldkPUiyk/tq4
S/ggFX4H07S8ZVnI1Cn2xkYHKig8bbZZVGAhj8Df9H9HqFDWV82xWouFqi6P
3+49QYWZ6l6taXM8fuKlEzOECvZxLtsWPfH481nNyxeoYNYv8L6vjIUihV5f
+pVJBf7C8/2jd1korWCj38QlKnge1sv/cY+FKqtTRHtzqbBiW7re93oW+vMp
Mrj6KhUM8gPf3utgoXTFo9Je1VTIKmx5EfEdz/9S9tz7Hip83rMyr0GajTIk
G68uvqHCxaK/6OxuNvIMZSCR91R4KeP4wEqJjSTEk345fqLCINLb9UyTjdJ9
hpwGhqmwSsOlJ8aEjTz4rqiPz1Gh5IXwtdmjbLTdYnPfny004Hq8KenHRTb6
k1e6ICZCg2bX+fCN2Wz0dsZok6EYDRaIECmlXDZKy/Y3j9tBA8vC8ZxDRWy0
NNZxl0uOBtuTU1YFlLPRm+SzSet0aXAT/v4ueMxGqY+Xlbc70iCgREBqxTQb
gf+IipgTDdxutXRYz7LRT5EOVeGjNFhqMX926RcbHfbPVd/sSgPd5JJS8UU2
UhDV017tTQMtnf+EZjlJ1OEfbjgVSQOFsWSBmk0kihc9Ct+jafAnwS3moQCJ
NJ+Y7/kWS4PTaatUaoVIlCe6xXgogQaZy9knb4qQyPfJPdN3qTTYxe0kaS1J
og1iPy1RDt7vY0G7+yokannywepRHg0uOa/h9lUjUVhAs3VtPg3o1xvmdmiQ
6MsTFrWqmAYpZz5nhWuT6E6Aiu2NWzQ4y8f1etKARLSnPocz6mjAkLJ7P7+f
RNyBdo7n62ngZMbrfvwAiWrFDI6kIBqcGLih0mZJIolAPueEFhpEO5sEnbUh
0YzYreNhL2iQ57G1rMOWROzAMQ/njzSIn7OoCHQikbBphD/RRwPPGle1884k
KtyyNsz0Cw2kbxqKFh4l0d1H8mfkh2hgM6uzrf44iTp5/K4sjOP5vB98rHcj
EaOX49r4dxrsL9RKqnTH+7nFvNU3SQPttrwLRSdJNEmtfNAyS4McEZtPwZ4k
Wpcz152xRIPfqiz+QR8SXfRJ6j39lwYqO4vf3PUlkdieLf0h//B5+P/3N8qP
RPIjlB+HVxKgkSnmxx1AIgvlqNWyawmI4rn87XMQibo4160X5SPgrduZupRg
Eh16nSewfj0BfEYBk8ohJPKIQBK/+AlwN6sP9Q0lUXLLSv1GYQIoe03XVYfj
88okjatECbjQfXxIJ4JEmSd37r++jQDLZ0HCddjX1pnZn5cgwFTz79WKUyRS
7H/rGCtFgJe//pJkJInuVbq7BO4i4Gk2ZwULu5WR4n9QjoCb9TVax6JIdGC3
SNgBeQIOv4/4rxm7529ptKEiAaUSLnri0SQ63Kl3RlWZgPInTu0h2EOF7ed2
qhIgteLQo2fYXsFHWFvUCfDcBLxbYkg0azaZtVYTr9eKo/YoNuf3DdemKQQY
1LarfMVOaSi4NaRLAKO1bkkilkQbWaqVb/UJyCjbJ3UIO8ul+UGbIQHJHO6l
qdjbtejo0R4C8qm8zFrsG2uGH1cYE7BkLP96EFv5Y3B7kQkB8WfqQ1fHkaim
jLvnohkBwy9rw2SwDeMye8/uI+Dy6NZ3xtiPCZn+SAsCxvJfXziEbbXrwVdf
SwL6Xo/ewd8z6M3Cvh/HrAmw9bOWx98z6Mjz3p+2VDyfCzcX/p5BI7meS+YE
AeZVa/Xw9wzy9vuzQs+WgDMeR14lYv80Or9ayZ6AtivLLXHYkQLb1kscJOBf
6HfBMOz2O2sOGToQoPbV5ZA79jarX8WHHQl4eOa1HIHt8+3LZLgTASM/9yZr
YzckvtDJPEpAnXltwBbsDZI1Z6qO4/XwGHybwft3bijqfOVKgKB8748n2Hcc
0kUm3QhQ2ZEdm4nNuRBxgteDAInHKVeOYtPIE3dkvQg44VVrsQu7SJn2x9QH
n+c77TPD+Hx+vtA3c/EjYBcIHbiCvfekLCsugIA3lu75BPYFLoFPeUEEaIlB
PCf2SAGHTF0IAf16VdOluB6Set8+movA8w91hP/A9fQupHn15igCHrReZyVh
y2wqJ1RiCNArjaOIYLdZJI55niZAfsdtFVVcn8Kj/upnzxAgdEXvdDWuZ88E
x5hrSQR8XzI/robN+0hdoP8cAbJCLi+34fp3PLjdefk8AVdt6xxScb+U/Vpb
KpJBgHSgVOjPMBJZKw6CHUkAS+2JQxXuL9YVptfzHALoW0X7Z3B/DupG3R/N
I+BOTNk3dWz1d+6c3AUEFMjVJfgHkuj1BsiCqwQoBgt79vqTaEv8j+bq2wQM
Ph/n9sT5cHJb77rucgKey9hnx3njvKttPTh1Bz+fQi7E8iKRw2zOpNw9AgyN
djcXe+B8drEQya8ngMNpuDzpBM4fDq0TjxAB2mWlHwNcSQS5End6mwhYNnmf
y3AhUf/r36YCT3A/Pc7s23SMRFJmNwJSXhLQOKV8bJ8jiW7KcrUFfSEgsGjl
wwoazhvRPUveAwSM966pc6SS6M/6KHm3ITzegmcNN85bq7mfaQdHCchRlE42
x3n8s2mIMJgiwElvVvKCGZ7/cMsnHg46hL9ZL2api/PJmmP9Ck46FM1qcJVT
cD4b6cHiSjq43usw4MX3wYhMVeEEDx38V326XqNOotRfRW6v1tOh3dri8HsF
fP5pp6ezxenQ2T95Q0cc12N8gwS5gw7VquvfUcVItDt4iTgvSQcjTlUnF3xf
RTsE3ouRpsM9sQOhp/B9JiVz/JSLEh1ms8gP/uvxfdZoxKVoSIcfzzf0xSyz
EffPFVsbj9BhrfFHa6n3bLRQkZU25EyHpzNXZv3fsNG4t9Kq1cfpkIf6VGu7
2ajz6+FJKzc6pFU3J+p0sFH2h/utH33pkLSseWmxiY0Um70DFmLpwEA/BMJL
2ciO9f65UhEdXk6GSQWHsZG5td8e4iod5Kvtm4SC2UiXl+d+yHU6bPaUEaz2
x+8XieqFj0rpsBhuPfjZg42+haeHWVTRgd+sW2HuMBtFHzXZ6dZKB13pIwd3
ARtdV74TnfeVDi6RjzlzONnIR2D69/0xOnyq6VpXsozf3xaVg1+N0+GqWOP2
ykUWQs0Vnqum6GDs7n3o3gwLvbOrYHgs4PVLehnFDbDQ6qhyVc01tiC2eKZH
tpGF3J/dHmmXs4Vv8Vsa2yNYSPZYidVfb1u4Kj83XviZiZ7m6lTM+NqCzAJd
o6eXiU68b9s46m8LPJuSvVa8YaJim/GermBbaN/XdcP6BRNtN5R3uBFlC4Xb
/oQ+rGEiQdEyN+K8LTzre+v5KoOJON/cib15yxZ841wrl/WZ6MO+B3dtx21B
8Us7d2FqBuoqilAwDLSDGLTdYPfd82ihkqonMWMHd5TORLRtTEH/agKqE33s
wcuJdVJgZyK+T01NIn/ZQ0PdTb/8s3HoiaPSSc9ABvhrK3y+MRuO+I+7P8wN
ZsAOuSPZv5+FoyPuBXydoQzI9ROfMsoPR3MBm+6qRzKgIVPpcsOBcCSVPL/4
N4EBTa9XGh67GoZi7zakZlxkgHO0JNjbhiIdHpuK6gcM6PVsK6ZXBKFE3rOc
ow8ZEB/fwd15Jgi92thEF65nwO+0NYkmDkHIXVT9d3QTA14/mOUV5w5CmSpb
jMyfM+Bd+RXWeYdA9NPhS3fvRwYk8H5WPc4VgODo1l18nxmQ2Lggmdjrj86d
oIUZ9jPgTgPMFZX7Iwn/FtHiYQbck0r37Tzoj6iJN1y9f+D1SHzm+3HbD+Wc
679/ZYoBnFTho2Pxfmg0Q/i/rhkGuE+tX/hs74diL6eWac4zQGAuRaJhhR96
kd/KcfI3AwI+JeVa3/ZFQteWaZeXGOA4ofdFyN4XHSvVutr+lwFb9Cd3vuXw
RWUVfvP//jFgT5JD0vkSH/Q/4PjGjA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  Method->{},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.594017903888629*^9, 3.5940198212632513`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitCerto", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{
    RowBox[{"dados", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"\[Omega]", " ", "t"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Alpha]", ",", "1000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", "0.06"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", "t", "}"}], ",", 
    RowBox[{"Weights", "\[Rule]", 
     RowBox[{"1", "/", 
      RowBox[{
       RowBox[{"dados", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "^", "2"}]}]}], ",", 
    RowBox[{"VarianceEstimatorFunction", "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.594019851747675*^9, 3.594019893653988*^9}, {
  3.5940223879101863`*^9, 3.5940223909883175`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"1267.5506481883274`", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"0.06147308251832642`", " ", "t"}], "]"}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`\[Alpha] -> 
      1267.5506481883274`, $CellContext`\[Omega] -> 
      0.06147308251832642}, {{$CellContext`t}, {$CellContext`\[Alpha] 
       Sin[$CellContext`t $CellContext`\[Omega]]}}}, {{
      Rational[1, 44100], 
      Rational[1, 160000], 
      Rational[1, 122500], 
      Rational[1, 48400]}}, {{0, 490}, {33, 1400}, {67, -850}, {100, -130}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`t, $CellContext`\[Alpha], \
$CellContext`\[Omega]}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{3.5940198943102355`*^9, 3.5940223919258146`*^9}]
}, Open  ]],

Cell["\<\
Note que a principal mudan\[CCedilla]a por usar os pesos corretos \
est\[AAcute] no desvio-padr\[ATilde]o de \[Omega]\
\>", "Text",
 CellChangeTimes->{{3.594019934075924*^9, 3.594019962435342*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitCerto", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.5940199007946243`*^9, 3.594019908669636*^9}, {
  3.5940223952383223`*^9, 3.5940223959726973`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"\[Alpha]", "1267.5506481883274`", "301.99093016093735`", 
      "4.197313632938655`", "0.05234504830858455`"},
     {"\[Omega]", "0.06147308251832642`", "0.0017029850308919138`", 
      "36.097253588970645`", "0.0007665704601866885`"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{3.5940199094196367`*^9, 3.5940223967070723`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Verificando a tendenciosidade por simula\[CCedilla]\[ATilde]o\
\>", "Subsubsection",
 CellChangeTimes->{{3.5940199804978685`*^9, 3.594019989404132*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"simulacaoMedicao", "[", 
   RowBox[{"dados_", ",", "a_", ",", "\[Omega]_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "\[Sigma]", ",", "y"}], "}"}], ",", 
    RowBox[{
     RowBox[{"x", "=", 
      RowBox[{"dados", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Sigma]", "=", 
      RowBox[{"dados", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"RandomVariate", "[", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"\[Omega]", " ", 
               RowBox[{"x", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], " ", "]"}]}], ",", 
            RowBox[{"\[Sigma]", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], " ", "]"}], " ", "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "dados", "]"}]}], "}"}]}], " ", "]"}]}]}], 
   " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.594019992872887*^9, 3.594020040935459*^9}, {
  3.594020093263663*^9, 3.5940203212327547`*^9}, {3.594020359873438*^9, 
  3.594020360201564*^9}, {3.5940205138736687`*^9, 3.594020515014296*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"simulacaoMedicao", "[", 
  RowBox[{"dados", ",", "1000", ",", "0.06"}], "]"}]], "Input",
 CellChangeTimes->{{3.5940203406234097`*^9, 3.5940203522015514`*^9}, {
  3.594020521529931*^9, 3.594020522467432*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "95.10048505187589`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", 
     RowBox[{"-", "191.64475209829982`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"67", ",", 
     RowBox[{"-", "389.5282968476754`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", 
     RowBox[{"-", "648.830896395217`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.594020353060926*^9, 3.594020363217193*^9}, 
   3.594020525029934*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{
    RowBox[{"simulacaoMedicao", "[", 
     RowBox[{"dados", ",", "1267", ",", "0.0615"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"\[Omega]", " ", "t"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Alpha]", ",", "1000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", "0.06"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", "t", "}"}], ",", 
    RowBox[{"Weights", "\[Rule]", 
     RowBox[{"1", "/", 
      RowBox[{
       RowBox[{"dados", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "^", "2"}]}]}], ",", 
    RowBox[{"VarianceEstimatorFunction", "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5940204028735027`*^9, 3.5940204151703963`*^9}, {
  3.5940205283111906`*^9, 3.594020529217444*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"1244.4371482962995`", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"0.062205841768901225`", " ", "t"}], "]"}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`\[Alpha] -> 
      1244.4371482962995`, $CellContext`\[Omega] -> 
      0.062205841768901225`}, {{$CellContext`t}, {$CellContext`\[Alpha] 
       Sin[$CellContext`t $CellContext`\[Omega]]}}}, {{
      Rational[1, 44100], 
      Rational[1, 160000], 
      Rational[1, 122500], 
      Rational[1, 48400]}}, {{0, 16.541615882868857`}, {
     33, 1335.3750407207021`}, {67, -886.3633701570268}, {
     100, -42.596428104267844`}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`t, $CellContext`\[Alpha], \
$CellContext`\[Omega]}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.5940204361704283`*^9, 3.5940204505923223`*^9}, 
   3.5940205300455694`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.594020611433366*^9, 3.5940206264958887`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"\[Alpha]", "1244.4371482962995`", "302.1115260283476`", 
      "4.119131648686359`", "0.054190789018697894`"},
     {"\[Omega]", "0.062205841768901225`", "0.0017249283335951026`", 
      "36.06285580529108`", "0.0007680318262057728`"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{3.594020627120887*^9}]
}, Open  ]],

Cell["\<\
Criar uma fun\[CCedilla]\[ATilde]o que ajusta e devolve s\[OAcute] os par\
\[AHat]metros ajustados\
\>", "Text",
 CellChangeTimes->{{3.594020479451743*^9, 3.594020498936147*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit", "[", "\"\<ParameterTableEntries\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.594020637537458*^9, 3.594020657443738*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1244.4371482962995`", ",", "302.1115260283476`", ",", 
     "4.119131648686359`", ",", "0.054190789018697894`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.062205841768901225`", ",", "0.0017249283335951026`", ",", 
     "36.06285580529108`", ",", "0.0007680318262057728`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5940206391155853`*^9, 3.594020659459366*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"fit", "[", "\"\<ParameterTableEntries\>\"", "]"}], "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.594021190366413*^9, 3.594021192788292*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1244.4371482962995`", ",", "0.062205841768901225`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5940211938039155`*^9}]
}, Open  ]],

Cell["\<\
Aten\[CCedilla]\[ATilde]o, n\[ATilde]o confundir o par\[AHat]metro da fun\
\[CCedilla]\[ATilde]o simulaFit - \[Omega]0 - com a vari\[AAcute]vel \[Omega] \
da fun\[CCedilla]\[ATilde]o \[Alpha] Sin[\[Omega] t] que entra em \
NonlinearModelFit\
\>", "Text",
 CellChangeTimes->{{3.5940213576791644`*^9, 3.594021421027299*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"simulaFit", "[", 
   RowBox[{"dados_", ",", "a0_", ",", "\[Omega]0_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{
      RowBox[{"simulacaoMedicao", "[", 
       RowBox[{"dados", ",", "a0", ",", "\[Omega]0"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Alpha]", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Omega]", " ", "t"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\[Alpha]", ",", "1000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Omega]", ",", "0.06"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", "t", "}"}], ",", 
      RowBox[{"Weights", "\[Rule]", 
       RowBox[{"1", "/", 
        RowBox[{
         RowBox[{"dados", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "^", "2"}]}]}], ",", 
      RowBox[{"VarianceEstimatorFunction", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{"1", "&"}], ")"}]}]}], "]"}], "[", 
    "\"\<ParameterTableEntries\>\"", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.5940205331549487`*^9, 3.5940206041989803`*^9}, {
  3.5940210992256513`*^9, 3.594021171085134*^9}, {3.594021206538312*^9, 
  3.5940212194289565`*^9}, {3.5940213181947303`*^9, 3.5940213353666306`*^9}, {
  3.5940220348784065`*^9, 3.594022040440915*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"simulaFit", "[", 
  RowBox[{"dados", ",", " ", "1268.", ",", "0.0615"}], "]"}]], "Input",
 CellChangeTimes->{{3.5940212252727156`*^9, 3.5940212640540237`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"933.9172585400117`", ",", "0.06040544426226986`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.594021266741525*^9, {3.5940213404291344`*^9, 3.5940213469447737`*^9}}]
}, Open  ]],

Cell["\<\
\[AGrave]s vezes, o algoritmo de NonlinearModelFit pode n\[ATilde]o encontrar \
o m\[IAcute]nimo com a precis\[ATilde]o estabelecida (quando n\[ATilde]o se \
estabelece um AccuracyGoal, a rotina usa AccuracyGoal=1/2 PrecisionGoal que, \
por default, \[EAcute] MachinePrecision=16 d\[IAcute]gitos. Assim, ele est\
\[AAcute] tentando encontrar os valores com 8 d\[IAcute]gitos de precis\
\[ATilde]o, que \[EAcute] muito. O certo \[EAcute] modificar simulaFit para \
reduzir AccuracyGoal.\
\>", "Text",
 CellChangeTimes->{{3.5940216302167206`*^9, 3.5940217394981346`*^9}, {
  3.594021798174926*^9, 3.594021894659446*^9}, {3.5940219919564667`*^9, 
  3.594022027315895*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"repeticoes", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"simulaFit", "[", 
     RowBox[{"dados", ",", " ", "1268.", ",", "0.0615"}], "]"}], ",", 
    RowBox[{"{", "10000", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5940214251523046`*^9, 3.5940214543554735`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NonlinearModelFit", "::", "sszero"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The step size in the search has become less than the \
tolerance prescribed by the PrecisionGoal option, but the gradient is larger \
than the tolerance specified by the AccuracyGoal option. There is a \
possibility that the method has stalled at a point that is not a local \
minimum. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\
\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/NonlinearModelFit\\\", \
ButtonNote -> \\\"NonlinearModelFit::sszero\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.594021457105475*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NonlinearModelFit", "::", "sszero"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The step size in the search has become less than the \
tolerance prescribed by the PrecisionGoal option, but the gradient is larger \
than the tolerance specified by the AccuracyGoal option. There is a \
possibility that the method has stalled at a point that is not a local \
minimum. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\
\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/NonlinearModelFit\\\", \
ButtonNote -> \\\"NonlinearModelFit::sszero\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.594021462621107*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NonlinearModelFit", "::", "sszero"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The step size in the search has become less than the \
tolerance prescribed by the PrecisionGoal option, but the gradient is larger \
than the tolerance specified by the AccuracyGoal option. There is a \
possibility that the method has stalled at a point that is not a local \
minimum. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\
\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/NonlinearModelFit\\\", \
ButtonNote -> \\\"NonlinearModelFit::sszero\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.594021465433613*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(NonlinearModelFit :: sszero\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.594021465449239*^9}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{299., {3., 9.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1067.1936660047681`", ",", "0.06185240733924766`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"905.0991335704908`", ",", "0.06548148842752867`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"836.2159175199051`", ",", "0.06198673283275242`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1662.3719588239592`", ",", "0.06087493779746811`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1030.4718883147682`", ",", "0.06266486856940558`"}], 
            "}"}], ",", 
           RowBox[{"\[LeftSkeleton]", "9991", "\[RightSkeleton]"}], ",", 
           RowBox[{"{", 
            RowBox[{"1552.498106362841`", ",", "0.060060965266183666`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"780.5876555253662`", ",", "0.06431276016898727`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1216.0924101205715`", ",", "0.06085712699020989`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1212.7990996616563`", ",", "0.06354091882849902`"}], 
            "}"}]}], "}"}],
         Short[#, 5]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{54., {1., 9.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 55, 32389937660566768666, 5/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{60., {1., 9.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 55, 32389937660566768666, 5 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{92., {3., 9.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 55, 32389937660566768666, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{78., {1., 9.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[55]]], "Output",
 CellChangeTimes->{{3.5940214454492073`*^9, 3.5940214697304945`*^9}}]
}, Open  ]],

Cell["\<\
Bastam 5 d\[IAcute]gitos no resultado - o desvio-padr\[ATilde]o \[EAcute] de \
v\[AAcute]rios porcento...\
\>", "Text",
 CellChangeTimes->{{3.5940221553942127`*^9, 3.594022181206751*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"simulaFitCerto", "[", 
   RowBox[{"dados_", ",", "a0_", ",", "\[Omega]0_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{
      RowBox[{"simulacaoMedicao", "[", 
       RowBox[{"dados", ",", "a0", ",", "\[Omega]0"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Alpha]", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Omega]", " ", "t"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\[Alpha]", ",", "1000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Omega]", ",", "0.06"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", "t", "}"}], ",", 
      RowBox[{"Weights", "\[Rule]", 
       RowBox[{"1", "/", 
        RowBox[{
         RowBox[{"dados", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "^", "2"}]}]}], ",", 
      RowBox[{"VarianceEstimatorFunction", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{"1", "&"}], ")"}]}], ",", 
      RowBox[{"AccuracyGoal", "\[Rule]", "5"}]}], "]"}], "[", 
    "\"\<ParameterTableEntries\>\"", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.594022055362812*^9, 3.5940220649878263`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"repeticoesLimpo", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"simulaFitCerto", "[", 
     RowBox[{"dados", ",", " ", "1268.", ",", "0.0615"}], "]"}], ",", 
    RowBox[{"{", "10000", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5940220775347204`*^9, 3.5940220885034866`*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{299., {3., 9.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1265.9525125774903`", ",", "0.06164538238277408`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1109.1007502395505`", ",", "0.06253336367236105`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1254.4098537825757`", ",", "0.062397745424392394`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"920.4458094927538`", ",", "0.060231484515523306`"}], 
            "}"}], ",", 
           RowBox[{"\[LeftSkeleton]", "9992", "\[RightSkeleton]"}], ",", 
           RowBox[{"{", 
            RowBox[{"1433.1770823651514`", ",", "0.06141314680829097`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1163.181136090283`", ",", "0.05806307381380979`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"816.0182132111969`", ",", "0.05937001500239167`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1469.0736647273754`", ",", "0.06039445774476972`"}], 
            "}"}]}], "}"}],
         Short[#, 5]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{54., {1., 9.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 65, 32389937660566768666, 5/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{60., {1., 9.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 65, 32389937660566768666, 5 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{92., {3., 9.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 65, 32389937660566768666, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{78., {1., 9.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[65]]], "Output",
 CellChangeTimes->{3.5940221036441317`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Histogram", "[", 
     RowBox[{"repeticoesLimpo", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}], " ", "]"}], ",", 
    RowBox[{"Histogram", "[", 
     RowBox[{"repeticoesLimpo", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}], " ", "]"}]}], "}"}], " ", 
  "]"}]], "Input",
 CellChangeTimes->{{3.594021477277383*^9, 3.5940215181384273`*^9}, {
  3.5940221115503964`*^9, 3.594022117144155*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.385]], {}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[Opacity[0.385]], RectangleBox[{-400., 0}, {-350., 1},
         RoundingRadius->0], RectangleBox[{0., 0}, {50., 1},
         RoundingRadius->0], RectangleBox[{200., 0}, {250., 1},
         RoundingRadius->0], RectangleBox[{250., 0}, {300., 2},
         RoundingRadius->0], RectangleBox[{300., 0}, {350., 3},
         RoundingRadius->0], RectangleBox[{350., 0}, {400., 9},
         RoundingRadius->0], RectangleBox[{400., 0}, {450., 10},
         RoundingRadius->0], RectangleBox[{450., 0}, {500., 18},
         RoundingRadius->0], RectangleBox[{500., 0}, {550., 22},
         RoundingRadius->0], RectangleBox[{550., 0}, {600., 33},
         RoundingRadius->0], RectangleBox[{600., 0}, {650., 58},
         RoundingRadius->0], RectangleBox[{650., 0}, {700., 88},
         RoundingRadius->0], RectangleBox[{700., 0}, {750., 119},
         RoundingRadius->0], RectangleBox[{750., 0}, {800., 163},
         RoundingRadius->0], RectangleBox[{800., 0}, {850., 204},
         RoundingRadius->0], RectangleBox[{850., 0}, {900., 294},
         RoundingRadius->0], RectangleBox[{900., 0}, {950., 328},
         RoundingRadius->0], RectangleBox[{950., 0}, {1000., 405},
         RoundingRadius->0], RectangleBox[{1000., 0}, {1050., 458},
         RoundingRadius->0], RectangleBox[{1050., 0}, {1100., 508},
         RoundingRadius->0], RectangleBox[{1100., 0}, {1150., 623},
         RoundingRadius->0], RectangleBox[{1150., 0}, {1200., 650},
         RoundingRadius->0], RectangleBox[{1200., 0}, {1250., 648},
         RoundingRadius->0], RectangleBox[{1250., 0}, {1300., 651},
         RoundingRadius->0], RectangleBox[{1300., 0}, {1350., 689},
         RoundingRadius->0], RectangleBox[{1350., 0}, {1400., 574},
         RoundingRadius->0], RectangleBox[{1400., 0}, {1450., 552},
         RoundingRadius->0], RectangleBox[{1450., 0}, {1500., 575},
         RoundingRadius->0], RectangleBox[{1500., 0}, {1550., 459},
         RoundingRadius->0], RectangleBox[{1550., 0}, {1600., 409},
         RoundingRadius->0], RectangleBox[{1600., 0}, {1650., 358},
         RoundingRadius->0], RectangleBox[{1650., 0}, {1700., 302},
         RoundingRadius->0], RectangleBox[{1700., 0}, {1750., 210},
         RoundingRadius->0], RectangleBox[{1750., 0}, {1800., 180},
         RoundingRadius->0], RectangleBox[{1800., 0}, {1850., 118},
         RoundingRadius->0], RectangleBox[{1850., 0}, {1900., 85},
         RoundingRadius->0], RectangleBox[{1900., 0}, {1950., 64},
         RoundingRadius->0], RectangleBox[{1950., 0}, {2000., 50},
         RoundingRadius->0], RectangleBox[{2000., 0}, {2050., 29},
         RoundingRadius->0], RectangleBox[{2050., 0}, {2100., 24},
         RoundingRadius->0], RectangleBox[{2100., 0}, {2150., 10},
         RoundingRadius->0], RectangleBox[{2150., 0}, {2200., 12},
         RoundingRadius->0], RectangleBox[{2200., 0}, {2250., 1},
         RoundingRadius->0], RectangleBox[{2250., 0}, {2300., 1},
         RoundingRadius->0], RectangleBox[{2500., 0}, {2550., 1},
         RoundingRadius->0]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{-400., 0},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      PlotRange->{{-400., 2550.}, {All, All}},
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.1]}},
      Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[Opacity[0.041999999999999996`]], {}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[Opacity[0.041999999999999996`]], RectangleBox[{0.032, 0}, {0.0322, 1},
         RoundingRadius->0], RectangleBox[{0.0342, 0}, {0.0344, 1},
         RoundingRadius->0], RectangleBox[{0.04, 0}, {0.0402, 1},
         RoundingRadius->0], RectangleBox[{0.047, 0}, {0.0472, 1},
         RoundingRadius->0], RectangleBox[{0.0496, 0}, {0.0498, 1},
         RoundingRadius->0], RectangleBox[{0.0498, 0}, {0.05, 1},
         RoundingRadius->0], RectangleBox[{0.0522, 0}, {0.0524, 1},
         RoundingRadius->0], RectangleBox[{0.0528, 0}, {0.053, 1},
         RoundingRadius->0], RectangleBox[{0.053, 0}, {0.0532, 4},
         RoundingRadius->0], RectangleBox[{0.0532, 0}, {0.0534, 1},
         RoundingRadius->0], RectangleBox[{0.0534, 0}, {0.0536, 4},
         RoundingRadius->0], RectangleBox[{0.0536, 0}, {0.0538, 6},
         RoundingRadius->0], RectangleBox[{0.054, 0}, {0.0542, 3},
         RoundingRadius->0], RectangleBox[{0.0542, 0}, {0.0544, 1},
         RoundingRadius->0], RectangleBox[{0.0544, 0}, {0.0546, 1},
         RoundingRadius->0], RectangleBox[{0.0546, 0}, {0.0548, 2},
         RoundingRadius->0], RectangleBox[{0.0548, 0}, {0.055, 3},
         RoundingRadius->0], RectangleBox[{0.055, 0}, {0.0552, 6},
         RoundingRadius->0], RectangleBox[{0.0552, 0}, {0.0554, 9},
         RoundingRadius->0], RectangleBox[{0.0554, 0}, {0.0556, 9},
         RoundingRadius->0], RectangleBox[{0.0556, 0}, {0.0558, 10},
         RoundingRadius->0], RectangleBox[{0.0558, 0}, {0.056, 11},
         RoundingRadius->0], RectangleBox[{0.056, 0}, {0.0562, 9},
         RoundingRadius->0], RectangleBox[{0.0562, 0}, {0.0564, 12},
         RoundingRadius->0], RectangleBox[{0.0564, 0}, {0.0566, 17},
         RoundingRadius->0], RectangleBox[{0.0566, 0}, {0.0568, 22},
         RoundingRadius->0], RectangleBox[{0.0568, 0}, {0.057, 18},
         RoundingRadius->0], RectangleBox[{0.057, 0}, {0.0572, 25},
         RoundingRadius->0], RectangleBox[{0.0572, 0}, {0.0574, 30},
         RoundingRadius->0], RectangleBox[{0.0574, 0}, {0.0576, 36},
         RoundingRadius->0], RectangleBox[{0.0576, 0}, {0.0578, 54},
         RoundingRadius->0], RectangleBox[{0.0578, 0}, {0.058, 58},
         RoundingRadius->0], RectangleBox[{0.058, 0}, {0.0582, 68},
         RoundingRadius->0], RectangleBox[{0.0582, 0}, {0.0584, 98},
         RoundingRadius->0], RectangleBox[{0.0584, 0}, {0.0586, 101},
         RoundingRadius->0], RectangleBox[{0.0586, 0}, {0.0588, 101},
         RoundingRadius->0], RectangleBox[{0.0588, 0}, {0.059, 158},
         RoundingRadius->0], RectangleBox[{0.059, 0}, {0.0592, 157},
         RoundingRadius->0], RectangleBox[{0.0592, 0}, {0.0594, 180},
         RoundingRadius->0], RectangleBox[{0.0594, 0}, {0.0596, 248},
         RoundingRadius->0], RectangleBox[{0.0596, 0}, {0.0598, 246},
         RoundingRadius->0], RectangleBox[{0.0598, 0}, {0.06, 270},
         RoundingRadius->0], RectangleBox[{0.06, 0}, {0.0602, 336},
         RoundingRadius->0], RectangleBox[{0.0602, 0}, {0.0604, 324},
         RoundingRadius->0], RectangleBox[{0.0604, 0}, {0.0606, 342},
         RoundingRadius->0], RectangleBox[{0.0606, 0}, {0.0608, 408},
         RoundingRadius->0], RectangleBox[{0.0608, 0}, {0.061, 415},
         RoundingRadius->0], RectangleBox[{0.061, 0}, {0.0612, 484},
         RoundingRadius->0], RectangleBox[{0.0612, 0}, {0.0614, 475},
         RoundingRadius->0], RectangleBox[{0.0614, 0}, {0.0616, 457},
         RoundingRadius->0], RectangleBox[{0.0616, 0}, {0.0618, 484},
         RoundingRadius->0], RectangleBox[{0.0618, 0}, {0.062, 423},
         RoundingRadius->0], RectangleBox[{0.062, 0}, {0.0622, 458},
         RoundingRadius->0], RectangleBox[{0.0622, 0}, {0.0624, 398},
         RoundingRadius->0], RectangleBox[{0.0624, 0}, {0.0626, 394},
         RoundingRadius->0], RectangleBox[{0.0626, 0}, {0.0628, 337},
         RoundingRadius->0], RectangleBox[{0.0628, 0}, {0.063, 325},
         RoundingRadius->0], RectangleBox[{0.063, 0}, {0.0632, 327},
         RoundingRadius->0], RectangleBox[{0.0632, 0}, {0.0634, 266},
         RoundingRadius->0], RectangleBox[{0.0634, 0}, {0.0636, 229},
         RoundingRadius->0], RectangleBox[{0.0636, 0}, {0.0638, 185},
         RoundingRadius->0], RectangleBox[{0.0638, 0}, {0.064, 157},
         RoundingRadius->0], RectangleBox[{0.064, 0}, {0.0642, 119},
         RoundingRadius->0], RectangleBox[{0.0642, 0}, {0.0644, 123},
         RoundingRadius->0], RectangleBox[{0.0644, 0}, {0.0646, 93},
         RoundingRadius->0], RectangleBox[{0.0646, 0}, {0.0648, 80},
         RoundingRadius->0], RectangleBox[{0.0648, 0}, {0.065, 69},
         RoundingRadius->0], RectangleBox[{0.065, 0}, {0.0652, 50},
         RoundingRadius->0], RectangleBox[{0.0652, 0}, {0.0654, 51},
         RoundingRadius->0], RectangleBox[{0.0654, 0}, {0.0656, 42},
         RoundingRadius->0], RectangleBox[{0.0656, 0}, {0.0658, 31},
         RoundingRadius->0], RectangleBox[{0.0658, 0}, {0.066, 35},
         RoundingRadius->0], RectangleBox[{0.066, 0}, {0.0662, 25},
         RoundingRadius->0], RectangleBox[{0.0662, 0}, {0.0664, 9},
         RoundingRadius->0], RectangleBox[{0.0664, 0}, {0.0666, 10},
         RoundingRadius->0], RectangleBox[{0.0666, 0}, {0.0668, 7},
         RoundingRadius->0], RectangleBox[{0.0668, 0}, {0.067, 5},
         RoundingRadius->0], RectangleBox[{0.067, 0}, {0.0672, 4},
         RoundingRadius->0], RectangleBox[{0.0672, 0}, {0.0674, 7},
         RoundingRadius->0], RectangleBox[{0.0674, 0}, {0.0676, 4},
         RoundingRadius->0], RectangleBox[{0.0676, 0}, {0.0678, 2},
         RoundingRadius->0], RectangleBox[{0.0678, 0}, {0.068, 3},
         RoundingRadius->0], RectangleBox[{0.068, 0}, {0.0682, 4},
         RoundingRadius->0], RectangleBox[{0.0684, 0}, {0.0686, 3},
         RoundingRadius->0], RectangleBox[{0.0686, 0}, {0.0688, 2},
         RoundingRadius->0], RectangleBox[{0.0688, 0}, {0.069, 2},
         RoundingRadius->0], RectangleBox[{0.069, 0}, {0.0692, 1},
         RoundingRadius->0], RectangleBox[{0.0692, 0}, {0.0694, 2},
         RoundingRadius->0], RectangleBox[{0.0694, 0}, {0.0696, 1},
         RoundingRadius->0], RectangleBox[{0.0704, 0}, {0.0706, 2},
         RoundingRadius->0], RectangleBox[{0.071, 0}, {0.0712, 1},
         RoundingRadius->0], RectangleBox[{0.0732, 0}, {0.0734, 1},
         RoundingRadius->0], RectangleBox[{0.0742, 0}, {0.0744, 1},
         RoundingRadius->0], RectangleBox[{0.0758, 0}, {0.076, 1},
         RoundingRadius->0]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0.032, 0},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      PlotRange->{{0.032, 0.076}, {All, All}},
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.1]}},
      Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}},
  ContentSelectable->True,
  ImageSize->{782., Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{3.594021487839896*^9, 3.594021518685301*^9, 
  3.5940221182379036`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", "repeticoesLimpo", "]"}]], "Input",
 CellChangeTimes->{{3.5940215321384487`*^9, 3.5940215382478323`*^9}, {
  3.5940221219879117`*^9, 3.594022122909787*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1279.181089198258`", ",", "0.06146376617869287`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5940215391228313`*^9, 3.594022123581663*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"StandardDeviation", "[", "repeticoesLimpo", "]"}], "/", 
  "100"}]], "Input",
 CellChangeTimes->{{3.594021566951*^9, 3.5940215861541543`*^9}, {
  3.5940221274566703`*^9, 3.5940221284722977`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.982586752262074`", ",", "0.000019760854819497587`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5940215804041433`*^9, 3.5940215868416524`*^9}, 
   3.5940221294097986`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Mean", "[", "repeticoesLimpo", "]"}], "-", 
    RowBox[{"{", 
     RowBox[{"1268.", ",", "0.0615"}], "}"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", "repeticoesLimpo", "]"}], "/", "100"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.5940222031755342`*^9, 3.5940222306599503`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.748789264814481`", ",", 
   RowBox[{"-", "1.8336160878718137`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5940222327693286`*^9}]
}, Open  ]],

Cell["\<\
Neste caso, a tendenciosidade \[EAcute] pequena, muito menor que o \
desvio-padr\[ATilde]o do resultado, e n\[ATilde]o precisa ser corrigida - h\
\[AAcute] algo errado com os n\[UAcute]meros do texto! J\[AAcute] o \
desvio-padr\[ATilde]o estimado merece ser modificado:\
\>", "Text",
 CellChangeTimes->{{3.5940222673006306`*^9, 3.5940223100350695`*^9}, {
  3.5940224135196*^9, 3.594022454425911*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", "repeticoesLimpo", "]"}]], "Input",
 CellChangeTimes->{{3.5940222412693415`*^9, 3.5940222590037427`*^9}, 
   3.594022359894518*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"298.2586752262074`", ",", "0.0019760854819497586`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.594022362082019*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitCerto", "[", "\"\<ParameterTable\>\"", "]"}]], "Input"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"\[Alpha]", "1267.5506481883274`", "301.99093016093735`", 
      "4.197313632938655`", "0.05234504830858455`"},
     {"\[Omega]", "0.06147308251832642`", "0.0017029850308919138`", 
      "36.097253588970645`", "0.0007665704601866885`"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{3.5940224076758413`*^9}]
}, Open  ]],

Cell["\<\
Conclus\[ATilde]o: A= = 1270(300), \[Omega]=0,0615(20) \
\>", "Text",
 CellChangeTimes->{{3.5940224786759477`*^9, 3.594022515379128*^9}}],

Cell[BoxData["  "], "Input",
 CellChangeTimes->{{3.5940433216059275`*^9, 3.5940433232181396`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{982, 905},
WindowMargins->{{-4, Automatic}, {Automatic, 5}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 161, 3, 56, "Subtitle"],
Cell[CellGroupData[{
Cell[765, 29, 111, 1, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[901, 34, 499, 14, 31, "Input"],
Cell[1403, 50, 436, 13, 31, "Output"]
}, Open  ]],
Cell[1854, 66, 149, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[2028, 72, 289, 6, 31, "Input"],
Cell[2320, 80, 1345, 30, 223, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3714, 116, 122, 1, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[3861, 121, 679, 18, 31, "Input"],
Cell[4543, 141, 943, 26, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5523, 172, 411, 11, 31, "Input"],
Cell[5937, 185, 54548, 904, 223, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60522, 1094, 743, 21, 31, "Input"],
Cell[61268, 1117, 892, 25, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62197, 1147, 155, 2, 29, "Input"],
Cell[62355, 1151, 902, 20, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63294, 1176, 402, 11, 31, "Input"],
Cell[63699, 1189, 10242, 178, 223, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73978, 1372, 1053, 30, 52, "Input"],
Cell[75034, 1404, 1039, 28, 50, "Output"]
}, Open  ]],
Cell[76088, 1435, 207, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[76320, 1443, 203, 3, 31, "Input"],
Cell[76526, 1448, 927, 20, 68, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[77502, 1474, 162, 3, 39, "Subsubsection"],
Cell[77667, 1479, 1539, 40, 72, "Input"],
Cell[CellGroupData[{
Cell[79231, 1523, 231, 4, 31, "Input"],
Cell[79465, 1529, 516, 15, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80018, 1549, 997, 27, 52, "Input"],
Cell[81018, 1578, 1145, 31, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82200, 1614, 145, 2, 31, "Input"],
Cell[82348, 1618, 901, 20, 68, "Output"]
}, Open  ]],
Cell[83264, 1641, 188, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[83477, 1649, 150, 2, 31, "Input"],
Cell[83630, 1653, 455, 12, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84122, 1670, 227, 5, 31, "Input"],
Cell[84352, 1677, 158, 4, 31, "Output"]
}, Open  ]],
Cell[84525, 1684, 332, 6, 30, "Text"],
Cell[84860, 1692, 1429, 36, 72, "Input"],
Cell[CellGroupData[{
Cell[86314, 1732, 183, 3, 31, "Input"],
Cell[86500, 1737, 207, 5, 31, "Output"]
}, Open  ]],
Cell[86722, 1745, 679, 11, 68, "Text"],
Cell[CellGroupData[{
Cell[87426, 1760, 305, 7, 31, "Input"],
Cell[87734, 1769, 684, 12, 56, "Message"],
Cell[88421, 1783, 684, 12, 56, "Message"],
Cell[89108, 1797, 684, 12, 56, "Message"],
Cell[89795, 1811, 542, 11, 21, "Message"],
Cell[90340, 1824, 5353, 149, 162, "Output"]
}, Open  ]],
Cell[95708, 1976, 197, 4, 30, "Text"],
Cell[95908, 1982, 1278, 34, 92, "Input"],
Cell[CellGroupData[{
Cell[97211, 2020, 315, 7, 31, "Input"],
Cell[97529, 2029, 5204, 146, 142, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102770, 2180, 533, 14, 31, "Input"],
Cell[103306, 2196, 11311, 183, 272, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114654, 2384, 192, 3, 31, "Input"],
Cell[114849, 2389, 178, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115064, 2398, 230, 5, 31, "Input"],
Cell[115297, 2405, 214, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115548, 2415, 386, 11, 31, "Input"],
Cell[115937, 2428, 171, 4, 31, "Output"]
}, Open  ]],
Cell[116123, 2435, 410, 7, 49, "Text"],
Cell[CellGroupData[{
Cell[116558, 2446, 180, 3, 31, "Input"],
Cell[116741, 2451, 156, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116934, 2460, 82, 1, 31, "Input"],
Cell[117019, 2463, 903, 20, 68, "Output"]
}, Open  ]],
Cell[117937, 2486, 147, 3, 30, "Text"],
Cell[118087, 2491, 98, 1, 31, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)