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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    102431,       2288]
NotebookOptionsPosition[     98507,       2147]
NotebookOutlinePosition[     98879,       2163]
CellTagsIndexPosition[     98836,       2160]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"SetDirectory", "[", " ", 
  RowBox[{"NotebookDirectory", "[", "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6206322707173777`*^9, 3.6206322873574014`*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\vanin\\\\Documents\"\>"], "Output",
 CellChangeTimes->{3.620632288337403*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileNames", "[", "\"\<*.dat\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.620632294177411*^9, 3.6206323289574594`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"distribuicao.dat\"\>", ",", "\<\"MuBe.dat\"\>", 
   ",", "\<\"parabola.dat\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.6206323294774604`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dado", "=", 
  RowBox[{"Import", "[", "\"\<distribuicao.dat\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.6206323576875*^9, 3.620632368297515*^9}, {
  3.6206324075575695`*^9, 3.6206324109975743`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", "1.03`", ",", "0.12`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5236`", ",", "1.36`", ",", "0.11`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0472`", ",", "1.01`", ",", "0.09`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5708`", ",", "0.54`", ",", "0.07`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.0944`", ",", "0.91`", ",", "0.09`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.618`", ",", "1.36`", ",", "0.11`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.1416`", ",", "1.28`", ",", "0.12`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6206323690375156`*^9, 3.6206324118875756`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dado", "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.6206323823375344`*^9, 3.6206324155275807`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"0.`", "1.03`", "0.12`"},
    {"0.5236`", "1.36`", "0.11`"},
    {"1.0472`", "1.01`", "0.09`"},
    {"1.5708`", "0.54`", "0.07`"},
    {"2.0944`", "0.91`", "0.09`"},
    {"2.618`", "1.36`", "0.11`"},
    {"3.1416`", "1.28`", "0.12`"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.620632387317541*^9, 3.6206324160875816`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"dado", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.620632421257589*^9, 3.6206324273775973`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.`", ",", "0.5236`", ",", "1.0472`", ",", "1.5708`", ",", "2.0944`", ",", 
   "2.618`", ",", "3.1416`"}], "}"}]], "Output",
 CellChangeTimes->{3.6206324835576763`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y", "=", 
  RowBox[{"dado", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6206324857376795`*^9, 3.620632490747686*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.03`", ",", "1.36`", ",", "1.01`", ",", "0.54`", ",", "0.91`", ",", 
   "1.36`", ",", "1.28`"}], "}"}]], "Output",
 CellChangeTimes->{3.620632491277687*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Sigma]", "=", 
  RowBox[{"dado", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "3"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.620632492847689*^9, 3.620632499057698*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.12`", ",", "0.11`", ",", "0.09`", ",", "0.07`", ",", "0.09`", ",", 
   "0.11`", ",", "0.12`"}], "}"}]], "Output",
 CellChangeTimes->{3.6206324996776986`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6206328269581566`*^9, 3.620632847168185*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ErrorListPlot", "[", "dado", "]"}]], "Input",
 CellChangeTimes->{{3.620632547057765*^9, 3.620632556497778*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], 
    PointBox[{{0., 1.03}, {0.5236, 1.36}, {1.0472, 1.01}, {1.5708, 0.54}, {
     2.0944, 0.91}, {2.618, 1.36}, {3.1416, 
     1.28}}], {{LineBox[{{0., 1.15}, {0., 0.91}}], 
      LineBox[{Offset[{1.5, 0}, {0., 1.15}], Offset[{-1.5, 0}, {0., 1.15}]}], 
      LineBox[{Offset[{1.5, 0}, {0., 0.91}], 
        Offset[{-1.5, 0}, {0., 0.91}]}]}, {
      LineBox[{{0.5236, 1.4700000000000002`}, {0.5236, 1.25}}], 
      LineBox[{Offset[{1.5, 0}, {0.5236, 1.4700000000000002`}], 
        Offset[{-1.5, 0}, {0.5236, 1.4700000000000002`}]}], 
      LineBox[{Offset[{1.5, 0}, {0.5236, 1.25}], 
        Offset[{-1.5, 0}, {0.5236, 1.25}]}]}, {
      LineBox[{{1.0472, 1.1}, {1.0472, 0.92}}], 
      LineBox[{Offset[{1.5, 0}, {1.0472, 1.1}], 
        Offset[{-1.5, 0}, {1.0472, 1.1}]}], 
      LineBox[{Offset[{1.5, 0}, {1.0472, 0.92}], 
        Offset[{-1.5, 0}, {1.0472, 0.92}]}]}, {
      LineBox[{{1.5708, 0.6100000000000001}, {1.5708, 0.47000000000000003`}}],
       LineBox[{
       Offset[{1.5, 0}, {1.5708, 0.6100000000000001}], 
        Offset[{-1.5, 0}, {1.5708, 0.6100000000000001}]}], 
      LineBox[{Offset[{1.5, 0}, {1.5708, 0.47000000000000003`}], 
        Offset[{-1.5, 0}, {1.5708, 0.47000000000000003`}]}]}, {
      LineBox[{{2.0944, 1.}, {2.0944, 0.8200000000000001}}], 
      LineBox[{Offset[{1.5, 0}, {2.0944, 1.}], 
        Offset[{-1.5, 0}, {2.0944, 1.}]}], 
      LineBox[{Offset[{1.5, 0}, {2.0944, 0.8200000000000001}], 
        Offset[{-1.5, 0}, {2.0944, 0.8200000000000001}]}]}, {
      LineBox[{{2.618, 1.4700000000000002`}, {2.618, 1.25}}], 
      LineBox[{Offset[{1.5, 0}, {2.618, 1.4700000000000002`}], 
        Offset[{-1.5, 0}, {2.618, 1.4700000000000002`}]}], 
      LineBox[{Offset[{1.5, 0}, {2.618, 1.25}], 
        Offset[{-1.5, 0}, {2.618, 1.25}]}]}, {
      LineBox[{{3.1416, 1.4}, {3.1416, 1.1600000000000001`}}], 
      LineBox[{Offset[{1.5, 0}, {3.1416, 1.4}], 
        Offset[{-1.5, 0}, {3.1416, 1.4}]}], 
      LineBox[{Offset[{1.5, 0}, {3.1416, 1.1600000000000001`}], 
        Offset[{-1.5, 0}, {3.1416, 1.1600000000000001`}]}]}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 3.1416}, {0, 1.36}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6206325572277794`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"w", "[", 
   RowBox[{"\[Theta]_", ",", "a_"}], "]"}], ":=", 
  RowBox[{"a", ".", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"LegendreP", "[", 
      RowBox[{
       RowBox[{"2", "i"}], ",", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"Length", "[", "a", "]"}], "-", "1"}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6206326639079285`*^9, 3.6206327165780025`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"w", "[", 
    RowBox[{"x", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0.5"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6206328638282084`*^9, 3.620632905418267*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw1mnk8lN8Xx5FlZlDMYEYhJCQqW5Tl3DZrkS0q0YJSqSiSlEiKlCVJSSpC
QoQSKopQEhKKSkLP2LeZxyB+9/vHzx+83q/H3Ofecz6fc++5r1Haf9zeU4CP
j+8h/vXf3wVvaA1/9ENNa+f/+yFBUUZRVeGGOyz4bi71DzPnR6zNt/jj8Fjb
yW4Ss087pVoy7zRoXF/zohdz14a67ufxIRCgSmxpwvz462a+vLKLwO2K+fcc
837a8hi+vMtw2mHDz0TMciCk4HD/Kix8t4Q4gfnryd6cR/ExwKeyeckWzOYt
3fLBb+PghmzvaQbm9GF7z0dlN2CCs2quY44EPuq7nIaim8B76Zx3D/OeZbqT
ZO4tIKWSr+zGXGqSZqSUeRtCPdZfo2OWcWFctLqfDJpFweXv/pHQGD0hmRKf
Cql9ynelMCd+KdD8U30faJu1txXNklDV5d14+u0DgEQDDRvMSjPfmA/K0iDq
zBvvEzMkbKfEl+mXpEMmwfo0NU3CeWkr9w9Fj+C9yGK3s5i/ry7NmMjNhM4j
/KLHeSRQTPysrmRnAat3UK1rigQDK41huczH0Okfdcoac4LHHX2z+09A+qpK
qgRJwrbbQVVJ8U8hZUjc2mmSBFMH2aJE83yQ6U/m3prA8drJEfpdnQ++2/ja
WsZJWHAw97H/2wKQL7JcZzJGwt5Q+bF7ZYXQ6ke5UztEAnmZt5G9rggcblkL
/Bgk4fr1rwm6JUVg4zb+aGCAhPLka4a1RcUgtkkujWSTIPv8X8hY7gt4G8yJ
+dBLQn75tyYjzRJY6b9xOL+HBIt3xcsiskvgc+rfmLg/JAQ0+tQsznwJM6zU
Bxt+k9Dc/2Ph5vtlkFVeqrCnk4Topa9TEuPfQFD/o7iwJhLMPiZrV4hXwCyz
RHr4MwnvI1yk9O0rIE7JZ8K+gYSaf03fFDoqIHRQ8R3lIwm1A1Ue44OVcPYs
H1ulioQPNdlBtyWq4P13nqRSMQlWFw/uWehUBcw1FvLLCvFzUxV08XYV7ErV
SFMoIOFjcYqQj3I1WHYPqwnkklCfFhuL9N5DhcmA89l0Ej6FBGT8da6F6GXP
zhnGk2BjpBvpercW1iwIdP4SQ0IDd+RIU1ctKFwxbDl4DbOPt3aZdx1cn3hX
ee4K5t2u5dfPfoC6MofyPeexvgw2Nuun1sOBsPOVo4dI6CeF5zecbIS3iUmM
M+tImF+2rcrgRiN83++uGL6WBKntNyK1ChvhzgqSF6lLAmQtlZKdaITyxpCl
EVpYHy6GK0b9mqD/y74rSAnr4aW3wz2/ZjCtuHupQoSEuKD6zGnfFmAys9sX
NHEhI4PuMxrXAhUj8mnHPnGhvNlFp6+gBQwZ+mktdVzo0+gtbxprAZfafPv4
t1xY3/GvKcv3K5xvut/SUsiFHqPVszt8W0Egvv/BmZtcMPwXt73wRDugI3fQ
Hif8/8GHb1Fi2+HiXhuOlR0XjGY2/tzztB26L9pE6G3jgilv4ghluB1y3Xq2
zmzmwiaO0+U9R74Ba+PiDmc9LtgMyb4W8foO2zPp57fTueD548FK192dIKBe
WOL6kQN1P10uCizrgr2rd2d80eEA2ug4k7G/B4I36RszKydg1wnL0eKdBKTv
zHClW4/DayWNsIpHg9D63EfKumAUHJM00n4cG4UP7bdlHY8Og0h3jk95wCgs
V7Jq7N43DKUrVxsmnx+FX54t3ADnYVB8o/vJ5fooiBbVlT3dOAxDvcbkl9xR
2Km43dRDdhgidG2tPwyOwqvdWZ2/a4agpOHkxPPDY3Di+D3aqRVDcITFfXXT
bwyUzTZ1vFs6BAr7A6+cChqDqu3hDotlhiCcEyyvEzUGt9yM93YIDIGdXIR5
7uMx4N9SOZzXOQj93knJacQY/OazGkyLG4QlQq82xXqNw+x01QFB/kFoWX5G
SPb4ONzPWuxyjhyA62b6NQ9Oj4MBo+rE/NAACFzJtSq8Mg75ucbrl3YMAEG7
Z9eaPQ4BfQ93NhQPwHOJEHe5kXFQUkfCk0cH8Ps3nM06PQGvbu8vSe/uB5rJ
P2PtCxOgaf3BYcf3fqja83Lu5ZUJ8Nwg4kJv7gfDVO2wj7cnQEbpZsXjyn5Q
UFaOHC6bgK1pvjLOD/phUG3BLT2+SbDdrtxUuL8fLutWP6u4MgncLW0dz4bY
0Gp+1rIkdhI4VcIRhn/ZoOKq3fU0aRKOv6nXre1iw9vwFPHUrEl4cjSlUKiF
DXNf/Q+dq50Em9Qnk7xSNgQEqiqsp3CgYMDyZ30UG6qjO4u0JTgwpGuazQln
g9SDeOsVLA58uWXSoR7Chmd1c4EsdQ6YE04X806yYXhx2xeuOQeMHfyiDPaw
wevV5cjCyxz4OONgtkWHDcVNJopPYjgw3hE+J6PFBsG+iecPb3FAnfnXb0KN
DQ8X7u2Jy+SAzNyt9Hp5Nvx0N4QTNRz4+vLNCz4aG3YIsCc1RbAvUPj3kz0E
PJJJvaqyiAsj94YeTPwiYFLDSVmOyQXJz1S/8x0ExDtU2oqqYZ/yzZsUNxPQ
kH47m23GhYiAyX+ZlQRsMbfamxHBhar4pLePHhBgO+rR5n+dC08yTywZSCFg
5+0Qmy2JXKhZ/Xub0R0CfAaKjHseccEvLWbbbDwBN2OWyipXc2FDNY/Jf4mA
3rbJppQFuC5W3i5mHSFg5MIiSx9RErwMB9aKHyKAt0KjwphBAl1Nq1rMkwDx
YPe8DmUS1AvYDC13AvQVP0TJbiQh3K6uZtyBgEuHUjfdvEDCjPCl5gQgIEay
tNQD18GsQMkDRiYE3C5t0daLxfzRbcXQegJyxWiKX1Jx3X8x4+63loCv+adm
Jd6QwGpQyV+wioBfO2NOdr0noVObvUJQkwC2QHb/U7wPJGxuYy/SIOCf4692
m58kCMwlbbJUJWA5z7I4Gu/bPX91YzctJWD1Qw9NV6EpSGLRfe7JE7DOOiRt
pfgUOEt9SRGUI2BbSlHcB7kpuCMtzj/BIsDZ7DPljsoUwKDf2rNMAvaNsEO8
Nadgr9bN6oUyBPhvWHqMYjwFr5N8uc4MAkL61/W2bZoCA5G3d8TpBETecHTN
tJ4CLa+ZlAYJAlJ6I63Mdk+BpM3Par+FBGReT6+UPjAFPV41g07iBBQYvDHs
PTwF36+xTm8WI6A6clI1PGgKKqqnX26iEdBKtbz5L2wKUtw10xGVgL7IlAWn
r06B4UP6jBWFAJI67jt6Ywpc9Svf7BchgBJl1uV9dwq2PjWeuCxMAIuWbPMn
fQru3QhKLBUiYEXUSLlr7hSo2e/LnhYkwCoq6bbt6yk4W3RaLW0BAbtoQyJ1
76fgWL16vCjmI1EbAjZ+noL1jy6dCBUgIJiW2FPWNgXKpiveCWKOjuq31++a
ghvnUqNu8hNwlwaVecQUxK7xrNHFnBt1Y7X62BQspRFnfvER8JpGpDzgTUHz
w4iHSZgboozFlgjwwCUwdoM75p+0uKAEGg80hrY462IeieolxBk8AIv2P1KY
+UTXO19ewoMvRd5/F2CWuHq9mk+FB+YbxffzYVYS/aMbpMkDwZ73DjTMOlcN
Hk7o8eCc79VyJcwbRaMlfEx4YJCB7pphdrjadb5vCw/YSq/GAzF7iOoPudvw
4PGh2jclmE9djdz9bQcPtP4sXiCM13NJ9GedvTsPZH/tKd+LOfGqjmH9QR4c
iFk5UIs5Q/RyxpYTPHgntijGFMfnxdUOqTeBPDDcEZ5ZiblWdM1Fw1Ae3LGb
0rXH8W2/Gj5WEInXV1+rO4qZEP3mvjKeBy/Obs5IxvnhXdVqSL/Dg6i57ChH
nD+aWJixQhoPpH5odi3G+V0c3Zp96wkPfKMGHg1j1hBbKStZxIMTnrzvn7Ee
jKJDLkeV8yDt5c7zr7FeXKPVPc594oH3wy+iVVhfR8XONXO/8kA3MGviuygB
56Kb0ImfPFDfarZlHuvxXnSQ/IERHixuz1U8sYiA39H1rRaS03AjLyl2XIqA
cTGlLW9lp8FL7GrqKewPgWv+hUbK0+DhtU9MEPtJ5ZpC7CrdaeBaZk9ZLSHA
69oJSymnaTB1J/sClQkIEK9+cW3PNDwxfpXvqULA5WuyqiJe0xBv8rbWHfs5
69pbgemAabignfz9LPZ7/zWp8l9J0zCaXLHJQZeAWP4D8zX3p4H2LO9NqD4B
a/0LNuZnTcNel8iKMgMCwlxt6i6UTIPI/S0W9sYEyK680qrUPg0Lf2mtoZph
Pd5rlaV1TQOiL0u4YYHzT1++Z/wvnm/4gcMrrAnI51X+eUtOQ3Dm/QOntxNg
UTszeoA5A556CXB3NwHDRlZ6W5fOQLhk6WCoGwEJT5NO66nNgJnRa67fPgK6
EvXnBA1mYPRBm/TpgwSc9jwumrFjBhbHymuJnMJ6EfiznLg5A/Jx2gKbYwjY
GqDt3ZgyAzvb9cR+4no9zg7JKXk0A2lGI3AxkQDTJjndyOIZ2PcEZEZwvf+a
ugNpfJ0BnkM/c2suAYImH3YdlZoFRcciFqsB16/TBTGj8bMQZlWo2sFkw8K3
6z6EJc9CiGnhiAner0rF3gpKp8/CDCXFIFeZDfSHzWfWFePPp65cWYD3u6r6
iQNhbbMwunzByLbNbFBXXmsoJfcPYn2CVnzF++dIfWmXwaN/wE1iRrI72HCX
uWnJh9x/cOVSi8jnbjZY7P/o5Pr8H3SOFyhXsNlwn+z4cKHmH8yY/xarJtlg
r/yvqI79DzJ35ze6SPXD89MQuXvVHGSpE233bfvhnHKVdsiLOTiqKGYT0NAP
PfwFW9lv5sDbealQUms/bP2dctChdg6U1gz+fPezHxbfP52i9m0OTpafb103
0g8l8iupjdNzoHzsydcUiQGYZMV3KZrOA7irjpk4DcDRRXtj3lbNA6tPdnty
7wCsmjvHFfDmQ09pZmXXFYcg56DvsZGjfGjryyWmhhpDsLLJo6/jBB/6UZbs
SOgOgXq6dWtRIB/SG7ZiupoPgZKV7HOvK3xozVD7YOyxIZBKLPL/kMmH5t4r
xqq9HoJprYHJuD4+1PHnu1E1Pm/W7HGZUPTgR+3X7HcnlIyA9j2ftnOnBFCw
sn9nxaEx2GxXuavYbwFaoy84zesZh5W9ttUrIwSR10Gbq4dOTEK7t2aMZ5Qg
evTgdpl2wCREDFN2pl4XRCEJsZpTZyehi6wcpN8SROhJ+fPgy5OQQNOTms4U
RMmPd5YcuDcJs6tZB2rrBNEhetyPtI+T0BDUxecpLoRKN/6qrVjGAT8JX+N7
CULoYEaZ3OI6DvRf/3AiJkkI5f1zfZP3iQP7xVUeXbgrhFaxTfOhmQN2tDbx
A+lCaPwM7ciODg6sETT5pVYkhEY2+NftGOLAMEkJK/gihI6G2exOleDC4V/3
a6rowujwmRlVHUcudO+ZnimWEUbMfL6NFi5c2NXpsCZzsTA6O5yhssuVC5bf
hG9HKgsjwQyatq8HF9S/HD1soyOM1upenDpyCvcv7w3F2+2EUUvA9e7YG1w4
kNdoPxArjLymngqdb+CCG6smTPumMLoR3nbfrhmPH/bq2enbwkglK6d0aSsX
tu/Ipgs+FEZhmkI7n/zggvHcxWa5QmGUneBcGzLIBSkbA3ubr8KIc6ekWpZK
wqISrbCEb8IotXXb9htiJNCUVZ59/yGMqkPEmCISJPBxJegH+4TR0gMWlj9k
SBhM6W8KIfF8Zme/bFIhoWooxa5AVgR9uGuvwzUh4Y1zQigpL4KSfMWKJTeQ
UFoZVWCiLIKa5+cN1DbjfvvmackPGiJIYNelNciKhLsmdk3dRiJIpUXp6ood
JPhfE7STchNByGk5t/UoCapaR7affiiCqnQEYyNu4vfH/uw/lSGCFIuf7S+6
RcKzSbtLftkiKGvCLb3zNgkm5YalPs9E0PuQpUfl7pHgaC2s4vFWBEnNhzS7
ZJAQ6v2A3N4tguiHqAbvcH9t9kkq3qZPBI3XywneekGCmPYVza39Isj1jK+i
50sSkqaO7TMfF0HGV4pgtJyEvMvGH00EKEjmWsnfynf4XPeo7Z6GMgXdbVjm
bddIwkOq9Tp1VQq6em25e10TCYd8Xn9ZrkFB6xKdooy+kDCh94iipENBclHh
QQtbcbyr/PyYGynI7rZJ8rEO3F+r9YlJm1HQ7rEsRkkniffnnZl0Kwry4ux9
PvODBCUH1CluT0GBjkX+vl0kGHaLmwnup6Bx/yWlMr0kzG0J7eL3oiDVRO5+
7T6cn8eTQfPeFPT+cL6m2V8SbH07nk77UtASyUAFNzY+J/M9lh0LpaCjmhlu
5kMkaHrIFQ1foiBd4u6YzjAJYzUxNoORFHTLPSiFNUJCcEzAxb9xFHRnztW4
eZSEGwqbh348oCD/Bp2QuQkSntezT9c8oqD9Mu3yLyZJ+B4UI1DwmIKkrAep
hzkkKLZ9Z4YXUBDTurTmNZeETZcuPPQppqA5xVVJe0k8H11VLeeXFCQxHV44
izknxnejRiUFVX+9WruMR8JnE+YnRjUFZccqVeZhHh8od/5XS0HbKzwF9KZJ
WGdB8WlspKAFkvx7tGZIcOXmki9bKKg7y9v/AeYL6Q5hae0UJJCe1rJoloT3
fKm3ArpwPIl+zw7M7LzNynt7cDz89W8Z4nO42J7+HEuCgpKGPorHYl4jGmug
O0hBnx7tqvuN2eGl/lu5UQoyOnajTmuOhICDHVuFJymoMl5r4SnMd6RD20ZI
HM+O3sQizK/eqe7/NkNBCVfPHxjB3OVbP/h2noKcPd6cVJknYYGi3+mcBVR0
86F/jQNm1QamQKIIFa3lO+V2DrNV8KvoEFEqUi2KN3zw332lxgGm9yIqCvR7
6vQGc2w75aE9g4ouHM0tbsNcFJGnacykount/i79mNv0HF8sX0JFrK0cExLz
dDdvw6KlVJQoouQ1h1k+LrV+SpmK3maPNf53X4pgi3O3KhVFf/c8P4PZY6j/
90cNKgp5GXpsDPPl5NijxauoqPSvzYPfmLMt15L3dKhoMqxTph5zA9kRemUt
Fe1Xhc/5mMcehYr5raei9P7YDzGYpRzVbu02paJizzGKN2YDgU9KWzZSUUX2
pShjzLvy/XJWmVERzSrQlob5nBvLgGVFRa+285ybcfzui72u5LfB87UwTU/A
/K70wNYBOyq6ahimZ4e57xC1rcWJijoeClEpmLWqHQcz9+B4uhEhHjh/209O
B8TtoyJpxR5lGuZTSvf5z3pS0XUTF9FsrIfScwMyNj5UJP9CIa8d6+fHyrgH
Br44/rvXeR/EzPd9raaSPxWNsV2PjGL9ma0N2zAZTEXjcVfNxrA+vXvU6n9c
oKKNr6MUvTFHx3/aURNORXemgzZ1TJHwZZh19E40Fe0dtffKw3rfm/k0Ed2l
ok3fJNZIYL8IbxiXC7lPRe5hlgVW2E+53/XSXqXj/EV6nD+P/TYtXvp0fS7m
xq75pjHcV56qqtV7TUXvd46XqmP/rl8oYnvyLRUZqlOfa2F//860/Frwnory
AwWFNAdJWNXR8HvVZyqau2uYJtVPQu2Gb9PqXVRUztMQSMT15FjHktCDPVS0
B6pfefaQIO3vJpJBUJFPj2rbqj8k7M/6w1g2RkU9P96o5+J6NLtwWFNegIY4
9IPHd+F6tqZTwF1ShYZYF3v+BH4modV/S6+tOg1FKdqu+fUJ53PRlSPXNWno
zO4fE6b1uI/fKB4oqk9DWmdf/+2vxXp7zIwTMqOhxavTXkxW4nocoPmOd5CG
4hafKml6RoKpxHFLw6M09PTm+/2N+ST0Pi74HHCChsTuTaTX5pGg82Nt50Qg
DW1Upk4/yiahftMGzlAkDaXv+Ksu9RDnT3KHWvcTGkqVln1TEUOCb7o0q/0p
DR3OvWd98RoJ3QZfKQ2FNBShf9QLXcX11M2x/2UZDe1++dY2O4KEyBz73LiP
NORIVqwxOUcC3cJWd8MADb20Pmu4z5sElRALuK8hikyDor8W4v3xJp2yJnGV
KJpaWdZZvx7nN6NGMVpHFAWvt3rXZUACUW8mELheFGU4Ca7naeN8L95SbWuF
n6vsWTq0nIS1zzdYz3uLoln9BM8/eL+2HFrv7PZYFBm111QsbeOC6dFbmx7n
iiL62tRumy9c0BmYWD1ZIIpCb773D/zMhcXsHEpUqShqC3vJX1bDhcEehdLi
j6Lo0OFQrbkXXIjtFJAXHxZFW9bVf7lwiwutHz90l+mIoS+/k5OS7Lngkb3r
mGy5GKI/mNu0upQDz0+yrbZXiCEKtue6Yg5QTALVLleJoYr1U89M8zmQ8/lm
12S9GAoyPlFpksGByclG+8YfYsjuUMMx0XgOXARzg8vzYkjP6swU+xAHHrbo
8nE2iqP5qgB6J4MDv+fE4hvrxNEuV4WqP+6TIPz+n+P+6oWo6/gl/zjuOMz7
rJjXaV2EdkZ8n3/uNgbbqyxVjh+WQI4qv9l720ag6BXHb/9RCbQvNLL4UP0I
sF48qHQ6JoEsB+UvnKocga7HPDdjPwmEsp4ZJT0ZgRMxj29TgyTQ+1cWxyUv
jEDsLuqi9EgJ9JV/pPHLihFoHK3ltWdJoBP3B3p/XRgGO3mLzxv/SqDg/lnV
DTAEAdFvk/eyJdBKv/Vl1XpDcHfG+ND5AQlkGkYZsMPnb+KbNn/piAQaFF66
NVR6CM4nLtHVnpJApYcad5oMDkLOopHEpVRJlPzFolAveRCEBRLdZjUk0dVz
u/iPzw+Apq/EysVakqiifUrkH2cA7LuiSIPVksh8seKihMEBSHkdEntSVxJF
OC63/PFtAPTOer/tN5JEgXI3Y38UDcC+SWPVb1slkdfrsOP3jg5Aed+foeJj
kshUU9vp4J9+qGm+e/zpCUkk8FFD5nlHPzS/dhrL8pNEjS2+FeIt/UAk1kwm
B2BeXjbcVtUPUuZPZkLPSyIXAZnQ9ox+OJrpR7W5Lom8TT+2xh7tB7lD/Mv7
ciXR564440XzbFBzLM349VQS9b5gj16ZYoMOOqn+rUASFVoKHBUbx/0Wq3dl
fbEkan/5/POaXjacqq3VefZKEpms7ZwZ+ciGevVYdP6TJLJdRRhvS2bDWbaC
q8yQJDqnsXFhzgb8eeuM3etHJNFLBYUAnhEbpHK1druNSSIzoZW6DmvZkHfC
eFcGRxIdvpfzfuVKNu4vdrqsnZNE1XYiQn7SbNgifNNxxyI6WiYhbOoySAD9
kJxjkCQdhcUe6Pb5S8DPujSHeww6OiNYbxzbTUDgtWf2fUw6ek6bWTHTTkC2
VOP2AEU6Stfbev7wewIWLRPdlqhNR60hbg8L0wjoDI/fWqpLR4eT16vcSiUg
q0926099Olqz2yfvcjIBG7PVrVXX09Hr3/uHY24QcErbzPL5Rjq65CWXbBJO
ALrxyeL7Zjo665b+M/ICAeIcR4s5Mzoqc5a2+ROM+/GSA+Zm1nR0KmlP5St/
Ar5B6JZWB8y2fw9LHsLPH1C2TDvR0WDDhZAaDwL8FsRuVnCho1XSjb+icL8v
VnNvk5crnk+2U/y63bhftynfwPWgo1dyC5cZ2BKQ5kqayATQEffVud/F6whw
NHo1Lh2I16OxxO+IAQHCiy9mSgfRUfz01xpNfQIOty2UlD6PxxOJ/di8hgAd
e9UeRgQdqZtNHc9RJ6BnzWAS4wod5YUVe1aoEpC46Nk2RhQdeVis1e5SIWC6
3uQF/TodbTXkbN+kRMBbc6coyUQ6mtzF6bm1GMdHdQlIJtFRgVleKU2WAFWh
3xMSd+jotFvnyUgmAVFvj+6RuEdHzyJiErOlCDB+oEOXuE9HTnfHBbYxCBgO
mXq/6CEdXeiNcJmRJMDeJHzNogw6+mkeXHV2EQGCcla9C7PoSGid649tCwl4
Pr3ozsJsOmKJHulZKU7A4pLkBQvz6KhjMqZSVJSA+sR9JeL5dLQ3pvq2OI2A
8/5qPuLP6GjXQm+PJVQCunUKW8We09GOsOKWXSIEJEieuSpWQkeKFxWCo4UJ
MBs1RWKldLT6vL/sByECphoEOaLldCSQEpzLwJyd++Gx6GucP+l+Q2/B/+7D
Yt1EK+jIbeWh8g8LCFh4ZAdD9C0dGa+8aWiIucJSrpZWRUebjy3IKxDA+Vbv
Dqa9pyN/53XyBphVRLK0abV0FONQEPHf/V9rr08f9QPOX/u3fk/MV6p0k6n1
eL6e0laLMK9P49lSG+hILbQ0vYqPgMHQN4LURjryLmPMXMJ8b++ll5RmOnJ5
4r7NAfN2sD5GacF6HmlM1sTMryC5jNJKRx9WXe+TxPxstrVNpJ2OeqSfaf13
H+rRcTda5Dsd3dhp7fvffahM6f4NIp10dKLYtYCKuTZJnSv8k46UBzuHFDAH
nR7OFu6io4M1z1URZs0dRe7C3XSkyarb7fPffaxekJRwDx1lP++LzsAcy0B1
Qn14/LDWlwP/3aeOC50XIujI/oBDtzFe32TjRx2hfjoytxATvvPffejTuL+C
g3S0dEW6ygIcL5frzncFh+lIQ/iZSSBmmo+8neAoHdUTFdt5mMut/wgJjuP8
/LHdE4Hjr0g9fnwBl47+PsjbW4XzxS9uI8cj6ehBeU2FL85nt4RW3TCPjkYl
+B5o4PynsQaUv//DvO/fz9dYH+FyHz5/nqcj182mRncoOD6Kj4Or+Rloq1ai
VCjWk6r6wdZ8IQYKCqca+WL9iWiaXcwQYaB9yRYRQWIEEKuXr7lLZSBCtM8q
Buv1scGfyMviDBTPpBl3YH1rmrubuEkz0AkD7Xuz2B/i1qb9DkwGqrrXn7BP
BvvDRv6WpSwDFV2+MNOE/fR0R8eonjwDLVDMp3/F/tPxck4XXc5AF/6WgQf2
J/3wWjt+NQZ6WLEpWmUZARM+0nNcdQY6fuOg8Sj2c5H/F+duTQbK/h1f8Rj7
3+CSrehLPQaKexK2/BGuD6zIVSV5axko59QG1wodrP9occ90QwZyHE3926dH
QGnCx9cxxgxk/Wt4wgnXH+N0cz+vzQzkedwlo2wjAfJZqktdzRjo+9eeLdpb
CJh7IlRvZ8FA20Jd1Z+ZE/Cm8N1yk60MFP7YM+frVpz/d/CN4chAJb/6D6c5
E7CsRiGCuoOBVn9W7/Tbhf3/8Z/OvDMDHXzKPrttDwHVzWXR/bsZiFkyYaRy
gACLbgNUeQDHV+nTMefjBNjwr8k8dpKBpJg5/M2RBIwG/Wi67s9Ap6fAP/Ua
ATcmo2bzTjPQqsqp1jNxBLT/7bUbOctAb27tc3C6TcC+huTZ4+EMlHjh7rOM
x7i+JYvY+95koJ5lYSN59dgP0sXBcbcYaPz9jiWWTQS8vL4/s+A2A3m0/SZG
vuL1hr6aHUvB8QyhOB74RcDlQycz/TIYqMxw6kvXOAF39H/NnnzBQGNjvERt
OTYYP41WS3jJQJWe+RY3lNjwS329fVEZA/HtPLKBX40NKnI3MyffMFBkoMsI
vw4bcgWs7f1rGWhScfjaTQs2VHx+nhnwDfPV8dV8gWzo9b5uf2aGgWZ35S8q
/MWGo3uDdPz/MZCoe9qyJX1smNzhRfedx/Ft4KldG2SD4GbT5kMLpFABzZu4
zmODssKwnYuoFFryyyWBItUPe5u32RkskUJRrvRvDVb98H29+HbOeilEyUHq
p9/0Q6No9DbfIClUdoTP6/a7AZANNHtyK1gKibUd/jxfPwD7e/ior89LISvr
Nc+Otw4Ap9y/inZRCqm5LSs5wh6AxcfcjdKvSiEXVk7cl0WD4Nmos6LtrhSS
qd5c4uI2CNMJ3wRN3kghtlrvHYJ/CJYrqJVTBKWRlECT2Lm9w6ARLKqtcFUa
rfIu0RF8MgrhjBiOIlUGOUxfPbxKeRzMl+RrvYuTQaviBm8OFk+Am+uJYntJ
JgrKOb/tCD7fxoVlDZgxmEiuuMLcj8WBqqwuJSNpJsrMfbgtQJ4DGpzt15fJ
MpEtqeztr8YB8pr2wUlFJgpPLN9pa8SB2DfjrMQ1TNRYtJTv2H4OvFX2D/5m
y0SqN5O4+nkc4FjkPvtkx0RPZ187f33GAfXjvUSlAxO526zQ9n3BgetlTk7Z
zkx0PUTP6F4FB3Y7rl111p2JZqw+a39qxuf1S+QvueNMRMa9+h3E5YAq+8ym
vdeZyO6vST25ngtLLl0gz8cyUZK5wtxp4IKE0uUnKfFMxNPWPjyxiQs8lwRG
RyKe777PnR1buVBfm/fHKZWJOhkb7vu5ccEv689F63wmulMf61h4gQuvD26r
WtvMRBlG/KZ7K7lQuMAx0KmFifzW1bmbVnMhK3WX5qlWJto9GbCcWceFuLaD
CQXfmajlH1wtacT9iXmYh+YfJnpvLGBZ+osLNLUXgsqTTFThodFbPMsF5z7F
LeIyLLS8BzJ8dXB/OO+ZJ8JioRb+AEcvfRLEWE+YAotZ6NT9df1OhiTeP/X7
ufIsdNZ2rGK5KQnquZYxXctZSHDP+MfLliRMnfT7VqjPQkTn5hF7dxKao19s
zDNgockdObWT+0jIeTT7JGsdC6VH0tziPHB/3xZxPsWEhTbOnX5WivvDuvXJ
yy5vYSHpmeayTydJuMNf5bPLiYVeTwaunsD95anF1DZHZxbyi1/0ACJJsNG1
QbY78XzOaGZF4H5UwLOdvnkPfv+U1DHBWBKO1A6+0PLE7193Lfl1EgnGMdIC
/P54PbFCGSsfkyCTtevITAALyXranlB8QsJoRWoLJ5CFggVn8hblkpA+viKz
P5iFRhcPhP7A/bTYDtOtLeEslBx+2WptCQk/5A4mZiaw0GDvgY7v1STsWG7c
25nIQrt26kY9qiGhUUtSj34bj/9trZZ3HQlvTcuaglNYyNDcwrwD9/dZexeJ
22fg9VHPxh3+QoKSd8/uy1kstHsmIXO2Ba/f92V2eTYLHS1MfXC5lYRrYQcs
1J6yUKICbf2VbyT4pb+4OPuChSo/P6nT/UXCQE50s3Ypjq/ZlfroLhI8ivcp
HSxnoaBu40c/f5Pg/F70TVMFC/W11jQd7cHxINynM+pYyOVDyKAOm4Tno3qW
nR9ZKOfQjJ99PwmredQkyQYWOhfk+e7wAAnKtCL94GYWYnY9L780ROL9leJr
14HjLSQ77DFGwgW9H28ifrCQDOPmfatxEqaNny0s/8VC+SctGCsmSBjc5pqj
2sNCSjZK+o2TJHjt0J7Z3cdC7yc2didxSPjlJmwVR+DxzBKsd3Gxfo7n/50Z
ZKEn+Utta0gSrAMvrdUeYaH2+rt//aZIqLqw65LXGB4/7bMhk0fCizjBZU0c
FipcaipgNU3CmjvffIWnWEjs/YIz7ZizH+ZVGE2z0OqVNx65z5Bwt9DFLWOO
hapGwuVdZkmQLtfK7eCTRZcOlRysw3y9SmBWYoEsYrU4e+r+I4Hyqc3KTEgW
PZr9LZ2IOfRrzu2zIrKoM/5n4Bjm6R+hRD5VFkWv+nltyxzWa98Ogz5RWaRp
G+QYj3loeGXEkoWyyMXVqb4NsxfJ93W7hCxCGYs50v99v3L+67IIuiyS8Drf
sBXzTsoTvzIpWWT72sQlGHOzxIXKURlZtKZMIT4d81ZZJwlVWVnUaj96thpz
tZKG++4lsijeM0r6F2ZTjfncWHk83utPbv/dT5botMxWL5VFlyXTnWcxaxs9
tp5RkkX//z7o/wDBIWK9
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.72},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->
   NCache[{{0, 2 Pi}, {0.7500001826356958, 1.4999999999999876`}}, {{
     0, 6.283185307179586}, {0.7500001826356958, 1.4999999999999876`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6206328874682417`*^9, 3.6206329060882673`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"w", "[", 
     RowBox[{"q", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "0.5"}], ",", 
        RowBox[{"-", "0.3"}], ",", "0.7"}], "}"}]}], "]"}], 
    RowBox[{"Sin", "[", "q", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6206330367584505`*^9, 3.6206331080885506`*^9}}],

Cell[BoxData["1.9999999999999996`"], "Output",
 CellChangeTimes->{{3.6206330676784935`*^9, 3.620633108698551*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"graficoDado", "=", 
  RowBox[{"ErrorListPlot", "[", "dado", "]"}]}]], "Input",
 CellChangeTimes->{{3.620633659079322*^9, 3.62063366506933*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], 
    PointBox[{{0., 1.03}, {0.5236, 1.36}, {1.0472, 1.01}, {1.5708, 0.54}, {
     2.0944, 0.91}, {2.618, 1.36}, {3.1416, 
     1.28}}], {{LineBox[{{0., 1.15}, {0., 0.91}}], 
      LineBox[{Offset[{1.5, 0}, {0., 1.15}], Offset[{-1.5, 0}, {0., 1.15}]}], 
      LineBox[{Offset[{1.5, 0}, {0., 0.91}], 
        Offset[{-1.5, 0}, {0., 0.91}]}]}, {
      LineBox[{{0.5236, 1.4700000000000002`}, {0.5236, 1.25}}], 
      LineBox[{Offset[{1.5, 0}, {0.5236, 1.4700000000000002`}], 
        Offset[{-1.5, 0}, {0.5236, 1.4700000000000002`}]}], 
      LineBox[{Offset[{1.5, 0}, {0.5236, 1.25}], 
        Offset[{-1.5, 0}, {0.5236, 1.25}]}]}, {
      LineBox[{{1.0472, 1.1}, {1.0472, 0.92}}], 
      LineBox[{Offset[{1.5, 0}, {1.0472, 1.1}], 
        Offset[{-1.5, 0}, {1.0472, 1.1}]}], 
      LineBox[{Offset[{1.5, 0}, {1.0472, 0.92}], 
        Offset[{-1.5, 0}, {1.0472, 0.92}]}]}, {
      LineBox[{{1.5708, 0.6100000000000001}, {1.5708, 0.47000000000000003`}}],
       LineBox[{
       Offset[{1.5, 0}, {1.5708, 0.6100000000000001}], 
        Offset[{-1.5, 0}, {1.5708, 0.6100000000000001}]}], 
      LineBox[{Offset[{1.5, 0}, {1.5708, 0.47000000000000003`}], 
        Offset[{-1.5, 0}, {1.5708, 0.47000000000000003`}]}]}, {
      LineBox[{{2.0944, 1.}, {2.0944, 0.8200000000000001}}], 
      LineBox[{Offset[{1.5, 0}, {2.0944, 1.}], 
        Offset[{-1.5, 0}, {2.0944, 1.}]}], 
      LineBox[{Offset[{1.5, 0}, {2.0944, 0.8200000000000001}], 
        Offset[{-1.5, 0}, {2.0944, 0.8200000000000001}]}]}, {
      LineBox[{{2.618, 1.4700000000000002`}, {2.618, 1.25}}], 
      LineBox[{Offset[{1.5, 0}, {2.618, 1.4700000000000002`}], 
        Offset[{-1.5, 0}, {2.618, 1.4700000000000002`}]}], 
      LineBox[{Offset[{1.5, 0}, {2.618, 1.25}], 
        Offset[{-1.5, 0}, {2.618, 1.25}]}]}, {
      LineBox[{{3.1416, 1.4}, {3.1416, 1.1600000000000001`}}], 
      LineBox[{Offset[{1.5, 0}, {3.1416, 1.4}], 
        Offset[{-1.5, 0}, {3.1416, 1.4}]}], 
      LineBox[{Offset[{1.5, 0}, {3.1416, 1.1600000000000001`}], 
        Offset[{-1.5, 0}, {3.1416, 1.1600000000000001`}]}]}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{214.54545454545578`, Automatic},
  Method->{},
  PlotRange->{{0, 3.1416}, {0, 1.36}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6206331386685934`*^9, 3.6206336659293313`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"dado", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"Length", "[", "dado", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<\[Sigma]\>\""}], 
       "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.620633145538603*^9, 3.620633191638667*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"x\"\>",
       HoldForm], 
      TagBox["\<\"y\"\>",
       HoldForm], 
      TagBox["\<\"\[Sigma]\"\>",
       HoldForm]},
     {
      TagBox["1",
       HoldForm], "0.`", "1.03`", "0.12`"},
     {
      TagBox["2",
       HoldForm], "0.5236`", "1.36`", "0.11`"},
     {
      TagBox["3",
       HoldForm], "1.0472`", "1.01`", "0.09`"},
     {
      TagBox["4",
       HoldForm], "1.5708`", "0.54`", "0.07`"},
     {
      TagBox["5",
       HoldForm], "2.0944`", "0.91`", "0.09`"},
     {
      TagBox["6",
       HoldForm], "2.618`", "1.36`", "0.11`"},
     {
      TagBox["7",
       HoldForm], "3.1416`", "1.28`", "0.12`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{1, 2, 3, 4, 5, 6, 7}, {
      "x", "y", "\[Sigma]"}}]]]], "Output",
 CellChangeTimes->{3.620633191938668*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Sigma]", "=", 
  RowBox[{"dado", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "3"}], "]"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.12`", ",", "0.11`", ",", "0.09`", ",", "0.07`", ",", "0.09`", ",", 
   "0.11`", ",", "0.12`"}], "}"}]], "Output",
 CellChangeTimes->{3.6206340752499046`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "/", 
  RowBox[{"\[Sigma]", "^", "2"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "69.44444444444444`", ",", "82.64462809917356`", ",", "123.4567901234568`", 
   ",", "204.0816326530612`", ",", "123.4567901234568`", ",", 
   "82.64462809917356`", ",", "69.44444444444444`"}], "}"}]], "Output",
 CellChangeTimes->{3.6206340903999257`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"meusPolinomios", "[", 
   RowBox[{"m_", ",", "\[Theta]_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"LegendreP", "[", 
     RowBox[{"i", ",", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "2", ",", "m", ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.620633709229392*^9, 3.6206337830594954`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearModelFit", "[", 
  RowBox[{
   RowBox[{"dado", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", " ", 
   RowBox[{"meusPolinomios", "[", 
    RowBox[{"4", ",", "\[Tau]"}], "]"}], ",", "\[Tau]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6206337989495173`*^9, 3.6206338275795574`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"0.9563831696996584`", "\[VeryThinSpace]", "+", 
       RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "-", 
       RowBox[{
        RowBox[{"\[LeftSkeleton]", "21", "\[RightSkeleton]"}], " ", 
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+", 
          RowBox[{"35", " ", 
           RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}], ")"}]}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Linear", {0.9563831696996584, 
     0.6066375093466941, -0.39120183333691755`}, {{$CellContext`\[Tau]}, {
      1, Rational[1, 2] (-1 + 3 Cos[$CellContext`\[Tau]]^2), 
       Rational[1, 8] (3 - 30 Cos[$CellContext`\[Tau]]^2 + 
        35 Cos[$CellContext`\[Tau]]^4)}}, {0, 0}}, {{1., 1., 1., 1., 1., 1., 
    1.}}, {{0., 1.03}, {0.5236, 1.36}, {1.0472, 1.01}, {1.5708, 0.54}, {
    2.0944, 0.91}, {2.618, 1.36}, {3.1416, 1.28}}, {{1., 1., 1.}, {1., 
    0.6249984094544094, 0.02343451773193639}, {
    1., -0.12500318108443526`, -0.2890591863507035}, {
    1., -0.49999999997976136`, 0.37499999994940336`}, {
    1., -0.12499363780414474`, -0.28906912720864286`}, {1., 
    0.6250079526942227, 0.02345241142464438}, {1., 0.9999999999190454, 
    0.9999999997301519}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`\[Tau]}, #], {HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{3.620633832209564*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"%", "[", "q", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.62063384354958*^9, 3.6206338548295956`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw1m3k81N/3xy2DsYxlMEZJtiRSiBA515IlS5GtVFqkVSJLtEm7ZCmRNZWQ
UpQkJKQslZBdNPZdzLzHTt/7+T0eP/94PB/vMXPvOed17nm930b+kLfDES4O
/EPi4PjvN/cngdpenStGl25ryX75xAQ5mpyy7H13WKEoqlmNmd0ZZdd2zxv4
/bcfb8Ls1Ur+IvYqEFI2J34dxswwru7Jv3cZOrfdteQtZcLzJjOOV0VX4fTz
CxOqmA8JrInkeHUT0P3Y9y6YZYBHdlfqHaB7tD0Jx9x0tv/ls3uRkPda4nU1
ZovGnlUXyqOh23i4XbiMCWkTDkeeFd2HjUrVSnsxc/B/flmb9wDups2E5WLe
p7iJmMmOgzt7bwuKlDOhcOtTA/mMeAjQ90jzw0xzFb+6PTUR1K7Drh7MdeEs
seR7j6AifnSo6TMTYn/lru/9kgoJq01q3CqYUME4XhdY/hg0nqXlD2OWX2iT
elz0FFy1Ep6u+sqEneR7RToFafAjGZI/Y74kud29Ju8ZjI9LxvhUMqF9Y2E6
KzsDSEEXj/dXMYG81Xf7raxMcIl+DS+qmaC7XXVCJuM5OJ5y5AqqYUKMR4KO
eeoLWBlutGX9dybYxgdXPLz3GkK/hA1O/mSC0S7pvFiLHDiw584Ddh2O1242
T/eXHJgsGOXhamAC99Hs5/7ludC47bCkViMTDlxZNZVS9BbQzXNbJlqZMHNz
zmRYPw+0C/5ZaLQzISKiKWZTQR6omd3oCepgQnHiXb2qvHeg3R2dqtjFBOn8
pctT2e/BspfjSF0vE3KK2+oN1hfAHzKdw66fCZaf3yneyCqAusaCwYYBJgTU
eVWuyPgA5SfkgpjDTGgY6RQ2Sy0Cu11/ntycZEL46pLk2HufwHfuRBDnPyaY
f0vULKWUAh+nwGZpThZ8veEqoeNQCoyfTlV63CyoXKpvk+0oBbKK7aZIPhZU
jVZ4MMfKYGsC74U4URbUVGYFx4tWgCVj7C+fEgt+XA5IH3SpghsV6Q4TO1hg
Z7Dp9t6kKmhWMzjOcGBB7fTfk/WMKjBX4pJpdcLsdVyz6Hg1FMWqc7W6YXbb
WxxxvgZ4qQHnpY6xoE7XpEHn0Xe4dHdi6MoVFozM8P4zPlsH5XGKLw69Z8E/
RdsK3ft18HDw/cXHhSyQ2Hn/tvrbOjhywvV5z0cWQOZqCWlWHby1kyo4WcGC
GFe9dZO+9XC8TPxIbD0LjD4c35Xi2wA62/aaGoyxIDr4e8a8TyP0KA3vW6dA
QHo61WsyuhFykzPsb68hoLjBVWsgtxH+LTF+D6kQMKDaX1w/1QjRh5/uS99I
wJaOpfpMnyYYeWZ0hb6VgD6DjYvOPs0grcSeq3AhQG8peufbM63A1SSUlnAH
v/7CiThyVCssjSRF5kQQYLBg0rXvdSvYTz8z/xxNgNEc6yR5ohUufzEv6Yoj
wJTtdHPfyTaoTbT0HH1KgN24dAmfZztUJJ/XtywiYOcpJmnf9XYYFfoeJFdC
gP1ojfWbtHbwfTikSJQS4Dh8vm1vbzskRg/tu/uVgD39nUTugQ7grgjnuV5P
wJHOx2p73X5DC4f82oABAjz3BvvmBv8GEjf3r/khAo51OHzgTfgNK5eyI4JG
CTjRxm2R2/ob+lYFMzwmCTjTdOQQr3MnyFtUpUzOEXDhx7r4nJ1dIGT7BmoE
2XDJhovBc6YLSmwzJQYobLj8rV3ZLbILtCjDL+dF2BBafSePp7YLZJ9FNVMk
2HDzy/jPPdZ/oIT0sbNtJRuqu1yvcikyoNXmdfDMOjY4f9eT5NRmQOI7y6UC
NTb0faBn/DNjwBVzy9tn1NnA8aC1ZtGTAQer4/eVabAhIrRg70IgA1oGHQL2
aLFB5szDiblbDCBdNdYf3sQGPWtX6kwWA+tN6sDgZjZ81dNLYxcxwETm1gNn
PTY4KtM3E98Z8CgH6EX6bPDmbN09NcGAUX+drMOGbEh/7/J4VKsbXI7G39Yw
ZoP2M91NI6bdYENOzLUwYUP5PakvQ47d0Ka23W+XKRu6vFqG+gO6gbf55FnL
bWw45fY+uO9mN/iw1lzXNGfDvGWcUO9DfD1z1W9hCzZIKrloMAq74VqzJm+6
JRueiOmWd33rhjNM5mt3KzZo/KM5dv7uhg81BjaU7WwoGZvu7xjvhlbrn19f
YbZpbw5sX+4GC50UQTNrNrRX5vO3ifTAxZuVvD8wH3sXm9gi1wM8Uw/TrGzY
MP0kQL1ZswfYWyLrP2C+FuX8qdGkBwLynINX2bKBemmz/a9dPRCb/O2OH+bU
k7Teeo8eMIyeZ5Zg3rB72q/OvwecJ+SSFzEXmzfz/rzRA3ooO1Ddjg3btfMf
/ojrAZF0OGOPuVU+VvV7Zg8k6Wf5HcPsKRJQXPMBr8d/ytcXM2vRya66pgdq
4mx2e2MOGdFhVHb0wKiAMs0ds3CrpO/XsR5QrFj50Bhz0hc295elHrDN/PeD
hln1bdODz8K90D7Wkt6F11OQ+m5t+epeCDr3Rywes3nEgw+lGr1QaXJjeRvm
xvP+1p+Me0H6rc/efrz/Q8edOj869MLp5QsrAzFPOut4Fx/uhQPXPqgt4Phd
MpPkLPLrBWM174s+mIW02Pc+XO+FDUUynO04/gmrm5QKYnvBTu9chjZmFcq7
/PyMXhAw9D54Becvfz7G8l1BLxy2XStXivNb3+R46k17LxCHw3zEcf73f9Ze
zhnthaMqiYNrcX2M5UhEvV7shW8K+us24Pohhze+fSnbB9/Ou7eK4PqKDcrb
9mJjH4y5rlAbxfWodDSm5Tnqg0WBKvECxAZk4riQfqgPZnQGziobsWGWpqJ7
1bcPbCbZL//ges4dXfB1D+2DMF1T9XADNig8eDoi9aQPWm9wdpZgPbQfD1Qm
cvtgRV7CnJkuG+4ZWR+qK+sDily5bokOG7iHmG23uvvgSBiZfRvrrbj4q+SR
qT7wvFl+6DfWo190gr0xZz+oKRj/lN+I9bvFpHpOrh9ENldevY71/PVudMGJ
A/3gbThz+bUiju+hI4T5mX7Q7rzLFy/PBl1dfQ3FkH4YkNS191/NhkwGI6Pj
UT/kaS+I8OJ+EbZJI87mTz+oW0WE3RRjg21brf+G/QNQltYUybNIAO+rJ7kC
pwcgmWRwno77VUlowPjAxQFQ41z6tWqagA3rZY88Sh4AppjZp39/CRC97OUo
2jkA1zTLFeV6CWhUEtrEdBuELslZ7nrcT8Pn/pyuPTkIyQeuXuH/TMC22rdZ
WecHIUXCc7v2JwLyA90UDicOgkDF1+ID7wmIq8kSa2wfhDMKF9ZIZuB+fMZq
8t3uIeicN/s0dpUAOVbUioETQ3D01JLRwCUC+v1bzWgXhkBS5VbRzyDcb88f
jQ9IGYKdezcW+noTcOPGdRPd3iFY0XfOYm43AW+TymIKTg2DUeF6d8p6As6t
5v80dHEYGIO7yPzK+Hx5snOYHjkMV559E2SvJqAm48/WoNxhaLLkNk0RJ4Dx
ZmlAf3oY9gzWndw8zwKhan39ossjIJqmvP8GPk8brK8cHo0aAac1u1TD8Xkb
V1t1d+WTEfjlOzgdms8ChUaXnvMVI6BPSawwzWSB3h//O4b8o5AyMp0pfocF
R9i5nR/vjcIawWitOVsWlMirhpY+GwOKbtdBOzyfzf/Y4pWaPwaQViFfhOdR
nWBr15DKMVCotwxcWcCElw2nNqDhMSi/1LTpfToTEq++bv+0fhxerU3Q3neV
Cef6tTd9ejsOFa8vyAVsYcKm59D3sWwCzIwkbl9MnQLHh6pPO09PwqYWtyNJ
9pOwkuejaZQnE3rIF4QC949C45ogHmlvPFerxoVdtBiFCHOdyseBeI6cbxm+
pTEKXLeyt7+9xQSRjK/Br7lGYUggxb45iwkSFQMbzTJGIF/0srvMX/z6qFqN
2qlhsJcxPp8ZyILc319k/SOGQGDrkqFmCAuGvGJUss4NQcW+D8sfbrHAb1vX
+fFDQ6D3SDP0Wzyeo057KKfqDoGsgsLtiSIWKF/si/vYPQhja7njtDkIaG96
+pOuPwg3N315U3qLgA6uH1zm0/3QbHHeqiCKgOuKaQEr+vpBaa8m4/VDAhKX
f9K5G/qh/Foy5VEmAasO8H0We9UPy03+xy5WEXDts9Aj1aP9EHBOWXYLGffZ
Ik79oE6s2483b7+9yQYd3j2WrI5eeFe/Ve5FJNZZvPSqt997gTTAyn8Sh88R
99aQux974Ynwgb7oDHzupMq+vveoF7rc9eBMJRv+cOtl9Xr0gjPXMLGebxpU
QhfVK4ke2Gax/UD6jWk4mrGiqEi1B3ZMerT4R0zDvsD3QW6re2B3/GW7bbHT
kP9FoUBaoge8RvMM+55Ng+AP2y3MpW54ELlaWuHLNGjJ5Q/TfnVDfwtRn8w9
AzUi3YHbr3bD3xARKy/BGdg8UqPSHdQNc+tUSw3FZ0D9aanFwzPdQLng/qpD
YQY2NkUbHdvfDTpyNWHSJjNAucbDdc+gG64fe2T6IGQGQjazNRUXGRApVljo
cWsG930S+zvBgPjCRk3tqBkQsO7MezjOgGwhAblfj2agpOhfSOwfBjTl+C2K
fpoBuXPmkepfGPBnd+RZxtcZiMnLuDxcwoBhrqyR17UzEGuVIFxVwIAlxz+t
dl0z0Nzrbz/+kgFr5qzehS/NwIbKVU7tsQzY+MRj/V6eWfDoYipnRzNA3/ry
UzXKLJArrFY/DWeAbXJedI3MLDRrvvo0G8oAF/Of5ASlWag9/v2a6yU8F/0d
vnx8/SycPnY3qyOIAf7Gq0+TDWfBPfyOrY0PAy6P6Pe3mM7C75JbffpeDLh9
33FvhvUsfAzIFLE+zoDk/tvbzd1m4dCCvn3rQQZkRKSVSR6ehaVzkpcc9zMg
V/eTXv+JWZi4O3CS2MOAL7cJ5WvBeD3bUt88cmRAM7/Vg6XQWXBOpAecsmfA
wO1k7sA7s+D959Klw3YMmOFn+kzen4UX6THN16wZQA4zZxxPmgVGwfVbdZYM
oAsk2vWmzULSwGCyuTkD1oX9Ld6bPQvTjMLVg6YM2B72MH5HySwMhpbfzgAG
7BEY56v+OguembxXKrcy4GSYcYDJz1kwdGnnohoy4IJAbF9Ryyz8TbGRvLmF
AeFhIw46jFmweNP0UVmfAUkCUPZqaBaO1DlzTuni/Ibd36gyNQv2GlhdmxlQ
IjCU/HhuFjj+NhznwVwbZii0kmsOGv4lPdihw4AugejgGIE5iFi9dLwCz61/
w/qHKOJz8KuaMXQYM4fgFpebK+eApJkivgGz6J2ILxxKc5ClR4woYJYX7N0U
vH4ODvgKeJtg1rqj+4SlPQdyq3wehWM2EQwX9do6B6vXyp/nxJ+36w7j0sC2
OZDWusDxGLOHoM64u90c0BNs1E/i9fndue3W5jwHBZe+LLvj/VwX7Kp2cJ+D
vtpQn8t6DIi9o6X3/egckF1uX6nG+08XvJm+7cwclNebqxoZMOD9nQ6JT+fm
gH8h2rMTx69KUOOq3pU5qHqWpZFhhOf0O9emcm/PAVejfmgiYsCQYJu72r05
cKy3dyw0YcDcHfXatIQ5ENh5+hH3NgYICIUayj6dg/u3/NwCLRiwIrw5K+7F
HAS7vb0suZ0BqkJq0mJ5c1Dv38vVZcMAg/DLN8OK50D03NqOuh0M2Buu4nHx
xxyE+9w6oOPMgFNCFxumm+ZgZGRpOn03Ay6G16MzXXOw/7XeO5N9DEgJD151
+O8cSChu85/1YEB3+PdmS7F5uMSpGOQWwACmkPy2cul5COUyqZQ5zwCuu/5v
DRTm4c146le+EAYo3ZWN2rBpHnI1++7tCWOA590zVhJO85Bl3+Q0lcqAAMqX
93f3zcOgm73ycjoDbt6VVubznIevTR+FtLMZkHm3nGs+YB66xtnlKwoZMHJX
ovjPw3m4p22xvb6JAVGch/9Vps7D8DmJsGe/GbDZP9ckJ3MeDDjkRpJ6GRC6
1646pGAenJ5/yyOmGCCtdqtZvnUeXH3FucxFu8GyamHysNQC/LF8HbFnVzdM
GGzXtlm9ADHhr7qc9nZDzOuHgdprF0A7M/Kr75FuYMTqLJN0F8BguWBc9Fw3
BB7xFkx3XgDG3T8+HSndkM7Vu2bowQIQtme/RzCxrwnQPF6XvAAqCl5pD3D/
ZQ5fflnwbAH8anYqF5N7wKheZtPtdwuQJyr16Cju302PnJFq0wI8ZQzd07br
AdLWmj2nJBbBpD6j8kZuDxwMzI2cvLeIz9MW28W7vSBcrl8TmrgI9wKvvBxL
7oVCoXKSZNoifNZ7cHoxuxeoTxqC9N8twvGZf7pBtb1Q8Z11OLRlEVLizW90
i/bhdW3Wk5BZgnHOpFm9xD74+72QoftsCRyYqQI7KvrhokKF5uX3y/C4ctHl
JJ67NixfnOY6zoEWjU+2yRDj8PKoz+m/pzjQ8ZGwEAv+CVCr9xjoOMOBskUX
i0/LToBKmnVz3jkOJI1uib+xnAD57dL5nrc4UGaQgjBv8gRIxOb512RwoGNs
X/c3Zn9hXn2UiB7gQMrmmZ/tLCbhXFzXqUsjHKhZs58IxPPHDEdD34kJDlTk
SRdKcpsE4ldBo+k0Bxr7/eN6o/ckjAfdyGPzcCJJo71d3A8ngfFF3m/3Gk70
/GgvmA9OQuU+V5acBye6kV7WlBMyBVVvhjwPHePEY37WqvqwKajhC2p/eooT
qR3T7B6MmYLa3PgyZX9OZHnr8anZzClo5OmIXH+DE8V1DCY8qZuCnux96/Uy
OdHBzf0bSbJMWFw6dGTHGCdaltWwtsthwrIDqzVqkhPRVjqeE/rAhH8ZV20a
CE68n52SJWVM4HJI2+S0xIkGOuJsFhqYwJ/ez+kmzIUWbU9c6iCYQLM7luKp
wYVmfV6oK2xmgWaKV8tFPy50zc+ob8crFiyPBb8LOMeFGvbWH+zOY0GNwa37
3he40OoHoys98Rx0qO3JjoPXuJBP255VVlUsiJForTSL4UIvBfnM/bpZMB1m
UiCYx4XML2w46CJGQHnbjlhSAReq8052pUsREKGyz2+piAspWXdwfZchYO3X
QI2/n7mQW/JtR0EVAlw5szMbfnGhH07v9Ie3ElAYKBUfz+JCJyl98quO4nn7
q1LgvRkuJP7H/yrvKQIcJLWc7ixgduU17TlDwOgbG7GL3NzoTbNu7ZlgAmQm
rtw+IM6N/vHQPg2HE3DZYyxo7SZupGi2VdDqNQE2b+dc5HS5Ua2Bh7TLWwLo
XHybpQ24Ee/duSMu2C/kPJJnCphyI67v3z5swH6ip935xIQDNzLYvHqXXi0B
ZvZle975cqOLm+w0C4YJiLlzUps7kBtNyTDNNowT0PtFUtj+PDeSvcVhHTNJ
QOiWE2VjV7mRNdXOSGOGgDJFcRWlB9wIpXxEmdxsEN3/kdM3nhv5+zV6pPCy
4cDDox2fkrlR6NpDT67xs4GDUhzhls6NhnYmhsqLsMFo2oN97z03epJaeD9Z
mg0RGiI/GUXcSEilaaukDBs6T3zI3FDKjYwZ7foXZdlw4Q9lb00VN7rbyLaU
xf7uu3SBDv0HN2JwuXm5rGGDjOMhEc96buRVvZ33ylo2FFXll3O2c6Mv622K
nmF/KMB9MGlHF96fxZeRVHU27NkqGJDcw41u+MS9C8d+cj7XfZ3+KDfqSB8z
3/zf/Z1EctSZRRy/l+phDfpsuNX05ngJBwkJjPpW7ML+tkVkn6kQDwlNdk+z
vmD/G3AtdzqDQkJjCz4eFwH70RK3OrYYCVHP95SUY/9Mm+PJMqWR0Nqqq8Zz
2F+/89qz748sCb1fv0Dom7GBlEnSVVckoYcSW43NsD937Hklen4tCR0qvTEG
2L+nyeweqVIjIaXNa3nUsb8nnLkraBokdHdVVrwg9v9m0dnJHtok9NGzpaAD
8/1vLoFv9EhIdPKNT7IVG3p4uOw5tpJQg+qFXzu3s0ELvVS1MyahoZLscTbm
0GBnUtI2EjqnvvQz3JoN9XkcXcNWJHTed0+YpA0b5P5mvde1IyGXZ3/XR2E+
s84p+roDCXk9lKtaxFx6+N+JX84k9Cgw7JSbLRtEUp6bybuR0MARbrWXmPe3
7pL1dsefL50g8RfzK+ryTPFhElIOerBFyY4NyzaZ9QLHSOjIJr9X1phtbzq8
cD1FQt5uY1eO/Hd/pmzxWvoZElrDMfrVB/PYQvp+wo+EaBX3I89gNtxsr2cS
RELGfmjiIObwMwtiURdJqCU5hL0N8++sZ6OdV0hotaJ0gQxmtf4dX9RukNCe
n9xWA3g9rcfXRx4JI6FNI9oSaZhvTJB3P4ogIUkvLxsnzJvO9iu03SOhKGEd
0jzeL2OmbIwaR0LcdFO7e5jvXkjJt0kkoX/LF7fKYt7CeT7kxiMSql6a70vG
8Ry87rK99CkJyb9YchHDHCOgLTGfQUKW0TPPz+H4G0eKdm16SUK6FTcnfuF8
TYiPZ3jlkNCqwGB9RcyWq9INugtISNU4TisF55/9OJRn5UcSionW5a/B9fFE
2f2nYxkJmc6v0R3B9bO4kX64qpqEvoW+G+XD9fU8j1jPVUtCP38pJfGYssFZ
v37aoIGELn+6ODOD6zHHJCzsdTsJrU+0JxXh+t1X6ek43IU/L7+PcccI68fG
VFaxl4Su/Y4qsd/KhiNOi7mxoyREqpduKt7CBmp76/m6v3h/3tu3HMJ6Kd3/
bpsAQUJ8tVvmFnXZsOLY6baLiyTEvPW0i6rDhtpgBscRCg8KGHlYWb6BDef/
FdekiPGg699LgySxPlWuxce0SvKgqZ/9W/dj/YbedVCxkeVBgzG/9zRgfeum
VuzYtJEHWU48vW4hx4bUL5kpnPY8KC0pejoY9xfb7dePGTjxIJkaT8UtFKzv
2oNa/rt5kPL+FaOTAlhfrSu+Dh3kQYId2rnbcL/iHw0f/+nLg4pc7IciFgnw
FfUxTInhQfc2avzMHyRgJKLmTORDHnQh5dSEaj8BhyhKz0KSeNAcp7xqfA8B
9gItlMNpPGjbjzV2Hp0EaJC2/lmbx4NCKr5nv28gYGKGHJr7C/M1ixWexQSc
+JNaWUHlRW/aS6cv4v5++FWdw2gUL4oOMtsUpkTAfnplqOYDXjQN/GXjcgTs
Cf34JjCeF7FaRRZ2riJgp3MWlfSEFz37Se2j0QgwXL7aIPOWF23pfxX3lI8A
CTtdB7smXlSt3Pm+dYQFFePJ9rnSfGj/kQ1C3m9Y8Mkl5srMKj7E5aDBvYTP
z8KysNytCvj6nlP/7r5gQc6DQLEaVT6E9mWd/JDGgqSt9vU9BnyoP+hFlV4c
C/zvkuwl9vOhnBW/aycusEBZ/eTOwCd8aKV6vka7NQvGorpG/NL50NkPI6Fr
rVjwhrC/7pvFh75yyTGDzFmwtViv0OsNH7JLHT22wZgFjta8Sh7lfOitfENQ
Cz7frxx/PLOzhw+tEfP8pKvIAvMfEvfsBvjQ55p46JJjgZDmrfU2I3zoI+tF
fZgsCx7Onj5oweRDaVHeh6elWfDqpuG3rVxktJXMKKaLseD3s5YUVQUyOrAo
WfKAgwVP+K31VZTJSLjVNv7pMhOOeZX8WqNKRlm6VMeCRSawtJ+R5bXIyGhh
5sH0LBMEKnx9pUzIKP9t7ZXKKSbUrR0QkjQnI887atGUSSb2P7szqNvJ6HLf
qpY9E0yQ34V+UxzI6MFtvo2Co0zQ66GYkw6R0VW26OqKPjwPbbvC4PQko37X
M4RZLxMqnhPB/46TEdffwzY/upmww6fj9bwPGa3Oz04nupjgyfFceuoKGdlJ
Oo6ntDFhvYdM3sR1MnIvWVG2t5UJU5WRdmO3yShbke6q0MKEC5EBVwejycjm
RPxYRSMT7suajXc+JiOL5efex+qYkP99OLDyGRn1KB5ROPGTCe3BkVy5z8lI
73PvxbO1TJBraZe6lktGsrO/zZK/M8H0esgTr3dk1B5UXvjxG17PJmV1lw9k
dE/BeKK/hgkvI31MVMvIyDF9PtW2mgk/t0r9EP9CRupbYN3dKiYwR4tdlqrI
aIuxxpXGSiboW5K96urIaDbPJCf4KxP2TmfPfGgkI8ZOgci2L0wISdsV+rSV
jL6l1NggzF85HsUFMMjI/GKs75oKJgy/MlM40Ifz86GH8fQzE4T2jby0GiKj
9X2ZW1QxawhG6W4aI6PFjfGhBeVM2PVBp1xmkowKujYX2WEOONphw0uQkYpe
68AYnj8TJK+0/J3B6w1J57uP+eNn5UNtC2RUNZ682hgzw+f7WPk/Mpp8cldj
ppQJ3HK+gS+5+RHpmZThO8zKtVJcsXz8SL45x/Q85u0XPoZfFuRHgn9TLa0w
e6keljouwo9GgrhsVmOOaiU/cRDnR29+lNstfWJC3o1X6w2l+JGzwBP7Xswt
2o7v16zkR1mSm5zqMc/3zBmLrOZHnPEduysxr4p+9H1WgR/d+ffL/b/n/wi2
ufQo86Mz/muPfsPsMT7S/U2VH8UNvvVuw3wzMerUuw38aCtJNegv5iyrzTMp
WvxI35BylYLXUzvTceXWZn60UPE2fBPmqWdXhHy34PUkmj84iFnCcW2cmxFe
/42yxDjMulw/5LeZ8KMTsqyUJsx7cnxfbjDnR77fLySvxPG6uJ+uS9/Oj2yb
Gh4cx5wqVFLGacePrPYZ3viE+XPhYZtRe37U6P3r1Cqcj4Fj/C2NTvzIg++6
xVXM6l8cxzL28aNLEQJ1njifO8/OB0Qf5EdfT7ec68PsJ5/Kef4IP7KryRE8
geuh8OIozc6LH8mwwnvDcb10qkU/1vXBry+RV1DF9cXRvnm9vD8/Elo1uPUn
ZvPNocbEBX50odtgWQPX5/G+td87Q/jRhqWZhHHM4fd+OFde40d9m4143uB6
/jVBP5UQjvMV0KbhgOv/QMbrWJSE39/7tftfrBdeY6bM5VR+9CD2+JV/WE/Z
7dpPP6bxo1tVXU/o9Th/lMLXW7L5UdrUkcojv5gQ41dRpV3CjyaPpxeewPrd
Isy342w5P+rxffyvDOu7O8OqKfcrP1puonIrdDBhQ0dt94af/GjsmoXcYicT
qozb5lUY/CgsOe6pFO4npztWXjnax4/mY67/eNvPBEn//XzpQ/yI3lJ7xHWQ
CYcye8UVp/iR8Gnqu8IR7M+EJ9av4hJAS+9U7vTgfqbxm8tdTEkAPYzsNM7j
ZEGz/7b+HSoCqEDBK7OemwUXRW6djFgvgBxebH4zzYP9lQnlnKCOAJI9oODv
IsACj+dS0TzmAmjYxlXCVxz344D1n+eOCqA6mcHRJWUWcIg5r+15IYC4e+kw
48ACnzRJeutrAbRi4WFQvhMLenSbyLVvBdAlqRyfYFd8Xu13HPlQJICKP153
Ed3PgtsvHbKjvwmgfGGmjO9xFlAtd2wyHhVApGgl4+UQFihdtoRUVUFkGWcW
UIDPN6vxLS77nwsiBdYy5z7s14xOxZk+zxZEnqVLbUurCdAaZW0kcgXRibFO
jxRFAlYMvySHFQqiiEN28l2qBIz1yRa++yaI/MZpEk76BET95lpFmRBEY27t
OXzOBDR/q+kp0hJCW7nbPfLuElCzfe1PXl0hlBV7OEE8moBP1VeL7A2EkHxa
ZPfpGAIyKw1jBk2F0FJEx0bpRAKCP7/aJu4khDYoX0rQ/+++etG9zBOBQojf
xV09qowAj6w9p6WLhdDJph1eNX8JyD87vH1nqRCqro3zPMokgLz13NqbFfj1
FiSFJYKAlz8fMIjvQujt+8cB1HkCCKLOoa5TCAmqD5d0Y39mXuK+ka9HCIXY
V04a43nn4c0JQaMBIURekSWZQMbz8wqhLy8mhNCnR08aNPG8dBUsdG/+E0Ib
RbudFiXZ0EhuFi/hpqDonFI3aToblBs8Jgk+ClotcueO+go21HiEPj8kSkFh
LY68BtivUcM+rjSSp6AdK2w+DmJ/5rHLZtZvDQXZlu/wLMLzW75MR+OLdRT0
SU0t8Po67Mdez96V1qKgNJeXPovr8TzbuImDbUJB16/16Z/FfoxILv+tZkFB
Jyqaoma08X6O2n84ZE1BPx6FP/DZzIaRudO+dbsoKE+xxdYcz5+Gn5fs+Fwp
yHT4TmMqnk8jwsPVjPZS0Blvq9eT2L9prc7qe+FBQRk/ishn8Hx7bUivrOcY
BTn/LnF7hOff5tzKZGkvvL9/R198xv4t2Kzf+aY/BVUnz4yMmGD/SfHbVBKE
+fvRnHE8T8u2cImyL1KQusu9Vf143i4/Lld96AYF95PRxFw8n0tsev0sPoyC
mK4TV2/g+d1zcWtoXQQFrTjlULYD+7WCL9/3892nIE+zMaDgeV8g0s3AKI6C
ZLcVjZZg3us6IuWfSEFH7o3keGC/8Eo+iHjxiIImztefX8bMMcpX3/OUgjoH
WHr/+TeHvNhs6UwKYuVzNVGwH0m7uCZs50sK4tH9bXj1v+f15nmeN3MoKDMk
fN8YZktRU9OSPAqS77VVssJ+J6GtfjW7gILuWN2+9N/z7rEnBxbVPlIQpDbv
7sRsdOpv66EyCvLVX3oqgf1UlM6ld/FfKGhJg9gOmLuXhe7VVVNQ4M8ew33/
+bsyelvJDwrSWu+Z4YV5xXUluex6Cjol4DTw3/N6XUuNo4lNFCSHMkZPYXYU
NHx1u42CtHWCn7thPlNrwQ7spKCXymLU/97/bvQuQ89uHN/jTVJSmLMc3a86
9lOQ5Avn7F68vq9SJ2tMhimoX8f6y39+rqc9QExzHL/fxiiHPZj/JYe6rp6i
oH+t6yxJmGUORjyisCkoqN40/gmOh55SwsDCLAVpOmjq62B2HHymPrJIQUWn
vVYW4/j6ZOX6tXIIo2KHxE26mLM0qrnekYWRMFmxiR/n4yur0eqpkDAS+3nX
/CDOX28+IypaVBh1lAqVvMT5ltk6K3uaLowsTqlHr8b1oM9B8twrI4wMTFWb
zXG9OH8Wyd4uJ4wKmFOsg9jPRVqtNVirIozyj3pGnMX19lJoU6jkemE09/QT
+ziux6qfRtXcGsIoWGKroCP2c1zOzi4MXWGUvadJihvXs9+h62fjLYTR1xH7
p9+wPqLWRBfetBZGr9wCPffrsSF7KIkzYIcw0tO5F9aH9TRwOi/SwUUYbS53
bajB+nM93/tC8Ch+PX+z7zLWp5/RX+bcCWEkYCuzQw37s2jOBf2h08IorXXn
dmus55qb1KqKAGFUdaz/sgfW/9YY476LN4TR/J6bCgsyWO8utmqnwvD7u1dv
LMX9I2DFbt89EcIoVTNgzTncX3JSz3DoxgojlSzrN6XibFDIfiQz+UwYLXRP
vnvLzwber0uOh74II1F9DcVVLALS/dLjnlULo4Al+sNvuF+aK+5oH/ohjDYY
TO88MUbAjZBUd+9mYWQT2Xb5HPZvPAamJy4MCqOs4w7BLc0EkHJuXY7lF0Hh
9W2klHwC0vZrlrdRRFD+roCIHW8IMKO0k1ZRRdCq2ItoKpuAayfUwp6uEEFj
27zleJ4RwL2mNiZHTQTtTMqdOn2PAK4E8awaWxGUfmL/T5sTBDyxLB6jOIgg
Kye/Us4jBJjMeGy0dxZBncsnSRnuBIQ65ue17BdBCzvN48sdCeAU2f2pz1sE
xfTzxhgZEcBxLaVxOVoE9fReSd0hTMA/r3X/tJpFUE0MWVr8KQtO0Ha8VG8X
QSfaWfv2JrGgscRvt0qXCJK4Lbfw8AELskRK364aEEHmjnwnx25iv5XrfIw8
LYIWJxuOLJ3EPF82NCEgihrfRj5o0GRB5ta/9hWqoihoal1qVh6evyqslLxP
iKKyl4F33iVMQd5Htu+hU6Io823lvfPRU0B//7jM6bQo+t31+o7+rSlgPJ/b
b+iLr3M0ZyT7T8GZyOfx/MGiKPE2eYi8cwqi9vCLpN0WRSNdvOOXuKegbrJq
rjVTFK2QcO4MOzIJ9qssf5oMiqLaLOorWd0JKB7oHX93WgzZ998VPRs1BJUN
Sd6vz4gh9T8mM9suDEFDidNUpq8Y8th+WHTNsSEYiq0kEgPE0B9D0woyGgIJ
ixcLVy6Jof4tTg9OTQ7CqQxffrsIMbQhad+D1l2DIHOMc81AthhS2903Uqc8
AGsdC9P/vBZDUt+8nOIlBkALnVVpyxVDPMZ3ePy5BsCS3q/2/Z0YklCdohzt
6ge/qiqtNx/F0IpA/YcGcf3wXSUKXfohhvaRVz9vFOqH88Oye2njYqjnvMZl
Nf4+sLROd9vyVwzd9nI3CpjtBYlsdbf9U2Io1eusyJ/BXnh1xnBPOlsMvTst
3iBY2QuMmd2um5fF0N5zeza03uiFbbwPHJ1FqOi43Lr7XkK9QD0m4xgsRkUa
ycsr85Z6oKv66a4UcSpCnSxNmb89cO7uG4cBKSo6+H600b6hB7Ik6nYGyFGR
xVqbO64JPSCiKGgbq0lFtFni17JGD/y+ds+mcBMVaSL3SH+lHsgckLbp0qGi
DC17hii9B0yyVKyVt1BRZOsY692/bvDTNLfKN6EiYfmk5JK6bkD3f1i2m1ER
e61Lxf4v3UBhO1oum1NRYOCTJqXCbkgvOGxhbk1FbwpSXRXTuqENrmxr3kVF
f04UrJ0Iwtcfk7fNO1HRMarkRJl3N/hyR5nJulKRQ2xmQ/GRbhCqTDH13EtF
pi8kb6g4dIORXbHxtAcVPbdo9ehY3w1P985spQVQUd6faxnfhhngaPCRKXmO
ipy4971/3MMA3hVXMySDqeiXsUZKYgcDTrQIi0leoqKcnALLhR8M0HJQ7hO/
QUXdLRYHTuUxoE9j7KH4LSq6mb4YdPgVA2JF3tiKh+H1tdFELmcyYP771vfU
CCrq+IjYiskMKLdwChOLpaKkhNwk5VsM8FNeCWIPcT4kZi6bXmWAMk83SzSB
inamnve8fokBYeWn9ommUFGnQdy5c/4MMHysRRVNpSLn0Hel63wYMHF59qvI
Eypq7JLbxuHFAIet1zRE0qloImJg86ojDCDJbO8XzqSiRfvVHw8fZED+vEiC
cBYVGWYfzP25jwErChK5hV9R0UPVXFG6CwO+xx4soORQkdy6iShiFwMu+a/1
oryhoqx1Mc+ndzKgR+tts1A+3o/wkeqT1gyIEQu6I1RARX02Qj1dlgwwnzRC
QoVUFLIskR9ozoDZWhJbsJiKxNQkbDebMSAru+a5YAkV3ate+2qFyX/PW6P2
C5ZSkWz69B8lxADhk87iguVUJGWVM+RoxIBSK5kqgQoqkmAI1WYZMsBXpeeC
wFf89yq2D5QNGKDEl6kpUEVFLnu3mFbpM6C532uAvwbHd7Xy70g9Btyq2JTI
/52Kxs6MHL6oy4AtT+d28NdSUV3CcGfUZgaMXflE4q+jIqW1wrY1OgxIOXD9
A7mBiowba96uw7wTrE+TG3F876yQeK3NAE5ZMUVyMxVdcgvx3oP5zWJzC18r
FWl781WqYfboSArna8f5o5iuVMRMKzxkzPebis7F2J1CmKseqkzzdlHRpvM/
PlzFHBw4kcXLoCIj+1GucczrnfPceXtwvMvdzC/897xfO1iCt4+KcpP2hGri
9UaJo2qeASqya3yRJ4T3Y8LkucQzREXREYntFLxfou6bFs8IFb1VXZ7U/u95
++voQdIYFY3bahBXtjDANcIliTRBRXxTNAaB4yfgtcqeNIn14b065+5WBhRb
9/KQmFTkEQ/uNsAAOX5vb+5pKsrssTQzMMX7p9jJzM1QUYBHheSBbbgeRNWr
J+aoKEHKaPNzCwY8pY8qtC9R0WQRt2WmDQOuydT8/PmPip5+VFHdvwPHR+75
hS+c4uifxbKhngOud5WjzTk84giC8utdXRnAt978ajqfOCKMeYwfuTFgaOMa
jSR+cRQt3VnE786A57q9t29SxFGmyo6s7Z44XhbuW/dLiiOGaaj6+QAGUKyN
RnZJiaOiObdPjGCsD7tVcVbS4mhUhWf5+GUGvHbumNReJY6eqh3aPoj1p+Xp
kia4RhwVsISv3cH6pJ7YbM+5VhzdeC7XJ/SUASwvyeVpFXFUleEamIv1nOf/
y6VnvTjid77EPIz1r3t9h+AHbXH0JdnN9BTuD/TbGwpebRZHccqmFjyNuP7D
KUfS9MTRmMyakdJ2BhTGfCuJNBRHqU7/Ch8NYT2nWfh6mokjwcuXdOZ4usHk
M7SJO4oj0VCRx3wW3aBYKXuD31kcRS2mqpTu6AbStyWtfy54PdMBbfGu3fCl
oSh8xE0cfZr5ap1zohsse3RR2WFxdHD2sLdnVDfYcWpknD6Lr4cEunZ1d8Nk
cGd9hL84snm20+/GeDfcJ8IWXwWKI+7wA0d2zXVD62C//d/z4ihnTf5qN7Ee
OFibuOh9TRzpiiZsW2XaA36JfA4+D3A+trSZbMvugQSdP4tn34sj0l3f6YaE
XjB8Hb425oM4eiX1Pqsoqxf+qGxxyCsSR38dfSQ/F/aCksyDDOKTODpjdkFd
vaMXsrmsHfyrcDz+hqw/tqoPSn/mZwS0iaMPV57ZmGf0Qf/xCIegBXHkYOGY
OlPbD6cOBGv5L4kjl+hgtTlGPxDOnlSff+IotsrvizCrH0hmRg3HuCWQfXSo
jb/UACjITti7CkqgniHJrHUHB+BAg6297koJtDlw58p/MwPQvoWyk70Fc0/t
/Z+aQ1AnGG7rEyyBiNcyaerVI7BGdm0xmSSJ3E4kV1LMJyHl9bzYGl5J1Kje
XLG4cxJoxrVHjcmSaORXWUe/2yTweviLBwtJokf/2M3PfCZh4PnnE6MSkshk
NjO8LWkS0nUOSNeukUR5B++WElOToGIbH3DfQhKdWC1OWhc7Baldp76/tpJE
tf8qjOVS8fx0Bil8t5ZEpNU/hyhZU0C+P/iDtFMSdX79SP7+cQqGWnXWBLhK
oqjnZW/r+qbguUfDL9fjksj9l8XFfg0mqF4Q1JS9I4k875nRY0uZcCtslSHt
riTib+6viatiQv/DjRbCkZLoynPnpIg6JqS+27Vv+Z4kqohocXNjMEHyb+Lt
rgRJdIs356H3PyZwHFrfk5IliXJrCxb9DViw/4zReOxLSZSqWnql3IQFRZd2
zka8kkRLKccMuLezICDRT/jyG0kU5xZGP+jKgrHG4i3uhZKoOkSJftePBS0W
tvdX10iibvLBj4lZLNB2dk+R+i6JKBP0ljW5LLjn4fNcpFYS3WzafvLpexbY
XHnw6V+9JGq+7dxxroIF5YWdo3/aJNH260m1dzpZ8Er9tFnqMI6nWpf1dgoB
QoYhOx6OSqIZTqvvfOIEHN9+b0/UOI7nBGFUQCdA6Wj+mZApSSQTwv4zpUhA
fOpy0oE5SRS5S2J/pT6e58Uj2XL8NMRXIuw+fYiAp3Hel0wFaUgq/NYrq2ME
lK/cyedJoSHuhCR01wvP40pi0i/EaCgqIGJFfyABF7TvG+qsoCHSJJ9uyx0C
/J3irlqp0ZD8KfGb5TkExLQFCp1SpyFFncYA+jsC8va5PojYSEMvLOyu7P9A
APOIdMavTTRU+FhpoLCMgNMBiTX7DGmod/LDYl49AZ5xj8R8bWmoZ63Fq9cT
BFxfGZIQs4OGnm2gN/AxsV95dEDxvT0NiWqt37iTTUBPhrzOohMNCerqpecu
ELC/4Knrjf00pMUMFy7gY8NFw2vdmQdoSE3A+Mo9ATYklXqc+HaIhurXuTrv
o7ChvWrNBdGjNBRWYWpcQcV+tC3jUYI3Dd0KLuxowf7Nf98tlY8+NDQ/6yq/
eTUbYrqP5f45S0OqBtu4r8uzoWF43WelczT08V33RwL7vykvARuLYBoKV1bI
lFRhgyhzpPH4BRqq3Vlnv1aVDXbzLwZeheDPe7+Pf9UGNnhdCveuD6WhSw71
qpwabAjn8pplXaOhr3/atZo1sb8U2CCgf5uGrKti5HbpsMFiZY7652gakrnx
4lm8ARtsZH6eLLtPQ1kLwV4ThmzYuWri+acHNERcpuzZbIT97Or1ysXxNBR3
sbb6EWLDXjlrj8JEGrIcjj9Yhv3zQfkTTwqSaeha60GLZuyvTyhmyr57TENP
mukq7WZsOK1UufftUxr6Q6LqV2N/7rtmICH3GQ3NXl5Z8QL79wBlnrbXGTS0
4mlW4xXs78+vVZJ69ZyG/CwPBlhj/x+iYur08gUNSYZT3pGt2HBt3aH7Wdk0
ZBLxPOkD5nC1VJGMXMzjZ+Omt2O/vv6T7bO3NPThxJnPodZseKDedefpOxpa
OjpbzWXDhoQNS9WP39MQOtL1PgBzykYZcuoHHC/P1QldmJ9oGJinFNFQxJue
i1ts2ZCuueda0kca8r0bdCYMc5ZWUHnCJxqKnNl/uRbz600POeLLaEj9mG4B
rx0b8rTfG8V9pqH2W3UqmzAX6DRfePAFr39S7s8uzMWb2YX3K2nIuMNi+L/v
Y5TqSsxFV2M9DIU7/Xd/p0Jvk27UNxri/+Gu9d/z+mp9B/+IHzSkSXWNOIS5
dovP2/CfNLS6SvucFeYGg6ipsHoa2gK/l//7/4Bmw9cbb/+iIeESN002Xl/H
1lqvm01YT7qDsoWYGUbjL6630JD2cmvzWcx9IDRytQ3r5ULuMQXMQ0hNJbSD
hn4M0Pq+4HiMGW/3DOmkIbnxRtf9/30/w+R42qU/OD4+v5tHcXzZprd6LnRj
PeqZnj6Ned4sQ+58Lw1pJJluHMD5WN72dX9QPw09NTBU3YWZy6I/KXCQhlqz
X3u/w/njtSR1+A/TUIuGmej/3c+zUpT2G6Wh0t2fZfbg/ItsN3HxHach5mfp
9CRcH3SbkF+np/D+OF+e5cL1I2P7SMyLhevHxqt9Da4vebuSHSfZNPRIUZQb
cP2p7lz8dnSOhsbMAhkOuD432K8U8FygoVN7vhfY4vrVcthi6bFEQ9UjiglG
uL4NHM9VHOCUQtsC3Uu5cP0jpzgud24pdJmraV0z1oeZcz7axyOFhIO9+x/9
px9Xong3P+a+sGSaPhv27z3zzkFMCqVy68jf38SG6NDMUXNxKaQfdvSZghbO
byZD3kBSClEjGV7PsV5V2TsjFKWl0EFbfclkdTbM3NU8SshJIdNh4a+ya3E9
f2LSYzWkkM2NOtMkOhs+96vuCNOSQnk26l2ZNDZMCx6+fklbCkmSp8ezJf67
//lrylNPCj1zl/n4WJQN66be1ugiKeQbam2lRWZDuYL/hbYdUmjDda1f5GkC
2JbZb37YS6Fjsaq66SwCVLz7h8p2SaGPG/Wct04REFHk5JTlIoW2ZG6T3j1G
gJvj5g3n3aVQe5Yih1UPAcT1mT8y3lIoX+BTr8wPApSHg0wPREih0ILiX2qP
CFh5PWTmUpQUWhwQCBxKJEBU/uaL5HtSKERDaij1IQFzrjHiHbFSiN+JI43n
HgHfq171Oj2SQhuvsuIeXyPAN7P3qnWOFOJ9/FfG8DgBJUdtKzY3SCH7fWvS
SzUIeMvteM6pUQq97nt2S12dgMxHe9b7NeP9rn5YGL+OgOiWozG57VLo2kGp
82cUCPCwCPVY3yuFaAq7vVdIECCw9j1JgZBCXElqs4EzLHAZkNtGodFR0pS+
qcQnFmj9O/KKj05Hd45f2NlexAIh+gsprhV0FJRy4+mTAhb2Yzoj06voyKz/
+8ktb1igkm0VyVhDR/QEmfxbz1gwe9a37a0OHdXb6p/MDWdBAmeF1x4nOhrY
WNzwfh8L/Fbwtzi60FHd+5rR0T0ssNtkh3bspiP+3+apSng+4DrSSjXbR0e3
Z5Nl0xxYcLJq7L36EToK/LcFOi1YYBgpycXpT0ed/LmS5ptYQMvcc3IhgI5S
Nyld/KbBgsnSR43sc3S0b07yovMGFqQx12WMXKCj/LdjIRfX4f04G9k0XqMj
4lzSOjE5FnTKHI3NiKGj2GsnKW7CLHBeY9j/O5aOVjypcOASYkGdupg2NZ6O
HlnKPM7lx/OGUVH9hWQ62uMXl6TCw4LMAyIUh3Q6qk5/1xG0yAT5431uNzPp
6MzlF7qH55mQ4PMhqziLjrYIt6xymmXC3dDDlmtf4/0nZlU4EEzwTXt/dfE9
HV07MCv6fowJoy/DGzQL6ehkl7jTwAgTPN4dlD9aTEfZB8/EyA4zweWr4Kf6
Ujo68f2qXlY/EwyH3OfTq+loKcT7zMY/TMif1Lb6/Y2OZJTKRzI6mbBxjv+h
WC0dFQqnlq77zQQFgTydCw10JMpLybJqY2K/Rfax78DrdemLXvjFhBDtzk83
OumogvmCXNrAhHnDN8LFf+jIRJBfNaKeCWO2e18q99FRjUZDhMVPJng6ay64
DeD46OX1aNUy4c9+3u3RQ3Tkt1eKS+UHExq8cwYXxuhoft/Wso3fmGB97vpm
zb/4+l0Db5MaJlSE7LnuOUVHPpqaPO7VTHgfTVKsZ9NRid1hrvxKJmgktPnw
ztKRTWmi/+RXJmQ9eVVqMI/z6fJ5SBtz0lvX/enLdGS7pri3owLPq8Xq2R0c
0iiAz9zfCHNEBdeiKLc0Wq2tseLFZyaQf7RsN+eRRsw1j5vlMV9pehl/nk8a
3ToT8OpJOd5v55WhHH5pJP/S7Jk6Zr8BZ90BQWmUc8ilpLyMCeMTajdWCkuj
yOWcxYOYPWc4mnaKSqO4QoHDgv/9P8C/JsUbVGn0434jqwTP27vJL3yLJKRR
iKFO7gXMDaIhZZM0abQsKpBshtlG2klUWVoa5VMGC2iYv8irurutxOv7SuNl
fWKCkeq/7KhV0mj+YML1/57XF2g1Ln5ZLY2aI9fp1WDWNHhuvSAvjf7/+/7/
A6tLj3o=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.5},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->
   NCache[{{0, 2 Pi}, {0.506364306349288, 1.3316525456763442`}}, {{
     0, 6.283185307179586}, {0.506364306349288, 1.3316525456763442`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6206338572195992`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aju", "=", 
  RowBox[{"LinearModelFit", "[", 
   RowBox[{
    RowBox[{"dado", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"LegendreP", "[", 
       RowBox[{"2", ",", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", 
      RowBox[{"LegendreP", "[", 
       RowBox[{"4", ",", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}]}], "}"}], ",", 
    "\[Theta]", ",", 
    RowBox[{"Weights", "\[Rule]", 
     RowBox[{"1", "/", 
      RowBox[{"\[Sigma]", "^", "2"}]}]}], ",", 
    RowBox[{"VarianceEstimatorFunction", "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6206333921489477`*^9, 3.620633474879064*^9}, {
  3.620633545599163*^9, 3.6206335509791703`*^9}, {3.620633588479223*^9, 
  3.6206335900292253`*^9}, {3.620634027669838*^9, 3.620634044519861*^9}, {
  3.620634159120022*^9, 3.62063417919005*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Linear", {0.9562741380714774, 
     0.5915170114839281, -0.3674188660060004}, {{$CellContext`\[Theta]}, {
      1, Rational[1, 2] (-1 + 3 Cos[$CellContext`\[Theta]]^2), 
       Rational[1, 8] (3 - 30 Cos[$CellContext`\[Theta]]^2 + 
        35 Cos[$CellContext`\[Theta]]^4)}}, {0, 0}}, {{69.44444444444444, 
    82.64462809917356, 123.4567901234568, 204.0816326530612, 
    123.4567901234568, 82.64462809917356, 69.44444444444444}}, {{0., 1.03}, {
    0.5236, 1.36}, {1.0472, 1.01}, {1.5708, 0.54}, {2.0944, 0.91}, {2.618, 
    1.36}, {3.1416, 1.28}}, {{1., 1., 1.}, {1., 0.6249984094544094, 
    0.02343451773193639}, {1., -0.12500318108443526`, -0.2890591863507035}, {
    1., -0.49999999997976136`, 0.37499999994940336`}, {
    1., -0.12499363780414474`, -0.28906912720864286`}, {1., 
    0.6250079526942227, 0.02345241142464438}, {1., 0.9999999999190454, 
    0.9999999997301519}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`\[Theta]}, #], {HoldAll}], 
    VarianceEstimatorFunction -> (1& )]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{3.6206335563891783`*^9, 3.620633591649227*^9, 
  3.620634141069997*^9, 3.620634270740178*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"graficoDado", ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"aju", "[", "q", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"q", ",", "0", ",", 
        RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.6206335968292346`*^9, 3.620633608979252*^9}, {
  3.6206338799496307`*^9, 3.620633895999654*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], 
     PointBox[{{0., 1.03}, {0.5236, 1.36}, {1.0472, 1.01}, {1.5708, 0.54}, {
      2.0944, 0.91}, {2.618, 1.36}, {3.1416, 
      1.28}}], {{LineBox[{{0., 1.15}, {0., 0.91}}], 
       LineBox[{Offset[{1.5, 0}, {0., 1.15}], Offset[{-1.5, 0}, {0., 1.15}]}],
        LineBox[{
        Offset[{1.5, 0}, {0., 0.91}], Offset[{-1.5, 0}, {0., 0.91}]}]}, {
       LineBox[{{0.5236, 1.4700000000000002`}, {0.5236, 1.25}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5236, 1.4700000000000002`}], 
         Offset[{-1.5, 0}, {0.5236, 1.4700000000000002`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5236, 1.25}], 
         Offset[{-1.5, 0}, {0.5236, 1.25}]}]}, {
       LineBox[{{1.0472, 1.1}, {1.0472, 0.92}}], 
       LineBox[{
        Offset[{1.5, 0}, {1.0472, 1.1}], Offset[{-1.5, 0}, {1.0472, 1.1}]}], 
       LineBox[{
        Offset[{1.5, 0}, {1.0472, 0.92}], 
         Offset[{-1.5, 0}, {1.0472, 0.92}]}]}, {
       LineBox[{{1.5708, 0.6100000000000001}, {1.5708, 
        0.47000000000000003`}}], 
       LineBox[{
        Offset[{1.5, 0}, {1.5708, 0.6100000000000001}], 
         Offset[{-1.5, 0}, {1.5708, 0.6100000000000001}]}], 
       LineBox[{
        Offset[{1.5, 0}, {1.5708, 0.47000000000000003`}], 
         Offset[{-1.5, 0}, {1.5708, 0.47000000000000003`}]}]}, {
       LineBox[{{2.0944, 1.}, {2.0944, 0.8200000000000001}}], 
       LineBox[{
        Offset[{1.5, 0}, {2.0944, 1.}], Offset[{-1.5, 0}, {2.0944, 1.}]}], 
       LineBox[{
        Offset[{1.5, 0}, {2.0944, 0.8200000000000001}], 
         Offset[{-1.5, 0}, {2.0944, 0.8200000000000001}]}]}, {
       LineBox[{{2.618, 1.4700000000000002`}, {2.618, 1.25}}], 
       LineBox[{
        Offset[{1.5, 0}, {2.618, 1.4700000000000002`}], 
         Offset[{-1.5, 0}, {2.618, 1.4700000000000002`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {2.618, 1.25}], 
         Offset[{-1.5, 0}, {2.618, 1.25}]}]}, {
       LineBox[{{3.1416, 1.4}, {3.1416, 1.1600000000000001`}}], 
       LineBox[{
        Offset[{1.5, 0}, {3.1416, 1.4}], Offset[{-1.5, 0}, {3.1416, 1.4}]}], 
       LineBox[{
        Offset[{1.5, 0}, {3.1416, 1.1600000000000001`}], 
         Offset[{-1.5, 0}, {3.1416, 1.1600000000000001`}]}]}}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJw1nHk4VO/7xy2DGYxlhkEhylZUElGp+0lFRbIlCm3SRkWWkoRQSUJFSUiy
FVHaEJG9Ei2yJDNjyb7MnLEv3+fzu67fX12v6zxnzv3c27nf5xypHjlrc0yA
j49PmMTH99+/gqWi9Z0GwZuj16wWr2dzQIWhoqF85yCcYy0ubcTMa4+2bIk9
C403b/7+g9mjmVwpnesHvZHGe0cwM7fUst/EXgF6UJkhpZMDWb+28eUWXYWc
LcGBKzAfEVW/zZd7DSLG3mjZYlYEIWXblJtgPu5pcBXzr/Pdz5/G3gbEH/ek
ELPZT7ZSQHkMrKC3eU5hThu2Ofa06A4kB39Ngi4O8FE+Pa8vuAfac1+1bmF2
XraWmMiJh3X3pSXYmAs3PdmomvEArtc/ttjczQGGA/3qrpSHkHrLif0Yc0Mk
V/pRbDIEfR6hXOnhQNyPfJ3OyhQIf5kdN4m5gnmywa/8MfiS9567+I8DqjMt
co+LnoBx6sH56F4OWJFjiwzepcGBELPnmn0cCJTddbCu4Ck4qa9KqMTcurow
nZuTATwBHU25AQ6QN3ntup6dCeGfPEvqMBvuWjGsmJEFE+fp4WGDHLjrmmBg
mvIMJCJG7koNc2D3A/+K+7EvYLzOdmXAGAc22yoUxJnlwXepkYoTHOwvR54Q
qxLz8YfHnLgcEDyek+VTng9OgweeOfA4cChYaSyp6BXMRxYmp01xYOLalEnf
+gIIm9nWXDPNgaioX3fXviuA4U8ivdwZDhQ/vGVUU/AaUtr0PF3mOaDwZu7K
WM5bWFFHcg4V5EJecUvjRp13kHp2/9W/JC7s+PR6WXj2O3gb+2YbCHPBt8Gj
elHGe5DY4uonQ+HC9/52iW0pRbDPYOaZuCQXIpeUPIqLLQXnA0rmOopcMP38
cM1H6keYlrnYJq3MhapwBxkDm49gvz/g8vwSLlTPNbYot32EOM7r0sFlXKgZ
qHDlDJbB277tLxfrcKGuOtv/gVQFjFdvtn2ziQtfr/im/9tXA8ys1Nvux7hg
uXHtDafEGpie61NmnOBC/fjI6UZmDVyvXfW84hRmj5Nrik7WgrfJbi/dc5gP
OBVHXaqDm5YqV9AlLjQYmnw3SP4CG+gS2bqxXOifEF7Ycr4BMhUzJAvLubCw
bHeF4Z0GmN14/8zTSi7IWN25sfJVA3z1VqyJreECZC6RUeA2QMhoo+L5ei7c
dTBaPurVCDaxoho7Wrmw+f1J2ySv71Cw5h7ocbgQ4/8lY9rzJ5zOOqvrt5SA
9HSax2jMT+DMX3rlr05A8XcHvZ78nzCwMJ90WYuAnhXdxY1jPyFJIcQxeBUB
G9rmGjM9fwHdZBF/4AYCujaunrX3bIKcQhe19TYEGM3FWL061wzfXL2+KwXh
9QGn4snRzXB9x/CBphACNs6Y/HV+0QwWqzMKboYRsHmKe5o83AwXMyjBgxEE
bOXtveZ8ugXIZnkmofcIsBxSKBFxa4USb1uX6SwCrNw5JOewVpi3M1/t+5wA
64E685dpreD4dGn4UC4Bdn2XWpw6WyHVuON8/SsC9ne3E/mH2oAreZix7wMB
x9ofazsd+AP2rspfPL8R4Obk75Xv/wdeJUQFJjYScKLN5r1wwh+ISv3jXfaD
gFMtgmb5zX9AXWvR36nfBJz7deyIsH07zKKdl5cyCfCy25x1wKcdpCMCtZTY
BJz/wRjNu9sOe6rFLkl3EeDbWH35wI922DxHqu35R0DA1+UP8qz+Qnbj35Et
IwQEWggwhc79BemUX8UiYwRc+dyqceD2XyirD75fxSEgpPZmgVD9Xyiw5umu
HifgWuXQt/3mHbD89fb2rFkCrm+rYuSd6oC1GscZ6+YJiPiU5CwU0QGvf2nW
FS4QEFm2Z+BFTQfoxU855AjwoPavw1WBZUxYmZinaEDmgf0XI1l+fSYsX26k
nkzhQdd7+YyFbUywpplmL4jygO9ec92sGxNc9k01PKHyICrkndOMHxOeGZ83
/SfBA8Vz94enrjPhRYASU0WKB0bmDrSJbCZ4HVNZ7kvjQZWRURqviAkZGS45
MXQe2GnIryO+MKHM5cFCqgwPzvI3O44NMyH5zr736QwezA6/HRhZYMLLVczx
+3I8iPgTf3lYigUNB87lBsnzIP3tvscDeiw45rp7ve4iHug/NVzbv5UFrpSv
nROYy2PlKnvtWCCTX/imYDEPrIIm7P8dY4HEFekkN0Ue/PX43dvtywJDHyKM
qsQD9wNv/buusWAbM3d/FubpHfHinfdZcO1TAXmDMg+ur/NLYmWxQHXbk4BS
zLJq+3SZhSzwoW95sn4JD1KlDcv/fmbBdHPgyUzMugsMu/Y/LNjy0K9YTIUH
JYPj3W1DLHDX8rxxFLNFa5Nf6zwLSi7/+fACc2v1G0qLJBtSVtmbjWI+8Tru
4W8VNnypS6erq/JgPNV3ZdMaNlRt/SRliTk02r70pwkbkqy/6pzGTAtcZ/3D
lg3sJrp9AOaU04zORlc2/N5KvxSMeZXjuHeDDxtGJ30i/DEXmzYJfwtnw8VM
mfPHMe/Sf3P/azwbrrwdX7YDc7Nq3IovmWzoeWQTqYjZTdK3uO49G8q3Rz3s
wvZxZ/da1tax4ddJ2JKCOajfgFndxgZTrrbHHswSzbJeVYNsiLDfJcnB/kis
5AlWzrHh9EiZ3HXMK179uvdJohP2OA34SmN+l/Jas3xJJyQ1WylFYf+aRt17
/1G3E2zjcmfmcDyOnNzb/sGmE5aHgNpbHL9Re4OzxUc7YefCPys+zIHbZPmL
vDthnOztb4zjnbDkl9q7uE6Is95385YCD7Sor9+8yeiEtxpl9qk4f95M393x
+l0n/Nqv/y8L51fjLzv3l62dwHNKUY2R5YHLJ/35vIFOeHXSNv8czs/BPJno
F7OdUD0W2miC85cc+fPVc+UuiBRYEVOC8x2Z2M2kH+mCgtKe9zQxHkwytAyv
enXBaNDGkym4nvIHZrwOhnRBnWITbSmut6X3nvTLpeL1wglr+IV4INjLabnO
6gLbj3MvVuL6LS6ukj021gXNbyZM9uP69o5JsN7C3w33LyyO8p/G/XaDSe2U
Sje8VZddHYf7QdWtmHenDnWDaZnIL6Nh3E+OHCNMz+HjwdaHBQYJMDRcr7ss
qBuM6orPlPYRkMlkZrQld0PbpgaC3o37xVrdeIuObnh/himh0UbA7pZ6n1Uu
PVBwNHBRfwUBwrmp+aJnemBVKd+2vjICSkJ8h3ou90Bbt/STthICVukoH0t+
1AP2jzx4D94RIHXFw06qvQdo/oeTAp4R8FNNfC3nwD9YydLd0ByF+9FUx5n6
0//gw1RTNuUmAdvrX2VnX/oHDk1LDFZdI+CN34GlRx/+Aym+HXFWVwiIr8uW
/tn6D+41+t2ZPoP7+bmdo68de2E6zOtglzkBKtzoRT2neoG8z2J/lykB3T7N
2xgBvUAyLTL7tQX360vHH/gm9cLQhR+UCEMCwsPDTAw7e+GP7a50wPe/V4ll
d9+590FO/9bZDoILF5ZQSnsv90FTYmPg2DC+f6Za9cnf7oNjG8asiF48D2R0
bLqY3wfq64JJ9X+4wHw517N+vA/k2ZTE75+4IF67fn3RlX746VdBWn4bzyfm
wUcHovuhYIV1h+11LsTX19xanNoPYy8eZJ8L5sLSn/vYlyr6QVG0fVvQeS4Y
dfjcNKYMQPHmNWOT9lw4xstv/xA7AH/Lf+x0WsyFEtUVIR+fDoJIXqe1YwIH
pr9u8Eh5Mwg7VDXLhGM5YOBv7hBUPQjd2p/iM29w4Pl391WobxASzaeray9w
4OHVF62lOkNgf9PoQKg9By50668tfTUEDZfvrBuU5MDaLOj6UDYMyrJpHSqX
xsDu/oon7WdG4b7rlbooo1FYLPRha7QbB0yFDuw/fnQAfqpfFFI4y4E3p922
ntw9AFGmBtWP/TjQrhSkec5wAASu5+x6dR3P+e17Fm6JDUCvaJJ1UzYHar34
P0kX9MMbqSsHFUc4sCwgeOsF4X6wVtxyKdOPCxZP9N8UvOwF0U1zxmuCuHAu
JvYw81EvVDi/n3+P/ciqowwq3OgFo+Q1IZ8fcCHrxLnXbw/2gvLSpTeGi7gQ
+LGp4Cm1FwY1BeP1+QjQpT0uveb+D66trXz58ToB9teMnm4y6oEms0s730Xj
OjgV9rZLowfUnNYwX9wnoGFd6spk2R4oD31ETc4k4HbaNH0Ptxvmf/mcuFxD
wGhGsGvKi27wvaChvAHXtUJesrGBTje4fbh249U1HvTdrxwKWNcFrxs3qTy7
zYONcU9cRzW7gNTDfZMaz4ORyvJtlxW6IFXiUFdMBu7LIxqjnbjP/D1oBOeq
eaBcLfCir6IT7AX6CB2RcXBUCXgx49gJ2812HUoPHweFgs9+Vg/YsGfU9bdP
1Di4qW176xfFBscHVyy3x43DvNJHmeKrbPAYKDDuejoO67OXZSaeYcO920sU
llaOA3dFYezH7Wzo/k00PhKcgJ2xfR45UywYCZLc6SE2Aa97bj0rGGXB1PIV
H43pE+C66ElL6z8WUAMO5rYtncBxfXo2tIkFBip1EQomE7BaoG7XntcsCDuR
vPVe0AQU5Jz72nyBBbelCwtdr0+Ab/frO62eLHhQ+HONfvQEFC28LJ89xYIc
cVGVH8kT8Gg99XmqMwt+5XnPSpVOQPLtz998t7Ggw/H2eWbVBDDlCf7AzSzo
E8juf1E/Aa3MAIN0IxbM2XU0W/6dgKWcb92OK1mgPrXzdeTcBEjKjay3kmfB
6lRXHSehSRhRWLfjMJ0F682vPNGmTkKJ8LLmOxIs2P2oIKZOcRJ2RRe+dhZi
wT7Tb+QEtUn4I/9dmcfHgsMjfVdO6kxCPf9JlDvLBJ8tS86QjSdBaji1I4xg
wpX+9d2/t07CPDXWJ22UCTfu2DllmE+Ck+d9omuQCY+6b+wyPTAJ6t9Wt37u
xnNQVFqZ7NFJSC3o2evFZkK+YalR9ylszwm+7g0dTKi8QWiE+k/CVarlUb0W
JjRRdt6bC5kER36PXPUmJvTceCTod3MS/t1bbbLlBxMmKBzP0TuT8GyiSCus
gQnkCFPmycRJGJvKPj32lQnyog8tO9Mm4euwiEz4ZzznRYwUO+VMgmWw1Yqt
tUzYFXH/wZ6SSVBiNJWuq2TCftEhkdqqSRCe3LHb4xMTTkds8TX5Ngm+M7Rj
X8qYECAa11X0exKI1AFxu49MiIzotzFgToKY/OxOUikTEkWhLLd3El7Kdqi0
f2BCTsSd1Vpjk6D2K+Xe32ImlIj2Pno8NQk9syXPyJjrI4zFFwtMgXGsltsB
PCf+FY3xvys6BYODm6qbCpkwEtHdS6VPgUVOQ4M/Zj6xDfuuLZ6CrIJloWaY
pW5GVfKpTYGQygDLGLOqWOdaf50p0Nlu0b8fs95Nw1Su/hSIv2xPfIzZRCxS
ymPTFPivypiUwtezvckM7Nk+BXofVWczMbuKGQwdtJyCbfmGT09i+7xv3jjQ
Yj8F5fe3jdng/YSJ/a21OTgFNcdk211LmBB3U8/oy/EpaHPvdU3G+08Xu5a+
/dwUJPh5hApgf7292SZTemEKipsq10WVM6FGTPeqUfAUePiG+ppUMKH5ZuhY
/o0pGCZyNi2pYkKvWMtB7dgpiCt6F6ZWw4Spmyvr0xKmYMmiW2Y2dUwQFQ8x
Vn4yBZtcwy5l4jl6UWRTdvyzKbgnfUZB8xsTVohrK0gXTAHRESZf38iEjZFX
rkUUTwFr4vLZRz+Z4BSp5Xr56xSkZUjNFbQywV388vfxX1PgLWmuPNfOhMuR
jejc3ykgFz5192AxISnSX+noyBTkLho+WNXLBFbkl6Yd0tPgdeuCjsMUEzji
qtvLFaZh1muTKXOOCQK3fF5tXDoNSbt3K0ULsEDtlnL0qrXTIMCilLmJs8Dt
1rmdMnunYXB90+iQKgt8qZVvbzlPg6rKY9GXmnjuvqWgIeI2DScOrdjzCNdz
5q1ygWnfacioERDqW8+C/lsyxR33p+H+deYHGzznR/MfXahOmQbdCJLgr/0s
WOeTb5KXOQ25xRJVFw6zIMTJsjboHb7e3whvtbMsUNC+3qTajM93l1QTjWTB
jpqZ0aNyM3Dg4TXqDJ7jhzfu0rdYMgN/6EfaIn6y4O6L+376mjOwMYJdsKGd
Bcw4g3mS4Qx8P9SnMj3MAr9jZ8XS7WcAND6xCTob0gU61XvvzcBd5wbhsqNs
sPBdc7Lh0Qw0rVt6ZBvuv5y+K8/fPZ2BjtmR8e4LbNjcqLj2xusZ+PttzPwq
7t+/ku3Ril8zUF/zg7ysiA2kTXX73WVmoYJX29qs0AmH/fJvj8bOQo3Tfiml
wU6QKF9fF/JwFlJjow9az3RCoXg5STZtFtbadRc8Ee0CWur3i+tfz4IEUfHg
8fIuqPjCPRryG3PKj92zJ7pAa+k6IxnFOfjwmb1mdrALRr4UMg2fzsGfhqxl
EeQeuLy0Ys2Vt/Ng2zoVKRjUC138+RZ9pfPAMY8xvHi3FyxYj47b1szDwRmR
y7OZvbAoxe+RZss8PI8L+LLiey+8U9KmNEzPg9T8k6VL1PuAkI9lqmxegOm4
rSHaX/vAXfLQ7fKKBdBosRjjLRuAVfOXxwVO8qHEkCq1fe1D8Py455kRdz60
ZSqClDY2BNqNrj1t5/gQ8YY+OSQ0DFpp5k0FF/jQ7qSd2y6sGgbVXQpv3K7z
oa9qcYmHrgyDTFyBT10GH/LbWiNhozIC0ysHiJgePrQmgfwqfdUoXIj/6x7Y
z4fqXIo/nsbzzQTf965Tw3xo8Vy+qo7JKBA/3v3cOs6H+B9rByTtHYWhi+EF
PCF+dCvv2KhpwCgwK1W9HdX5kQkiycbWjEK1swNXxZUfebc10D2dxqDmZa/b
kRP8yHrzzJZ1bmNQJ3Kx9Yk7P9phGJvAOTsG9fkPyjR8+NG9Q4wjVlfH4KdQ
222dcH5UK37M91HWGLBznHWMMvmRe9GjguPEGMzOHTm2Z5AfxYmZScmFcGDe
htscPcqPBMXj3GMjOLCQcdXiO8GPPty3pQrc4YCATdravXP8qNw44+uHJxyg
pHfzH5AQQPfuma55WsEBhuWJJDddAeTt8TpkGYkLa5I8fl/2FkBi8luenrrI
hflB/9e+FwSQ5K9FM7+v4Pl34/U7ZwME0I9TzvvXh3PhSEvqnsOhAuiC0xqJ
5lgu3JVprt52VwAt/bVne+gzLoxHmLwTKxBADw3NXaNbuVDesieO9E4AmTvf
0NjA5EKUlrP3XJEA2rW73P13Nxc0q/x0Rz4JIIZf5KnBUS448Odkfv+Bf78K
Aq4IE1DoJ/fgAVcA7ezqVd2+Gs/zVWp+sRMCiD/GxkNNnwAbWb29N2cE0J77
E73jRgQMvLSQviwoiBw3tR3xMSFAcTj4xiG6ILIMtqY02xFwxXXwouZaQcQK
PiSi50eAxaupfSqGgkiOz0Bu6yUC5AVE1ilsFESloREGZliP5CWrckS3CqJ9
PosStbBeYbfanxq2EUR/9KylrOII2GZdtv+1F77eqsVr9V4ScPfmaX1BP0Hk
9/VIyPvXBHRWykpYXxJEZ9WkXq55T0DIhlNlg1cFEV3I4iNRSkDZMrqW2j1B
1BSXJlz1Besplw/8Xg8E0SmNx5U/vxFw6P7xttJHgmhT+JJrP78TwEctjjqQ
Lohshe5oZjQTsHnclRf7VhBtHdUOf9BJQJSu5DdmkSDSYJgs6PYQ0H7qfeaq
j4JIxtU2530vAQEdVKe6GkFUZHGqKmmIgKKaN+X8rYLoXpnTl3dYX4oKHk7c
81cQmXwK/Nw6ifXXJjHfR2xBFHpdzGQY69Hp/IPL1w8IohtfUFEf1q9GD8nR
52YF0fnJm8RaYR5c//XyZAkfCVUIln9ii/Dgt6TzVnEhEqqK3eN0Fetj39D8
8QwqCX316mQkiPOgquRAA0+ahOwOG1pJSfCAMSWUvZVBQjJ+l4MvSPLgtcd+
5w5lEqLaCswp03hAyiQZrlxGQk0FRw85//d8iZ0rdUmThEx+zQzdwvqdsBes
YOiSUPdAVHElgwfbYnIeueqTkHuQn/xXrP/vfN7n99KIhM6e8PxZJc8DPfR8
heUWElp9tSMtZhEPQvztSYnbSeh1K3/TkcU8aCzg+9u3k4TuL4lJ0VDkgcpI
9ltDSxKa+OFBb8d8bvnemDAbEppuzN0UrsSDj0cXTv2wJ6GM0ZRVS5V5IJmU
tU31AAmVZ1Tx8jC7NNsqnz2I/fHyd6reEh7k0uYnio+S0N+XH7dnYJ63yGwU
PUFClIbUYQkVHuy+ZvPMwR3vz/FHzknMiWWzoennSKj2aNudt5gHZ9JdCG8S
unzSL38Ss/E6ayOTiyTk3BMnt1KVB5HnZqSjL5OQKu/AbzvMf7KfDrQHk9BA
/yKBc5i1u/dUaoeTkDrHMSvwv+dBJ3VuH4sgIdHDnaNBmMOHyY7JUdje5Ihd
fpjXnu9e2hJLQk/WnK0+jJk5UTZIiyehulPtF/BF4FZA0huLhyRkIGV5jo55
A/+loPBkEqoZP1baiu37F7Zv18cnmB/z/OIw3xXVl5nOIKFQ5uQzU8xbbkv9
XfuchKxPx3kMYH8M04cyPPJI6NeVJd9CMT+8X+uZUUBCEQGSnTTMO5TSN7Le
kVDWJbHie9i/vMchQos/kJDZEMudijlV4+A3uzISYulGkP1xfGZXyx+tqSWh
RUMTFno4flkFhI5APQk9WumjGIjjbb++cXzjdxJaP6+nVorzIc8kIuJFKwkV
xUdpqyrwwLnaza7vLwndNV9sa4LzR9Riq/KyThzvqEoBR5xfx/bO5scN4POH
Bs2Py/KA1tp8qWGEhCKzQyQO4vz86PJ6uyhBQksOuj2zwPm76MSZlsuzJHTY
73s1RZoH9f5MvmNUIWQvOviHiuvj0kJxXZK0EGoNTSt/I8oDrdAHd5tlhZBz
cvxKe1xPIbdstCyUhdCtJNmBC7j+DFMq9qxdLYRmbe94WfHxoEvtsYLHWiHk
dOTQyAtcr7FZlzvTDYVQb5p1mvAcAYMv1/ktQkIocKkJLWGKgJTKzCR+ayHk
++Fj2AEOAbt3hZ3YuFcIVZeZ7/IbxfVff1jPx1EI0bnjfDeHCbBrXlTVe1gI
0dbGPEnoJ4AyEDn0zUsIhTWuPeDMJsBLytM46a4Q+v3MpTqsgYD+qLpzt+8L
oRvZJ6Lt6gk4QlV7GpQohDIOnshUwv3PWvQ39WiaEAo6doqRXI11PGlTh2aB
ENI/w69+uISA4QlySP4PbF+MJYnIJuBUR0p1BU0YJapxLHuCCDia22AzEC2M
3ngt+RenRoCLfHXImnvCKMURdjmr4n4W8uGl3wNhxFQ+qrpMmQAr+2waKVUY
vde1vZsjR4Dx/NXviq+EUd/Qj2MfRQmQsTS0sfwljEqe++wg8P2pYuiRdb6C
CLIWund1ewkXSvfdDZ5QEkGHkjveaRdxobAsIn/TUhHUtSoyWOYdF/Lu+UnX
rRBBFm7nVgzncyFxk3Uje6MICvzudbjiKRd8bpGsZVxEEDHjtFYqigsaK09b
+aWKIH9FWmHxYS4MRv/t904XQcaF1lYWB7nwkrAO88oWQcV+Uz5MJy5sKjYq
9Hgpgpqtrj1nOHDBzlxYzbVcBHHzgk4VW3Ih+OTjCSu2CNK9Yd0yZcwF068y
sZY9Ishr+IVpywYuiK+5rmPRL4IWJUtqlRhx4f7kmcNmHBGkbbLk0n19LuRe
M/68SYCM6p0u1UTrcOHP099JK5aSUe+mdQUJSlxIpZiv19IgI7+cJv3fi7lw
wqPkh/oKMpLqC+lTWMQFrv5TsqoeGak15yq8ZHBBtMLLS86EjHKKHd6ukuJC
g2aPuKwpGRne85x5JMHF+soxg7aLjPTd2yroVC6o2qI/VBsyOrmwkUoX5YIR
m2pKOkJG9pp7vA7j+WV+ezCT342MXlJWMYUEcXyyCP+Fk2Sk3WC3KJ+fC3s8
215Me2L75H/RFRc44MaXpTAWTEZM6ypi2zQHdFwVC4bDyMhxp16yyhQHxqpv
Ww7eICO78S02gpMcCLjte/VfDBnR0rcPtfM4cEd521D7YzISjVHJ7h3jwJsv
fX7VT8nIYltoGz/mVv/bAvlZeP3euXnVUQ6o/G6VC80nI6c+T12/YQ5sDQtK
9XhNRnIiWjueD2F71mqs3PceH486cax3kAPPb3uarCgjoy/U9eU+Axz4tknu
K72SjLy/rBet7ucAZ6B431wNGV13ST+xBPP6HWSPhga8v/N//Lp7OeA0njPx
/icZjb2tW22LOSjNNuRJMxn5GJwRr/nHgSq+5HhfJhldzbRF1T0c6MvdtvRQ
FxmRgtwfWWMWd+5/vrOXjPSMe1d0dnNAVyzacO0gGWnc3TlwCbPte4NyxVEy
umHWx1yM2fd4m4UwQUZtMuPUT10cSJAN/j0yQUZued7enpg/fNI40jJDRo1F
wNDEzPT8Mli+QEaXSkR4nZ0cEFTx8nsuSEFuyra0TMwa9XICcSIUxFUIPHse
866AD5FXxChIp7yQaorZY8VRuZOSFNTEkxpegjm6mZxqQ6egZc4u0vyYC8Jz
dYzlKEjFzf5CH5sDv/Xt3qovpqDqLSHLWjBPs6e2SC6hoBoWojdgVopJ/jK5
lIKmxqvM/vs+AcH2fWwNCgofVS77gdl1qJ/1eQUFvZvRusLEfO1htPvrVRQU
SnoYTGDO3rluIkmPggrf8NVI4uvXT7QFX19HQb1Xiqz1MI89DRb32kBBnBgB
ZSfMMnaa8Qc2U9COHrb2LcyGAl9Vt5vg9VvAvxLz/jyv56tMKWhwfYOIEPbX
ZRd5Q/ldFNRvpPbDHHOKeEkZvyUFjYYmtz7A/KnwqMWANQVpmAYojmDuOUH5
/XMvBRlF1cWZ4/isrLQbzHCmoKWFy3UW4fhanZ/2jTlMQc8Sr5tEYvZWTeG/
dAzbx+BdE8L5UXh5gGHpQUHf71bepeL8adeOeWzoSUGPD2rZJ2Lma12no+pD
QREn4zbo9XHAdF3IFiKAgm4nV7mcx/l4skvzS3sQBQX2r49XxvkbGfvVvjoU
r29Y1NWA+cewvHtCJAWpi5Vm78L5fyjjRRxKpKCv+e/PxuJ6Ed7CUbySQkFb
3Vs9buB6ymnVf/IhjYLIs5N3r3Nw/KiFLzbkYP8Rt02SCQ7c9a6o0S+hIFlJ
n90rcf1ukBDZc76cgiKvH652xfXNytj5K7+Kgry1HVamzXBgVVs9a9U3CuIL
qkrYMM+Bmi0t01pMCup6Zz5XgfvHmbbFwce7KMh97avWDUJckPVxEUnvpaCD
afaO74Sx/snspC8bw/GKYErVUbgwKzGsoyQgin6e1N1ohvuZ7h+Bg9JqokhI
5t6hJGUuNPls796jJYoUqhLIN1S4cFny+ukoHVFkI7r6rv9SrK9MqBfEDESR
cP3NJV4aXHDNkosRMhVFrSb9gfmrcD/21fk0dVwU0Uo1A10RF/ik7TXZz0TR
8afrylec4IJnmqx88wtRtIi82Sz9FBfYhr/I9a9EUfhBD0END9wPXez63xeJ
ojb2I/YaLy7ceG6TE/NZFKkdWH7lYgAXaDv2rN0yIIoK9kDv+xguqF3ZASkr
xJBpdsmda/j+tnNowz6XLDGU9PaD6k4lrDfc47dm5YghQR+v+XAVAvQGuKuJ
fDHknlJvV7GMgEV9z8kRhWJIic+YtGkFni+6lAtffxZDtUvWXV1mSED0HwEl
6rAYqvxQF5ZjRUDT5zp2kZ442mfSKDoZTEDdLs1vwobi6HoWp280lIDS2qtF
1hvFkXZFBrMb66/MauO7/7aKo6tRfzI+3SLA/1PudvpeceR/s+yJ+QMClIpi
M0/5iSOp9XrxPi8IoG0Yufv6kjgab0pYtwzrM+H35sF8QeJI5eIT488FeJ54
Q9ofd10crb8aLy1aSMDHl75i5Q/w9RrwcFNBgGv2/jMKxeLI+qFXkM9vAt6c
79tl9VEc/apNCH/ZQgB50wXNaxXiiCdcFtPbRsDzb/eYxBdxlL6QvxeYBBBE
g01Duzi6yNAeuYv1l2nJwdUibHEUcKraLx7PS/evDYtt7hFHBy9+3hY7iOeP
ReKVz4bFkf1z593n8Lx1FcwMry2Io2zK0mufJwj4SW6ilwhS0Wm73ym38Lym
8d11lBChorXutG1mM9h/riFZR6SoaBX99ucUPO/RIj4s3qxKRQsXWo/2k3jg
amsx6a1ORf5eYOmG58U3im0/ny2noucXhqgtWK/tfzF5S0GPim6c0nudiufN
1J9r+XgmVEQzizapwHqMeFT+R9uMivbvf+RDSPHA9Lj1+yPmVJREM21chPVZ
/9QZrwZbKsqvuJq7E8+7xp/mLEUcqGjFsUvCNngejoqM1N7sREWqP3+utcL6
TG9JdtczVyryo4wXr8TzdGivURn7BBUZXjceFcfzdlN+9SMFDypqUerMYP33
fveSvb+VJxVJ7hZqeIbnc/9t3fbXfKioUL/L7jSe379QvdeWXKSiuKmepSp4
vlf+LSDFu0xFlqsfatRhLj+pUnsknIqYzVIh/71vlln74umDCCp6Zpb/Khzr
BbfZTSENUVQ01l9WT/rvfXXlFxeRO1QkcSfuox9m0dsHNm6Op6Ijvc98OzA7
OfTL+TykoupvGX83Yv2Sq3qReJZMReH1jj2RmPkGRBrZT6jonEfRpe+YbQri
chQyqejQw9FIcayP0i6rR1g9pyKy5A7yxv/e/5sWuF3Lo6LJjI1/nDHvkNq6
taSAiqjfzk14Y05oaVzCe0dFQk3vdvynzwZTD81qf6Aib3vp0iuYN7uPNB8p
oyLidtrO85ijDQJfP6ikoujK2t/7MbPmxWMbaqkoMEHIcR3m+TL5lpKv2N5P
rKMUzIvC1FRyGqko7FLe70Zsr+EO3eMPf1GxHgzMuI3ZTsw490YLFS3yvlRl
gvlcvRnPr52KhPfOaP6n127F2Bq7sajoTYhP6X/v/7PtDl6168b5dj8saDHm
KrnTdSZ9VGR+c8DlCfY3u9VXes0QFd3suWmpgnnhUYjDkjEcf/K5rbE4PoqH
o5KpPBxPp6o1Uzh+RmoJPTOTVOTygE3di9nu39OV/bNUtG1y05enOP6e2fne
zXwSSMLT7/AAzo9s3VqB12QJpJNU0mmH86eK+3PnE3F8fKam8ALOt843zOgY
KQmksfaZcQzWb4qbJpXPyEsgs50JjBScr+v5SG5OihLIOLLVMQ7ns/0nyZxd
KhJopMNRORjrt9s7NTdqauH18asF9bF+ey6+NkRWRwJ9bxqXnMX1UvNtc62g
Ll6/vcP3nQQPBOzt9zENJZDDyfyVEljfeR8JO//ATAJJdjw00cH1GK0eU3jN
XAINR95ZGofrNac3kd93jwTy3C3DIAR40HOm4LbNPgm0aNMlucgFAhwudT4T
Oy6BtqzMeqY9SYD35hHO1CkJFLAQZWkwTkAM/8z63jMSaFK9q0aPwP3hGq2m
wlcCdWjwLafg/rLp7pauy+ESiNQY2rX0H9ZH+3Zru0fg45+Nb9f99z3TIkev
/VES6GKmMvMY1nN5Kef4DOOwvXpCB/3aCViak6w4+lQCcUJytgv9wP21as7u
SKUESqWsGaopIiDdOz3+aa0Eyl1fnO/6Dve/ZXtae79KoBt6m5+M4f4bHpRy
8GyTBFKPiePryCFAaOPWUwH/JFDbp7L9IskEkPKuX4mjSKJQOQH6rUAC0lzW
lLdQJZHyrHLBBn8CtlFbSUo0SVT13dGjxYeA0FPaEU8WSaJ797u1+90JEFSv
v5unLYlOJg7wO+4nQCCBnl23WxL5MkNWn9EjIHVH8SDVRhIdyvMxX7WSAJMJ
19XW9pIoL8X7eYcmASF2bwp+u0gio+dd1gx8/+OXdCztOiuJ/JcbVP8QJoAv
NOnnfIwkuq99Y9G931xY8Fi+oNckiRbih/65n+HCKcae5ytbJZHVEe3IP8e5
8LPE21HrryRSrPphh7C+y5b8+EqpRxIxlPwDu2yxfsu3P0Eex/sVszidgvWY
3XRZ77CoFHrXyxAdw/olc9OIdcUKKST3wVHQJhzPcxU71c6ekkLjW+inI33G
oOADz+uIuxS6OJ00kuY+BvJvH5ftPSOFjFSPT70+OgbMrCkXYy98fvrwUJn1
GJy7nfWA4i+FjtLaE66uHIPo/RTJtBtS6Ej8S4+PnaPQMFoz1ZwphdSXOIa8
Nx8Fa6Ud30z+SSH3uN7FiUrDUNzTOfT6jDTKHXqxJLGgF6q/J559cU4ahUs8
3Gv7uBe+l+wdy/SSRiHKbkcZUb3QG1dNPPSVRmpJQl0fj/eCjNmzmeBAaUT+
8Cc4Z3EvuGd4USyjpJGvY5eCbPg/UDzBr96TI43YCQv+cW49oGlXmN7xQhqt
c6MVrtnbA3rovFZLvjT6IfH6SsfWHtgh36395bU0ij2qcOq8ag9419Tovfwg
jbQ316KQ9m74ohWNAr9KIwfC2v+4Yzdc6lN2YgxJow0ZubyUw12wwzz9wIYR
aeR3Y9/WPOsukMlZecBlTBqN6ls6/NnSBbnnjPen86TRtkvVr28u7QLmhKPD
unlp5MTYvH53dydsF75nZy9JQ+bKRcM3znUC7YSinb80DaXdHm8PPNIJf2uf
2CbRaWjXWHn7HbtOuHDrpU2PHA35qcn8UF7fCdkyDVa+KjRUtS61+YNgJ0gu
E9sdt4aG7mwqmduRzIY/obEWhWtpiE//qvDeO2zI7FGw+GtAQy12qbNXr7HB
JFvLXGMDDVWUKziYn2OD9xrTnW9MaIiSdnBr6FY2oDtfd7Ruo6G/Svlrnhux
gcqz2zFvSkM/RNbtmVzJhvR3R81MzWmo93jYizl5NrRA8PYmWxpKvicuWTbK
gvTH5O3Te2koIXRDqMQ/FngJRm9TdqAhdvroruB2FohXJ211c6KhB6uC7H7X
sWCzZfGWcVe8fw59dEcGC544TWxi+NLQsLqrtfNxFtht/MCRvUBDMlsW779x
iAXCi65myPrTkHOY2u3fjiw49VtCWjaQhgaHtBpbLVigZ6PRRQ+nofmwR+xA
fRZ06Q7ep1+nIZ/404Elq1gQJ/lyNz2ChlSK8lgqy1kw/WXTW1oUDR12M95m
qcyCcrO9EdJxNOTu179jtygLvDUWg/R9Ggqp4HLShFigIcTiSiVgfzPSupbw
syCi3N1ZKgn7R3W86cokE4wf69GkUmgoj3SV40owYfjKZJVkKg31tUXe9Bhl
gs2mUF3JdBpSilh9vK+XCSTFXd0SmTR0JBbKnLqZ8GZaMkEim4ZcEwqruSwm
LHr3UFAil4Z26i4i3Wpjwpe4w++oeTQkGDq7+3YzEwJ9ND2oL2moVX67++tf
TGDrvWoSf0NDU+pGOz0amHBX+uJN8Xc0RLI7Ir/wlQmmo5uReCG+3tjYn4LP
TJisJ/HEimkowk8iKaqWCdk5dVliJTQUKnL2SGT1f++Ho13EPmL7rfbr5lYy
QeK0PV2snIbi/NOpxCcmfNypWCNaQUOT4u8XnMuZ4KXFDhCtoqHZ9nCxwY9M
UBPJXCNag+M7f8cgqZQJTd0ePZQ6GtqUzQ32LmHC9Yq1DylfaMjIcAdx5gMT
NjyZ2kOpp6HnlE+3bxUzYTC4lERpoCGva2r7GoqYkHQo7D35Ow0NUYstDDFb
gfkZ8k8a8u477lVeyAR+Zell5CbsP8t7tZ6YX842/RZpxvVii2y3Y3ZtS4wU
aaWhNyNcyU2YGYVHtoj8oSE7Xu2CA+aa+1rjwn+xf2ROL32A2d9vOFuYiffb
KuE3h1nHvuCgMBvb8+bSbNh/3yfo+8sId9EQc0Y4Xw/bG01HtUI9NLS//26s
IN6PCUcoUKiXhqoL7idNYiYaPusJ9dPQWITMd+n/vg94EfOPNEhD6WkPlu/B
/nKI2pdIGqahQMsdj/PKmCDqoWRNGsX+mfymvw77u9i8U4jEoaFv2852dFQw
QYVy9qzgOA3plxS5Jtfg/VMtFacmcH4H73bNrsP5ILWydniKhsqkeud+f2HC
E/mBpa1zNJSrkN6V0MiEUMW6b98WaGhpzOVluj+xf1SyAir56eglqarjXxMT
NLSON+UJ0ZG6dfKLkj9MENExvZouQkdXX2bmt3cwoXe1um4ihY5iDspILOlk
QpZh541rVDq6fyAul9yP/WV2cJOLLB3Zl5086jvFBKr55n5bOTqKNAqQypjD
9WGpFL9TgY4G3t0umcL19MK+bVRfiY50JH37SGK4nt32pYmp05Gk5sbxPFyf
tFPrrPk16eja0UUrRpexgOshOz+uRUf/PFYNWuF6LvD5sY+tQ0f7zeRbfXH9
G4btEXuvT0cOicrBNrg/yN9Y9S53HR3ttI/anWjDgslI6rE0Izp6rnhEUQT3
k8K7n0tuG9OR54rp8+DGAuM0My+3bXS0o3W02SiEBSafoIVuR0eDwn+eb/zI
gmXVyuEUezqaEeXU3qxhAenznN7CPjqSrq28PtPAgsrvRZH9B+hoYmN4+Ho2
C3awDVHZUTpiLZhn6wizwZJfN+PMeTrqMluf/tuWDaP+7Y1RPnQkbuFcQLiw
4Q4RMZvrR0dlD671659iQ/O/buuRS3QkVj+gqxzMhsP1D2fPhuL9p355fzsP
9/OHIjae9+hI122wtVa2ExIMOmbPv6UjQu6tsdNkJxi/iNS8+56OfsvkWtwQ
6YIOrQ02BUV0lOza9eEHowvUFO9lEKV0pE/8GSk16IIcAXMbnxo6yvwx9mLE
uws+fnuT4dtCR5o5bkcDJrug+2SUzcUZOhqLLiW/pfWA+yF/PZ85OvJVKX/7
b1kPEPZuNM8FOuLpaj3XNugB0rbN308IyqCchOb4wX09sFR52NpBTAY5B63/
YZHUA4e+77Y2XCyDPBfOCzmu+getG6hWvA0yiLrFRGP5/l5oEIvc7ekvg9qG
byqE/ewHdWXNYjJJFglf8WF4rRyFpBfT0urCskjZwW03z3AUGFvqj28hy6KL
ExcUz5uMgrCrD91fXBZli/AoLvtGoSfr06kBGVn0nOHQOhQ0CukGhxTq1WWR
v/+vsLbvo6C1+4HvHTNZ5KT9MkzLcwxS/rp/ebFTFg0Vcpuq/PH8dA4t/WIu
i4qtPJBT6BiQ7/z7SrKSRQuumhOn48egt9lA3ddBFoW2/d2o+GEMsly//3A4
KYvU6sf5nwlzYEWA2Brlm7LoOiHcwI7hwPUIJWPGLXw9py9ymQ840H1/tZnE
bVmUOPLb4OhjDqS8tnWej5VFFcta3xbmcUB25OGNvwmyCF1+pDdUzwG+Izrs
pGxZ1NJ0KcKWwgWXc5uH4p7LIrcAO4+zUlwoCrSajMqVRd5n402D5Ljg+9Bb
4spLWURaeSE7SJ0Lgz+LNxwslEWfj9l3TSMu/DbbfWdJnSxaUmKu+NmHC/r2
B5PkvsiiCZWnA7oBXIh19cySrJdFUcNJ8xEhXLAIvle60CiLXuYvql18mwvl
he0DHS2yaAtFejg3gwu5K89sS+mTRd36lgJ3m7gQSr/NU6EwkMGDXE9NbQKe
xJ8N3CrGQE3mDfpndQkoX2wl4kZloM8mQSszDfA8rSat8EyagT45OeYMAQEB
+neMDRYxUF6fvm+VLQE+e+Ov7tRmILnFrODnFwi42+In7r6SgXrajgoLXyag
wNnhXtRqBkIwfM8qmADOMYWMH2sZ6AQl5ue7GwSc8X1Y52zMQI1GVT9+PSDA
LT5Z2ms3A7Wuiftm8paAsMVBCXf3MJCT7j+XnEKsN5IPLXtrzUAr5zulKCUE
sDNUDWb3MtCy4byBOxUEuLx74hDuwkB26daciQYCLhuHsjIPMZCgwLjoINZD
iR9dT30+wkC89mOnGpsIaK1RD5A6zkDVO87KnPtDgH1LRnLCWQZq/7evfK4H
78/5utYHTwaajP9cHNCH98c6kd9xnoFOzXPXDA0Q8L1v+Se1CwyUTuZkp2L9
Zjn9rCc3iIHunRwsPDRFgEdg5NnGEAYqO5Lk7j5DQKSAxyQ3lIGO9lr/OTmH
9Z/oKtH1NxgoIOTP4g38PDBbnLfyUwwDbSZZrF1D5oGF4rfTZXcYKG41l55P
4YGV0nBW6T0GMg8wq1cT44HDEh2N4gcMNHirhfhH5YGTirlr4UMG6pDhnTfE
evew6qnUd48YKKv5AsdfigenlmUqv37MQDfCLWX/0nhwRq3a6dUTBrr05dfX
OayfvdR7EvKfMpDOg9W50lhvX9JUk8vNYqCb1DgpBtbjQVpb9z5/xkDF9VqZ
wv89H1p+5E52DgN1Nz2IHcAcqZ0imZHPQGfy+yJjsd6P1ind/fQVXr/y/iu7
xTy4t/LvzSevGUji66f9Yoo8SFg1V/v4LQMJhK2PeoM5abUiOeU9Xm817Giv
xINU3Y2mSUUM1MWZr+3HnL5mf2jiBwYSfvui/7wyD7L1LpYnlDLQET33mjHM
L9be53tQhvOBVH3WdQkPCvTfbo7/xEAzdy8Off7v+ZFBU8C9Spz/TUcttVR4
ULyOV3inmoGW80UmX8T80VBmKqaWgdSslIdLMVcYrTWM/sxA5ZXuZjOYa9fb
+ER9ZaDcjuF32qo8qN/g+SryGwM179tiZY35+8bosYhGBtLsUF/sjrnJ+MXq
Gz8YKLw5RPO/vw9p21Tvce0XA4XRj1797+9DmJuHnoX9ZqDd4Tzj/453gXj/
1RYG0hW5deS/83uRtlZIGwPdEkoRsPnv+dKWXW5B7Qy03aRG+7/vCUZNTqYF
djDQ02vlg3PYPt7W6+wAFgN9OHTGrgLz9LYMlUudDGTZ8NUzCPP89iqXi90M
pCQiZKeHWcCsO9HvHwP9Utgv2or9I7yD1ObTx0COb/TT/u/52s5lCt4DDPSi
WWmNGGbJXSb7vIZwfV0p/XgX+1veIujHmTHcL+L8NCP+ez60O1nag8tAiYdD
lcdxPFUtS/ac5uHr1Rk4OGBeYTX7+fgUA2X/+vZzAefHKuvFom4zDGTakm20
HbOezYYdrnMM5PZIQjVYgQcb7S5UHOKXQ1o70sr/4PxDe+MFDgrKoWP5hY9m
//uexP4NchaSQxGbl26hY7ZwIIodKXLoK3VEXV2GBy5O517bSMuhojczVu24
HmJCMgdM6XJIZt/OzUUSOL6ZTNWNsnKoVO9vUzSunxU8q6hlCnIIri+1XIbr
a+LWmuOEihwKFNMx+ieEjxecfNS7VA7lkJSOhJLw77c+/vFHTQ4pWaFyBUH8
exo0VKklhxynkPtKPpz/pRz5OF055G1W5zyN+8Gn7hV7IvTk0K8X1qsPTBIw
LnY0LFBfDnVd96ouGCfAyeHHmJuRHNq6Wu+eDZeA5WOv6gwR3v+zlNwNg7g/
L/UJaNkjh0TfrrX9ivsVb0fOy6/Wcsgs/Jj9p1YCtM5295bZyqF4237LV80E
RBXt3Zu9Tw7pq1Z4BP8k4IDdulWXDsqhxbIx4c2fCSDCJjoUz8qh7r9G7lff
E6DRd3HroSg5JK6seswhhoDFYUETgdFyyCRPY/xiFAFSqteePYrF+3WmHo6/
ScCUw116W5wcGmw7sLIqjIAvNbmde5PlUJPX98DxiwR4ZXZeNc+TQ7dW/+F/
f5iAkuO7K9Z9l0MCn55pXF5NwL4ele1UhjzyX5Wd8LSWC3oLx3JF5OWRnt3L
LyVVXBCXfyYnsEgeHWl16W35xMX6x6B/XAmvvyGrxSjhglbOzttMdXn0Sv7E
z8yXXJg879XyykAenWFock0TuZDAX+Gxf688Mnc+OMDy5IL3Ispvu33yKDF/
pcaBs1ywXGuJ9jjKI3eOy4Vmdy4IHGumbXOWR4X0G487jnPhdM3g25XH5FFc
ZNYbVRcuGN+WFeD3kUenGtgCIeZcYGTuPz3jK4/KR1Trtu7kwujH5J+8C/KI
spz/nqgZF9I4yzP6A+RR5gYD9wwTvB/7zRY/Q+WRa7VQ/JINXGhXPB6XcVce
2Xz6vUR2BRfs1Y27/8TJo1DdWiahyYWGldL6tAfySFxDu6MNzwvlm4saAx7J
oxPisT9KVbmQeUiSapMujz7F2u9kKXBB9WTXgWuZ8kga1T2dxfNGguf77OJs
eXT11N53SxhcuBVydIfmC3lkGBRneJnGBa+0t1dn38ojD7Fn8vFiXBh4Hvl9
TaE8Uph2ezyG5xnX14dVjxfj/VvW7rQjc2FflVhp40d8/qbc5XpC2B+9B6fT
a+WRsPKJk9YLHHgzqr/zz2d5pPPBX394jgOrpyj3pevl0bp85Yt3ZjmwVLTA
IOA7tjfFKn5iioP1DdnTuk0eqSWk62nyOBCk314a3i6Piiv3/CYTHJg2filR
3CGPjJT2A5fDgcHdTs81uuRRp3jiRfYoB9zs18wc6JFH9Dm9A/9GONDhIrwr
phef79enzBvmwPezef9mBuVRlvj9E9pDHDC/ELZuzYg8yk5snbEd5EBF0P4w
tzF5tMWp8WbYAAfexpCWNfLkUYlX1HvBfg7oJrR4Ck/KI7mJsCNWfRzITs39
uHFaHj2vu6Oc3suBxFcOLunz8ujLfY9O9394PixemdPGp4DOVuzmtfdwIKpC
YFZKUAG5errrOGAmf/29y1RIAU2wsyLbujkQ/Ov5g0siCkjXLFXhBObp9uDe
PIoCqnyS0zTXxQHvHnvDHjEFZF/RUZWIeWhYO3yxhAJavYI8tA2z2wTfLysp
BXR0Lt98vJMDzIVfy8JpCmjvwrLuPMyO5GdeRTIK6HngoSJvzN+lgspGGQoo
10K9YQtmC4W9UhoKCkiqYEBNHnOl6oqDBxYroKWevYUTbA5sXrGQE62kgE4/
E7vz3/v2d3o/ZyuXKKDCUb7c75jXbMwyn1FVQP///wn8D0Qj/kE=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 3.1416}, {0, 1.36}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.620633609909253*^9, 3.6206338967896547`*^9, 
  3.620634274290183*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aju", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.620633918979686*^9, 3.6206339271996975`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"1", "0.9562741380714774`", "0.0396337337347703`", "24.1277832785294`", 
      "0.000017503480033907672`"},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
      "0.5915170114839281`", "0.07234853691603095`", "8.175936054801683`", 
      "0.001218663163783417`"},
     {
      RowBox[{
       FractionBox["1", "8"], " ", 
       RowBox[{"(", 
        RowBox[{"3", "-", 
         RowBox[{"30", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
         RowBox[{"35", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], 
      RowBox[{"-", "0.3674188660060004`"}], "0.08925731046951257`", 
      RowBox[{"-", "4.116400819981002`"}], "0.01465539007735001`"}
    },
    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.6206339279996986`*^9, 3.6206343116602354`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aju6", "=", 
  RowBox[{"LinearModelFit", "[", 
   RowBox[{
    RowBox[{"dado", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"LegendreP", "[", 
       RowBox[{"2", ",", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", 
      RowBox[{"LegendreP", "[", 
       RowBox[{"4", ",", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", 
      RowBox[{"LegendreP", "[", 
       RowBox[{"6", ",", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}]}], "}"}], ",", 
    "\[Theta]", ",", 
    RowBox[{"Weights", "\[Rule]", 
     RowBox[{"1", "/", 
      RowBox[{"\[Sigma]", "^", "2"}]}]}], ",", 
    RowBox[{"VarianceEstimatorFunction", "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6206343730903215`*^9, 3.620634413990379*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"0.9578246856634394`", "\[VeryThinSpace]", "+", 
       RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Linear", {0.9578246856634394, 
     0.6157143836949086, -0.3501971043005943, -0.0683417765866194}, \
{{$CellContext`\[Theta]}, {
      1, Rational[1, 2] (-1 + 3 Cos[$CellContext`\[Theta]]^2), 
       Rational[1, 8] (3 - 30 Cos[$CellContext`\[Theta]]^2 + 
        35 Cos[$CellContext`\[Theta]]^4), 
       Rational[1, 16] (-5 + 105 Cos[$CellContext`\[Theta]]^2 - 315 
        Cos[$CellContext`\[Theta]]^4 + 231 Cos[$CellContext`\[Theta]]^6)}}, {
     0, 0}}, {{69.44444444444444, 82.64462809917356, 123.4567901234568, 
    204.0816326530612, 123.4567901234568, 82.64462809917356, 
    69.44444444444444}}, {{0., 1.03}, {0.5236, 1.36}, {1.0472, 1.01}, {1.5708,
     0.54}, {2.0944, 0.91}, {2.618, 1.36}, {3.1416, 1.28}}, {{1., 1., 1., 
    1.}, {1., 0.6249984094544094, 0.02343451773193639, -0.3740249161959648}, {
    1., -0.12500318108443526`, -0.2890591863507035, 0.3232434052190404}, {
    1., -0.49999999997976136`, 0.37499999994940336`, -0.3124999999114559}, {
    1., -0.12499363780414474`, -0.28906912720864286`, 0.3232397518125203}, {
    1., 0.6250079526942227, 0.02345241142464438, -0.37401604361988117`}, {1., 
    0.9999999999190454, 0.9999999997301519, 0.9999999994333191}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`\[Theta]}, #], {HoldAll}], 
    VarianceEstimatorFunction -> (1& )]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.6206343974103556`*^9, 3.620634416460382*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aju6", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.620634418700385*^9, 3.6206344304404016`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"1", "0.9578246856634394`", "0.03968023036470025`", 
      "24.13858681918151`", "0.00015583264856195244`"},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
      "0.6157143836949086`", "0.07830987768356337`", "7.862537931458705`", 
      "0.004286006137292723`"},
     {
      RowBox[{
       FractionBox["1", "8"], " ", 
       RowBox[{"(", 
        RowBox[{"3", "-", 
         RowBox[{"30", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
         RowBox[{"35", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], 
      RowBox[{"-", "0.3501971043005943`"}], "0.09177041748056584`", 
      RowBox[{"-", "3.8160129801605764`"}], "0.031658691943352656`"},
     {
      RowBox[{
       FractionBox["1", "16"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"105", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "-", 
         RowBox[{"315", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}], "+", 
         RowBox[{"231", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "6"]}]}], ")"}]}], 
      RowBox[{"-", "0.0683417765866194`"}], "0.08464215848532625`", 
      RowBox[{"-", "0.8074200588642512`"}], "0.4785059624616128`"}
    },
    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.6206344310804024`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aju", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6206344402504153`*^9, 3.6206344468404245`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"1", "0.9562741380714774`", "0.0396337337347703`", "24.1277832785294`", 
      "0.000017503480033907672`"},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
      "0.5915170114839281`", "0.07234853691603095`", "8.175936054801683`", 
      "0.001218663163783417`"},
     {
      RowBox[{
       FractionBox["1", "8"], " ", 
       RowBox[{"(", 
        RowBox[{"3", "-", 
         RowBox[{"30", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", 
         RowBox[{"35", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], 
      RowBox[{"-", "0.3674188660060004`"}], "0.08925731046951257`", 
      RowBox[{"-", "4.116400819981002`"}], "0.01465539007735001`"}
    },
    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.620634447520426*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aju", "[", "\"\<FitResiduals\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.620634878461029*^9, 3.6206348862610397`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.15037228354940502`"}], ",", "0.0426389545163075`", ",", 
   "0.021461571571979476`", ",", "0.01726644239217512`", ",", 
   RowBox[{"-", "0.07854772589940895`"}], ",", "0.042639884007896756`", ",", 
   "0.09962771639933377`"}], "}"}]], "Output",
 CellChangeTimes->{3.6206348868310404`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", " ", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"aju", "[", "\"\<FitResiduals\>\"", "]"}], "/", "\[Sigma]"}]}], 
    "}"}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6206348994110584`*^9, 3.620634965621151*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], 
    PointBox[{{0., -1.2531023629117086`}, {0.5236, 0.3876268592391592}, {
     1.0472, 0.23846190635532752`}, {1.5708, 0.24666346274535883`}, {
     2.0944, -0.8727525099934327}, {2.618, 0.38763530916269784`}, {3.1416, 
     0.8302309699944481}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 3.1416}, {-1.2531023629117086`, 0.8302309699944481}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.620634899891059*^9, 3.620634966671152*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["y"], "Input",
 CellChangeTimes->{3.6206349023410625`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.03`", ",", "1.36`", ",", "1.01`", ",", "0.54`", ",", "0.91`", ",", 
   "1.36`", ",", "1.28`"}], "}"}]], "Output",
 CellChangeTimes->{3.6206349026310625`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"aju", "[", 
    RowBox[{"x", "[", 
     RowBox[{"[", "i", "]"}], "]"}], " ", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"Length", "[", "x", "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6206351295213804`*^9, 3.6206351424113984`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.180372283549405`", ",", "1.3173610454836926`", ",", 
   "0.9885384284280205`", ",", "0.5227335576078249`", ",", 
   "0.988547725899409`", ",", "1.3173601159921033`", ",", 
   "1.1803722836006663`"}], "}"}]], "Output",
 CellChangeTimes->{3.620635143051399*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aju", "/@", "x"}]], "Input",
 CellChangeTimes->{3.6206351182713647`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.180372283549405`", ",", "1.3173610454836926`", ",", 
   "0.9885384284280205`", ",", "0.5227335576078249`", ",", 
   "0.988547725899409`", ",", "1.3173601159921033`", ",", 
   "1.1803722836006663`"}], "}"}]], "Output",
 CellChangeTimes->{3.6206351218813696`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", " ", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"aju", "/@", "x"}], ",", 
     RowBox[{
      RowBox[{"aju", "[", "\"\<FitResiduals\>\"", "]"}], "/", "\[Sigma]"}]}], 
    "}"}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.620635048891268*^9, 3.6206350826013145`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], 
    PointBox[{{1.180372283549405, -1.2531023629117086`}, {1.3173610454836926`,
      0.3876268592391592}, {0.9885384284280205, 0.23846190635532752`}, {
     0.5227335576078249, 0.24666346274535883`}, {
     0.988547725899409, -0.8727525099934327}, {1.3173601159921033`, 
     0.38763530916269784`}, {1.1803722836006663`, 0.8302309699944481}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5103175031097645, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0.5227335576078249, 
   1.3173610454836926`}, {-1.2531023629117086`, 0.8302309699944481}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6206350831913157`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Chi]2", "=", 
  RowBox[{"Total", "[", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aju", "[", "\"\<FitResiduals\>\"", "]"}], "/", "\[Sigma]"}], 
     ")"}], "^", "2"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.6206352999716187`*^9, 3.6206353196516466`*^9}}],

Cell[BoxData["3.43946859872209`"], "Output",
 CellChangeTimes->{{3.6206352947016115`*^9, 3.6206353203616476`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Round", "[", 
  RowBox[{
   RowBox[{"100", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"ChiSquareDistribution", "[", 
         RowBox[{
          RowBox[{"Length", "[", "dado", "]"}], "-", "3"}], "]"}], ",", 
        "\[Chi]2"}], "]"}]}], ")"}]}], ",", "0.1"}], "]"}]], "Input",
 CellChangeTimes->{{3.6206353255816545`*^9, 3.6206354038017645`*^9}}],

Cell[BoxData["48.7`"], "Output",
 CellChangeTimes->{{3.6206353480616865`*^9, 3.6206354047017655`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Import", "[", "\"\<parabola.dat\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6206362364929304`*^9, 3.620636246082944*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.`"}], ",", 
     RowBox[{"-", "11.2`"}], ",", "1.6`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5`"}], ",", 
     RowBox[{"-", "7.3`"}], ",", "1.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.5`", ",", "1.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "5.4`", ",", "1.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "9.`", ",", "1.6`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", "13.1`", ",", "1.6`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", "12.9`", ",", "1.7`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.5`", ",", "18.3`", ",", "1.8`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.`", ",", "16.2`", ",", "1.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5`", ",", "17.5`", ",", "2.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.`", ",", "15.7`", ",", "2.2`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.5`", ",", "15.6`", ",", "2.3`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`", ",", "14.6`", ",", "2.5`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.620636247332945*^9}]
}, Open  ]]
},
WindowSize->{1440, 818},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>2.2 Inherited,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 184, 3, 66, "Input"],
Cell[767, 27, 110, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[914, 33, 142, 2, 66, "Input"],
Cell[1059, 37, 188, 4, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1284, 46, 225, 4, 66, "Input"],
Cell[1512, 52, 697, 17, 174, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2246, 74, 131, 2, 66, "Input"],
Cell[2380, 78, 810, 22, 290, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3227, 105, 199, 5, 66, "Input"],
Cell[3429, 112, 211, 5, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3677, 122, 199, 5, 66, "Input"],
Cell[3879, 129, 200, 5, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4116, 139, 204, 5, 66, "Input"],
Cell[4323, 146, 202, 5, 93, "Output"]
}, Open  ]],
Cell[4540, 154, 94, 1, 66, "Input"],
Cell[4637, 157, 147, 2, 94, "Input"],
Cell[CellGroupData[{
Cell[4809, 163, 135, 2, 94, "Input"],
Cell[4947, 167, 2877, 61, 561, "Output"]
}, Open  ]],
Cell[7839, 231, 528, 16, 94, "Input"],
Cell[CellGroupData[{
Cell[8392, 251, 338, 10, 94, "Input"],
Cell[8733, 263, 14785, 253, 563, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23555, 521, 451, 13, 94, "Input"],
Cell[24009, 536, 114, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24160, 542, 167, 3, 94, "Input"],
Cell[24330, 547, 2948, 62, 368, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27315, 614, 428, 11, 94, "Input"],
Cell[27746, 627, 1597, 53, 326, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29380, 685, 138, 4, 94, "Input"],
Cell[29521, 691, 202, 5, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29760, 701, 79, 2, 94, "Input"],
Cell[29842, 705, 297, 6, 126, "Output"]
}, Open  ]],
Cell[30154, 714, 424, 11, 94, "Input"],
Cell[CellGroupData[{
Cell[30603, 729, 392, 10, 94, "Input"],
Cell[30998, 741, 1637, 38, 129, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32672, 784, 257, 7, 94, "Input"],
Cell[32932, 793, 21942, 371, 549, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54911, 1169, 1045, 27, 179, "Input"],
Cell[55959, 1198, 1482, 33, 129, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57478, 1236, 416, 11, 94, "Input"],
Cell[57897, 1249, 24217, 419, 561, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82151, 1673, 145, 2, 94, "Input"],
Cell[82299, 1677, 1648, 42, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83984, 1724, 971, 27, 179, "Input"],
Cell[84958, 1753, 1805, 37, 129, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86800, 1795, 146, 2, 94, "Input"],
Cell[86949, 1799, 2262, 59, 299, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89248, 1863, 147, 2, 94, "Input"],
Cell[89398, 1867, 1622, 42, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91057, 1914, 143, 2, 94, "Input"],
Cell[91203, 1918, 347, 7, 134, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91587, 1930, 315, 8, 94, "Input"],
Cell[91905, 1940, 1118, 28, 530, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93060, 1973, 71, 1, 94, "Input"],
Cell[93134, 1976, 202, 5, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93373, 1986, 328, 9, 94, "Input"],
Cell[93704, 1997, 304, 7, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94045, 2009, 96, 2, 94, "Input"],
Cell[94144, 2013, 306, 7, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94487, 2025, 344, 9, 94, "Input"],
Cell[94834, 2036, 1243, 30, 523, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96114, 2071, 308, 8, 94, "Input"],
Cell[96425, 2081, 114, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96576, 2087, 430, 12, 137, "Input"],
Cell[97009, 2101, 102, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97148, 2107, 146, 2, 94, "Input"],
Cell[97297, 2111, 1194, 33, 214, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)