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

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    122994,       2674]
NotebookOptionsPosition[    119905,       2558]
NotebookOutlinePosition[    120250,       2573]
CellTagsIndexPosition[    120207,       2570]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.73349337371231*^9, 3.7334933747337837`*^9}}],

Cell[CellGroupData[{

Cell["Guia de estadistica", "Subtitle",
 CellChangeTimes->{{3.7352104044135675`*^9, 3.735210424280224*^9}}],

Cell[CellGroupData[{

Cell["Funci\[OAcute]n de probabilidad de 1 part\[IAcute]cula", "Section",
 CellChangeTimes->{{3.733493982233746*^9, 3.733494026073893*^9}}],

Cell[CellGroupData[{

Cell["Defino la funci\[OAcute]n de Maxwell-Boltzmann", "Subsection",
 CellChangeTimes->{{3.73349403129771*^9, 3.733494041985962*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f1", "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"m", ",", "T", ",", "v"}], "}"}], ",", 
    RowBox[{"4", "\[Pi]", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "/", 
        RowBox[{"(", 
         RowBox[{"2", "\[Pi]", "*", "1.38064852", "\[Times]", 
          RowBox[{"10", "^", 
           RowBox[{"-", "23"}]}], "*", "T"}], ")"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"3", "/", "2"}], ")"}]}], 
     RowBox[{"v", "^", "2"}], 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "m"}], "*", 
        RowBox[{
         RowBox[{"v", "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", "T", "*", "1.38064852", "\[Times]", 
           RowBox[{"10", "^", 
            RowBox[{"-", "23"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.733493378409054*^9, 3.733493548102223*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"m", ",", "T", ",", "v"}], "}"}], "\[Function]", 
   RowBox[{"4", " ", "\[Pi]", " ", 
    SuperscriptBox["v", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["m", 
       FractionBox[
        RowBox[{"2", " ", "\[Pi]", " ", "1.38064852`", " ", "T"}], 
        SuperscriptBox["10", "23"]]], ")"}], 
     RowBox[{"3", "/", "2"}]], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"m", " ", 
        SuperscriptBox["v", "2"]}], 
       FractionBox[
        RowBox[{"2", " ", "1.38064852`", " ", "T"}], 
        SuperscriptBox["10", "23"]]]}]]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.733493486954235*^9, 3.73349349342702*^9}, {
   3.7334935396040688`*^9, 3.7334935484899406`*^9}, 3.7334938183978853`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Compruebo que est\[EAcute] correctamente normalizada", "Subsection",
 CellChangeTimes->{{3.7334939995126057`*^9, 3.733494009505106*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"f1", "[", 
    RowBox[{
     RowBox[{"16", "*", "1.66054", "*", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "27"}], ")"}]}]}], ",", "100", ",", "v"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73349390174255*^9, 3.733493928510233*^9}}],

Cell[BoxData[
 FormBox["1.0000000000000022`", TraditionalForm]], "Output",
 CellChangeTimes->{{3.733493921271109*^9, 3.7334939293279*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Obtengo la probabilidad de tener una particula con velocidad mayor a 1000 m/s \
para las distintas temperaturas\
\>", "Subsection",
 CellChangeTimes->{{3.7334940460820827`*^9, 3.733494083945794*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T100", "=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"f1", "[", 
     RowBox[{
      RowBox[{"16", "*", "1.66054", "*", 
       RowBox[{"10", "^", 
        RowBox[{"(", 
         RowBox[{"-", "27"}], ")"}]}]}], ",", "100", ",", "v"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"v", ",", "1000", ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7334939401397057`*^9, 3.733493969826374*^9}, {
  3.7334940862546043`*^9, 3.7334940872980213`*^9}}],

Cell[BoxData[
 FormBox["0.00024345310528521086`", TraditionalForm]], "Output",
 CellChangeTimes->{{3.7334939427999067`*^9, 3.733493970530353*^9}, 
   3.733494088285462*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T1000", "=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"f1", "[", 
     RowBox[{
      RowBox[{"16", "*", "1.66054", "*", 
       RowBox[{"10", "^", 
        RowBox[{"(", 
         RowBox[{"-", "27"}], ")"}]}]}], ",", "1000", ",", "v"}], "]"}], ",", 
    
    RowBox[{"{", 
     RowBox[{"v", ",", "1000", ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.733494094034608*^9, 3.73349409842733*^9}}],

Cell[BoxData[
 FormBox["0.5882536333854075`", TraditionalForm]], "Output",
 CellChangeTimes->{{3.733494094412878*^9, 3.733494099046978*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T10000", "=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"f1", "[", 
     RowBox[{
      RowBox[{"16", "*", "1.66054", "*", 
       RowBox[{"10", "^", 
        RowBox[{"(", 
         RowBox[{"-", "27"}], ")"}]}]}], ",", "10000", ",", "v"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"v", ",", "1000", ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.733494108443501*^9, 3.733494109668984*^9}}],

Cell[BoxData[
 FormBox["0.9788010587074074`", TraditionalForm]], "Output",
 CellChangeTimes->{3.733494112824602*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Obtengo la cantidad de moleculas promedio que tendr\[AAcute]n m\[AAcute]s de \
1000 m/s de velocidad\
\>", "Subsection",
 CellChangeTimes->{{3.733494125034788*^9, 3.733494152937491*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NA", "=", 
   RowBox[{"6.02", "*", 
    RowBox[{"10", "^", 
     RowBox[{"(", "23", ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.733494168302004*^9, 3.733494193595772*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nprod", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"NA", "*", "T100"}], ",", 
    RowBox[{"NA", "*", "T1000"}], ",", 
    RowBox[{"NA", "*", "T10000"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.733494155670226*^9, 3.733494164073846*^9}, {
  3.7334941961555433`*^9, 3.733494218699671*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
   "1.4655876938169693`*^20", ",", "3.541286872980152`*^23", ",", 
    "5.892382373418592`*^23"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.733494206092367*^9, 3.73349421896439*^9}}]
}, Open  ]]
}, Open  ]],

Cell[TextData[StyleBox["Representaci\[OAcute]n gr\[AAcute]fica", "Section"]], \
"Subsection",
 CellChangeTimes->{{3.73349423355549*^9, 3.733494238445642*^9}}],

Cell[CellGroupData[{

Cell["\<\
Para distintas temperaturas, grafico la funci\[OAcute]n de probabilidad \
\>", "Subsection",
 CellChangeTimes->{{3.733494355980562*^9, 3.733494379056527*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f1", "[", 
      RowBox[{
       RowBox[{"16", "*", "1.66054", "*", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "27"}], ")"}]}]}], ",", "100", ",", "v"}], "]"}], ",", 
     
     RowBox[{"f1", "[", 
      RowBox[{
       RowBox[{"16", "*", "1.66054", "*", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "27"}], ")"}]}]}], ",", "1000", ",", "v"}], "]"}], ",", 
     RowBox[{"f1", "[", 
      RowBox[{
       RowBox[{"16", "*", "1.66054", "*", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "27"}], ")"}]}]}], ",", "10000", ",", "v"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "0", ",", "5000"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", " ", "\"\<Oxigeno\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<v(m/s)\>\"", ",", "\"\<f(s/m)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<T = 100K\>\"", ",", "\"\<T = 1000K\>\"", ",", 
      "\"\<T = 10000K\>\""}], "}"}]}], ",", 
   RowBox[{"Filling", "\[Rule]", "Axis"}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.733493556731512*^9, 3.733493594416184*^9}, {
  3.733493673897923*^9, 3.733493693575049*^9}, {3.7334938410645447`*^9, 
  3.733493889513975*^9}, {3.733494267748796*^9, 3.733494344493137*^9}, {
  3.7334943832*^9, 3.733494415192882*^9}, {3.733494508345168*^9, 
  3.733494527408742*^9}, {3.7334945665215073`*^9, 3.733494652834173*^9}}],

Cell[BoxData[
 FormBox[
  TemplateBox[{GraphicsBox[
     GraphicsComplexBox[CompressedData["
1:eJxM23c8l9//+HFERpIZkplNSKFwnetpZKU3ScjIllUZkZ29995771lashIV
aUlEGlRkZ4tfv9vt89LXP27P/zhe17nOcbs/uC1u6FiTEBERte8nIvr/30vF
5SfePz6C+8bZP45W7pNP6hf8KBJhAPftmJnjzZTwkxe+yOsl2EE4U2Bf3PgV
/GvXKWK5HRcQ/XbTMfq3FX5JrDI5m9ETNk5/jaoet8BZ7nt3MdTdBv86iRXT
X/r4+spbPZNfgdC3VnIgoVMVj+bMzJBTCoXnG98i361K4C0Src2BkRGgE7P5
yZuOAf+RHFxjnhENKwXX1ZLvLKFuyl3Xc9NxkFf5eDBisA+9+8EQbROQAFwa
NI8HefJRUrvus1GyJFB6t8oVK+CMSvIdb+hVJcOL/usmSpWnkXyl0b6cU6nA
NRLJYL9NhAQecu/8GE8DGx39kc/hbdhHBUZru4AM2F06TN8tfAtjXhy730Ke
9ff3tbjR2noCKy33u0Velw398urmaGZC/n7EKg+fbC4Q/e+Lx/WslNpU3t4s
bDvxQetJ/t4cUhURbx5RsDdTueZurpgU7s06LzmMnXiL9ubb1i3LpN//zUO3
76Kj94v35gUxvgDW2yV78ymLHfcM3dK92eTlbOFJ/rK9Wf2VWk/Tz3+zqf6h
nDuPyvdmGRcFh7ygir35d0/EjcKzlXvzxzxMQJClam8OPWgylPTx32y4+/10
YEP13rwYMp6o51GzN19TmeE5K1e7NzNEWdrcoanbm32sVAsOvv03k5s/f7qs
W783d4nufJh99G+e6Jz6PsLZsDfTs4VoUUb+m0uxD43Cs/9mUd/TJy7/17g3
P/U7T9l399/cpcEyJnKkaW+moNLe2A37N6ed4w8/HqEGDNXWcsVPePEdI2+m
1WkLYNUMrx5X0cV9fpVwTvXcALy36MsTPkv8qOf8MwdKd5g48KX16iMrXPo3
veiwuQ9Y9hqP/1I3xQPt1LOXzQNgO/d79BerC3hnpIzHi7RgmA8SGjI0w3Au
QSGBT1Nh0DLzPlEglgcfsOA4sUQXBfE+bzUNrPbhei874ocUYoHnkkaoEOkE
+niH8pjKg3gYDni2yrTYjJp1T4kUKCVClpWMtvLRcJRdP3E0YzgJ1hg70H2h
S8iJz+rexo0UGHWSdfGuZEeSTW1EXZRp8J9SpphG4gRGspt5Qqg+HYRZI12E
9LIwL9aNuDjlTEj6YBjQ+VgXG9cUy7gymgUMrobiT49TYhIZsudTb+aA8uTs
gUnDVvnrO+zV0rT/ngcb4VMzTBf+rWeeKveERMRpeC+/FD3BQ4b3dsbtixY3
ha5j/gb+CefxYQ5lMY5qR6Bb3zxbcdsc9+egt3kTdBPucr7uO8ZkjaskXDGT
feAFMTskOrQm5rhq0b7Hbdn+8N/ssSSOeF3cBEK/M3YGQbVIy8TWe0V8qMjc
7CBTGATbRxUwaAjhneozLrL/RQKFJ+XgnOkBnFPyGGf2tRj4Qi1Lf6HqB/qU
EzwnZRAPmjK9wbzR7aibo3g06EsCpKx/PGo3nITSWzNdZW8kgaZ/j2i2hCWi
srRlLD+YAgHvRJsiZUTQXbGDJBJ5qVCX/o1xdnIBSzYZZ45QTYdbpuFcQsw1
WFVNqNf2lwz4tLy1I05jg21y7BeOdM4CfbfpESImDmwm3/jLAF0OLD8Pka/9
/EKeUTny+/GSf/tNsiz/t3ypf+tZt8Gu/dlGBySmt6Tjm6Tx9CExIX5kA9+u
72eb6bqM044FUbx3cgb30/ZHKrSs8NY3L8RJ426B6LoCT/OmJf5IPM5TUCAQ
vFZ8UyLWNXGBdz8ogq+FAEuu/uJ2oDRuX70wW98aDtykXKX3B47go94X5ive
RUHZ20ilx+xbKMbRjITucBy0D67W+vi8RcMvY/X1OBLgWpKo3bZQJSqO7PZq
K06Es5QnfvbP+6D8cv6eNYVkqPNQeXOTRBUNfTe9cu51CmSJkPhMLRxC1TJO
u5dupsGF86NSfGSD2I18/XN9LBkgdZ2Fp1IvAlMLcSjhKc0EnXerCsIaSlin
lx7FybPZcPnjVFtO7295twSWVpP3OXvrI3NEcSnS8d961eLM8TIRgkC14TLh
JTuJxNQ+zht9NAL/IZrSYR01fP/pJKn7HA6AB1uSqgWZ4ZLORSfJO1zhu41+
ZQCjNT5gGuw1890TohJVGY35LXDhdjNtXll/GGhY1/c9o4cLZx3nPKMfBMdc
qNlrT53FGz7/8eGtDoVg8Y3XpZeP4/KPXiVd+RUBEW2PlvPEaPHgrxen/PbF
gPeVEh135zlkRqf4toY/HlQ/XdRIaupGL/Z9PLnSkACtcZ9oYw0yUOrDNY4o
2SRwJd8cc2q2Q8MB0wq3PyaDhrDeG+PLksjLsTlwyi4V8vO2NGuI1rFxaqID
ZxjSgfKra5bB0Ras+1b/vGRjBnhqXbw/Q+yEUVC4LOXJZ0EDZhPJyC2A9RbP
ijpMZIOwf7B6yLEh+e82EFJx49/nr1oxz2xK4N96enGeYPSo+g+IVJ9HZpNK
4OdYL3HGJlsBsDFHDB3Qx8vsRKj5Kp1A34pMiOS5JW7Pf+WPzAt3uFYbxXvV
1grP1/xFFdsdAFFvMqnfDmjhv8XjoZwkBD55E9eeenIGPzsdTdWrFQ7P2lRv
n8zkxHXnZWgHXKPAfbYxuwsjwpfYE/qWq2LhzCxJLar8gAyVNLGBX/HwOP8T
I01yPaq+sf1a/GYi1Kc+1SxvDkS51UHOageTYSuhheKckhYq2v8liqcgBR6w
lfJ0v2BCN9yY/anxNNif+YHRjuk91qrliTy/pcPXfT6/9YsTMXOtxiOX3TKB
dz1x+94lTWzQsnNQjTYbHsLPMxKniDCdlAqSzZJ/n7//eB5cH7zyb72abrFt
f7FRhLL377bOZzHjlWQr/IFnrkP0vVQePXMLfOC5f3qeihusWZxXyFizwuMn
x+sWRIPh+q/dsmPVgG9ZP1Fa9Q2D0BbuEptmPlxtiFTncH0kXDrcaLHLQI7f
91/Sv/c+Bp49Mxw+Of0VXRF+StEWEQ/7n6BRoyv30cMzjkH0DInAvBbzwnYr
FmU2Y70/i5LAY+x65/doY4QpT00NohTgLD1Vk8zJi34vWAd4vk2FvmujedIt
37FztQ95P3ing7R7toTvRhGW+BUn62HIhMXgHwZ6mlewX1KZ5jdLs0BtXHAz
1Y8Bo8l5niaplAM5w99L5Xs75Qssj6Xu97gExiIFARU6CPfS/kgaIeMCgZ03
FH81WuH7A+QsBi94gA63/nqBuyVu6KXwynQ4BH50aZJKppzE46/rvsrgjoDZ
qY1z9GWHcQsKh4EQmWg4qb2PlSl+FQk+EJcT84+DiYvhZ7M1BpGe8Svnca0E
6LpGPOaZXIyyS6J5zr9LhOR8bQY9bXdUWNx3pMw9GRTqxekOTQCi7BuTuLkv
FVTzxN/T6JKj6Y1ev7yKNHjU1fSNTbAH41+UMmA9nwFLme8uXxIKwCQe8Er8
GsqE3gxvs0pxWaw5YRpn98oG5/hHzm3x0/LpMWHXOij+PT9c9H1uZ73+fR5e
iO9bUI5ggQ7LqyOe8ARNRJJMdUkawo/yIrnMgbN4drfsGQoDe9iMUzOnWjfF
I484HikwdQWmqx19tymscXrVNHJlP0+4Y5Pw80OwBZ713yHW9xT+kDWaJbhA
p48nqBHLPecOgkOn6o56u6nguUSaB+pvhQJGz9nikiiOr68qFzs9iIA30R8a
niTS4dLyv9SdBqJBp788tOzLAuJ+zvX058F4sE8SWDTleoq0V9c+1WQkwPYF
EyvH7GyUjEpvnuRKgj/P3AxetlxDKKFqeLorGZyfTS7JqkkhowMUXQpaqbDT
nsXnl7CNBX6LJ6XbSIPmSWIJB5t72OBHJ+GBjAyoXH042qrkisVvlw0J82TB
1rl79ZPFothdfmmde0//Pl+IXsbBfFRe24NN97vuv/Vs7RnloOT+t57hLSID
OpnnwPl9K8swlzBeLGt7pPOxJQQ+SDU5UXkJXxLfPfhCxQlSY2/QWPlY4l0v
+b+9sncHQ9Koda5UK5xuNPMNJAVAOYt4yFKRNm40Zmks2x8MLWuOc1fD5HBJ
ytH0i2zh4FIkQ5LFzY3TCVVxTShGAb2OSAh1BzFe7C50fNI9Flj8Ht7NrfuI
2P4IS1C9/XueEPYunipqRBIWLLd/GCVCjEcHRyMKQTlikk8XlpLgrZ/5JVlJ
HUR1uIgnNjwFEsJjrrQ6sSJtRof2q7xpkFzzY/tA9ShmIkB1+sKzdKizHvWJ
SknFrjdfuvTbOBPGn+Qkvua/gOkbrDe/WcmCHQsxSUEpUkyBeUlALSYH2j6N
nq5PbZI3LF0TXdb/t16BbKKO3lUIWHqbrvq60eIKidnCgy7X4OWuoBjJb3Nc
wE399pnJm/DoTfW7g1TW+Gpi4/PAtSAQyb4TTfRQAf8RzPA6QD0MHpIzDpU7
CeBktB4WgrcjwZuFdUGAjxJ3/BD5oLIwBmoO7TBNiU4hjm8lWxtO8XDsAPvL
kJhHCETDxZ9vJgBNb93t85EJKEP6F3tiRBIYdP9ZWo81Q8UXy3zl+VNAHEcf
XOwE0FDcvY6391IhYZGiJ/fCL2wh5DxHg3k6GG4/18pnL8dy1b7i5lsZoM3y
PIxP3QJzFR48uxuVBdOvRO6wyLJg2xyMj/yFc0DBYTi5VvOpfHkt17Lr/EW4
0lxPQXtVFn9yuH6/xFtnkFH8bOUXYoWbCpOq2y/cAn2h0T9aDyzxdgGm2cXC
ENicIzF8TyyF+8YUmvLNhgNL1ghfXBkLzqE4Pp62PxosOY03W9vW0QhDby7n
uTggrwln26f6GjEfrrc6IpMArIq6rV3SZYgrvXyA7FEihIfoNUQ4eKICfg8n
LeNk8LpzMfDxHSXkNJz79NN0ChhPM9ff/+8Aep5+9PFmbBoo73/1eLrsGfas
t+fComQGnHz1eKj4YzAmz9VrH9aWCaf9Dhm8fo5jcqFcvOWm2fCmVFLxYt6C
fOihwcRDC//eT6KpZKdsXf99Hh64HtadspEEWyJN6qahNXSjauaE46QDUCul
HSogNcc/PB3RvMZzE146FR2uYbHGuzvr5tInQkHuyGjVmoIIfjvoSpAmeyTM
DSlf3f/0IP468kFgzOkYKBttev3Vfgbl61t+dsbjge7ck3iK4E6kRtceJv8s
AZ6+5JGtvpGK0mTV+77oJoETzcUt2dM2yNlFqIphJRlK5l/9uZ8jjtL7zRSj
glNho6BFj5z/N3ZG6gad+fF04DaPvfshrAFrpRduSXuWAZN9IrkcKfZYAIM8
DZN+FoSdFjzwq5wHG+EpIWffyIadvq92NF9fyd9RZqv5b1wbXA/4/RCUP4kb
F+lT+R10Bsru03kedH/3A9+Uw7nHb4F8if3I7VNWuMFz5CMfHA7GwScW33Gw
4+kt3bsPiqPAyOZY++P6PwierFuTfI4FzUMVOgMLQygj4ppGIlkCjB4UMeC5
VYMEfSf4b0UnwjHSUbIjbv4oT/gdW75AMjwTmhjhfKeB5Ne4Vu7cSwGLjt3K
wEp6FDvUhTdcToO3ohZ8vNgbjNHjh3LBTjqknyJ99/FxLKY7TTPxKCYTAqJG
rkpZqmLqN6J/PRLOhuaojOZXqxvyJZ+5FCk8zgKLh9KJrU1O3I2ntYGs3A0G
JmyKNsascApBw99PqWOBtGVwQGz8M8px+sEUWBgP3hop+qKBd9FpVe33l0US
QUjoTKOTfhTKkoxzUWhLAoUj25PuaQZo6BSftrV+CixzFYYnqHEjBh16BY75
VBCNTNq++fYrVjokIkKcmg6ChaHJ3WH5WKhf9jNh0Uw4XJr+/TDTZcxawcr3
Z3sWELfHePgaHMI42YJcvhnlwGrb18+Cim3yYpEU+75kukAryRo2/94KLxlY
e+Rq+/f5CvohcCP2N3K3SHsv3xIHxlRbfGv7+lFq4ZJfoW0CWFYfiFiRLUQs
TU7uybOJ4GuvFnw70RUV87A92YlPhk16f3mPMXlUeO9oJsXRVBg8HTb46+c+
RGHkhpS7/z5fwVnigTadWABryRWFqxnw7MNM2ayUD8arF7CiPZ8Jpbpb+i+j
pbDjOc1GicnZMJPqdrxSalKeMTb6Lk/A//l/Au1onWkEBXQ7yjjyKJYg2Wqm
z2sml+GK5+TXnGRl/EckjVzdbzuwPvNLMMfRFJe+MXhwTswVbtkNtYTsWuHN
97n+c1L3hNAHyxamjRZ4mUj/ptnEbeBb+UM776ePK3POqDGSB8H94Ly3vkdU
cSZa19duJqEgKbYsN2QigQ8l+VVvFEYA3QPdypb/6PE429atH03RQJJZVsv3
dBGRCMa3hxHHQ3Bft2LhjV6UOE8mHRmTACoC15erLHNR8m3fPHKGJPA949F2
cu4GWmKhLs6/mwxNtMNnPvyURi9GTljOK6RCvOljAw7BXUxX+zLxn5k0mPJ3
eCY+8gDTi+t8mhWTAYV3TzLe53LD3q52qi0wZoFC9DOTrjFxrPbqiJXZg2xQ
P8cws+E0Lk9GHCEXqvrv/d5Gsembyf5vPeOJhETa6TSgnebujLS5AH7h+SKz
8SVLeFp7KrR4XRdnYfgZy8nkBMe0c3npdSxxJ96o9xyy7uDW2zWfWmmFa/As
yWR6BUBXGVPPxL4LOE3zefugxmDQYaV/Tuwsj1ewkJixEoeDle7mwRdvufGF
J98E7YSjoO55P2NcLAn+p3Bl3MQ4FtR/nSOnvzCOti9nCpU/jQdHWmfG651N
yMWI/123ViIEktZ73igMRdk3KJe6J5Pg8TONqZP5F9GjnH1zSj4pIELb+SDA
kw11fE02Y2JOg1MbNvq56uOYRNLrU9ijdJh5LeUf9CEd+21TttShnQl57wb4
h8Z0sEwdBoGMH1nQyed/kzduP3baIFV23j8HTAesOHmGW+TNfjBFB+v+n/Vq
4OfXy5SD4yaG6lktVHi0gZPorUPX4JrGm5MN983xt301LqHNN0FN4EVpGK01
XmmX/eH5xyCYeGEd4qGmiJsmy2aoioeBj+8ToeLLgvi36gb7BptIaCPpFTiO
UeE9ZPrXjoXHQL2Z4KKW1Xe0A0wraVbx0IY+hnxReYwC+VJDyuYS4H2VlXlL
eSJKv9WlZuOTBBqX+Z9/eWOO9EfJ1ZdYU6C4jCanDwkhFdOv5oHVqcAR1Khf
ujCHdS4yseXopoOsEKODum8lxrt1akxsPgO+H80aj2aywu7wztzt9suC8OdX
Gnp3j2CiunkFwiIXwaxRu/BA6Gl8eiMjLKjQGRLkXnLkO1jh1Ldt5e8+vgX2
Ky8U60ct8Zs7O5uy4SFQNtDMO/hYCv+d3cc/8zocSg3f2IncYcW3x5m/c81F
wb5Gzdi17xvoFCRrp0vEwZoNI7+y4Ru07sJ5pVU4Adg+vAy5W1KOLBLu8H6p
TwQ78hSlDk5vlH9VK+uYVjLEqCVz/NQ8i46Z7SamjKdAnwR1p1bEQSRvq2Ja
HpAG3klvuZRk+7HsU3H/jfFlgD5xz0G3nVCs8zUrxaXGTODYuhzuHaSA+fnL
pV7TyYaD6k/8u1OX5P20b5bc+frvfS45fCxp48a/v38iA8/RwCoxmHdzuyqT
uIDuOz8+yRDoACZgZ9PabYaHHsXh/qIrkH92l41ntsZlXw+1XOkJBZq8pw/a
1UXxK1zpUe9II4ElUL+QlvoQLnI37NR+jhjYfffQcObbL+Tf/Hrk0Ml40Fq3
UQtM7kKRVANjLG0J8OEJN+vlD2ko1Zvr9x3VJGipTbftmbqKeDcj3Pt+JMOw
yjy9A8UJRJkT+eX0rVQwaugWtttZwagLZGjOc6XD/t9a1w2xJgw98daxbsuA
oef7BT+JXsO6D+r7j6hnwWR6jNFUDy8mO51hRHZEG8hpiVuOp5/AA0MVol6N
OsGhZnk35XlLvO3VBuXMtjvI49P1p7Ss8IERayUS+3CY3m9ZuKrHgbvr7JCf
jY6Cy8LeTTM0uyhjsZvZuycWLjFYL3soDyOvqY9KEhvxEGXZc99HsQ7Zu8/5
XPT/e167GUjCGh2Ach2qVW4eSYYPvMLmZmuaaMEvoN2xJgX0qj3vJokyop2S
2U9XNNNgH0vRVS+Gd9jU13qFmMV0qPThS/CYi8dGss18owIygYa4guRemzoW
bVd2JYg9Gz49Glx6RPJHvlqUI89tXgkaU779ulnMhvPcOlqic8sN+tZMratm
rHBzXf5SWIoB95435eVjX5Bfv/4hrtR46OC34Ls61Yq84Mpxac5E0DkvJZLM
FoMyXW1ymBqSoGbn0zKlvyGKfBjCxnYuBcyver28U8qDgrnlPz//nApU9k81
/qubxDwUfwvMhqeD+b0QLzXRQoz6xNzVdc5MSD15a3c0wQgrl7s9X9uUBWwu
1J+RNx122FggJEorB85hVHMDo+3yuteWgqTsXCC8Kf2PV48VHuxwomdbKxrY
2IqahyJW0MtYy4iWzDgIW9n9odI+gNx3zT3AOAEYKNs6WU2LkGG13wunz4kw
3iVac23qJiqyXJp/HZQMmjTndpEMjvQUfK3bDqWCF1G9pnwsGfIUzhtfvJMG
YSdGwhJPdGO6IdeMjhtmwHuldJPXHLexSoo3iRxfM+F781v76Q4ZzCntZb9+
WDboR2FEFx59lz8yWHm42fff8/PMgZp01oYHFicDXjVOvkfjT8gFdONd4YSP
voXvIWs85c+AuunxJJi/HVBlXOSAoijPHZQaTIaJ11c3r3SdRNNy4zzJxqlg
m1KvZiexidV79JLz7U+H5MzLsyWCdzENYc4YotIMaL5Jf3g5zhnTJImxshbP
Ao8Vh0CiNiGsfTIBp3+bDS/CvNDNvGH5w96dC8FZ7sCttylK42+Fz9lSCVHb
JkLX7bHe1/NBKHfWMPsoUTK4qs6uLo9pI71YRf3h5BS4bEP5Xi+GGU0oK3Dd
P5EG38Ulkj6ofMAiHyjIWb9PB+q7Ly5cDEnGfhCTtvLb/T1PchudXjquhTFe
GVOk2ZcN6+62JNMsJNj9TpbL2uMAcT93I4smGHAvrsmoX0xusPgAqTwktsYz
VxiXH6UmQexm8Xx++xW08FylMVQyBa5L24RwtfAh6/Y4boGnqSDWXinx++dP
jONICPeT6+nw/luElPRyCcaSmlCYRJ4Jdm3ig8dLzDAJiZY3ZzKyoE9TyZLu
IROWf7In5COZCyxXpVUr5ljh47mZHkJ9ifAw/shg/KtbqHAy/6y3XTKoX7+/
3Y8poofaaFto7e/5NLytdg2jRIZ9Sxzns9PgaiH5F7b/erF14x1dMsgA99h5
86u/ArE719z77z3LhEr6OwVZo/LYehRZ4xfHbIjkeHyzsHVWvmaMLfOAhxRY
v+udu3SKCBd1db/MdfEmHCkUqfr4d/+06StldJNNB+GGprWKhTpM0myY+dlQ
BjjlMqydlLHFECt3tpZVFsg+pQiV7+DC2Mkz8/ZdTYPGwaTZF7GvMEVqLrWW
AxkQdZC4I3I6ChuQeaS4kJEJ3J3u55exs9h+N2evdZlsoOGQ5Q6UW5Pv7b/Y
1jrsBmdiTeSiBqzwt/aWYkxF6fCTSYh2gjYXI3qhcdzkdCasd7Xm1g3qYTyq
6gd4B7LA2zVZ5j4LNUZRxhEY+8IFnD4TTat/t8LTo87lpr5KA78k7ofQ1Y7V
1nw0v3QzA56c7byoluCJ5RaJGwRtZYLjbZpptaiT2HRhxs8XBdlgF6M3vLn4
RZ5G87pBQvC/58d/MFI8JWId9z9/pWVMMQRNyeeNJywbgLC6huCbDSWc5vr6
A5IuO3jFeTTvB58pHp0RGJZ82BV2HXc41Df/7hc3rZ33i3vCeSn6DzW9FviE
C6/p/ae3QYPpG3tmiz6eSzXxsnUjEN6pQxjfdVV8MG3/HQPtUJhdLFDvrZDA
VSyyJNpSI8CknmFAto4ef+iXq1tSGg2ljUsNt7Al9K06zqtmNQ4mrw5RvGXv
Q6d+UZt7hCXAvjc1f05fyEOMXD+bnan/nt94dE3uRDuhF8YPI7wbkqH/248x
+h4ZFNypclJFLhU6ad353JSJEAp9tOsymQYN2T4kw0KPsAxbh9TAsAzgtbR6
Pcbpjq26DhJfpMmCe/xsb972S2BmT/C6d/DvvNsuFHH8K9u/9WMsLfvgfl4d
lm5LME3Q8OPlSXcOC3FZghu/XcyTPF1cj/JhbuL6DZC/0TYjLG+J9/yHXXjC
7Q6QK+F7qtkKn3rCPq1yPQCE3eWL8VMXcNs8xUWBkmA4IWofsPJdHrfKT1Ha
Xg6D+/1SxI0SPH/Pe8Q1xzmiQLLMw9JmnQQXvjcqc0QrFt574o9+CH1CjhQ6
/Lc64qHlFX1PvX4zYjA4TtSkngi/XG+3BBqHoaO0buTin5Ig411/kY25Lkr9
3PSGw/3vfXZEl/5Z9FHk9bxCwpE2DZbHndxZ6j5hrH3SJ5vupEOL0hu7a7SZ
mAxod5RrZEJO3/dp8b6L2MOXXBNbn7OAlCdeyOEdOdbs8aOr0ysHngbmLvyk
vStvSVki16/zb73St48FddHJgsH5x7Ev35PjjXKGNc/GHOHUvq/XLXPMceHf
pr9Es29CzyW/PjoGa5z0UoKZ08sgMFlOSByOU8SPHB3wEeYJg99Muo+nBwXx
i94Dc26GkXDWWoHsRD8VvsSG9XzyigHVkkt1r8l+oOvzLxZtrsQDFfHCSzjc
jo7x5NSn/EgA0tF1Kz2UhFhYxK8MuiUBSrlZKnLbAklwtor1M6SAfNCZ8WRp
YbSjsn7iQ0kqvHlydeaUyAJWJeDFyvBfOsxNPkzP7azCbN+OVTH9zADTfbOD
h6mtseGCdScBjyz4PPc9Zfb2UWyudHydrE8HeqOy3v3OlMF9Z2jUaiKc4aHF
WOZ3EyvcouLIHZOyW5Dty2Z8ZcYSH/i5HPDJKwRSuLNetXFJ43W8JlQDT8Kh
mv0Mr4TCEdyx5pTD5OcoOG1BckgpYBOZ6XlV6B6LA6Wey1/cfr5BttzvDcN4
EyA7XK+d3boC7Yt9pDVYmQiZtIlVkqQ+iIviQf3fsy5UrLxLyz2mgraL6jyc
hlMgzHW0/OxdGvRby0h81ysN/Od6BWUzB7BQ+2XNi5x/95cvjxycj4VjZNWd
Q3LVmfC1wb3E2VwR23TqEYsc+3e+PbXRqKh4/d/fO7/i6JBxpgi0v7BkMxqd
RhO6Fc022g5QUKluIlFshn9UWbxn9sEVGiDPQfWwNb562T5D4V4otH4jDqoZ
FMX755oPZa5HQNOlgsfsTYdwg/5rMZ20MSBBPDDwpnwWLVhEvh8XjYfxZJ5s
UZ5uJEL+joK8NQEOiRx6JJ6ajg4fjabkVkgCNQpn+9Q+W7SDyRoXf0kGf//8
i2M1J1BncF5jnFMqSL6XO8+8uYqtDGVRd7Gmw2cx5/rrAs1YQC4vt2ZrBhw7
s36LNf46NhVpdQZTygLmxejz9L/4sDXPRuuOG1pgInjpm/YLCZzR4865rU4n
6CHJemc1ZokzblcFJXxzh+vWH3p3jKzwSIsN/knjcBBau9clusaBT3KxRVP6
R0E986C7Zdcu6iGvcpK5Fwu+yvceUK0Mo+nkZNhdiodU9q+rqyz16IDrSpmC
VyJgp5hUODgCEQc1i/E4w9/zxL55vkXm/9CzzhOlqmUp8N8Fuu7udUZ0J4ak
vuVsGrQ3kdF00gxhL1mZYN/M3/Nidusppe4EjMOdUtPFOxM848jOOZOcw2qn
mpmnDmeDIA8306OKHXmJ19nnRUWUwGSI9PSxVFbco2CAY+OKG7QlHVAYXbTC
Y+2pd7e/xcCj7fv1ihZf0Zz3Ier5uHjIW6e9NpJ3D7Fh1ga8rIkQfD9Ef548
Fh1hfN14uzIJFA4weDwNMEJWRNLEq8opcHLpBHe96TEkT3mhgWc0FThnyslL
q6cwCw8DfsvAdDhs+jY44WARpkWVJv2JNRPM+U1wiu/G2LPW6HK6miw4X7Y4
st+dHkv08aQxVc+B4Bl3Ee/nHfLfr1xVNtV2gdsfI9ZXH1rhy2f+0+hQioar
Z67nJx9YRdvF6l+cY+IgOYJyNa3sJZqqYXU7pJcAJ01ZbiatFaGt8pC1K6OJ
8Oj4iciYdDfEQ3qFDPNNBrWLjBrPZAFJhBw/l0GZCqFJBw73O+5HkvTNtWr1
aTDzM/+ssMATDHvw6nLRxQxQpvmjcUvfH5v97G1ONpYJf1YVD5otnsbYF8/0
bHv/e17q99H4xFVxgOhulI1XxiA6tXAvf/OWKxjs2vy9fFnjjLmypn38SSA/
PHllt8wRWZ3fWjr0LBniHs7+vhh4ChUeW16avpQKcQtvrocZbmEZtaL7s3bT
wEfsvB2DQisWs6/X6HteBhAHDgj+sHLBrt/OZO8VzAIOsviXrQIimGPJTXuR
IHe40IuVaERZ4XHWdLqb5onQX61Yci85GHHE9jSEbiTBN3oP3j/BF5DE6yX5
pti/96m2OaUQLxaULqq3QCuSBvf0HX83uoxgNxdLzowOpkN/x+A+xbAUTGS0
OvSgZSY8sT4ifcZQG5Mend5y2s4C60X+oVbOfRiyTSMnPwIgrMR6jpabHh/U
SCNL+nMTbMTxIs791viRVH8KwfgkOL4p/eXHT1P07NBamrloCow+jvpxPoof
cZQXL/q2pwKbABOxAPMMRq79k1PONh0K9T/l05CUYUY3ZJ29iDOhoq9T6pKL
OaZT0xmdnZgFCdWMtKlLhzFJPjmV/bPOcGCR7H1RghV+O6ugiLkrEbz6aZZN
sjwQTyi10aRFMsi9T/7RvqqIUpPnPpMupgBdYUWtlgIVom8gny9KSYOaYp0T
cLMP+5xocdH7TAZs5DHlZo8HYRsqnNn53ZkwzJN19akGwpoFWdc85k+Cropq
87HVLRSYI/imR/YmxN5lxgNZrHHtXSqGmZPpECeb+yf6QT3mdiZgqn4wA/Iq
yhnB1A4zSxW71GiSBaWtzsVFtdzY0FztDUOzNNjMOaohbv4aE1EMVhEhywCH
gd6VIs0YjI7Ohu59UiaI3KRRY9NQwQSX/E4ancgGh69Lqblx6/Ic62SnTdvd
4Nw3vhjPISv8Uf5T0ajsdIjN7p3RCcvDlEqWt5QkM+EnfY6x4C99TLlbrzv0
aRYoHm//4FRzEMtKT1JsbXIBnuOzjZ8+WeHarmbXZ5+lgfy9TAHO+A4s/SuY
Pb+WAdleYToeo17YZ59hfvuVTMhvCCeZCjmF0V37Qz4S+O95+GG0brlpQw/x
NW/LEn/e/Xs/4khWVXWFNfpgX0VSa9wvb2v904ub8OcBD3PoQWu8s42h4eK4
BAyf8+UqovqNJJaiexiobkKBTH2m8d/17PD27ToQ6AKJ4SPmHi+t8Ifv6DTo
PfiAQi5MXFJxAoVnXaqpKXeF7RB7T0RvjfOuStKriLnB98DQyG/bVviQWvcn
T4ebMHIOW3/49311QORTuVrov5+X4DUJM8Fraqked7fSXkEEr5kt04rJOB3e
85opedFmC6kCe14z5Bbtijuc3POabv7HLhfsk9/zmjLMl5O/bynseU1XZtbK
nIdn97wmVUDZfixYbc9rPn2yutlyVAMneE1cOSVXr04DJ3jNjM3ok9NiGjjB
a1JZGvbSjKjhBK856EeWEF+jghO85tGfRYF1Eso4wWsaPfTALyIFnOA1Lzse
UPpQLI8TvKaAs96MjrsMTvCasTvkGpfMJHGC19x/7fz4gxBRnOA1X1JHWhQy
8+EEr3nWVjWpMoIDJ3jNEIZlnz+0h3GC13zhe43lrQINTvCaOtOJVJlPSXGC
10w6TbSTdWwbEbxmkNYhR5XdRUTwml2iqVsPJb8jgtdUAqi8fewjInjNu6JB
nWyDg4jgNb+zH+/0Ne5GBK/pk1neV8pyFxG85omOpncK+ZWI4DXLSyTDBuxy
EcFrmna/NRk7EY8IXnOAWK3fLjcAEbzmH5SeWtbvjAhe87HYnLfSNQtE8Jq7
igeivi7oIILXpGW8t7O1q4AIXnN3MaSkJOsEInhNaUnOJNH7nIjgNT+JiDqc
MKRGBK+px3Pf+7XUJkbwmndeuaH3UlMYwWu6TX9I/Rr8BiN4TefbXTVDrB0Y
wWuGW2m4ntavwgheM7u+OuNkTypG8Jr7WWfowtv8MYLX5DejdnR3f4cIXvNr
fkOGEBnlntd8bbPSrf6ba89r8tb/x6n+XGzPY976bOC7f0Vpz2P6/dFNs1JQ
3fOYP1lpjm44qe95TKbEC8wm0Ro4wWPSKbxtNorRwAkek769O8g2Wx0neEyD
KX+1k8OqOMFjysamktd7nsUJnpJckerIiLwETvCUL17qsKxmC+Lj8QqbZ4zz
oXLanEaVmAcfppRqMRAoAJ67t7X4KI7gaoeSn1QtFwDbDwvKIl16XKzgisjJ
jkJo6XC+R8tHidsemS67H1IEkNZT9ImXGK90kc6I1y6GCF057reJq8hSf+5T
5tESOGXD7iG38Qsl9tL5fPhZAhk25XYanF9QL8tqtM2jUuDSPlbbOvgOXdTO
al4OKwN1Ej+zFrlnSJex+kTLxXLYzPecz+hsQ8+tBEmruCqAIVLUsiS5AaVm
W8/mf6sA3eTtrzsixci2yfLcZG0lnFsI7FtTSEUNev07Jl5V8MZGa+PzUhhy
Ci0kP6BaDeH6izzfOTxRqeJX61+MNYDZ65cK19oh8alvI/0faqC4eotT1scQ
tduWdf8proXfqeZAK6GBem+922fhXAeeFeyv7bEzqDBCRtOXsx66aV4ouTUL
oMmeb4NOEfV/75d31J2VmdDrW0tm3+bqwSssqbZcZx/amGthW9JtAA/J9QrK
o4uYsag4ceaDBujb/RI4HDyG2Y1RLHWwN4JuH2uY/FQftvlHkZ0uqBEi7XnN
tmpbsCffJF03fzRCPKWh/b76AozgYavI1gcVm6Iwgof17MFLqfxbEMHDYsQv
Ok04iPc87Dc2TnXrWbY9D8sysEk3xS6y510x56j073/+ede2z9bL/aEqe961
RU9nKoNEfc+73u/Ri5O9ooETvGtE0CE/0dK/+/f/vKteS8ow0S91nOBdLYVv
x3ZcUcMJ3pXdzUK68bAKTvCq0upS7/3VT+AEr2p/913iSLAwfprPhapOIB+e
2i9+X/I/hhPfi1TVXc0H9GmDckf6KG4zRlMV2lYAynI3NT9yMeJHI3cSk+MK
gSmr6wVv5gF87CZpINOlIggOpqBg/UqCM/5y63nGVgxCinVrJGc2UPaMTpzR
TDH8Mo3KMRJcQB3eWX6ezSVwRcr+DWXIN+SHbRITRZQCs+n0K8vnw2g4rruK
Qb8Mbv0sKBZv7UcDLpvezRzlYMLMNVfc0oGYxrMGJebL4ZvR0sQPoWZkE3ZR
lKu5ApzLll/FS5QhsUfuY0pelVC0wjhtT5mJVLzJGJTUq6AUvmrajEehrb7d
6y/pqqFpckvmeI8vIiqw1pL5Wg1hyeXPjypeR7R3PkvTV9TAii8D57SiKUrV
73PldqqF67eGrJaDtdD1gKNS1FAHiWQyc3FCCC3kXKPpJK2H3SBxveWfomiV
wUBT8kY9vND9aBG+w4o0dDzY7YbqwYaZ6F2+Azn6ZTAQYCPbAB3pcumHTqxg
d48Zlr8q/Hv7XT/L+JP9CxZ+0FnHnawRRFu5nRcHX2JJjzCBFttGsL8JWzfg
AdZzAtrMBxvhnL6ABBVxKUbwxjfPh5891JOAEbyxo+i7uxYMPxDBG18q+8HF
zk+354ftT4rQPPikvOeH47pFzd1nVPf8cGJRaTLdS3Wc4IcdyMK2zpVp4AQ/
nC0y3mxrrYET/LDrbF7re1DHg7dpp7vj80HtfNGtI+lceK3hJx4TgwKgNs28
/n2LGRdSYJ0YFCyEnxRzg4mVtDi0tnW9WiqEVZqMpBef9uO/H7/sN71TBL0B
8amHmXYRbKw66IUUAxN3EMdXkd9IuCtCYuR8Ccx/mNUxWvyJLJnCPc9wlgL5
jo/Ai5VPiP73InP/YimEH+5+Yiv8Bg3Qujx601oGAv7v7lzieopGWky+t4SX
w6W7Z6QTq++jgJlmGT6dCigXTAggy61FTxpu1XIzVUL//ZLoq6EFqLBC+17o
10roYR3o/rSbiI5Kpkx7VFXB4seHK5MxwWhS8Wy+ik810KGc/UNCbkjzm5lP
gUoN/Aw4knW12xr9d/iHXwRVLfwiU5nSttND054hTCMfasH6o6AY7f2ziOd6
7Ou7hXXQmXgQTrBIIV034sjTsvXQ/Jz63NLVY+itp/OluqJ6iM7YzhQ0o0OX
cxyLTckbQEizi//28C62PySnxfdGAzSkK89Fps5gxFKkhhZvG+C1+eWlPtJh
TKMmP+GgdCN0b6jFPad5gpkhNYZrOY1wYUfeMUu2AetO4xNMIm6C6LtzK1U2
2RjBY48660oGxoRgBI9N3JlQ6BWYsuexP0iQ6KXabiGCx2ZdvdLlyMG657FN
Ty9dQJeE9ry1qPPrH0J+inveOqPg6Lf0Yyp73voma1+A9RO1PW/9gfrK4Slc
Ayd4a9usI98fVWvgBG+NQvebHj6kgRO8dWf5f9sTOWo4wVv/x+7ZvWyhghO8
tLJRgkvFmxM4wUu3fSlJFAkUwa1uRCbaHcyHnEtFnRbqvHhqfAvt67F82MYG
f/QYsePuyi/YfxcVgLFx93FdRiY8yW9A5Yl7IYhXkv7y/k6NsxTSzXfKF8G1
/fIVdoP78GflTGNXiYvBuHh1xLFkE92TIvv+4HUxSJhOeZ6kWUQGlyZu92WU
gJSd2nX315Pog5bPwxfXS0Ht1sFCYYcRlCl+uawIlcG+SoUIutyXiLqQm/sU
aTmQRJ+c5N3pRPcz391xHSoH71OvU5xSWtCAz7Pnn7L+7n8XePukRsoRnaI/
/7JpJbAtNZqK8mWjhBjunBaJKvB9T9URQR2L2h1qC0+sVUE/kcPgc0l/dHyQ
v9v4WTXkqplcYLN3QkQcE1bN8TVAk5EoorVhhki0DM81XaqFCv/fjk9ULyDY
337eXKAOnFpejYR6ARLTpvvUO1cHvxXiSsynxZHffToqBot6wDzdPY/eO4pC
8QfeIs/qIUQ7WvfpE0o0FTPSzHW8AQx9z+zYJ65hVnnz3tdSGyB+dm6ahPYb
lsZXEqi90QBrsxQ8D/NeYWbscqJhRo1QHu7953d4G6Yy3GPJ1N0IucYLg5Th
5RjBu/84SHPBhzMZI3j3xx0BJr/bJhDBu2sMCmk/9z2459ff8o0Zkjkq7/n1
fhtPo6h01T2//qqTu5KuUH3Prx8vvP9UOlsDJ/h1/f1mHpi3Bk7w672KNiYM
f8+bDSpCLrfd8+G1FMuvn+rcuJIk1a8RvACoOB8JPv3Dgp8uH9JBNH/3v6Cu
T87edPjd6thbJCOF8O0Px2T+NjkuNvtR9mBuEdDUtkhduUiEr7SkBi7bF8Py
xWi6bv0VpHJQPlxWqgSM5rFvjx1m0ObcC68I0lIYj2INukD2GV3bf/N1xvtS
eJBfyR/n+hbF1++/Z5lfBhTKWd7+hb2IeTI4Wup6OdAJDwrrlj5E/OVz7LZn
KuCYzpM4V9t6JFY2d/7zdgXIGLFqUA4UohAxQxLpvkoQ+EE9bJ6QjGyUG27O
JFaBzGqHZL1EKKr8tvym3LwafvantnYeuoU8GXgWe47XgJnovaW4kqsI+U1V
iyzVQHej1+aqiQG65Hx41uFxLUxVB7KGjKqilaUTM9SRdVB4+tfbBQYZ5H37
6MyIaD3kdp852eTKh4y5RBjiU+vBtv/E2D5ZBpQaWUfCs1UPMeI8eSxRxIjo
fsUPGYsGaKMjW6F+MIfV1mcc33naAI7HJvVzCkYwwydvO74L/d3/stz4TY2e
Ysdzz7Lg8Y0wVzCsNa3bhCmj6n6VlUYwjXhVlN+UhxF6gPdZWzHKTuEYoQeY
SrulHC3SixpyCw5cUTAHt3wyyeJvpHu+X+5Hzo0BOfU936+avbDRcksDJ/h+
IpGgIw1ZGjjB9x8sNrB+/EQdT1B6M3TqTDnwKDWf7QhoR07cFtOz5BUQeJ4+
/MHbRrST8DHa7EUFuAp1ctUWlKBzp68lJydXwn/1hmdHGdLRtu3P8EHzKjj0
KOxD9VAEkha8IHdNtBrYN12vRxh6ozfOxSN029Xwm1bwmNJnB8T131cKp44a
yPcfTTB9aoxEzE5nx0XWAn957Re5h5ooa9vj6F2DOhiPdNKPSpdDfUk6NZz0
9aB5cJ7CQFwYXb+WG3vBpx4kydyfSAUzIxprqcelX+rhmIT/lR4VMrR0rPO/
atUG8IzJGvY7sIxRlXe/laprAP+k5clBwwnMY0WeJ5uuEaoo4ls7W15gPSbA
89WtERrfN4ywa7diKlH3WGo/NoJJSaad0IMizFey5qqRUhOcyTrkVW4RhxH6
hJeKfl2FhguI0Bcwdh6i+b2mjhP6AoaH0kVlNRo4oS/Ic735cuGcBu4X+BtT
+/33/mHCcTngqRLS+jl9z+JBHTSQZaVHqZxEYg5Tgqmq9RCZr1cTEM2NNN/c
TRuorweX6pbf+60PoaP1Qio5DA0gKz82IzG5jVFrJwR2+TQAb5VK+IHOH5ju
veuhPRMNMBfApz5a9g6TS3E0P6nYCMw5kb4tm51Y8rgGTVbl3/uycdb278Za
THkxN/DTwSag7tPJa7mRgRH6g1ghejU+oiCM0B9MhV2UFAly2+sPxgybdvuU
1xGhPzAPHRDl72Le6w/ONqXbtN8U3OsLRmrcdy5hint9QW8j/8+EhbN7fcE8
BcPGfyVqe33BIuOR+J9iGjihL2APiJKJrNXACX3B8BeZt3acGjihL0jkiuY3
eKiGE/qCBU7DAI9wFZzQB8R6UkXWsUrihD5A0MB4XmSfKO6VnDqkQpQPoWqO
7U/reHGzbY2V+Ff5cEGHmTlpkR3fWRN+X5laAJcN/0jfTmDCBzzu5JvYF4KD
3e4pkqSDeMvp9JIMiSJgvnPkd7sGKc4bZm0r/bsIbmloTYDFFuo1HKd37CmG
J9u/rP8LWUS8nYH+ztEl8MKcTkrCfwrtv/yItcm8FObumMaIK48in9vHShwk
y6CP8XZi5/lBVHmmZXl5tQz0Ox6/CKjsQtSeS0JMz8rhpcrg3O7FOyhwLSTr
cVwFsPF0PEy6V4ECScmeP9OphOUd9q5TijnoTqr4l+u8VXBA9nHzW8k4VPQw
5OGXn1VgOBW4uPXNH3VfDfObf1QNlaHTai4szmj9wifvkOAaqBIQUyuuM0et
z3hkfNRqQYn1xt0KZh1U2Us3coCtDt42EbNxn1FAlwxFweFzHYzmmV9y6JJA
nTFztkFG9WBBJtXtIMGBeO98rKTu/vs+9vXgNaM4gCzLzQZ8+Rsg44/LAdfR
dUzO5L61XHwDHLOi6+M7OonlnniciS03QGG8wei56NeYSv89sQXdRvA30jpU
L9iOhYpESs8/aoSxX4GHjk1VYIS+o3o3ki3LNgUj9B1TbltPS/hGEaHvGI7i
G8qUPrDXawwc1sR+SSjv9RrqHZ8++V5T3es17sUmsVJEqu/1GgOqF458TdbA
Cb1G5y5vUnewBk7oNUbXNSA7VB3vdZC6Y2yXD8tCNzImi7lxmty8wYyTBSBw
IeLz1wBWvN1IinqFqBCCxexqtqfo8KVS91eZ/YXAqz30yTSOAn8eZLn4NaEI
Bhkv+5I+IMK1k6cOdpoUw5kbMobGyytIV5KpeVqwBFLoTtHQSPxCPUY3vE+s
lYBvq/euVvxnlHmoRdz/WSmwhai2J3K+Qy5Er+6IJP+9f/idd+R37EN3fFhM
V8zKYT2VT5Os/hHyCD2QQHm8Ak7kJ93m2a5HX7gr2TsWKmC9P7z5mFcRWl0Y
Lz34sBLEmgYTyqxTUPT5x/eKQ6vgVpn+2L2DYShG6vnsZd1q+MrCsrFJ54Fo
qwKrLnPXgB6FdtzjYlsk3TjZtT1ZA/7Qvt1w9TKimh0fPtVYC3fpS1y4d9XQ
lZagW3d962BXWiTrHs9pFEtaySbKXw9i90te8cbwo/xlchei+HpYSKCMHz/N
iE4Rvzqxb6Ue9l1gM4y1I0E+b8VJUowaYCDbO3xNegELuW7F/KLj7/vYUytu
l/IjZvFq7sPbY43wWnftbGF6L8b4X/eR8oi/+98RcdlIz2YsOOFGPtd8Iwg7
LmgWtuVjhP5l7MvzX8RkkRihf/nP9fTnvGftiKq9eX+ioxmMON+/w7JKstez
PJcjfdXMqb7Xs8TSKwkkOWjghJ7FY9aJwaFAAyf0LLI1Q6eVP6jjEqM2Fb9F
yuH+1fMPJFk7UOeun0ncVjk8isVuZ/k0oUbqdGNor4DDBYW5E9al6OHm4mnH
sEp4w9gtuJ8qA3G7rPVHXKqCBzZby9/eRSIWT8FLHJzVcCeO8SpXpA+ypyRL
KZ6vBpn4SZ2OA9cQS+AXToWWGpgxiAka2zFBE6NE4Qa+tTDxWcqlieU/RPr4
Wbm5Zh38p39rnnJEHn1kmRhzOlAP+SOXBbSDRVAjeM92uNWD1eH+Yy33WFD1
qN5c2Md6oOk+af1OZz+6gdRsKRUaYDP8OJso829swjqubV9FA5SX0tF0S3/G
/In1ZSMONILqi+eXr58ZwKoPPubVvNEI2ZKaNkOP7mGh4z4zYUONUHa2i9Js
qBgLv/OTz0++CfaTlFhnNcVjhB6n/cwv80+yvxChp9k8pP1g/zd1nNDT8Pqc
//tZ1MAJPY3i1bJJzssa+Kmdh0J032shdPtbtcgDZdRaJa9ysK4OHGMwWx3h
U0hhwfXyd6iHFrbzs+43eVB8afIqqqyHGfUBEbpgWnSf/5yb38EGcO7TFlu9
tINF2DNnc7n//X2NPb8945nGhG+dcUoeaYArTIyyrQNDmGJBqCeXfCM4/Mo8
Q7HThXnF9tGSFjfCqmVCjapSPRasbHHpHnkTbPetv96ZyMQIvQ3vfweFeuWD
MUJvcybyFU/hiXJE6GXyxtirqrQ0cEIvc8mYwnq54u/cZlHYJdYE1xh/zVb9
TMQI/UofSe6ts/i3vf5E5cXW+cuFGjihP9nqD7jb66SBK+b61ddYNwG4LA7F
L4dihD5Eio3i7LbTICL0IJG7r+uLAjVwQg9yMR+yiVI0cEJvcflV8juGOg2c
0Dto0IswXR8KwAi9A/+Ur4V/0KW93qGsp/hwcfcqIvQO4Tv7rxSwMO/1Dqef
rEsGkAnu9QzU+hI1DUcV93oGaYc+kZahs3s9Q//h3guTyWp7PYPbgTdlq3wa
OKFniKSfDKT9+/MRegZ5g8B4ZYG/54n/9Qw/3jI+O/dcDSf0DDJUd/Tos1Rw
Qo+w02cbPicviRN6hMbh3k0FZVH8wH9nFu2X88DrOaNS6Fde/GxjylWn5/kQ
wv2O5xLGgXdeGDm5P74AdOSeBS8PMuG/3Cr7hawKoY0q7g/R9EGcNHiUKES4
CMK8Jco+hpPiOu4Ha3Nmi6DdnU7UuHMLac0+E1RuL4Y4zaKx2Y5FFLn+xv9J
SAmIRfyxHRmeQjljJmr8RqUgdY29/kDTKHIsoyjWEi2Dwzt+fZ6xg8iLbPfj
xYUysJtj1Ogj6UbSP/y/TnaVwwcfmdyYljvoY7NlUF1EBfCdlNT4I1KJHlir
5khrVsJVRfS44m0OUs+6E3yOowoEKUVa5vriEKO1s7rc1yr4ZnZ7oAcCUFzT
3dHWu9VQuLjBcdzFGf2euUJ+3a8G6nYVzoYetECJFOQ1Ewq18MCTrIopSAeN
V8hyfWasgzUr7iMBWQrI9tM9p4cjdaBy+PtpBbETyGrNOF3OoB5UX9ZoLSxx
oJvO1xT/tNdD/dTaiF7dAVTYcsxI9FgDzEisEduHbmD8D/MMeWIa4KWzsLpi
2SRWKPOC/9RCA1yzHrA/SP4GO8O3UVd8oREUGWWZMvPaMf53M5wf7zcCz8ee
aJRdiRF6kt9ueZ3djKkYoSdpyak++vn0MCL0JA98pO7ysVHt9SE146dT6BmU
9/oQXTGygER91b0+xPSwuFyBr/peH/LCTMCtJ14DJ/Qhmw65qmIRGjihDzG1
duHLTFDHL/rJGTy3yIeuPyfdf77mxpcvTit6Hi8AkZqF+sfdrHhwyzdb7c0C
aPx5ciOKnR6nLbbfsXlaCK2l7GYfPlDgR16War6MKgLS6PpPlfNEuG9Q7EUh
/b/3eZN+mizFVfSxm/hZJ8//q+vMo6n63j+eBlNFgyGFyCxxlFCcvXdKcWkS
1UfJUEQpDZIMSUqFyFAiTcZ7jdfUYFYaKJGxogyZ8zFGg+i3P2vZ54/vWr8/
9zr33rPPOc9zznOe9+u9bwJq9yym+SL6gVpYiefloQRU/0tdybSxDWhGWBwY
fZ6I2qa+GvucrQd2yo9yhYOTEFuaZaZeWw4uG9kZWViy0Zi/Xr+6bhGIHYti
fVLkoG8qAaqvtmQC/ZYrczL7OGjNvQb73TVxQMNM9ty53GQkPd+/q7zmJpA2
27zf90IKWtwr9sjQ5wqY+vzII2trKopZMTS5ONIdNI1n8cstS0P7a5KClZSd
wGpT++2dLWmI58WajzeH/gGdqs+3RaWko2OhLOfOm8Yg/FZqYdDZDHS3/vmW
6+m6YMmroey6FVyUn/axg3e5EjCwcnv4JIiLghujd/MVigC/Atvy0WEuOt/3
cX1x80yQ1zYSvHFvJjp6aEJwFnuIPlFpPC+7KBNlzOypEXrRTDs0Tti/kcHv
i1ryOXvocpovcVbMfv8s5JDIPyqxKJeW13t/bX4/HnuInnm09iFN/DaNEUKn
P34IoInfZpT3uPsvrXzweAeYrTbTBvEdfLjFim8m459Ze370xJaFxox/pnvX
2rvz7VmQ+Ge8c3f/7otjQeKfSagVL8hvN4Z/E7lh5gpsJAisbcsdSkH/8fni
NmNsZBgS8Du0JhvMqzizicrjoJEW3zb7ikQwtk9r7ocLyUg4qYEOuhoFctzO
n3DYnoI6j1p5/9gbCAJkRdrdlqQiP5m8izcUvcFai7Ujx3pTkSjX2NY54RgQ
kbRLUclIQxKap46y7h8A+RKdkwVu6ag7Wj2l6u02sO7B6ID25gy0pP1T5cwL
NHBoUnST4OeiGxVrJWasVQPmyb2SHqe4SNDgWY2ypQSYuNV92f0jF83lzXeI
/swL0k3mjj2mM5H1aESCSex3+m2Za3ZfQiZivXJM72a30Zf4Dr304c9Ca0XX
XEqYWUU/sJ9KmOGchYRqbIZcvfJoxatf6lxrs1DPOoHap04JdPBPvsvC67LR
DHdH85L1oYwfaGdA2JYCyT5A/DyyYL5kGq7PiJ/nj79azS78fCV+nicpzcDW
mgWF9R/eP9Oajox2futUX2cI/g2yD2pnZyAq2Ez8530tUJGVNxxCc1Gz1786
+f0rwOoFsxR/JHLRL65l8vOhBUCwvWmei2Am+tNhrD8m8pd+ffaTctWpTCTZ
7L1D71MfLdYgbe/ZiN+PnpSGvTvcSG9OCp8jvi4LlbKNdTIvldHHuvjDnjzI
Qj4HBmu1Crm0/MBzkDg7G438DMzXeXiHJn6fm4r7WoPbL9HE7xPxdc7JsMoH
gPh1ZIyz8we3sCDx67COj293x/VT4gxfHouV2WjvTssD+hfDGT/N5w0u4zGu
7YwfJicxctnx+yxI/DDGZ+sTZdxY0Kg1RhjaZaPCGyMGMzKu0MSvUmV5fY7s
/reA+FOOig067/JmQeJPyb6VH3D2NgsS/8ecl/W8fvj9n/gvzt2v2DjleJEm
/otTOd16OmuuAnQ8s9Jk6Q3kd/fi8PM0FjRhWXk6hwYjD59wlWz8e8SfILs5
cvHeHWUAXNGeud/7BtpXweZPu8eCvt0T/Yn2eH/u3qd8U1mQ8Pyrkt913XHj
gpLfo921JjfQk4BgGw02C3bdVsu5NhGMlNxzrv2MZ0Ep7TcKZVUh6IPpFWNL
XF8Q3t37MWtkp5EvTXh3y1cDL7r91jK8+9LLe5/yCowDwrtX81xPVS4TY3h3
7bdmVSveKTE8+7F34qY75xkwPHt7cmget9yQ4dnlNanJ20FGDM9uV9UpYCPL
goRnn+/3PUoPz4/w7F/LbQSlV+J6bZpn3755rkN2jREkPHuXiv6AefxmqHpV
bWBNbgzSGt02GrNtNSR8+pnFp0+NHFKDt2xg+Mf++2iF8oKYq5PyUHd+vozN
6wfoTvMZ+2MHpWH8lGZ7dtBD5NzfU9g5JAo9XeU7hG1jUcLV0d4qUSGYouKd
7qEUhxSPjggpsWfDnmNtO3b2xaG/QwJ7G0cmQJh26RqqMB4lVdd0XGwdBoXh
fy64XExAOb9EnOPndIOe5ektLXsSUU9Xk82ib03gkJ5n3AaVJBQklA9WZVQD
u29x72f9m4RWc4+EndEoAxXLjdC7EjZ6qvHYqafrEQgINzub5M9Bi+uiir/a
J4O9txz9+42SkVz5/BOd0vdAmNTv+nXLUtC4U2QrmHsDbF3XHdLdkoLiNPYV
7HfxBa4ftwfczUlFV2Z9+5p5/yQYeSK91c4zDfnm8/Yr03bggtKv7jCQjnbx
WYdmPDUD7ku3P3+zMAOZ8S/w9ajcAEYezhCwb8xA/PIm3AeHNIG2mgg3cjcX
LdC/WDBmsRxIVq0NPlPMRfbsaMPNs+eBDfqXH/rJZiIrMz9W8OdfdMzRRfU3
AzORhNg5W8mBTjo+r8Y5YyATBS0+VhhhWEuvfn97aGp7FlrWIBpr2lxCj3Ni
IsyeZiGVT18zpX4l08Rf8NPJdt5751s08ReUP5DeZF3TAIi/QPffwB9nQwQY
v0B1T+SbRbM3MX4B/77WBj/TLYxfoKp5bKfFWWPGL4AqnKzvBLMg8QtY/3kY
aBrIgsQv4BxqZcIXaQxvXwGci9YP0Ax6N+/8PlnYlS78x1H1IVKav0HftksC
Otjpi0+NP0S+idkevOsWwfuxHSJby2LRo+FLelZ/+WGpq9HvsqtxCDyutlsj
yANFPO3Gm3fFIykvVfnbR8aBjNDPuvTlCejE0pAX5172A+tVvZ4a/yaghXRW
jepEG/BqSBhLLUlEJf9kLRuJqweWBcq5PIFJSGqOYsIGvgrgrM5Hz9nDRso3
Cx8v8y4C2qtsk57JcdCr3I1vhI5ngt5Ct1/sbg7K9PW9MTEVB95eNLDTyEpG
g4fM66UFbwHHumtpLt4p6Mqrm3rvn1wBOllqpQdYqShg3iu3hE/uoETS5DHf
kjQEXZuH6o44AUpC4ebHZlwPaX2VENa2BDXGuddM2OkohlewJqjdGKjzldqc
dc1Abv+8qY4a0wVWyiIzVGS5yNZFWM/ESQmIhK16KhLIRXx0y7DZDFGgulRV
1HmIi2L4PnftE58FLB3N66N3ZyLp9bOfJ7QN0V1eBf6KhZlI3EvkqqX8Z9rR
cmbq5uVZCMwrCzYILadnmMU1P7qUhQQEGkOnrHPp78IXp/z6stDXBRbnXU89
pIn/wrEo87muYSBN/Bes1ZIeIoZPwLLVvLwjUdYoat736wphPIyfomPKPP2n
gDHjp1jBV/EqzZYFiZ9Cldc3aHECCxI/xZ7rz2IOdRvDriCLK7NXsFGkdAwQ
Ci4FFxLrThuNsFEz20lo4VQ2eMo+pKv8mIMcfRvA5slEEBZk8f26dzISGm1p
zngdBSZ/lpaam6ag6MLKPLs7geDZ2DVlOdFUdL5Hy/znGW+w1LPygVlXKqra
9pv34OgxsKhXdlgqNQ2NBf4cyxo6ANi6jboup9PRIt4TetbK20HdAv4w2Y0Z
KOm7QbJFHQ1S9FnPjvFykcCgZdFgsBpQaHmg1XCCi9pXj7I/pkiA2O8Z74ca
uUjiQaShljwf2FrjrCesn4ko8esxOr3faQPX7lUH4jPRkI5c8NyvbbR/wJF5
E7xZCM1r7VV0qqKjF97rsjyC32/azkeUfc6jx/eHGH97n4UCOT0BbTkJdKhE
pNZenWykHdoT1uoTyvhD9pvGHzwj2guIv+OC9bmIw3XGkPg7DF3Qnn/w8474
O3iUt+o52+H3F8vwT0qf01HJrzNvDM4ZgquT5zQqEzJQ+GtD29ImLSAs8oXu
0OOib/U/t/1QkQOzDPPoXQlcJDKhWCWtvBBkwfi93fyZSDlrsYaS21/68JSe
i+LJTLTCSQK80PlGB10ObRmoz0TOht6S73IbaSPVaJMwnSzk8jvt87byMtoh
jF2z6H4W6nAVcz47waW/P3PNlpyVjVolv+gbzYqhiR9E9jjfORudyzTxg2iu
zDRu0r0DiJ/jdOzGB983siDxc7g+vi0gh5//HNkFmXdVspGrDqQ2VYczfosz
HrLdSpFtjF/ivvHJn013WZD4Jd5fWOr+yB3XHzxqxVdsslHAEzGeTqGrNPEz
uByOsFVbVwGIf+F5c6dlsAcLEv9CxueUmZLR+PxO+wM8BTRTpHH9Q3j9pDab
nD/ZF2nC65cWqU/ue3cBcCWdKpaK3EAiwz4LNPDn3W021ilfCkbaj45n1d1i
QcK3N9060lRx8RlIXzswpXr2BlqudvXd4gcsmD7ZZnhwbwj6sV1JvwbXf4QP
Vx+Vb/c5lAooTkpHrOENVKxqaiCB6+HFGYvmbx4IRvVT/Yez8PsIyzTz/IVn
IWiVkNYehOsLwlN/kngRXxvsSxOeuq6jbFv+GkcQdu7D8yd8N9DU107rejxf
PtX0H010CEJVLqf0klkMT3249F++RPN4sIB32Re07gY66rW/tBBvj3X3pn4l
hSBxab3COvx9wlPrK8SJzXe/AaqLf1V7yfy3XqNjmxGuB83fi0b0nQpBqk4D
3VJ4PLS88y3f5xAUoLo0xxbPl/DUK9MC3nbM9KX/P5465OYL97ziBIan7lhi
JKEZ+AoQnrr8wRK54qaPgPDUk9X8tQH2XYDw1PJdH57Ozh0GhKcWMF4/g2fG
L0B46us398w4tpCH4amTNxWkfpfmZXhqb1MtIQvjuQxPfTXn2oqj7AUMTx1x
wVdHNn4xw1Nv3Fy5fnumGMNT9ylapc+WXMrw1P5tvwvq90sxPPWNg6zqtjMy
DE9d0uKQpK61guGpm09eEdlVJcfw1OyvE3HKfgoMT32Ss5s6P0+J4am7unfo
18YpMzy1tt6apYWSqgxPvVHyq1TyoZUMT23ZN1fKPEWN4akzTFxPvylaxfDU
i09vvWiUoQ4JT90eYJ97MFQDEp46qP3swGZZChKeOkja6p7DcQoSntpKu3is
IpGChKc2m6X1V7aCgoSn/lMy/KnuMwUJT10od05GrIWChKe2FhS7VlBNQcJT
K3TVmzlwKUh4aluxg7Ub/ChIeOpPguZPfxlQkPDUMk7mG0VGNSDhqUVqtxZ9
N9GAhKfWXsu7UNVHHRKe2q2SE7wpdRUkPPXg0FR8Y44aJDy1V8cpF//MlZDw
1GUWZ3tsslUh4ak1WtUn59xUgYSnLj1GRX/2VYaEp5bv+2dWy3ElSHjq7J/D
4s1IERKe+r1qVVmYggIkPHWOY5pWQ68cJDx1eEeFX8zzywxPnfeqUNap9ikg
PPXq+l0On+VrAOGpldLcjvBZtgGy/i1XNszsXnA/IOvfqu4NuL9Ce4zhjS8P
Rg9IDmhAwhsHDl3W2MGiIOGNc68O5U8FUZDwxga8HrnX8ihIeONiToq9XQMF
CW/cYjw3waeVgoQ3NorU1Xr3kYKEN/5hFbEk+xkFCW9skRJlfvMOBQlvTNcX
+s61pyDhjZO8fNKqllOQ8LtNH2CI7xV5SPjd3Mjdu6LL7Bl+d4NDYk9lcCYg
/O7Rb8WZA+GVgPC7s1WF9djLvwCynq309gLOmYO9gKxnu9csPcfMeZThWyee
xte/KtGAhG/lVeUecdKmIOFbf6mLKpiepyDhW3d+Xe+mkUlBwrdqzVlW3Izj
mfCtVhlvitNwvBO+VedQ3LX+ZgoSvlXuZ8jfDThfGL61auK1C84nwreevnbg
aLwrBQnf+tqRR71Ck4KEF3WWLOz2bZCHhBe9vWeXJu1xm+FFp2xa9v6uLwVk
fVpr5cDr6fX1DG+pUqNB/d5PQcJbPrceMzkfjY9nmrfs5t+y9RO+foS3/FEo
65fziYKEt/TOe3rMFF9/wlvu9+McLqynIOEtnwfp7FqM44fwli7nQ9d9CsH3
g2k+8UV6bl60rjwkfGKKsdLKjjJDhk9sX+JeLyyQyvCJujnhr5vOVQDCJ0pZ
bCuLHG0CZL3YJao7/N596QZkvdjAWQpXdwePMPyeodvdE3s4GpDwe/468Mbf
lRQk/N7KcyIFPm4UJPweZaDhL51KQcLv3fTcJpFYSUHC75m9XMJq/4LP1zS/
J+KgskAGjwm/ZyriwxuLP0/4vUUal4uupFCQ8Hs7grd+WORFQcLvXTn5OMxz
PQUJD6dC5zTyT8lDwsN5RhXIohmhDA9nbBVbuf16ESDrvybefvk9bKSW4ckm
AvMa3u6iIMOTuQh3dIRTkPBkJX4rVtYWUZDwZIfbL1ZkfqAg4ckMblld98fX
l/BkLHrNj6+NFCQ82cnlZksu4+8TnuyVZmFi7U0KEv4q8mCEg6CNPCT8la5h
/o8cL3eGvxo0tm72OZ8LxIY0uH4uSSjzi0X9ZC7F8FR5nSVSL2vx/WKap3pq
yntGB8+H8FRuslM1nk0UJDxVlFpaa8xLChK+yP2Zs/KTpAcgxl/bQDuOjY57
BZcfwfnXrO65s/0IB5ksFb76Hufn/oIZwnarklExWFlrifdH+J1XAVvj1iyU
h4TfceVesZ/7QoHhd8SKpt7/rGAz/E59S6ie+ORrQPidjh0tkys6PwGyfqib
7ebZxTLdgKwf+i3uy1Nx2RGGb6m9kz9+7K4GJHyLy49E0TRFChK+pVpH9bnX
KQoSvmUWp22RN4eChG+pvO5V+O8bHK/TfMt4qFr9QRyPhG/h2+DwJva/8TTf
Ei0++69OFQUJ3/Jot7LeVBoFCd9y2Xrh1iwfChK+JWnPS9FSQEHCizxOFfSt
XKgACS8yfoytvCIwkOFF3ObR90rkCgBZD7TyzXsxQYFahrdY377m6JLtON+m
eYv54RscPW9QkPAWecvogkcFeH7TvEWtzPLMcBx/hLcQ2agPAnE8EN7CRa8y
vhXHL+EtRht23I4voSDhLbQTjb3yb+N6YppPmDzRL/nitDwkfIKFygGHUzwn
GT6hesGe4D/nssEP+DvN5GAS+jZQP34vm2J4g69h1iL7aihIeANw6v273zie
CG9QLt5apYfjjfAGQwpwnvtrChL93SPf49uZpzFAT7pCZPwmG6UHfKGicDyr
z79d5neAg/J9TgiL4+NboFPwZYNsMjrYKBUVXkdBom87hUrM7ZKXh0TfPhLV
WmDpvRc4FjzZWNPORsuK7qEdeD5LZwr/+ZvEQUFoz4/ruB4jerbPvA7dmtAI
4L51+OkZTzba3/rmSQF+fteVv09+achBQ+Hu0Sfx/ol+PT4U/fov5wKQ3mh4
1lSEg+YWdTw9+F8+DsS6uHHZaB9n0FwF/37AjgNf0FkOimGptnri/RP9WnSi
JMFvUg4S/bppZ0MBeDGH0a957uj1ToIkRr92vyUo8drgNSD6tctuh7J31p8A
Wa/Pe92RfeXPugBZr08pqT61p2+Y0XelPJcMOEdqQKLvDnawzv6RoyDRd/Oh
spjrCQoSffdcULyEIpuCRN+94/SbJYjziei7RgsVnaRx/hB9t20OffALHhN9
V18149QfnE9E39XscRDRysDHP63vvrqrKOzlS0Gi71bwe81uQRQkeulNzuBC
7jIFSPRSN79ErbjQq4xeKmL67eixn3mArL/Xu0VI2OhWDaM3VrepvHpkSkGi
NwoWrHIvDqYg0Rtbu2ebxubj+/e03micLnJqEtdzRG+cHDjkeQVfT6I3/v3d
suMfHA9Eb5Sw2vErrZSCRG8U9xxQVsX1AtHnWNKVMnHe8pDoc/H8j7/kBh1l
9Lkt1bX0et8s0HO4JVXDKgm9PTHIcsqiGL1ti3z0rnvvKUj0Ns3+L+YNOH6I
3jZrd67oLZxPRG/j7X67yroc58O0/pTU8y50Rkg0EOxbPGURwkbyGctoFZxP
e70Uz5vvxfkkisrW4OM78j3qpeayZLRTaNBaFdcrRN9JTBWTLFGXh0TfCZTQ
dX/BsxOErtwyGdvMRtVhT8yX4fm4Fvd/HXzIQau9egY+4Hgnek5Ea53jqqIw
YCShF1fvyka/j0clrsPnb1LX5lAk5KBdfZxl5/H+iX7jZzVc9KnAC2zJqqWk
hDjo9QaluO14e2Ve/94GDo43iaMn3uLjzS7uj1x4koNqPWMfs//L52n9Zon7
Uot9fPKQ6DffTgs8C/fWBV8FDp3YVM1Gexq/LE/A8bld3LtRdw0HSciEDATg
3yf6TecGPoPQcFcQdWMoroiHg7atClFfhrfPuScwN/sQB3WbW+4Yx/sj+k1d
Hg63ZBsAtqoG8PSykZ5oupAv3p5suXF4zISDuvSqBW3x97/XPir0XMpB2Zlr
8k7jMdFvTtz0j0odlYNEv7n0Jib+3otOmug3k1UZq154JzL6TWTnkaCErleA
6DdvDEYs70l9AmS9IrUiW/XFEV2ArFfk95679d+qYUbfmNUYt8cpQgMSfaNP
SmFH7AoKEn2jnHN79JgLBYm+sXhMYP65JJwv0/rG91/GJbdwfU70DVUFa8Xf
/93fpvWNyR2w8Dc+v0TfyDuTIGCF63+ib7AcFiZV4vwn+kZ+jNxJ64s4fqb1
jb7LG1/2b8D14LReELb7yOGHMgqQ6AXbNqlmUwpXGL1g4aCdpax9HiDrEZ0v
iy0/bFXD9NvjRp5LXDLB9cF0v/1UYkR2y3X8vJvut68/EHJZDOc/6bd3eUZd
5uL8J/32OepPFl3C14v02233PdKLwPFL+u3rPTYv1MTvA6TfXt80qd6K85/0
p2u0JlhhF+Uh6U8HBowe7gxzZPrTinb8W9bxZYHWiZ2pspZJaBOd3fkWvz+R
fvPelM9yAOc/6TenzXt9/RmOL9Jv7pGZKC/F+UD6zSYmz2Xe4/wn/Vd2z/6A
Ht8oMFL1ZGROEBt5p3x3H8TvK/3Z/37St+AgJ3/3aISPb0nt1TyVJcnI5sOz
fa44/0l/88mGH/+krZGHpL+5Z/v684rXTYDiQSHLwI9sFDm+dddffL1l7zU1
dt/joNwDh37/wfFA+pn+VT+KfZpDAfW3JfLySTZaOvZh5ziuR8JOKJX66HMQ
rPBruIj3T/qXytUSr7tDPUBzb/T1OXM5aPD4IuFNeHvOg9Ct/olslJuwZ20M
Pl6jH9nffx3D94+kNw8K8fkg/csQo7uOW+bJQ9K/1NgUqdPNowncN6ysVKtk
o4eBsVOX8Hw7tm3SkqU46JFp4u3/6iXSv2zhrxN6WHwKqL9+PCNpio1KF/f4
zsXbo+urD9+x5aAATSlNvv/mM92/LGOHnS4o3A9qLw139Xay0ZkZu1Y64fnA
MMFtX4xwvr+yq3PCn7829/zSQ+L4+3EV+s54TPqXE+kTgrd/ykHSvxxe+UGl
1HsJmF9U8++wCgfVL9JsuYY/v0dnc97Zn2w0ELFKtBf//vNN1rLO+zhIVGb1
NwW8nfQzG65mr+KPMAeOPFF8GQY4fiOH9rvj7Vke8+q0FnLQ6VUHNS3xmPQz
cwdipsqSEchryfXYoc1Bo9Vi6L/9icl5RczfzkGCUu30Hjy2iRm0CZfioAWt
YLUHHpN+Jruxd2fpgBz83/8v+t/x//Y7/w+1wHM7
      "], {{{}, {
         RGBColor[0.368417, 0.506779, 0.709798], 
         Opacity[0.2], 
         EdgeForm[None], 
         GraphicsGroupBox[
          PolygonBox[CompressedData["
1:eJwl1WWYVWUUBeCZke4WKelSGqW7G4ZuGLq7UzDo7m5QWgUlbMVAKUVppaQ7
RAl9P/mxnv2ufeaBmXvOd26WmD7RvaMiIiIipXXU8/l5nIiIeebvYWeRyL4K
5+V10khfr9+WFpLMbpy5x9xv1jBTmhfN12S77NR/Nv81R5q9zFPmO/6tTOYi
qc5z7b/iPnyGW3FCrsx/8GTOY66VhrzOfj8P4VvcizNwcz7G4zmpOUVK8hv2
u7kL/8DV+ZGk4AvmdPui5jZpwzvsj/BofsYjOC/35JP8Nmc0F0o1nmP/JYcP
9TS35ARcKXyePIlzm2skmtfa/8CD+Sb35PTcjH8LnysnCX+3lOCx9ru4M3/P
1fgvSc7nzWn2Rcytkc/v54f2h3kUP+XhnId78Al+izOYC6Qqz7b/ItwfPhXu
L8fninyGJ3Iuc7U04DX23/MgvsE9OB035V/5DU4c/m4pzmPsP+ZO/B1X5YeS
jM+ZU+0Lm1ukFX9gf4hH8hMexrm5Ox/nNzm9OV+q8Kzw/HJPPsnNOR5X4Jy8
Surrq/XveCBf5+78EjfhROHvlGL6aP0j7sjfchV+IEm5kLlZWrr2vn6QR/Bj
Hsq5uBun43lSWZ+pf8Y9+AQ347hcnnPwSqmnr9K/5QF8jbtxWm7MCXmCvK6P
0ndyB97Hlfm+JOGC5iZp4dp2/QAP5394COfkrvwSz5VK+gz9U+7Ox7kpx+Fy
nJ1XSF19pb6P+/NV7sovciNOEM51OPv6SH0Hx/A3XInvSWIuYG6U5q5t03/i
Yfw3D+Yc3IXT8hypqE/XP+FufIybcGwuy9l4udTRV+hXpIueRm/I8cN5laL6
CP1rqajflUSc33xPmrm+VX8kg/Tsemd+kWdLBX1aOJ/SWI+ll+GsvExq68v1
y9JZT61Hc7xw3qSIPjy856SCfkcScj7zXWnq+hb9LxmoZ9M7cRqeJeX1qeF8
SSP9Bb00Z+GlUktfpl+STnoqvQHHDedFCuvDwntKyuu3wzuKXzU3SBPXN+sP
ZYCeVe/IqXmmlNOn6EeloR6ll+Kl8qd0tEtpV5/j8HgppA8N7xYpp98K7xXe
JA+kv57Fz3TgVDxDyuqT9V8kWo/US/ISuSgd7FLY1ePYPE4K6kPCO0DK6jfD
+eeNcl/66Zn9TAxPkp+lgV2EXQljsVyQGLvkdnXDsxjOrJSxuxHOK7eXiXJE
6tv9G95vXCc8M+EMSWm76+H8cDGpHe5neH6llP218Ozye3JP+uov+z/bcUqe
LmX0Cfpe7sqHuR4/C+efT4d3gX1mc4nU5EX2C8N50/uZ5/XZZns9mVlLX2Qe
1ceascL5D9+NZgFzgOsLwneH3t7cq88Kn71+NTzv+llzit0r4d1mrjcbm++6
9iMP5bvchzNxW07B06S0/o5+SOrqT8O7IvzOck7a6Un9TE1+IfyOkl/vr++R
EvqV8NxzG3lbDobP3u5JON9cI9xr2S3F7S5H/n+LIzbIHemtZ7Rozcl5qpTS
39IPhHulPw5nlV82F0sN1xeE9wb35bPclpNw9fCc8hiOCu+r8F1n5jP7ujY/
fJfp7cxd+kyzmH5J/gOXmh/C
           "]]]}, {}, {
         RGBColor[0.880722, 0.611041, 0.142051], 
         Opacity[0.2], 
         EdgeForm[None], 
         GraphicsGroupBox[
          PolygonBox[CompressedData["
1:eJwl1mW4lFUYheEhDl3S3d3dSEq3iliIgIqgYHcrraKgEiIhICgIEopFCNKo
iEp3N0g33u/lj+fa73pmzcz+5pxvzxTp0b9zv+SJRCIZNhrGYXGqROI36xNJ
icQ/KROJh6y3WdfgHvOSFIlEbfNCtJNbyo3My3GnPFrOYv4YJeRLXmsOV0ae
hVu5YnJ98y/oJD8tH8MTckJeF/uQa8k/oy3XQh6FzPJHKM5d1PuGKy1/jQZc
UfkpHEV/7ibW6i2Sa5p/Qhu95vInyCSPRDHugt5srpQ8E/W5IvKTOIJ+3I34
LPQWyjXMP6J1fEbyx8goj0BR7rzeLK6kPAP1uMJxnTiMx7nrWK33s1zd/ANa
6TWTP0IG+UMU4c7pfc2VkL9CXa5QXCcO4THuGlbp/SRXM3+PlnpN5ZFIL3+A
wtxZvZlccflL1OEKxnXiIPpyV7FS70e5qnkBWug1kUcgnTwchbgzejO4YvJ0
1OYKxHXiAPpwV7BC7we5ivk7NNdrLH+ItPL7KMj9q/cVV1Sehlpc/rhO7Mej
3OX439P7Xq5s/ha36TWSP0Aa+T0U4E7rfckVkb9ATS5fXCf2oTd3Cb/qLZAr
meejmV5DeThSy+8iP3dKbzpXWJ6KGlzeuE7sxSPcRSzT+06uaJ6Hpnq3yu8j
lTwM+biTetO4QvIUVOfyxHViDx7mLmCpXgP5PSTJQ5FX9wT/BVdQnoxqXO64
LuzGQ9z5uO/06svvIqU8BHl0j/NTuQLy56jK5YrrwC704s5hiV49eRhSyIOR
W/cYP4XLL09CFS5n7Bs70ZM7i8V6deWhSC4PQi7do/xkLp88EZW5HLFv7EAP
7gwW6dWRhyCZPBA5dY/wn3N55QmoxGWPfWM7HuT+jbNLr7Y8GAl5AHLoHuYn
cXnk8ajIZYt9Yxu6c6fjTNKrJQ/CTbzDZdc9xE+Uc8ufoQKXNfaNrXiAOxVn
kF5NeSBu4G0um+5BfoKcSx6H8twtsW9sQTfuZJw5ejXkAbiOt7isugf4LLFP
bMb9/Ik4U/jqsU9cw5vcLfr7+cyxL2zCffzxODP4arEvXMUbXBb9fXym2Ac2
4l7+WJwJfNXYB67gdS6z/l4+Y+wD/+Ae/mjc83yV2Acu4zUuk/4ePkPsA3/j
bv5I3NN85dgHLuFVLqP+bj597AN/oSt/OO5ZvlLsAxfxCpdBfxefLvaBDbiL
PxT3JF8x9oELeJlLr7+TTxv7wJ/owh/EXL5C7APn8RKXTn8Hnyb2gfW4kz+A
OXz52AfO4UUurf52PnXsA3/gDn4/vuG3IVW8J37H7fw+zOa3IileH7+hM78X
s+L7Ic70OIfj7MQWpIzXxjp00tsT5z2/GSnitbEWHfndcXbz5eJzwFm8wKWx
3038eDmn/CnKccnj/bEGHbhdcVbrfStXiM8KTfTKyg3jbMUd8kvyGTwvp076
//dHU/MqdJU/i8/E/ECcAdaxKGtOFn87cw9zPWuf+E1i7Wjt5LHH4/eDfJ91
dZxd1vbyzjjzvUd/+W9zr/iOtfaNnvVu63z9ftb1cndreWtv6xxrY2uZ+D8z
94zzO8513G5+Mf4O5vvjO8v8nDlV/H7yfk3MK3GXPM5j2c1jUEZOyHXjPEQH
uaO8Cu3kHZjq+fPkcvE/gUY6pePvgdN4lkuK69H7VM4mj0Zp7ibXgVuJttx2
TOFKxWeOU3iGS6n7F38D7bkVaMNvw2SuZFwPTuJpLoX+Bv462nHL0ZrfGt8Z
cX7GGYg/cQ1tPf4rWnl8S5zL3HpcRRt+GVrym+PM5UrEdeEEnuKSe78/+LFy
VnkUSnFXuNbcUrTgNsWZy82Vy8Z9goZ6xeUG5qXoLD8jH8eTcjL5d89pbF6B
LvKYuN/M3eLstX6CkubLcU3mB811rI9aF1nbW1t5zmPWtfK91l/kh+M3prwR
/wEQ2nVd
           "]]]}, {}, {
         RGBColor[0.560181, 0.691569, 0.194885], 
         Opacity[0.2], 
         EdgeForm[None], 
         GraphicsGroupBox[
          PolygonBox[CompressedData["
1:eJwV1HlgznUcB/DHfVYSIolRKpK7SBeFdKyQIipXUWlrldxmY3OkEA0bI+WY
IzFXETlDB0UXle7LWSrdeX3+eO3zeX+/z7Pfnu/38yypd2qnlKKJRKIIyX6k
lUgkNpZMJOapr6tprKAxD7KAf+zVVbuTx/vyCc7T384kVsk7+IYz5RsYzQvy
XOaQz2xmkUcuM5nBdHIoZDtfc4b3tyGT5+WVbOMryltrTQbT5Pc4TjU5mWfj
c8hb+ZJy8vWMYqq8l2NUlW/jGV6RT5Gkv4sctshfUFZ/Hek8J//NRfp7yGWP
fJRz9bcykeXy79TSd4nPwGb5UvU+8jkkl1GvZSRT5EbqA8znL3mAupQLWU03
ZvKuvfVqajyLy1hLrzh3jth/TX2IAqpQyC08zcv2N6iPxWfnctbRhxf5zf4j
6hJqxh1zZ5w3b9hLid/BJdzLbD633l9dRGmuYQSTrTdU+/ISf8p11K7M4B25
vtqTuRyWK6s3M4Fl8q9coO8cd8gm+TNK6a9meMyi/DY/UUnuwPg4P/kkNfSd
4g7ZKH9KSX0rhsXcyG/xI+fINzEuziC+HxykhHwVQ2Nu5N38QEW5PWNZHGfL
AYrLLRkScyEXxL3xCcWstWBw3Ik8gfGMYyzZZDGG0WSSwSjSGckIhjOMoQxh
MINYFDPAxxT1jCsZxFPyQl7lI4pYuyLWGSgvYB0fkrDWPNZ5Ut7F95wttyM7
ZlVeywf8T7N4LU/od/IdFeS2ZMUMyL9wvr5jzD1r5P38R9N4L4/r/6C2/m6m
86ZcT72fOXwrn6XeyJiYXbmB2pt5/Cw/HHdCde6IeYzvkvVHY7a4OJ5PD2ax
L85G7cdC/o3/P2qT+Js4DXvatvM=
           
           "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwl1ne4znUch/FDCMkso6yDRLIlISUNIWWv7L2S7Mooe+9ZyB4NoygNezZk
qygqMjKyojJ6fS5/3N73+/M71+N5nu84J7FFl5qvJElISHgnaUJC5An/PIrx
+hq9mfxYnypf1QvL/vokmVT2l/tkZc/S8qb8V/4q38yn8ef5OzwXSur/yWrY
yQejnOej9QxorOfQ401d4IuhJpzUy+Bz3jVeE6Vw3ewFfM+HoAnuwCmzx/AF
fw1FvMgA/Q5U0dPpzfhvfDoewQ29OnbxoSjvZ8boGdFUz6l34Rd5b/4tX8Lr
8EV8iiwkR8lfZTLPTsuymGD2pd5cfhLfi+ymF5Vv6ZNlMjlA7pczZFXP08vm
+kT5e3x2uUWfLmfoVeS7em4M4z/L0uY35YvYzdvF/x3P+eN8LM+EZnquWFd+
iS9Fcvypl8NXvDuq4VGkwBnz8ljLe+AFlMEts5ewhw+Pz4k7cdbscazjPVEd
GfyfLcyOxb7DYwm3F7mG2V46Ai2Q26yr2WX+PlLinF4B63kvFPMzb+vJ4/Pq
GfWW/Dh/F2WRxKym2T4+EhX0cfo9aKkn6q/xK/wDpMJ5/QlsiLVGcT8zUE8R
n1PPpLfif/CZsYfjI5jVMtvPR+EJfbx+L1rpeWLN+d/8Q9TVF+sPI7X+l3wS
G3kflPB8kH4nauj36K35CT4LVfWZemKsSex7vTY/wEfjSX2Cnhmt9bx6d36V
f4R6+hK9MO7SL8iK2MRfR0nPB+spUVO/V2/DT/LZsS/0WXqeWGM9mV6HH+Rj
UFGfqGdBGz2f3oNf48tQX1+qF0Ea/aJ8Cpv5G3G+PR+ip0ItPbPelp/i78Xe
02freWNPxN7V6/IfeHv+FR/Ln+KTeFa01R/Qe/J/4nvm3/HlvAF/nxfF3fol
WQlbYj96toq/GXcFHxprhtp6Fr0dPx13Dd/K58Re5+/xfLGX4vzo9fiPvANf
y8fxSnwyz4Z2en69F/831oHv5Ct4Q/4BL4a0+mX5NLbylp6t5n15aT4s1hR1
9Kx6e/4n78a38bn8RT6HPxD7Ls6rXp//xDvydXw8f5pP4fehvf6g3pv/F+vE
v+creSP+IS+OdPoV+Qy28Vaefcr7xV3Ch8eao66eTe/Az8R9w7fzefwlPpfn
j30Z519vwA/xTnw9n8Cf4VP5/RjEf5QdzAvwPvw6f5Pv4h/zl/lHvARG899k
evO/5bPYzlubf8b7x/3GR8SewFv8gKxnfh/vyM/GXch38Pm8Bp/HH8Rw/kvs
67hXeEN+mHfmG/hE/iyfxrNjMP9JdjQvyF/nN3hfvpt/whvzZbwkxsTvBZnB
/Kp8Djt4G/M1fEDcr3xk7Bm8zQ/K+ub38078XNzN/Gu+gNfk83kBjOBH4hyY
p+aN+M/8Fb6RT+LP8ek8B4bwQ7KT+UP8DX6T9+N7+CrehC/npeJ88mMyo/k1
WRlf87bmn8f3HXc4HxV7CgP5D7KBeXbemZ+P3wX8G76Q1+ILeEGM5EfjnJjf
xV/mv/AufBOfzCvH71KeE0P5Ydk59oy8JffK1XKFfATHkUl/Xn4jv4jvVaaX
DeMexyLU9loLzR6Kc6Cn0RvzI3xKfIcoZNbXLP74+jTuePzDq+BbPjDOVeyR
uH/jDoz7Js50nJvYg7GO8V0gB3IiF3IjEXmQN+7euPfibonzG2cj9lesUbwH
PIzCKIKiKIbi+Nf7qIrv+KA4O7HeuNv7bmJ+lE+N7zNew6yfWRJ8pjfVV/LS
cc/xP5Lc/juzhGf/A6/GMtI=
          "]]}, {
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwl1mWYlVUUQOELM3R3dwsKGKB0KqmSIgjSSofSEkqXga10d0p3p5JKd3eH
pO95/LGes9e6exiY79w7ZGvaoWb7GJFI5O+Ykcho/BMdibyNlrEikfVRkUgD
507e1lmZv+tcw1s533I2ce51/utrc5t/MidDI/Nfzl99TV3zFnNZ/GUvBu9k
vua1z1GTb+AlkZOX5vPML2EhH+NrDprfwQZeBY+1PPZ+1pLjN223FlPrzK/z
LsiFsfohrRI28qp4ou3BOBzWK2OTXg1Ptb0YjwmYiCNer4LNXq+OZ9o+RPl+
n+k3tK7IjUn6Ua0qtoSfGZ5r+xFt/3P9ptYNeTBZP6ZVw1b+Hl5oee3+oqXA
79oBLZbWhd/i3ZEXZbT5Wn4s4lPsHTdXxzb+fvgz7azlxRDh+fiv5pQYzT/g
W83lov+/C7F5V/NtrzU0/2nuYa5l3mguhWbm/c58elnzAvOnzgLOxs49zvbO
P7z+oXM7b+Os4GzuPODs4Jzq+50wv4tPwp79j5y7eDtnjfBvcK7jrZ3FnU2d
+5wxvPaS+TdzKnxs3u0co9czbzOXxz++RxzezXzHaz1Rm2/ipcNd4+X4QvPL
WMyn+ZqT5vewI9xTxER+e79rqTGWH7QXV+vO7/JeYQfT9VPa+9gZfnaIwiF9
Bk7rNbAr/F0QjcP6TMzCbMzBXJyxVxN/2qmDWDiiz8NZvVZ4b4X3GmLjqD4f
5/Ta2B2eMeLgmB7P37eHfo9/gQJYoJ/X6mBP+PkhLo7r8e331O/z3ngZC/UL
Wl3sDc8Y8XBCT2C/l/6A98ErWKRf1D7APl4f8XFST2j/C/0h74uC+EO/pNXD
/vBZhAQ4pSey31t/xPuhEBbrl7UPcSDcISTEaT2x/T7hc4p/icJYol/R6oc7
H+45EuGMnsR+X/0x/wqvYql+VWsQ7hNvhMQ4qye1309/wvvjNSzTr2kf4SD/
GElwTk9m/0v9KR+A17Fcv641xCHeGElxXk9u/yv9GR+IN7BCvxE+a3GYN0Gy
8CztjtbSYBy/YC+F1p8/54NQBCv1m+E9gyO8KZKHZ2t3jJYW4/lFeym1AfwF
H4yiWKXfCu91HOXNkCI8a7tjtXSYwC/ZS6UNDJ89GKK9idX67fA7BMd4c6QM
z97uOC09JvLL9lJrg8L7HUO1t7BGvxM+C3Cct0CqcBfsjtcyYBK/Yi+NNpjH
xDCtGNbqd8PnGE7wlkgd7obdCVpGTOZX7aXVhvAoDNeKY51+L3yW4ST/BGnC
XbE7UcuEKfyavXTaUB6NEVoJrNfv8xY4xT9F2nB37E7SMmMqv24vvTaMx8JI
rSQ26A94S5zmrZAu3CW7k7UsmMZv2MugDeex8bVWCuW1RfwVLOEb7T0Mn8E4
w1sjfbhr9qZoWTGd37SXURvB4+AbrTQqhM96XhBL+SZ7j8LvBJzlbZAh3L3w
ma9lwwx+y14mbSSPi2+1MqioLeaFsIxvtvevuRXO8bbIGO6ivWladszkt+1l
1r7m8fCdVhZva0t4YSznW+w9NrfGed4OmcLdtDddy4FZ/I69LNo3PD5GaeXw
jraUv4oVfKu9J+Y2uMDbI3O4q/ZmaDkxm9+1l1X7lifA9+FZoJK2jL+GlXyb
vafmtrjIOyBLuLv2Zmq5MIffs5dN+44nxA/hWaCytpy/jlV8u71n5na4xDsi
a7jL9mZpuTGX37eXXRvFE+HH8CxQRVvB38BqvsPec3N7XOadkC3cbXuztTyY
xx/Yy6F9zxPjp/AsUFVbyYtgDd9p74W5A67wzsge7rq9OVpezOcP7eXUfuBJ
8HN4FqimreJFsZbvshfROvKr/DPUCP+v5SXC8w3vAz7XnA8L+CNfk0v7kSfF
L1odvtlcBpV4db7a/CbW8fp8h7lieC+b/3Z2DP9n8mf9B7fHdJU=
          "]]}, {
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwV1HegT2UYB/AfuSpFw6iQVSFRGmQTIulSt2klV2maSRJZDaXiFtIgXeLO
7jTutWeoNGjSEiqatKzq8/zxuc/zfc/9nfOe97zn1E0dmjKkTCKRSPZneFIi
MaJ8InEZhRyXF6l3U8J2+TW1L0toQC6DWezYdPV6apDFffxuPF1NpQnz5cfV
zpzGXvl1tT+NeFt+Sb2VevwTc+JB/eX8q9/BEtLkG6jJQXkBT+iv5nT2yZvj
t4yUr+A//ccs5U2eNNaFM/he3hL/y0NyMxJ8Ii9jYYwzylhzyvCpXBLrFOM8
bOxKyvKZXEpGjDOaRxjDo4xlHI8xnglMZBKTY53ifmKOPMUUnuYZpsb5XKMF
J/C5vJxMno3rGGtJOb6QV5AV55G7ciY/yFt5LuYktyKJnfJKsuOa8jVU5kf5
HZ6P+cutKc8ueRUv6FM4l0NyTsxX340q7JffZVrcu9yGE/lSXs2L+hupxR9y
btyr/lqqckCep97BRbwnz1Zv4zwOxx5Q7+QSpsf6qm05iQzu4Svjc9R+NOQt
hrDG+Az1JoqpTTb386dj89WBLONi8hnGijhHPBO1O0VUI5N7KeUnx99QB7CU
xuQxlOVsc/xltVe8S5xPDg9wJPaqehdNSYs9o7bjZL6W56q3cyFr5ZnqzdTh
Lzkv9oX+Os7iZ/l9XtH35gKOxjOMvahvTwW+kdcxS38Ldflbzo99o0/mbH6R
P4hnGPtY7sApfCuvpyD2jdyDc/hV/jDWO/a8fBWnslveQGHcQ7wLxjpSke/k
jRTFfOI7Ec8/1i3ug1fj+xTPNtYjviuxX2Ld433y+05UYo+8ieLYi3JPqvOb
/FGcR9+H+hyL914dxKUUMJyVpDv2P6Z+tiw=
          "]]}}}], AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"v(m/s)\"", TraditionalForm], 
       FormBox["\"f(s/m)\"", TraditionalForm]}, 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 -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
       True}, PlotLabel -> FormBox["\"Oxigeno\"", TraditionalForm], 
     PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}],FormBox[
     FormBox[
      TemplateBox[{"\"T = 100K\"", "\"T = 1000K\"", "\"T = 10000K\""}, 
       "LineLegend", DisplayFunction -> (FormBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], TraditionalForm]& ), Editable -> True, 
       InterpretationFunction :> (RowBox[{"LineLegend", "[", 
          RowBox[{
            RowBox[{"{", 
              RowBox[{
                RowBox[{"Directive", "[", 
                  RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                  "]"}]}], "}"}], ",", 
            RowBox[{"{", 
              RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
            RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
            RowBox[{"LabelStyle", "\[Rule]", 
              RowBox[{"{", "}"}]}], ",", 
            RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
      TraditionalForm], TraditionalForm]},
   "Legended",
   DisplayFunction->(FormBox[
     GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}], TraditionalForm]& ),
   Editable->True,
   InterpretationFunction->(FormBox[
     RowBox[{"Legended", "(", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], ")"}], TraditionalForm]& )], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.733494653222871*^9, 3.733500329219508*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Guia de cu\[AAcute]ntica", "Subtitle",
 CellChangeTimes->{{3.735210449597213*^9, 3.735210453970581*^9}}],

Cell[CellGroupData[{

Cell["\<\
Comparaci\[OAcute]n entre Wien, Planck y Rayleigh-Jeans\
\>", "Section",
 CellChangeTimes->{{3.73521045881118*^9, 3.735210473348403*^9}}],

Cell[CellGroupData[{

Cell["\<\
Defino las tres densidades de energ\[IAcute]a\
\>", "Subsection",
 CellChangeTimes->{{3.73521297157143*^9, 3.7352129782564697`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Wien", "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "h", ",", "c", ",", "kB", ",", "T"}], "}"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "\[Pi]", "*", "h", "*", 
        RowBox[{"\[Nu]", "^", "3"}]}], ")"}], "/", 
      RowBox[{"c", "^", "3"}]}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "h"}], "*", 
        RowBox[{"\[Nu]", "/", 
         RowBox[{"(", 
          RowBox[{"kB", "*", "T"}], ")"}]}]}], ")"}]}]}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.7352104806387596`*^9, 3.7352104872399883`*^9}, {
   3.735210548316284*^9, 3.735210630548462*^9}, 3.7352107252931585`*^9, 
   3.735211401463043*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Nu]", ",", "h", ",", "c", ",", "kB", ",", "T"}], "}"}], 
   "\[Function]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"8", " ", "\[Pi]", " ", "h", " ", 
       SuperscriptBox["\[Nu]", "3"]}], ")"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"h", " ", "\[Nu]"}], 
        RowBox[{"kB", " ", "T"}]]}]]}], 
    SuperscriptBox["c", "3"]]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.7352105791301804`*^9, 3.7352105995983477`*^9}, 
   3.7352106313541746`*^9, 3.7352107254337845`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Planck", "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "h", ",", "c", ",", "kB", ",", "T"}], "}"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "\[Pi]", "*", "h", "*", 
        RowBox[{"\[Nu]", "^", "3"}]}], ")"}], "/", 
      RowBox[{"c", "^", "3"}]}], "*", 
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"h", "*", 
           RowBox[{"\[Nu]", "/", 
            RowBox[{"(", 
             RowBox[{"kB", "*", "T"}], ")"}]}]}], ")"}]}], "-", "1"}], 
       ")"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.735210636210812*^9, 3.7352106614258175`*^9}, 
   3.7352107225958414`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Nu]", ",", "h", ",", "c", ",", "kB", ",", "T"}], "}"}], 
   "\[Function]", 
   FractionBox[
    RowBox[{"8", " ", "\[Pi]", " ", "h", " ", 
     SuperscriptBox["\[Nu]", "3"]}], 
    RowBox[{
     SuperscriptBox["c", "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"h", " ", "\[Nu]"}], 
         RowBox[{"kB", " ", "T"}]]], "-", "1"}], ")"}]}]]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.7352106628296347`*^9, 3.735210723177986*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RayleighJeans", "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "h", ",", "c", ",", "kB", ",", "T"}], "}"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "\[Pi]", "*", "h", "*", 
        RowBox[{"\[Nu]", "^", "3"}]}], ")"}], "/", 
      RowBox[{"c", "^", "3"}]}], "*", "kB", "*", 
     RowBox[{"T", "/", 
      RowBox[{"(", 
       RowBox[{"h", "*", "\[Nu]"}], ")"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.735210666994748*^9, 3.7352106720866327`*^9}, {
  3.735210709432*^9, 3.735210740900235*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Nu]", ",", "h", ",", "c", ",", "kB", ",", "T"}], "}"}], 
   "\[Function]", 
   FractionBox[
    RowBox[{"kB", " ", "T", " ", 
     RowBox[{"(", 
      RowBox[{"8", " ", "\[Pi]", " ", "h", " ", 
       SuperscriptBox["\[Nu]", "3"]}], ")"}]}], 
    RowBox[{
     SuperscriptBox["c", "3"], " ", 
     RowBox[{"(", 
      RowBox[{"h", " ", "\[Nu]"}], ")"}]}]]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.7352107414102783`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Veamos la ley de Desplazamiento de Wien\
\>", "Subsubsection",
 CellChangeTimes->{{3.7352141542758427`*^9, 3.735214160782259*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"10", "^", 
        RowBox[{"(", "12", ")"}]}], 
       RowBox[{"Wien", "[", 
        RowBox[{
         RowBox[{"\[Nu]", "*", 
          RowBox[{"10", "^", 
           RowBox[{"(", "12", ")"}]}]}], ",", 
         RowBox[{"6.63", "*", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "34"}], ")"}]}]}], ",", 
         RowBox[{"3", "*", 
          RowBox[{"10", "^", "8"}]}], ",", 
         RowBox[{"1.4", "*", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "23"}], ")"}]}]}], ",", "T"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Nu]", ",", "0", ",", "1400"}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\[Nu] [THz]\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(u\), \(\[Nu]\)]\) [\!\(\*FractionBox[\(J\), \
\(\*SuperscriptBox[\(m\), \(3\)]\\\ THz\)]\)]\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1400"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.002"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", "\"\<Wien\>\"", "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "3000", ",", "6000"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7352139725842466`*^9, 3.735214030800783*^9}}],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`T$$ = 3475., Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{
        Hold[$CellContext`T$$], 3000, 6000}}, Typeset`size$$ = {
      435., {111., 116.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
      Typeset`skipInitDone$$ = True, $CellContext`T$97641$$ = 0}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       1, TraditionalForm, "Variables" :> {$CellContext`T$$ = 3000}, 
        "ControllerVariables" :> {
          Hold[$CellContext`T$$, $CellContext`T$97641$$, 0]}, 
        "OtherVariables" :> {
         Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
          Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
          Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
          Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
        Plot[{10^12 $CellContext`Wien[$CellContext`\[Nu] 10^12, 6.63 10^(-34),
              3 10^8, 1.4 10^(-23), $CellContext`T$$]}, {$CellContext`\[Nu], 
           0, 1400}, 
          AxesLabel -> {
           "\[Nu] [THz]", 
            "\!\(\*SubscriptBox[\(u\), \(\[Nu]\)]\) [\!\(\*FractionBox[\(J\), \
\(\*SuperscriptBox[\(m\), \(3\)]\\ THz\)]\)]"}, 
          PlotRange -> {{0, 1400}, {0, 0.002}}, PlotLegends -> {"Wien"}], 
        "Specifications" :> {{$CellContext`T$$, 3000, 6000}}, "Options" :> {},
         "DefaultOptions" :> {}],
       ImageSizeCache->{486., {157., 164.}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      SynchronousInitialization->True,
      UnsavedVariables:>{Typeset`initDone$$},
      UntrackedVariables:>{Typeset`size$$}], "Manipulate",
     Deployed->True,
     StripOnInput->False],
    TraditionalForm],
   Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.7352140209555917`*^9, 3.7352140313191476`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Veamos que pasa a una temperatura fija\
\>", "Subsection",
 CellChangeTimes->{{3.7352129900995655`*^9, 3.7352129966265893`*^9}}],

Cell[CellGroupData[{

Cell["Regimen cl\[AAcute]sico", "Subsubsection",
 CellChangeTimes->{{3.7352130059026594`*^9, 3.7352130481737986`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"(", "6", ")"}]}], 
      RowBox[{"Wien", "[", 
       RowBox[{
        RowBox[{"\[Nu]", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", "6", ")"}]}]}], ",", 
        RowBox[{"6.63", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "34"}], ")"}]}]}], ",", 
        RowBox[{"3", "*", 
         RowBox[{"10", "^", "8"}]}], ",", 
        RowBox[{"1.4", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "23"}], ")"}]}]}], ",", "5800"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"(", "6", ")"}]}], 
      RowBox[{"Planck", "[", 
       RowBox[{
        RowBox[{"\[Nu]", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", "6", ")"}]}]}], ",", 
        RowBox[{"6.63", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "34"}], ")"}]}]}], ",", 
        RowBox[{"3", "*", 
         RowBox[{"10", "^", "8"}]}], ",", 
        RowBox[{"1.4", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "23"}], ")"}]}]}], ",", "5800"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"(", "6", ")"}]}], 
      RowBox[{"RayleighJeans", "[", 
       RowBox[{
        RowBox[{"\[Nu]", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", "6", ")"}]}]}], ",", 
        RowBox[{"6.63", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "34"}], ")"}]}]}], ",", 
        RowBox[{"3", "*", 
         RowBox[{"10", "^", "8"}]}], ",", 
        RowBox[{"1.4", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "23"}], ")"}]}]}], ",", "5800"}], "]"}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\[Nu]", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Nu] [MHz]\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(u\), \(\[Nu]\)]\) [\!\(\*FractionBox[\(J\), \
\(\*SuperscriptBox[\(m\), \(3\)]\\\ MHz\)]\)]\>\""}], "}"}]}], 
   RowBox[{"(*", 
    RowBox[{",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1400"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.002"}], "}"}]}], "}"}]}]}], "*)"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Wien\>\"", ",", "\"\<Planck\>\"", ",", "\"\<Rayleigh-Jeans\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<T=5800K\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.735211062249832*^9, 3.7352113446743884`*^9}, {
  3.735211405728245*^9, 3.735211463261221*^9}, {3.735211509471485*^9, 
  3.73521179582219*^9}, {3.735211826707762*^9, 3.735212084537614*^9}, {
  3.73521211975454*^9, 3.735212155817228*^9}, {3.735212222178144*^9, 
  3.735212262446585*^9}, {3.735213052198599*^9, 3.7352135329462023`*^9}, {
  3.7352140487781706`*^9, 3.735214049222725*^9}}],

Cell[BoxData[
 FormBox[
  TemplateBox[{GraphicsBox[{{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAIo/9o54ewT4Lzvc++WZ/NbcIKR9t
aJ8/yYFzKhE9GDjBeK6kKGivPxgZH6FyPEg4xjBxZwZovz8mClFdIzx4OMiM
0kj1Z88/a6Bcu/s7qDjJOoO57GffP2481unnO9g4ypHbcehn7z+YUd7/3TsI
OUq9B07mZ/8/19NxCNk7ODnNDTYJBF0QQGEcKSj4a2s5Qo9FwKdPGEACWHlz
Z3uGOWUv+g0xDSBAYtofRkLimTlNKWXxFkckQJnT4E+DF6o5stR9dck4KECo
eeR9MTy2OTsSKq8EfyxAU5IPVVgawjln+5KdpVgwQHw9SxQHVss5b8bnM69N
MkCAt06mVjDTOYpaBiX9bDRA4WY/geGq2jljx3tmMWg2QJwxwx8zmuE5wQcZ
UWtZOECNrV2hiJbmOTERgJbpdDpAjlsA8qL57Dlg8z0sTmw8QKOy9rbF9vE5
oZ7FHPeNPkAucroC51D2ObOOOtvSUkBAh0WkNdo4+zl0uj1QnUxBQHCagKxe
MwA6v8ql8olbQkC/GftkClwDOmlHOb1pWENAef6gnOOnBjqcqDG1a2pEQOa9
d3bToAo6kfO9gXB3RUAizvEZlfQOOuaqdXZockZAQUil3FCyETrERpKYgoJH
QDHJKwnTVBQ6AU/a4o+ASECHTX8MJwQXOgBBtgGgeUlAFjmzz0PeGTqIF/dN
0odKQM4pjYLvNx06cFpjwveDS0D6eAxyKUwgOuGBNGQ/lUxA2nv0fdZEIjoU
k5naiaFNQKZVceddWiQ6phAqecebTkC40dHaOG8mOsFyH0Unq09AGisZDNbY
KDqeIKAcPVRQQPOw2bPuPys6vXz6AGjQUEDKnXYkNcAtOiFLB/wjV1FA96in
AQNRMDq0zymL2dRRQH0e4pUDvjE6jMb+MCBdUkBByFqyD2EzOpNz6Wpg3FJA
hX0Hx+z+NDp8FR4PIllTQDc/JdJqqjY6qSkFynTgU0B/30t4G5M4Ogb0ARnB
XlRADvFjo0ZzOjqnMLF+nudUQDpsKqWKljw6KWKqTv1tVUDS11K3xMs+OttJ
ubJV61VA96R010x6QDrSo3otP3NWQIUrVlZMtEE6+LNRPCLyVkBwIvE0KudC
Ov+4crWGbldAieat2iUhRDpLMEZFfPVXQOFFLovZhEU6x10vaWtzWECG7mIC
Md9GOhJjaLuddVhAuK5klVvlRjpeaKEN0HdYQOmJBkSH60Y69nITsjR8WEBf
c5D04fdGOiSI9/r9hFhAGkGGpaQQRzqAsr+MkJZYQBw9Q11fQkc6OgdQsLW5
WEDVX07WqqZHOoYMiQLou1hA6gKtDvmsRzrREcJUGr5YQLXR2mVIs0c6aBw0
+X7CWECC1Alx6r9HOpcxGEJIy1hAqZ1+/TvZRzr0W+DT2txYQCqzDAUVDEg6
QGEZJg3fWEBbkE42dRJIOotmUng/4VhAliH3h9YYSDoiccQcpOVYQGFC4oyc
JUg6UYaoZW3uWEDVq+kfNj9IOpyL4bef8FhAMVgqV59FSDrokBoK0vJYQNR8
na8JTEg6gJuMrjb3WEDvEIHE4VhIOsygxQBp+VhAcnEkgU9fSDoXpv5Sm/tY
QEosYF++ZUg6Yqs3pc39WEABuk1fLmxIOq6wcPf//1hAHJMGgZ9ySDo4kSGe

         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        LineBox[CompressedData["
1:eJwVxXk01AkcAHAklm0qlGOSHG3RqrDerOYbv2/KkWPMDMMPj0LMOKYc4xhk
XWmYXyirtHLlSHrRal21WL2M0CFqX9Hb0ntb7HppqSamYXf/+LyPWfgJbqSa
ioqK93/+37xEWV9tMuB0NoBVPjca5ND1ldU2oaCGUKcXsl5I9JkDaa0NloI2
or5/Yk26hMGU2STwNQT9hPigsshd4s+8R427f+Q/Ii7zE81tJCnMYWZezxz/
JRG36PTcQnKeOXJ2KmGGP0+UrFi3bJV0Mj16NVlv+KtEhN70Bbrkd+YDGkNL
PWQjegTmExmpn5nOJS6/XfExxGOOOox7Kl9D5N5lmi3NFDuLLDaskxqAt1Xk
P/pu2/HW3hXi0LA5tD85mTzsYInXwtLV9R7uAtDd1ab+gzWGE6M9Dyk74CvO
VTWSNqie2xUUF+MAJ2Rvv2vztkPeH4rie5ecoChI4xtlnD1W7NnyqW/DQYgY
yoiyFTDQI0UuZL93hQFNI05soAPOP2w2OqnvCbY62ednRUy0OJxdM7jsA0cX
Ha1Zcfsx1STtV7GIC3XVg8byM044183gXvblwc1i5tQ4F1GmO6vQCiRBdMuR
XeV1AOmEaYWYDIb+kcaFwmBnTDiQM2g7GgrRbvt6o8mDKPJLHrMxCoNLzbYd
sTGHcMBgiP5BOwLOLvbmxKe64I6222U9tEh405KcIkh0xaEvDZ7EWj7cdT1X
kZvrhlaONxzPYTSo+ky+Lsl2x/E1dXqTwlhQOdCpWis+jGo7zMLPNAlBYiD3
Hj/tgTfrIwxcN8VDfFDEHXmeJ9Y+21n6o2cCTOfYHyPKvXDZWtkxcjURNpVd
nCys80Zf7a6AsvUiaNq4SzxUycLRuf2756OSYSBxm8vOaz7oHb6lXnU2BapN
a40d/dg4zTesdg5Jg97MZRXBGBtzxbIur6diMPPU/GIRwEEnWVXFiDgDfnlk
JX3+hIOz7/dRD2gngZKt2JiGcNF5S2tF/lgWlCXNxhx9wUXHuiLGdcyGzM0m
G8wDfTE0qzEjhZ4DV63Wjohe+SLt2f3lpXW5oPFB1Wgg1A9TfPrKGR9z4YrN
z1nVb/3wTMO30yx5HliFt7CUQh56acwb2CvyYepwTzvvbx4+vd7+OmnxFIzX
p+8mkvxxVeglkmuchs83OfvNF/yxqG980Xy9BFa7EzsKjgcguzJPt3NzIXja
uLpkfgzAn6bZlnP7imAoZG90bBKJLZysSRFbCroRgttVySR2h26NC+FJIVRQ
RxtLJbF8/uJx1yApfErUa7fPJFGwoC0zOiaF7RL5sjKfxFPHS/sHU6WQ3d5P
lZ4n0TL39ZRdjRSYmuwbHT0kakQN3wp7J4WCdYVqM7dJpE8ZCshFKTzWueNH
7yNxacKlwOezFATG9ktZd0g04jhsJtQouGBr6Ow+SqJZZOhJC30KPgS/mph8
QSKhtEtVdaIAw4x20F6SyGsKslt1pkAaxU0jpkncM3EkVOlGgXnCXeOGP0lk
datpKTgUcAqaI4XvSBQLC5sVkRRckk531bwnUWlb9deXGApmSuna4wsk+qcX
V62coCC7kmplyElUuM3w1qRTcL92UCV6icQhw8RgjR8oMGha4VYqSDwifP5Y
K5+C8GvfNz5QkihzMemhFVLQeiNevrpK4oTbNh3dYgr+BZksJ4Y=
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        LineBox[CompressedData["
1:eJwVyXk4lAkcwHE8omQUOYfKUDY9toYkzS/ml2MQwxjUi4eKMK51zThyhIrh
fcvV+dQwrdK10VJKHolylyv1lOwT+3TwbNvhaOSabf/4Pp8/voyQOH6YkoKC
Avdn/2tStFhZvq7Fvn2g/flAR4DtveXm62MFFezUOh3aiFiX1ZJafXmToIa9
M+ZjV5rYhtXOTIhQETSztaXSa67ivaxOatB1JqKP/dpLU58pTmZ1sY42fIp4
y95+q7fPVHyG1V3yJmE84gt7t6T65lpxPWtPk6rnhwg5W/K+/Dxd/JL1jGaz
QjloNdqTNzjpKbMshyLnR1e99LH38EHsVFgJYVvnaJY0Y7xVoG6kTuoB1zzs
m67LBhza2ubh1GUCtUOZoi7bTagYIqSv6d0MoLW5RvmIBc4zent6KSuImC+V
XCGYqNI6LYqJsoW49o/barhW+Gj7wp3Oi/ZQGKCycTHGGv/91ri6eZUjhHak
h1sKbNDM06aE95UDLaoG3tH+tiix1XLJ1HUHS83sMxNCFu7Pq3jdNucFB6bs
LDxjdqFvo2g0TciHS+VtRrIT9qjHmMn63ccP6k6y3gzyEWVdO6zU/AkQPrDj
STx2o6vH0qs0IhCau69MFgQ6YKfpCy2rnmCIdNnZFEk4YlFl/SLT4CBcvGZ5
NzrKCUfVGbxptVAomWrKiU9xxgmLxoEGWhh8uCFKFiRy8HtDUil7WQQ84ZSe
y811QZ0UzaJSjARFr+G/i7Jd8b5da9xwbDQo7K5XlKa5oeE02XWiKhbEejLu
YP4epDu98+Zox0N8QGir7Kg7GtUcGjjlngBjOdaH2Kc90KJEW959PRG0y84P
F1ziovEWi+tlGkKoWr05reOCJ0rDZXlfwkXQkrje+ZebXqj3MF9FaSIZyo2l
Rna+PCx+ZbjSMSgVmjLmFAT9PHy5cG8L90UaMNxVF0z3eeNVvpZhT1o63Okz
J18PeWNNOdB7aZlAtS8xjYP4qKn7ZNvx/iwoS5qIOjDCx3BPsvAWZkOGzrpV
Jv4+qEFwXybTc+C6+bJu4agPvvI3C5pTzwWVaUWDlmBfrPrrlNxmJheuMv/M
Kv/oi857sn28ZEfBPOSG52KsH96JX1tmPX8M3rg11Pr944cPlDLDhVPHYbDy
8K/spL1Y7DquOKuSD7N13rtMJvciI2mp0FRDDPL7iXfzftuHPW5n6+p1CsCd
yXHOmNmHp3wzhj7tLISOoK2R0UkELq1ILhHxSNAKFTRKRAT6f0bTYD8SggWX
aP0pBMYFTmx0CSDhe+KaWusMAjv7BjPph0jYIJbNLR4j0JCxPLU9hYTs2maq
+AyBIeELp7dVkMBS5d2+20BgTvrK1JDPJOSpFyiNNxI4nZy/0X+KhAHNVl/6
QwIZ86OOvFkSBEbWP7JaCbwssXjOVqLgrKW+g2sPgXx3s10bdCmYDhx9PjxC
IM+tcoeSPQV40MCM9vbn75dNyh0oIMP5qewxApePmq9fcqHAJOGJ0eX3BErP
m3XPe1PgnXctLPYzgVmi3KiFMAoukmP3Kr4SaO/w+I/FKArGi+lqg5MENp8d
2y+PoyD7AlVtIyPw3Ui9vvJhCp5K2xQifxBY+DR2neoRCvSqlvgX5gmccFI6
rXaMgpCbO648WyRQmSPM0CigoPp2vEwuJ/BF3+MhrZMU/AfXIClD
         "]]}}, {}}, 
     AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> 
     True, AxesLabel -> {
       FormBox["\"\[Nu] [MHz]\"", TraditionalForm], 
       FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(u\\), \\(\[Nu]\\)]\\) \
[\\!\\(\\*FractionBox[\\(J\\), \\(\\*SuperscriptBox[\\(m\\), \\(3\\)]\\\\ MHz\
\\)]\\)]\"", TraditionalForm]}, AxesOrigin -> {0, 0}, Method -> {}, PlotLabel -> 
     FormBox["\"T=5800K\"", TraditionalForm], 
     PlotRange -> {{0, 100}, {0., 7.55843890546239*^-22}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {
       Scaled[0.02], 
       Scaled[0.02]}],FormBox[
     TemplateBox[{"\"Wien\"", "\"Planck\"", "\"Rayleigh-Jeans\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.67, 0.6, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.67, 0.6, 0.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.9060679774997897, 0.6, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.9060679774997897, 0.6, 0.6]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.1421359549995791, 0.6, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.1421359549995791, 0.6, 0.6]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), Editable -> True, 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{"Hue", "[", 
                   RowBox[{"0.67`", ",", "0.6`", ",", "0.6`"}], "]"}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{"Hue", "[", 
                   RowBox[{"0.9060679774997897`", ",", "0.6`", ",", "0.6`"}], 
                   "]"}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{"Hue", "[", 
                   RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], 
                   "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     TraditionalForm]},
   "Legended",
   DisplayFunction->(FormBox[
     GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}], TraditionalForm]& ),
   Editable->True,
   InterpretationFunction->(FormBox[
     RowBox[{"Legended", "(", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], ")"}], TraditionalForm]& )], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.7352133996420336`*^9, 3.7352135335246086`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Catastrofe ultravioleta", "Subsubsection",
 CellChangeTimes->{{3.7352130059026594`*^9, 3.7352130201559687`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"(", "12", ")"}]}], 
      RowBox[{"Wien", "[", 
       RowBox[{
        RowBox[{"\[Nu]", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", "12", ")"}]}]}], ",", 
        RowBox[{"6.63", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "34"}], ")"}]}]}], ",", 
        RowBox[{"3", "*", 
         RowBox[{"10", "^", "8"}]}], ",", 
        RowBox[{"1.4", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "23"}], ")"}]}]}], ",", "5800"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"(", "12", ")"}]}], 
      RowBox[{"Planck", "[", 
       RowBox[{
        RowBox[{"\[Nu]", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", "12", ")"}]}]}], ",", 
        RowBox[{"6.63", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "34"}], ")"}]}]}], ",", 
        RowBox[{"3", "*", 
         RowBox[{"10", "^", "8"}]}], ",", 
        RowBox[{"1.4", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "23"}], ")"}]}]}], ",", "5800"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"(", "12", ")"}]}], 
      RowBox[{"RayleighJeans", "[", 
       RowBox[{
        RowBox[{"\[Nu]", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", "12", ")"}]}]}], ",", 
        RowBox[{"6.63", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "34"}], ")"}]}]}], ",", 
        RowBox[{"3", "*", 
         RowBox[{"10", "^", "8"}]}], ",", 
        RowBox[{"1.4", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "23"}], ")"}]}]}], ",", "5800"}], "]"}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\[Nu]", ",", "0", ",", "1400"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Nu] [THz]\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(u\), \(\[Nu]\)]\) [\!\(\*FractionBox[\(J\), \
\(\*SuperscriptBox[\(m\), \(3\)]\\\ THz\)]\)]\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1400"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.002"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Wien\>\"", ",", "\"\<Planck\>\"", ",", "\"\<Rayleigh-Jeans\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<T=5800K\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.735211062249832*^9, 3.7352113446743884`*^9}, {
  3.735211405728245*^9, 3.735211463261221*^9}, {3.735211509471485*^9, 
  3.73521179582219*^9}, {3.735211826707762*^9, 3.735212084537614*^9}, {
  3.73521211975454*^9, 3.735212155817228*^9}, {3.735212222178144*^9, 
  3.735212262446585*^9}, {3.735214054578786*^9, 3.735214107392346*^9}}],

Cell[BoxData[
 FormBox[
  TemplateBox[{GraphicsBox[{{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        LineBox[CompressedData["
1:eJwV1nc8V98fB3CEZFMhycrIKqQy73nLiLKyPjelUkYk87OMZI9Iik8pIhEZ
lTIq5EuEjDIS2VmhSJEy4nd/f93H83Hv45x7znm/3vdKnfO2dmFhYmIyZmZi
+v81uGI1g/H7H6YSnnW+3lVN5/5Xg6AzQf3oElO28lJ9s15+vkjS7qBvyOu5
+cyxohW92qdHnh1LX0TJo8Kn2C4JYY85I+6yBa2iwXIJOxSsiLWpD9cOKzPD
U3vDCpEGLcxgJLhcN50VGgt36NarGmOvrokW3uHigI7essl7icexfTovM5cC
uYCl6jkpf5cDljtll2IzwwtHjg7J/Yo+h/G2BBj2KgtA0SvXa1Y27ti7rKbq
6HFBOOx/uiKuxQeLpAtrHUjfBlET6+yXKigYsnQtGbMRAnPqa4WzMUHYimyZ
yk0uEaicX+dOlQrDytY2PYK6HXAg6u8TjY1IzKfLWvpH4E7oluexLHKOw5QK
stLvqe+C0u7xNDaHRGwydF7IbEYcmgWyF5IXbmDthZkm/6wkwcJU9sXsFga2
V7gx6qOyFJwfiWkf90/FEsLn3hRySMOI1EIpdiAdm57dzhQxLg06/20M9O65
j+XUOweqpctA5Q/3Xs3uHIxFNeEFB10WuJwNKPPUPOxMWsnisI0ckGkfuEnm
BVgVe7/ai33ysNnq3oa0w2NM1I/FO5FrD1jfn30TZlmM0QcVily+7oHZy4Jn
23mfY59Mjk/r1inAy6Ad423fSrAbEvfPfwtUApbafDI7y0ts7mrj/Tf2ymA0
9MumQ7cCM1uaG7yjrkKcx+gHj9QqjKNNDzeZ2QvLA/OC4X01mKumC0OiYR8I
CBSHVOm8wUaPG7uvWqmCp9MOrOtJHYZeX8rtVFaD7/ip7r8tDdicH7NR9V01
CFWuQGXUJix9D2Msn0MdvlTSFPM1mrGV5CrJsHF1OIdavMO+tWFlHlxp+9I1
oNFPebJDrgtzlszU2sl5AHK2Hc65aP4RE/yk3stOPwDd4xJ+PSHdmI++w/Yh
m4PQWZd88TlLLybxZ7bkXe1BMIy55+Zq9xl7XxRmXbbvENBm+oSpJX2Ykkj+
9QQuTQic676qeHMQ62vT3UsP0ATf/arJvFuHsdiI9tbzXzUh756q96TlCDY5
92eLTp0W8McHlObNfcGy3hpHTgfqQN8t3j/1lAnMLLNcaNsvHRDWdRh5FzSJ
LdHl8jF3XZhi+2hpGvcVM1Nmf59M0oO4758uL1VMY0s33wpjGggufDZeyw+c
w7I8DxRcKEQw+6/wn2z1D0wu2zrDVADg2FbngsbIeaw9+I0qORbARbdhVmXg
Jyan+sDuHVUfgiKaF25ULmJrYn0Zp5/rg/Vjh4CCy7+xji2CUwuz+rCU1HR/
0mAJCx4LCxR3OQz3nlf3Dwz8wTpuOWX62xjAGNTTdfVXseB/ktO7VI1A+Yll
c/xFZmQ9g6uXXDQC43X1podzzEi+JynIJM8I9C69YpnzZ0GdxUy8/uLGkKTJ
ksgTtQnJO4+oN3EfgbBnQ3eza9lQZ3NmsN+0CfC/9rnckMOJ8l70vN0sawqL
iQGZ0se4UHAOH9+9s6awLeZ2QvkCF5IPuZLV2GMKtAXd2ahjPChY7UyDWMNR
mE9x0h/h5EfyqeL8jQ/MYDDhYJ0a51b0nFXyqnufGbjJvzU7cWEr0vWVYuUW
NAfxOyttlMatyOqozF+rMHNgiKqdS4jdhuhrCiN9ZywgHokEyQoJIZdiUZzG
awX1e8hquad3oBfb5PbEtxyHf6en+kOtJNFas5zLqa/HQf0O90n3REl0OEz+
gcoma/BYddhR1yqJWmf3iLVrW0PUy+yypqNSaKRBiX97gTX035Zv5jeTRhwB
an8zYm3gXPa7SvXzMshhULfpuZEdzKU3+3qN7EGqtZdt/561A4MttePSigpo
88PqEb1gO+i6xeF/gKyASj1huem5HSQP09r9tiginjUDxWEJe2hNTPyONJVQ
jeixBK4Ve7BiY0FFuSpIDj9h5fwEh+YTB27TndTQz05K73bhUxDkfojb+ftB
JBOpuVWj2gk6TatPyModRrtE3xsXq7nAyOda/aRiE7T0wXCHzI8LYNe5j0n6
siW6VbuX/+O/CyCybm4Rf8sSHSwR2RzJ7Q5pz76ZTD21RNRb3xfHFNzhTtfy
WPCoJVo6ldKe7ewOqZlZvDG7rdDS9FjM7j53cBlzNBqKJrwpYkn6rQdklSZ/
wE2Ooz+Haruk0jyB5UBGr3OpNYqMGxTqfuQJgkGl0xHV1kiwf/lEbLknJOcc
SUlrskbKIeojcx2eECnRnlk6YI3O1md/r+S4BBsaTMsJrDao2SqazZ56CZL2
Ocp3WtugDPdjh64e94K3T+V+JEzbIKVKt0C9M14QlV8TW/bLBr3kjnw97+kF
VbxTsp9WbVDX0yoDUqwXnBR6fHKDxxZxLKlYyfznBV+6r5r/VLNFfuH87tXK
3mCykqtpRbdF2W0e5subfEBw9Kva+LotKnh5cMiVyweu3Q+RKN9sh4qzWbw/
CvqAL1n7YAi/HaoKuJv0VMoHdMsfdc1L2aFPss1dLsgHZsySws4Y2iGOEAWH
zkAf4B4ppJ6NsUNee6dcC3/6wC/OLdajbPaIvKP0j8gyMV/RwxUyjz0KYg2N
jWbyBa2Rjmv/ttmj2D7hAic+Xwgx+eQ9v9seZUUfmRVW8YVWt+Atjvr26ONQ
rn/kBV/4tH9xySrQHmlfdwl1HPaF8Kqc6Kxxe3So4OgLs0livLsO8VEz9kjj
7b45nVlf4HnMUXN23h7tXV0+KbrqC1LeapVrq/ZI2i3xUI+QH7j9GdjcIkhC
W9CLOSsLPzDQVkiqxUiod47D0fC1H1D2jFaLJZFQ95a55P31fmAcrm0+lUJC
nTJdzdItfiBqfFux8A4JtTrc02T+7AfvnS16hbJJqKZBbVv1oh/kswwrRpeR
0KMMh5ZDyv6wk8V/V0MvCdEsirSU0vzh6g1BxV4RHPWSnSL/ZPlDu3CibYgY
jrTThD7UPfIH2gfWM2KSOFr7Gup8qtwftLzvi4E8jsLD7K5f6/CHO5e/0+UO
4CihdH38x2YyfO1zrPCxxNFsX8m+Kl4yRGr0/mZY48iC2T0wdjsZJjwfHyyx
w5GARRef1G4yjGymdHafxNGtr3na1hgZegTGX1W64ei+6PGkUjIZ2P0dk7lD
cMSsz94fGkSGnc7rJ0tCcXTOrVLWPJwMe7aTbK0jcCRbKls5cZ0M8i1uw/RY
HBWYr0wIFZLB/GTEkws3cVQamq0T8IUMXp1XKrpzcLQ9D482miLuT3D1MuXh
iNrG0yHwgwy41k5bmXwcaYnSXQvWyPApnpVs+xhH1SVmN/qFKVCxnJF/ogxH
7yZ/T+pZUOBJvNjjlToceXyYksywo0BMyrXajrc44n7Z77B+igKo2lTofiOx
/rja99UXKfBrjXxDugVHnUrXylEcBSKO2Br914Ej/22h85lJFCAdqui06sLR
tn9+ikypFOD7Hfnm80cc2b/HM2pyKdDDX9DX0YOjPh+ZaP16Cuy9/c7t5CCO
gk4I12S1UKCN5334oyEciR3mXGHuosC9rW67Z4dxdHrr/KU3XygwTdLd7DiK
o43V0TzpaQoUqVFsYseI/R7v/hI+TwGTSp1DheM4Gi2rtDPYoMCGF6OnZxJH
ERlPrmezUyGs2eDel684konJereJlwqk3eXcY1M4csVj9OrFqND01Gi1dQZH
MyvWskbaVEik+qTqzeEofszozEN9KshIRqmw/cCRcqvmHTZTKiTtp92oJ+x1
T5yngUQFDfXaXsWfOOKLFjgid4YKPiKxbzsIF3uxhkW7UoH3KGeKzy8c/UIz
i8YUwrn604wFHCXvGdybF0xY5kqA2CKONATaL2yOpEJmaOz6XcLdy28euMVT
oSFU4bLAb+K8R8sGGm9S4dqo6soVwsItj4T23KWCgI1P4CThlyVpVrFZVHjl
XMVitISjE+mJV6ceUcE96vvtNMIrkWH1JsVUqFjsw2YIp10irz96QQX7Cuc1
1T840rV309zyHxV00t27vQkPYg5+7g1U0N3e+j6XcIi8edG7NiqYHPOd7SYs
wQ+TCt1UYGbXP/iPcM1fdcmrA1TQeij7ROwvjpy+yDrMjFEhUJjbQYMwS7NI
ytFvVMhrH8MMCWc/53pf8IsKuTUZTmaEDdPWN3OtUIHjqFrj/z0R8VP/IjMN
3mneJBsRjvYcD2rhoIHoqwqvg4Tl7XrKlPhpoGaRWyFBuEmv+Ue8MA3k3lk7
MhN2l3ut8F2cBr2o5mQ/8X6cfMXnzeRo8GPTz4rHhB/IVxnsVaGBvuIls2DC
WtC0m1+DBnpi0QaGhNvxj5t+adNgo9g6h43wBd+RsS59GnTaf/OrIfaP6er3
ujITGkxye5SQCac++Jt925KY33HGXZpwYxe/80lHGjhFuph6EOdz+ruYoZ4z
DbbNZgSyEl5iVZCRuEgD7c0k9VTivOUO6o+P0mmw53C7URFRH9UW5vX1V2gw
Ytufr0zYzu1ETm40DZbm/+bkEvUUmerr7JFCg7NevL4xRL2JPbtsaJZGg/Nf
HI7OzeOo5F2czN4HNLD5fa7FgvDoStb4z6c0WB871b1G1Hfg1if1XeU0wPY/
dj1KWFC5IqfsNQ3qmKjFN2ZxpO/Y6RzQQoN7NdohPN+JfksZMjzZSYMuqwzO
w99w5JM4I6P3mQZF103P+hD5uf8fywTTVxpo7LSmVxD5Wpfa7xLLQgctJacO
1gmiX2ojI48tdFB2UxXnIPKqYnNM1oyfDns3CduzEXk+FXl+gk+cDh+HdqfO
juCocjLZ5bYWHZ4O6w1QBnBkvZFpFAB0yAuv+2vST+RVuEj25BE6aH64IC3U
hyNR0/oJcTs6yLDJPskg+g29cNEl14cO2vu5Jdw7ccRfz2QcS6PDGxN1MR6i
f+UNcMt5hNDh/LEnJoUfcPSJR3ZSJYEO8g/fw6dWHB3wsXMty6ND1oN+2a8N
RH41yl3rh+gQU7MR9fcVjpr5mA5qTxLr+2lwWuwljrJmTNmKZ+lAksl7rlWO
I6v7g9lpa3SYLn8zcfY5jh5zsX3xEw0Alct7+M4VEPU0anNSyj4AXt05gGnc
wRG8vqd42zEARj+sXfx1i8h36tdlbpcA2CbTf6kgBUcN5kGpf/0DgBoxuIkj
CUe7Xz3o/nAjAOrnfgsGRuNo6PpPy5A24nnjhgTMD0flHjoSix8DoCq67Hq6
N46uGUXNuQ8EQOjmvOpFTyLvqyLX7L4FAHtUaHky8f264wrNylsCIc42LC/h
FI5s9a4b9hsGwluVW7i3EbHeGWUtzapA2GhblRbfiiP2DmOx+LpA8HHFO/r5
cHT4xdmNweZAEBNMj0vhxtGriJS3EZ8DwXVZV/kPG44eia0d/7BEjB/p0RT2
l4SiLFo8XNWCgN9Uqq14gITguXt6Sm4Q2JTGWt3JIqHygNyN+aRg+He+UKZA
nISmrn+OfXs7GB7eelOXLkpCorncgnczgiGH3CeTIERCVzr9ZAyKgqFs7yVd
J14SMlFCpozGYNiIoStP/LNH/QM9N7XWg+EG5zlX0oA9YoItcuEXLxP/8zyP
Nm7ZI1N2T7OtxiFwUWtvngqrPXIVOF4qwh8KLumpHlV5tihI/GbUqdlQ6Obv
XVYytUGx/vGY+GAYRB96qGPw33EkcSDaN7wpHGzZpwRTtaxQ3O9ct505EdCY
luG6kWuOvv27YqR+MxJ83nvnvHtxFEmyXZm87BMF/er53pY7TdAw/Qqz59Fo
6NotP9lSbIRuaWiy9h6MgSHW7a1HkQGS+iHUTN8aC2pW4iPuMvoo5+dj2m2W
ODB3oqT+2ImhZ2eNM/HZOOie09N55qKNbrxnvWrRdBVUo0sFuIwOIffIoFNv
yuKhmIWVr1xLA23TEvnlkZwAWoMc+14Uq6GjDuXM5Z7XYPCxoFT3z72IVse9
HIInQvHtVebGJ4qIrhRXEqxxHZx6H+VOq8ijV7NDisECSbC9lcdk1+fdSMIo
wfFjaBLse3b+aZuUFGqx1m77N5sEdEl7l9Y7u5B/ZL2qq/MNWJD7PLK0fweK
LPvye6rzBmSa4YLMudvRDc7+JwVHb0K2t+bJCWtBNLa9O0ev5ia06TQO/ubh
Q5mS59ZmVJLB7zjV/WcSJyJZthzpyUkGdssXObrO7Ih+uXFxcGsKsFtwndbi
24SGneqHykJT4M5thZ58YEKHPe5VtS6lAMcJK2Mji1WM12/L2j9nBnhL2YTv
U/mDFduvbppxZcC21jyKitgfzFpnluvTBQakB1HtDnH9wW6xdux84skA8wfq
lV7TS5jE7VSd02QGFFLWDS/mLmGqVfJB1REM2ML25nqK9BJmw268EvKAAYen
Xw777f6NLc0cYrmYw4Bj4zaJw1t/Y6kfFDhJuQxIyEo7RGL9jQ2k8ojuK2AA
O0Xa0W1iEXNW6tYafsYAqZ5UBc5HixjVyjkA1TLgM3N5uM2+RUzkgH2YUh0D
woXsL3tKLmIVO0zihN8ywCb+FFOSwCK2Pqp050cTA6yK7kcsLSxgMZSFl5nt
DNheylsFrxYwRYeJmvhOBlSvtR58XLCAtWI9TbSPDEg84sYik76A8XNU9lr2
MqDIoMJH9coC9vx70YhOHzH+1TdsDT4LmG1HxpT8AAMuLhu1u5xbwJbKkua3
DjFg9wvqOz7bBSz1bvjfjWEGkDnjZ+qMFrD/AXT3b3w=
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        LineBox[CompressedData["
1:eJwV13c8le8bB3AkWZXshBARskfWc19WRsgI5zwoCpllnHPMZCflG3IklE1p
IlTKSpFIRiWyJSlRZkb9nt9f9+v9uv+5Xvfnuq7n9YifPGvrwcTAwHCAkYHh
/2fk0/Wb9KVNLMimnP9lW5pu/lfDiBMRg0j9uqVm2Kgldvu2YOq+iO9If5vI
9H89/ljTA5OKI7mLCMrIr7vqo7F77HHZWyPW0fcWY6Hk2hSsU2WkaUSeEdTo
Ucwz8tcww9HIGt1cZriJ9M/J38rHnqQI3bnOwQq54hbv2gtKMUWdx3nL4RwQ
lDeVwR17Dyudts+wm9kBNSVV6RNFldiON2FG/fK7oFI2zOrDag32uqCtPnGS
G0Yi6r4bNtRh8aECWuq5vLAp6ZtrEtGIoaOeVRN2/MA1Zli5/egLbE2q+mA6
hyC8Or3ytwR/hQX02krMhe+BH82CFnyCnZhceUHuDRURoGibeN5yf4dNRc/z
W8yIgqTqctNVUg+mINCa0CcvDk2UW32P0z5gl2N/Nt9hlYDA3/jlkg/92LdZ
Poa4SQlYSBoeNdYYxIpb3MOVcyXBIsBIPV5iFGNSulzLGioFixfDlObCxrAT
OVWLI3b7QfAFue708DgmFMR09j8OGQjYW/1S/e0XLG1v/qnv4XLwqjFUXcPk
B/YzuTW/2UEelmXOjm8y/8Qsln8OXVc5CMPtQ+O6XXMYa6ceyXRGAV5wKNr6
tvzC0HP/0h55ZRBOXxLSbl3CfgYxGtdnK8N9VaOc1Q/LWK4MfeI2qwp0812T
vv1jBVu7+kwsZlIFGpI9tj07sIZV+3DkKOaqgf3DlVt3vv3F3MXytPawq0Oc
iGv6Xx4GxP1BpZ8lVB1Cv+ubbFQzoAB9nG/YTgPMt5Nb3ZmYkJzg7SuXOQ7B
77014meeMaOCl4fjv4XrAP+vAO7LFezIIq+Gn/e3DiRWDRcJpnCg5dD9tzFv
XZi6M1tT6suJLORZ3l511AP35xOlFco70HL6SwFMDYGExvE66jwX2q9UaP+a
pg+FnGWHCyZ4UeSm2DcRJWPIlz7lFdYqgmxnSCpVvsbwlqYgqeMqiqQ/pkaY
lhlD9d/L12XXRFHPQ4YdwaKHIceH369FUAxJu4+qtHGawBX1dZ5/DuKopz0v
MuibKQheC3P7OLsPSWeJcrUWWkCUsJxxb+QBVMksluw9YAEp74dUMnoPIN1A
cWZObkuoLHbieCwri6zNJVetYyzBwVd0XHJAFoVuHBgdOGEFYQ+c+cP15JHH
QyFSyA5ryDTVSrLgU0S1vPtlLr2xAXL6vYUXMSoIH9JtqzS2B1sH1/VDHw6h
Xz3Ufj4BZzAf9DqXx2+IJOMP8ajVu0F/pfnt6SBzJCL09vBDZQ8QTtrdezzU
Gi0uCvCXggf0b2R8a06wRh1dbl9yjnqAV22NgdhVaxSesBR3wd8D3leQ0l/d
s0b988JNx297AGNGXEzjuDXKaPXV2S7uCUNKQdWuR2wQO5VNyYfrNLR9ntLa
KWCLlruMdkvOeYFEys6vZpl2KLNJgatv0wuqpavHYwrskEaV4LZ4Tm/ovGLs
WnHXDtEyfyxOHPCGoLaE9uVmO7TsnPGuyN0b3rHGNQrNEf42cWHfgDds/v54
udn4GFreErcs8dIH9G/VXzn74xjKXPKb7en1AdmA/l8py8eQxleHydhxH9CZ
TtQrYrBHtHbZnvF/PtCw4BZbyWuPllN77hVq+4JMAAk/pUtYRMJD4qEvaHb5
q3Ak26MVzaZe8Rw/mHuy5amLqAOKvzjE//6WH9C3lwo82e+AuAf/kJNq/KCA
V0eLU9EByUepjP7s9oOAN9JN15EDcm0p+lHH6g+/H0U8snF1QO3WiVsdaP7w
ujmhXTXfAd30PqKZbHMGVopWrtbudkRydafD9U6cgWn75Tus4o7oMWf883m/
M+AfjFxtZBxR74Nnho5JZyDp5Wr2aw1HxLp80Fqy4QwoN7w0sbdzREGxXN71
8meh04F156dkR1TU6WP5Z0sA+NJ4A1IXHFH5Y41hT44AGBrMBac1R/SwiOls
H3cAjDQ1ywkzktCzsOzUB+IB0PzRxi56Bwl9kGrv9UABEHsoeaFbhoRYow7g
PeEBEHcXVrOdSOiMwrTnnV8BoMCl8ef1ExKi7H60IvgnAMwYLM+TG0gogjk6
KZEhEPg+7tIbaSGhpAGBcredgWCBMjw6u0ioINFkVuBgIBxJ6KarfSGhvuHS
4HivQGCPIk0r7iAj7Sse0S4jgZC4nTvrK4mMNMvNay2mAiGedfzdijMZqb1U
/KkzGwgGnLZP/rmSkcL6Hyeh9UBIpi3nL3uRkcTp/zQ/8gfBW5eHW2JCyYgN
1f60tgqCserkGbZMMmLBc6XAPgiQ3G3ezOtkxESNcVZ0DoIXKoZcQjfIaKP8
SPt2nyDYqsKZwFZMRvP8oyXtCUHQfHy6JLGCjPp/sroYPQ+CWjJ9cL2djN6z
/byq2hIEZROMWixvyahHsrdd4k0QNEQl/sfaTUYd+I1DjJ+CQJxTSH7pAxk1
vlLmrV8Mglel+8PPjJPRrZv4G035YDiC2VRPrJBRyRPEJK0aDOSsvHdn1sio
sE9Si187GOZDZnf83iCjXPa50kWTYGj70/FvlBFHqbS42IpTwTD11Y7JjQNH
IVZ3teRygsGAm8L7QxhH/RS3+JWCYLj7xjRgXhRH2jn8XS9uBcOqgrfPrBiO
Nr5GuzvXBIN4E7NxtySOYmPsr6R0B0OEfu4kyONooox9gNwfDIcP3ItjV8CR
0dsGyf0jwdBy36y/QxFH2/bIPq3/EQzdvP/u6aji6PKjv5Nz2yggzP37eLMW
jmYHqhSf7aBAzJ2xTRsdHFkxeocn8VHgP5qTz4AujnZZ9e4U30eByXWJx+8R
jjK/lmnbYhRQc9p1jmaMo5XtLgmixhTgPm413HEYRyQ17nczRygQINcqJWyK
oz0xkR5xZAq45a0El5jjKF/IJvURhQLVsY88Th3FEaM+y2B0BAVOLIjYxFjj
6OTpOinLWArw0YR1s2xwJPVIqu7LFQpsVj0SqbDDUeLAwNbKTAooRTQLVR3D
0TRDqnXUDQpkuVlK3rfHUbnl2hf+OxTY8vKz9xVHHHFQHihNVBD1qnrdpZJw
5JftHvHgMQUssqJY7ck4Uvz6lsv0FQVYjgcL/cNx9Ci6SCdsjAKr1RxMjMdx
xFdGSjSepsCeIn//h4Rpndu7d81RYER3nJN8AkdaQqGe5RsUKD0asER3xVE2
HKygbaHCiK+xsawbkZ/n+LoBOxU6A4o/1BKur7JIGxSgQs56ypv6kzgSG2D8
XCZKhdXTk+qHTuEohqF2P0WKCkPnnefKCY/v9wsEeSo8kHBb53cn8rUUf8ap
SoVe0RMukYRLgj+wfNKiwlX5l4KDhFmyL9mUABWkvm1RVvXAkVcj5AaaUCGz
O+V2POHXU0tTelZU+Kn3MaGLsE/XtNhNeyqUu/GZ7fbEEefjQfyvMxW+Z5da
OBG+l/8247g7Fazr1zPohK0uNr2t96XCAl/S/jbCc4GPWPcGU0ELb9q6QDgV
LzM4H04Fl/K9mvyncaRsmB05EkOFgwkiDcqEe+RSatBFKhQ2aRYaEw7mjZ7P
S6VC34XZSRvCvJtBsgxZVIgya7zkQLj6i4e7ax4VttWp5tgRdnhLutlYSgXJ
jk4BM8IrNUf6xe5T4Xk+P4sm4aw8jDummgrjF7N8RAhrJSlbjD0j3ufviNkG
Ud9AgGSifgsVmjMibvUSjiALNBa8oYLR2npyEWFhA/Y1xl4qtMwuLPkSfi67
qXpygAqNmquz8oSP88z7N49RoaooL2SKeL9/6+NlEt+I/FZjr2URzp98PxY7
T4W/C7q2hoTHq+vsDf9RYbf/7fJYIp+4m/evFLHQwGcu20aAsOSFgtdbdtAg
jHuspJjI25N0Qa9FmAbXYje9bhP9sU0/PERSkgamvuJjYoRvHfCviJejgb+o
+u40op9m1myljLVp8FhlYNCJ6L9LE8YnSvRpsD736mwN0Z/yHYeubzWjwagE
/oGN8JkbottfOdKgjq6rkOOCo52Ju0z2n6CB+N5FmU/OOHp4hjkm0ZMGP4ok
2LgI/0Yzi4epNOje9uqyFzEfV2WGFMoiaZBn+UArmZgftV3vvLbF08Dv6Opw
MTFftPHqz63pNGjaWSj10gFHa/ExLaYPabC30k+m0hZHOf6Uv7dqacC25CaS
S8y3rsPpQ2wNNOhobVc6T8x/lLTl3dedNJBR2v1KyQpHTO2CGebfabBd5ZOS
gRmO2Hc+PGWxPwTeWTLoSmA4KpR+ZqhwMASixuJPPCX2lRa07eNSC4Ft6WJt
FsQ+8wocnejVD4G4UedQ10M4au3lcndyCQGpe6YvDFVwFJ8V6O6TEQIpfs0h
m8R+Fa44Z2SREwIyBS6vdPbhqOr1RUmFwhCAXKvrFHEiz7WCyV8PQoBPlPvz
exEc6bv0uIe9CYGQQnsjR34c/RVX9UhiCgXWzTQhMguxL7WRsQ9bKDzViL2k
z4yjg3ZHpCy4QqH2uX+jJBOOnONPfdkpGgo9ETKJg5tkVDd11eOaVigs2HbP
sy+RUeidRY/SgFA4MebTSCG+R7/VajxbhkNhkbdIPfUJGbXvZNDQngqFs6rf
Dt+sIaOCGbOtD2dDIbxvS1tpFRlZ5w8V5WyEQlfK5sGye2R0j2PrWJBQGHhJ
jPB7FpCR17idk7hDGEhFDL8evUBGw1d+HY3qDIN3S1e2zlqTUY2Pzt7FvjBQ
ixsasLUkoxTjhJ/en8PAMEynqcqMjHTXBVPsv4fBDx6J954GZHTdE9rl2cJB
3k6nJF2VjI7pXTEaNAqH7IFi2MpH1Dsjr3XoWTg0uHb9C+0jIZbuw8KXXoTD
3cR8hePvSMig1vXfUHs4SKo5qaEOEnoSl/Ey7lM4PLf99WHxBQndEt6w6VoO
B4kioT8KVSSUYPXGx1M5AjLZpSrGU0kIKr1zM0ojoHadv/y0GQnVhJX+m0+N
hAKDJzOjDxyRGYufBc/hKHCRVKgxDnJAnrtsHglyRUPnSduxyNVjKEI0PcF5
NhqcfAuqJRPsUFLwJUx0KAZ6So6RnWZs0F71xMDYtlhwiSTPxZGs0cWl0tN7
iuNg39R5TcE+S/R987yxSno8cMLHoBsfzZHY1vNT5wISQHxM+cBBFVM0Enqe
0c88EbqPtAbqNxmjTLVDzP0aF4C30kWv2dwQic/xt4fyJIGRaptsqrw+Kv51
L+Qa00Vo691nKyWNoQrXw3mkWcIrxYl+/too7S1zslVbMrCFmIpEmWsi7/gI
5+bqS2DJWBPkr6eGeLUEf/tcvQw6h3/VW1UpI3O8hrHGLwVy7ILHaEsKKOQF
558o0n+gkromr1dB/O/IXayKVLsCn76WLt5UlEZPZodlI3elgsR1+R6DgX1o
r/Fll77oVEgjc168JiGO3thqd27OpsKLvt7wiWwRFBzfouTpngZPa83DKtR2
o/jqsaXpnjRQPda2Fl3Kh9LYB++Xm6dDkcnoPm07bjTB975YrzEdOs59nfTc
sRPliZ3cmDl4Fbg6ZaqxNHbkePSNycfiq9CbsbvxrDsLCj3XujjEkwG8rMKc
zju3oBG3luHq6Azw16clNAEDMvC58axjOQNac7ouulutYzuC2DY23emgICxd
ZXRwBXvosL5lxpMOlyMaYwyEVzBbnVmOD150mGLj0bPgWMEymbv33PejQ1Z9
Oh73bRnbey1L5ziFDpP2rx3Oly5jSs+kI+rj6GAUl5lWJrGM2bEcXosqpENp
VMP3uH1L2PKMJpNvMR06/jZGzvMsYVldB9gdS+mQCIWsXsxL2Oes7UKK5XTQ
aFhYCPmyiLnLvdcaqaAD581jVkK3FjGatXsYaqLDlz22HScVFzFBdYcYuRfE
PY/b3QixRezpbtOLAi/psEeHmS9v1yL2d1zu+lwbHXg22Ny3Li5gF6gLj/Pe
0WH8MY/G0ScLmCz+pfFSDx3yl0qv1ZUvYB3Yx7aQPjos5eubq+QuYFysdf1H
++nwIpz/AnZ+Aav8cXdUZ4AOUXfytvQFLGDHum9OS3+mwzfzt9XBJxew5erU
eZ5hOoxo9GWKHFvAsrJjV/+N0CHizNe8buMF7H/bwXI/
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        LineBox[CompressedData["
1:eJwV0v0/1XcfwHFkMidqUiTJTe4uh46zo5zh834fhzqJ3OVcGOk41Doy6fZ0
nKsHVzIrlloq+uauTR2idWppW4y23DXDaSdlhV20Oofj5BDKcV3b9cPr8fwH
Xo4pmdFpRgYGBkl/93+l38+Xl7xZIKr+fPaDjjMBlS+52cnZv8P5HSN3X2jC
iUxmU+ycPQbw1nqjUJNBWm9svrmVmoYmdRc/U5lD6s2Ol72XPQ8fzlMzjpoi
0s0cah2iG6LSupzvJ7hAuMPSOwGUMdKcagf5ykryXZFtXSnNFL1z714Qq2rI
ev+7FTMSGkZ7SPiGmnpS8yr2XIzaAknRkaI5rZxYPDwa/IT+AUbVntI5CxpJ
Z1VHc/6oJb5IPzpgFHqP5Imt2b6UFf73k8rqUGULgYhdt0ZiViJvYl9pRutP
5J3Lt15naTaoDGmIEqnayL5H0U5ayWqsT880mRzvJp61VdRl5hpcoI7mBo72
kj9zXq8MU9tjsCZrp1arIN7W7Sd+ozsio/NEyypBPyn898T9OlMnfLq9inO2
7SlRaVYYHB91wootB67MbnlGvvo5VeJDrUPexst5wcphYsQobDQVu+DHPRfy
B7j/IcmXbk0PxbiiIaWZ29U6Qmz3G2V+QXPHd4pab6HqT3JmbaVwTOKJ9Y3p
g6/GNWTiZHvlfT4dOdMgZD7SkrCZieelTC+8Ld9IZ4++JqbdgXE8tTfKddpO
tVZHoCmjRkH3waUNx69aCWbJxH7DkOYyHywrT/BcXjxHKPeSEZkpE3d5JL8s
bHtL3n15zyF3lIlj5pOLdVv05FsR7dJ6ioVO71OHOEoDSHWoYK8288XP1YEX
608aguVj5hMTsS9als7w+7lGsI+TsGIwZgOeSbp+Tdi6CDxtZKcLaX4YlOdx
OVllAlUPNuWpJP6YzBN1jY6bQ1jFnZVWOn/shfLWKp0FzIhdZWRPAHr0HWL9
rF8KYXSTX7/8ZyAqhz9rs1v6AcycfWBNWICje2eNp0KXgyujOrbzMAe5U/RV
znQb0NsNlO+Qc3B380iWl8IG+t63fDWl4WAOf2+BSLIKpCO5Evu0ICzR6Cak
fbbQd15QcSCGi6GNyiqjsjUgXXBQrWGE4LFn4h5elyNEq+OYt9JDsF2Woh7x
dgK3/uJs3tUQLEjyTb14zgkU3xhYHLDfhMfEJQfDhc7gljrM7FiyGelSNH1l
7gKKrgrpfhUPb3/PmR+84A5uF+2XtVeHod3JucUiYIDc2OHknoEw/DHP72Dn
MQYEZDkaL7EMR630bsGVZgZEhq6bi8wNR12auLYdfECs9xgeSN6GZ23nens2
MyHtG9u4IxaRyLKYlQ19yoJGK1f3Uw+jcNx+6tSCDRv0Xa5piS+j0O0h00C+
mw1BuW7VXouiceyg3O6PO2z4ReNu1/tRNK5szdp2g/8RDLd5LltRG41mAa/P
0Sh/MD3qM1deEINh98brfwokkPA8oEMeEotuU5OLSyc4wGj91/a5nbHone5i
edMuCBZ/3TwcKI3F+YZiC+OtQXB7L77tkMdid6nFYMK1IDDXc/8xtJaPn+qv
9j9M40KL7dZC2js+lr2J9P1hLBhc4+IjUxvi/v49u6zHmQd6/7Jnss44rLt6
bSwkngeP1v7+iXY0DkVC8/WzX/Ag52VirmR1PK4jxwrN5nnw9PBOeXFBPJ7L
WaiaVm6BwpLdVk0pCZjC3r/x8fmtMKk49GSFdSLekLCW9ARHQNuP9Y51rEQ8
fKKJ/JofAdT1FyKMTkSb3epuy84I2JQfuyAqSsSD/daGG9wigWL7OrUsSsIk
d5ZgfUMkbKqcThe9TsLzEx291fejgMo48L/mzmS8uUSYUfjedliX57ec1SzA
rNPxlGgqDqQDJsZGvwjQziVcGWYbD78xlNM9TwW4TGHPDefEQ97zrMfpbwTY
l5XYdO10PIxsqCu9Qk/Bmg6kd3klQLVqjcPySynY8qh+6k7mx+AQschLd0SI
VPIqDz+zHfBkz+2mmshU1MsmFeEpO+EvYRysfg==
         "]]}}, {}}, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
       FormBox["\"\[Nu] [THz]\"", TraditionalForm], 
       FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(u\\), \\(\[Nu]\\)]\\) \
[\\!\\(\\*FractionBox[\\(J\\), \\(\\*SuperscriptBox[\\(m\\), \\(3\\)]\\\\ THz\
\\)]\\)]\"", TraditionalForm]}, AxesOrigin -> {0, 0}, Method -> {}, PlotLabel -> 
     FormBox["\"T=5800K\"", TraditionalForm], 
     PlotRange -> {{0, 1400}, {0, 0.002}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {Automatic, Automatic}],FormBox[
     TemplateBox[{"\"Wien\"", "\"Planck\"", "\"Rayleigh-Jeans\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.67, 0.6, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.67, 0.6, 0.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.9060679774997897, 0.6, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.9060679774997897, 0.6, 0.6]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.1421359549995791, 0.6, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.1421359549995791, 0.6, 0.6]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), Editable -> True, 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{"Hue", "[", 
                   RowBox[{"0.67`", ",", "0.6`", ",", "0.6`"}], "]"}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{"Hue", "[", 
                   RowBox[{"0.9060679774997897`", ",", "0.6`", ",", "0.6`"}], 
                   "]"}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{"Hue", "[", 
                   RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], 
                   "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     TraditionalForm]},
   "Legended",
   DisplayFunction->(FormBox[
     GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}], TraditionalForm]& ),
   Editable->True,
   InterpretationFunction->(FormBox[
     RowBox[{"Legended", "(", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], ")"}], TraditionalForm]& )], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.735214107882045*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Comparo utilizando el parametro x=hv/kT", \
"Subsection"]], "Subsubsection",
 CellChangeTimes->{{3.7352124995335126`*^9, 3.735212507915033*^9}, {
  3.7352130292636995`*^9, 3.7352130342197013`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"(", "12", ")"}]}], 
        RowBox[{"Planck", "[", 
         RowBox[{
          RowBox[{"\[Nu]", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", "12", ")"}]}]}], ",", 
          RowBox[{"6.63", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "34"}], ")"}]}]}], ",", 
          RowBox[{"3", "*", 
           RowBox[{"10", "^", "8"}]}], ",", 
          RowBox[{"1.4", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "23"}], ")"}]}]}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"6.63", "*", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "34"}], ")"}]}], "*", "\[Nu]", "*", 
             RowBox[{"10", "^", 
              RowBox[{"(", "12", ")"}]}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{"1.4", "*", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "23"}], ")"}]}], "*", "x"}], ")"}]}]}], "]"}]}], 
       ",", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"(", "12", ")"}]}], 
        RowBox[{"Wien", "[", 
         RowBox[{
          RowBox[{"\[Nu]", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", "12", ")"}]}]}], ",", 
          RowBox[{"6.63", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "34"}], ")"}]}]}], ",", 
          RowBox[{"3", "*", 
           RowBox[{"10", "^", "8"}]}], ",", 
          RowBox[{"1.4", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "23"}], ")"}]}]}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"6.63", "*", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "34"}], ")"}]}], "*", "\[Nu]", "*", 
             RowBox[{"10", "^", 
              RowBox[{"(", "12", ")"}]}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{"1.4", "*", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "23"}], ")"}]}], "*", "x"}], ")"}]}]}], "]"}]}], 
       ",", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"(", "12", ")"}]}], 
        RowBox[{"RayleighJeans", "[", 
         RowBox[{
          RowBox[{"\[Nu]", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", "12", ")"}]}]}], ",", 
          RowBox[{"6.63", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "34"}], ")"}]}]}], ",", 
          RowBox[{"3", "*", 
           RowBox[{"10", "^", "8"}]}], ",", 
          RowBox[{"1.4", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "23"}], ")"}]}]}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"6.63", "*", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "34"}], ")"}]}], "*", "\[Nu]", "*", 
             RowBox[{"10", "^", 
              RowBox[{"(", "12", ")"}]}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{"1.4", "*", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "23"}], ")"}]}], "*", "x"}], ")"}]}]}], "]"}]}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Nu]", ",", "0", ",", "1400"}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\[Nu] [THz]\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(u\), \(\[Nu]\)]\) [\!\(\*FractionBox[\(J\), \
\(\*SuperscriptBox[\(m\), \(3\)]\\\ THz\)]\)]\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Planck\>\"", ",", "\"\<Wien\>\"", ",", "\"\<Rayleigh-Jeans\>\""}],
        "}"}]}], ",", 
     RowBox[{
     "PlotLabel", "\[Rule]", "\"\<Comparaci\[OAcute]n hv/kT fijo \>\""}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.01", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.735212389411968*^9, 3.735212476381424*^9}, {
  3.735212515039875*^9, 3.735212557110383*^9}, {3.735212600137821*^9, 
  3.735212637298341*^9}, {3.735212721801116*^9, 3.735212776861064*^9}, {
  3.7352128137980795`*^9, 3.735212944459408*^9}}],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`x$$ = 5., Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{
        Hold[$CellContext`x$$], 0.01, 5}}, Typeset`size$$ = {
      492., {120., 124.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
      Typeset`skipInitDone$$ = True, $CellContext`x$74123$$ = 0}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       1, TraditionalForm, "Variables" :> {$CellContext`x$$ = 0.01}, 
        "ControllerVariables" :> {
          Hold[$CellContext`x$$, $CellContext`x$74123$$, 0]}, 
        "OtherVariables" :> {
         Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
          Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
          Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
          Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
        Plot[{10^12 $CellContext`Planck[$CellContext`\[Nu] 10^12, 6.63 
             10^(-34), 3 10^8, 1.4 
             10^(-23), (6.63 10^(-34) $CellContext`\[Nu] 10^12)/(1.4 
             10^(-23) $CellContext`x$$)], 
           10^12 $CellContext`Wien[$CellContext`\[Nu] 10^12, 6.63 10^(-34), 3 
             10^8, 1.4 10^(-23), (6.63 10^(-34) $CellContext`\[Nu] 10^12)/(
             1.4 10^(-23) $CellContext`x$$)], 
           10^12 $CellContext`RayleighJeans[$CellContext`\[Nu] 10^12, 6.63 
             10^(-34), 3 10^8, 1.4 
             10^(-23), (6.63 10^(-34) $CellContext`\[Nu] 10^12)/(1.4 
             10^(-23) $CellContext`x$$)]}, {$CellContext`\[Nu], 0, 1400}, 
          AxesLabel -> {
           "\[Nu] [THz]", 
            "\!\(\*SubscriptBox[\(u\), \(\[Nu]\)]\) [\!\(\*FractionBox[\(J\), \
\(\*SuperscriptBox[\(m\), \(3\)]\\ THz\)]\)]"}, 
          PlotLegends -> {"Planck", "Wien", "Rayleigh-Jeans"}, PlotLabel -> 
          "Comparaci\[OAcute]n hv/kT fijo "], 
        "Specifications" :> {{$CellContext`x$$, 0.01, 5}}, "Options" :> {}, 
        "DefaultOptions" :> {}],
       ImageSizeCache->{543., {165., 172.}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      SynchronousInitialization->True,
      UnsavedVariables:>{Typeset`initDone$$},
      UntrackedVariables:>{Typeset`size$$}], "Manipulate",
     Deployed->True,
     StripOnInput->False],
    TraditionalForm],
   Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.7352126010229363`*^9, 3.735212637720169*^9}, {
   3.7352127536259546`*^9, 3.7352127779350376`*^9}, {3.735212829736513*^9, 
   3.735212837754383*^9}, {3.7352128934447536`*^9, 3.7352129447306337`*^9}, 
   3.735213572105209*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1366, 671},
WindowMargins->{{-1, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 119, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[702, 26, 107, 1, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[834, 31, 139, 1, 79, "Section"],
Cell[CellGroupData[{
Cell[998, 36, 133, 1, 43, "Subsection"],
Cell[CellGroupData[{
Cell[1156, 41, 926, 28, 31, "Input"],
Cell[2085, 71, 850, 23, 80, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2984, 100, 142, 1, 43, "Subsection"],
Cell[CellGroupData[{
Cell[3151, 105, 410, 11, 31, "Input"],
Cell[3564, 118, 138, 2, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3751, 126, 209, 4, 43, "Subsection"],
Cell[CellGroupData[{
Cell[3985, 134, 509, 14, 31, "Input"],
Cell[4497, 150, 172, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4706, 158, 460, 14, 31, "Input"],
Cell[5169, 174, 140, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5346, 181, 458, 13, 31, "Input"],
Cell[5807, 196, 116, 2, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5972, 204, 196, 4, 43, "Subsection"],
Cell[6171, 210, 214, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[6410, 220, 317, 8, 31, "Input"],
Cell[6730, 230, 251, 6, 35, "Output"]
}, Open  ]]
}, Open  ]],
Cell[7008, 240, 158, 2, 52, "Subsection"],
Cell[CellGroupData[{
Cell[7191, 246, 168, 3, 35, "Subsection"],
Cell[CellGroupData[{
Cell[7384, 253, 1650, 42, 72, "Input"],
Cell[9037, 297, 56152, 998, 242, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[65262, 1303, 110, 1, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[65397, 1308, 147, 3, 79, "Section"],
Cell[CellGroupData[{
Cell[65569, 1315, 142, 3, 43, "Subsection"],
Cell[CellGroupData[{
Cell[65736, 1322, 754, 22, 31, "Input"],
Cell[66493, 1346, 634, 18, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67164, 1369, 763, 23, 31, "Input"],
Cell[67930, 1394, 588, 18, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68555, 1417, 601, 16, 31, "Input"],
Cell[69159, 1435, 498, 15, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69694, 1455, 140, 3, 34, "Subsubsection"],
Cell[CellGroupData[{
Cell[69859, 1462, 1539, 43, 77, "Input"],
Cell[71401, 1507, 2062, 42, 338, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[73524, 1556, 138, 3, 43, "Subsection"],
Cell[CellGroupData[{
Cell[73687, 1563, 118, 1, 34, "Subsubsection"],
Cell[CellGroupData[{
Cell[73830, 1568, 3089, 88, 105, "Input"],
Cell[76922, 1658, 11175, 221, 247, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[88146, 1885, 118, 1, 34, "Subsubsection"],
Cell[CellGroupData[{
Cell[88289, 1890, 2988, 85, 105, "Input"],
Cell[91280, 1977, 21070, 381, 259, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[112399, 2364, 221, 3, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[112645, 2371, 4412, 124, 145, "Input"],
Cell[117060, 2497, 2781, 54, 354, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)