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

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     33904,       1003]
NotebookOptionsPosition[     27529,        830]
NotebookOutlinePosition[     27903,        846]
CellTagsIndexPosition[     27860,        843]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["C\[AAcute]lculos associados \[AGrave] dedu\[CCedilla]\[ATilde]o do \
espectro de corpo negro", "Title",
 CellChangeTimes->{{3.7113006733998823`*^9, 
  3.711300689432824*^9}},ExpressionUUID->"66d1b618-ba33-48eb-8652-\
e3eb358e8652"],

Cell[CellGroupData[{

Cell["Integral do espectro para determinar a energia total", "Section",
 CellChangeTimes->{{3.7113007047131553`*^9, 
  3.7113007203554306`*^9}},ExpressionUUID->"91c78b26-7ad0-4de9-827f-\
e955ed33d2ef"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "5"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"a", "/", "x"}], "]"}], "-", "1"}], ")"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"a", ">", "0"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7111150370432954`*^9, 
  3.7111151292875867`*^9}},ExpressionUUID->"53a23359-c004-4b63-a83e-\
b354ce45e151"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[Pi]", "4"], 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "4"]}]]], "Output",
 CellChangeTimes->{
  3.7111151301314287`*^9},ExpressionUUID->"f938a2ee-b83f-417c-a349-\
5e3807967c0c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
C\[AAcute]lculo da Constante de Stefan-Boltzmann a partir de c, h e k.\
\>", "Section",
 CellChangeTimes->{{3.711300729372007*^9, 
  3.7113007689855623`*^9}},ExpressionUUID->"39271651-6147-4890-800c-\
a3069d62a49c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "=", 
  RowBox[{"QuantityMagnitude", "[", " ", 
   RowBox[{"UnitConvert", "[", 
    RowBox[{"Quantity", "[", "\"\<SpeedOfLight\>\"", "]"}], "]"}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.711115806445605*^9, 
  3.7111158678272038`*^9}},ExpressionUUID->"446c2d51-bb72-4c17-ab27-\
a726fbefc491"],

Cell[BoxData["299792458"], "Output",
 CellChangeTimes->{{3.7111158167748413`*^9, 
  3.711115868530405*^9}},ExpressionUUID->"6d8f244a-a9c7-4121-85e5-\
fc2895b754fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h", "=", 
  RowBox[{"QuantityMagnitude", "[", " ", 
   RowBox[{"UnitConvert", "[", 
    RowBox[{"Quantity", "[", "\"\<PlanckConstant\>\"", "]"}], "]"}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.71111541059908*^9, 3.7111154186311936`*^9}, {
  3.711115613987414*^9, 3.7111157215771055`*^9}, {3.7111158770625715`*^9, 
  3.7111158870167665`*^9}},ExpressionUUID->"60454262-9e67-4002-bee5-\
a130468fcf65"],

Cell[BoxData["6.626070039999999902526276`7.61174100768015*^-34"], "Output",
 CellChangeTimes->{{3.7111156814946723`*^9, 3.7111157221084137`*^9}, 
   3.711115888579436*^9},ExpressionUUID->"5f2b0a74-459c-4305-992b-\
225c6b499764"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"k", "=", 
  RowBox[{"QuantityMagnitude", "[", " ", 
   RowBox[{"UnitConvert", "[", 
    RowBox[{"Quantity", "[", "\"\<BoltzmannConstant\>\"", "]"}], "]"}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.711115898377363*^9, 
  3.7111159129726825`*^9}},ExpressionUUID->"95c4c291-7f34-4c5b-8e2e-\
2c093b5142d1"],

Cell[BoxData["1.38064852`5.941426044735842*^-23"], "Output",
 CellChangeTimes->{
  3.711115913910284*^9},ExpressionUUID->"0812941a-2b56-4430-8c0d-\
84034165c221"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", 
  RowBox[{"Pi", "^", "5"}], 
  RowBox[{
   RowBox[{"k", "^", "4"}], "/", 
   RowBox[{"(", 
    RowBox[{"15", 
     RowBox[{"c", "^", "2"}], 
     RowBox[{"h", "^", "3"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.7111159185357804`*^9, 
  3.7111159353344617`*^9}},ExpressionUUID->"59aa8bf9-5ee3-4921-918e-\
11833beebfea"],

Cell[BoxData["5.67036681608326941787847921143`5.332462475184255*^-8"], \
"Output",
 CellChangeTimes->{
  3.7111159360689154`*^9},ExpressionUUID->"c40c7338-b5e7-4642-b963-\
906cf2eec34b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "=", 
  RowBox[{"QuantityMagnitude", "[", " ", 
   RowBox[{"UnitConvert", "[", 
    RowBox[{"Quantity", "[", "\"\<StefanBoltzmannConstant\>\"", "]"}], "]"}], 
   " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.711115947960819*^9, 
  3.7111159511174088`*^9}},ExpressionUUID->"8fb9fb46-f2f4-4dc1-8a4e-\
446b5b2935d8"],

Cell[BoxData["5.670366999999999677820484295099`5.338637820431227*^-8"], \
"Output",
 CellChangeTimes->{
  3.711115951742476*^9},ExpressionUUID->"7509e72a-edba-40c9-9083-\
1778b2fab489"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lei de Wien", "Section",
 CellChangeTimes->{{3.71130089120033*^9, 
  3.7113008935599537`*^9}},ExpressionUUID->"f64b8d6b-a8b2-44e4-9c80-\
6991f0d31c6d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "^", "3"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], ")"}]}], ",", 
            "x"}], "]"}], "/.", 
          RowBox[{"x", "\[Rule]", "b"}]}], ")"}], "\[Equal]", "0"}], "&&", 
       RowBox[{"b", ">", "0"}]}], ")"}], ",", "b"}], "]"}], "//", 
   "N"}]}]], "Input",
 CellChangeTimes->{{3.711120485176337*^9, 3.7111206036083107`*^9}, {
  3.711120723851489*^9, 
  3.7111207243671694`*^9}},ExpressionUUID->"1e410407-8a8f-4ca3-98b1-\
560ddb100365"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"b", "\[Rule]", "2.8214393721220787`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.711120505084728*^9, {3.7111205988734274`*^9, 3.7111206042490053`*^9}, 
   3.7111207251485043`*^9},ExpressionUUID->"1ffcdc3d-97b3-435b-920f-\
86a56da269bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"w", "=", 
  RowBox[{"QuantityMagnitude", "[", " ", 
   RowBox[{"UnitConvert", "[", 
    RowBox[{
    "Quantity", "[", "\"\<WienWavelengthDisplacementLawConstant\>\"", "]"}], 
    "]"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.7111206778762865`*^9, 
  3.7111206870178943`*^9}},ExpressionUUID->"d4a0b557-c021-4d58-8752-\
f9375a011285"],

Cell[BoxData["0.0028977729000000002`5.930585429537512"], "Output",
 CellChangeTimes->{
  3.711120688111762*^9},ExpressionUUID->"15ae3b9f-d217-4449-b2e7-\
a4d349fb8f03"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"b", "/.", 
    RowBox[{"u", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ")"}], 
  RowBox[{"k", "/", "h"}]}]], "Input",
 CellChangeTimes->{{3.71112073542957*^9, 
  3.7111207664172764`*^9}},ExpressionUUID->"714bcd86-c458-42eb-a1db-\
320e938a5c24"],

Cell[BoxData["5.878923811360854`*^10"], "Output",
 CellChangeTimes->{{3.711120736242158*^9, 
  3.7111207671204777`*^9}},ExpressionUUID->"87b4e354-fbfb-415c-8b77-\
73b134914a31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "3"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], ")"}]}], ",", "x"}], 
  "]"}]], "Input",ExpressionUUID->"46e2fdf6-7a9d-4258-89d5-5f8382842f96"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["x", "2"]}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[ExponentialE]", "x"]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "x"], " ", 
    SuperscriptBox["x", "3"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[ExponentialE]", "x"]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{
  3.71112082148913*^9},ExpressionUUID->"2fb3bb4d-6e65-4276-a2bb-f92e74cd8381"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"3", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], ")"}]}], "\[Equal]", 
      RowBox[{"x", " ", 
       RowBox[{"Exp", "[", "x", "]"}]}]}], "&&", 
     RowBox[{"x", ">", "0"}]}], ")"}], ",", "x"}], "]"}]], "Input",ExpressionU\
UID->"6e88182b-5860-4b6f-8e71-6cf4f320eee9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{"3", "+", 
     RowBox[{"ProductLog", "[", 
      RowBox[{"-", 
       FractionBox["3", 
        SuperscriptBox["\[ExponentialE]", "3"]]}], "]"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7111210859171534`*^9},ExpressionUUID->"546901a1-84cb-47c9-88ce-\
db6c41c0e0da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"3", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], ")"}]}], "\[Equal]", 
       RowBox[{"x", " ", 
        RowBox[{"Exp", "[", "x", "]"}]}]}], "&&", 
      RowBox[{"x", ">", "0"}]}], ")"}], ",", "x"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.7111208764229593`*^9, 
  3.7111209186760015`*^9}},ExpressionUUID->"0cdc6293-afee-4604-a437-\
b8ea94ec4bab"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", "2.8214393721220787`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7111209156131735`*^9, 
  3.7111209192854433`*^9}},ExpressionUUID->"e15f851e-1bbd-47bc-9fa3-\
5f9b9099e241"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.7111209730663595`*^9, 
  3.7111209754416146`*^9}},ExpressionUUID->"807440af-ff9f-4659-8dbd-\
73cd80b7ad80"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"3", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], ")"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"Exp", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711120925442354*^9, 
  3.7111209659022636`*^9}},ExpressionUUID->"2276e661-f4b4-4a7d-8bb3-\
a06bcc688670"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVynk41AkAxvHfnL8cUSitylKrdJFnHGNcr2tG/EiWtB5bKFMtWzvMzkbl
aBE5tp0SuR41QlrZesQIGarVIrsJ66iVdaTTkWUj2umP9/k+n+d5DUOO+oTS
CYLwVO5T9bj1n4LLJZbS1s0cdMTNtxcq7bsxzSxlKwdnfrfOdaQRELwceMc3
4WAuoIrzI52ACjd9sMmMg96TFQfYLALHJj2C67gcZN+99Ju6KoGuxKbpW3wO
VuxMOvOZDoGXA8Mxd0M4WCbcqcUxJqCw5dW65XJwIPFOU/OXBNocroQ06ppj
joxYG3WCQHfHaM+BDHOcjhB8vreIQHiR8wYmywKi9veNRX8Q4Jlq6PslW6Ag
fUJjyX8EgsSZC4dZljC2v/ehbT0NMYOtJg9+skRpd83P971oqFIVFCfrWSGs
492ffRIa4mw1I/IKrJDaoHpj12UaZvlbzB9s5+KtptBmpIUGRbblleV1XAjc
hsJ/maKh9d4bAx+BNRZFdg5da+kIH2uxiBu0xuxif60en460QsaYj5gHr5P+
vY0iOoqHn2rcX2mD3KHp/Lw8Ota8bzcqrrHB5vJu9fP36Khq+iqsxNcWuocy
17wZp+NRH+1bHmEHflJ2d8gqBtyNRsTXZXZ4nHnMjOfCwIS8Ij56jz12p0dz
XI8ykJNiyWhZ6oDVY4qB8CwG1KejLh287QB78+GtM00M8Ka6Gm7ZArIhjy/y
XjFQFJmvqM0CPkZ3NX2vzUTbhHVa/RQgZ9jSb9gzEXBSfVuMvyMqx0dfLTnI
hK93X39ktSOWPjwiaZIy4e5qdj3P0AmB0lWlFfVM7L5q06qZ5oS3t9kJNSNM
8P7ZlBQ86YSnnY8Io+UsnG2t7UsIdoamz+DGcmsWpNGeF79uc4ZVtdbMoWAW
vHO+45tYuaB+qWFoUhoLilDvQHG5CxKbI2MUlSysNBp5oaXvimsRMm7gMxb2
rF/mWJHjCu143XwdFTbQII+VLOdD9EN5KWHGRtBkXygvmY9t+wz8vALZKLqq
knhTTYAtZX9dkyewEVDwUPo2WYDTo2GyhF/ZeHJfJJdou6FXdZ1TQj8b50cT
N4QUuOGIdE1qIYOEgamwv3DdDgSpTYv1TUm4SFbnzVXuQOZzTZUafxKbBHqz
IrhDcc3T5XQsiWSxzHuw1R1uwYcMqstIlPkNlDsKPaAd3VzMeExCGCs8zn/v
AfeDhtnVSs+NIfXpvAdO+R5PCeskcXhJUJd40QMTJqbhj7tIFA7HrSpiUGgf
umAm6yFxOeNJAEuDQrKnsM7pbxJ0ZlRnxzoKHwxYHfEvSNTQdzRcpChwNPbd
tXhJYqr0uiF3J4Vv5uWVL5TWUizc6d5FobcrPGvXaxIdM+FlOv4Uqs50BhqO
k5jIMnA9F0xBNC17rpgmwbklzMiVUCgdXOgR/0uis+TRJbsoCs/a/VuMZ0jw
dKMmBo5T8LqqVn52loS9g9TBKJ7C1r2REUFzJCTS2Cs3Uyns93i4X2de+ecH
ndudQSGHu9HvgdIpxiV1c2cpqGj3W21fIHEk4ESj8wUKICw2DSs9uXpF/lg2
hWNvMvSyF0m8HjeuTM+lUNE3pkZ9JCFaVs/mFFAYbXZa+Ki0vrz7fE8hhf8B
PiQSnQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$27245#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV0Xs0lAkABfBvnp8oWkZJnqmttsYzMSXuYJjwjSjUprfkGBIjlVKU2KWy
SKlUo2mLJHQs2VJSeR1sGYPpqZ1ID3TKUoSd/rjnnt9/95xrvjXKfzudIAhK
nR9t6Fj9oxDVTW8IOcFFW+JYq1Tt1mlrdbszuUhr5J3j0wgcejBZtT6Hi9Ff
K+yO0AlwIsXma/K4UCaUhLBZBJ5HlvutvMZF7oP8uqmaBDbJ9CGo40LfNyVt
FodAviDl5JEJLqaH+uraLSDQXpIyx2iXJUKO3q2tX03A/OKTFZliK4ySMcb7
DhDQH46ZG2VpjdQYT9ONlwmk7N2f3XXVGtGt3+5f/ofAL8UhZRZWNrhw/JO2
xlcCYk9a0PNSGyxwfvi92YKGg2dnW/jybVHQUZX5SERDbsJRFwu5LcRtXx4/
jaNhItiM1bXRDun3NMv8LtGQH7n0smTUDgM6oct7mmhItw0au5GxBJ5CVcT1
zzQsMVG1Nc6zx0T0CheFMR3G/cxT7BZ7jEw8u23oQQczt+qMZ+RSiBKClPej
6UjwV5E3TR1wTjV0Pi+Pjs99UNyWO6h3d0w9+ZCOouKeTqNER8wMyzHqH6Tj
Tmneew548EjJ7dhqwMABfrc95ysP8py9NsvcGfhrT6FN58NlCDwebyeIYqCA
kcbbk70cs/tqXkWcZqDl6q6Kdeuc4LzkzeLhWgbu2bqZ5NuvgEzlPTfvAwOF
dystHms4YzJeUbtbj4kNlnrSn1844xbDiV7mzAQ/vmTwVKMLygd7P2jsYMLL
Zx9dKxCY1rIzrjaLie8mrwy124HgLIOCkmompo8YpC1czcfA3+zkqh4mpKYN
zfJmPl60PyHm/cRCw6V/lc5rXKHj/3p+MY+FxGHvAaLDFQ6VusNhW1hI/mLw
RLzWDdXTzLenHGPBjy1JkL5zw9F6ycGachakLMHhq7HuKIqROQZ3s7AoTqIM
0BFAL2nmec4UNjasCgg/LRMgek9xAWHDxoinwj/P0QPcTWYBomA2YjJYA7tf
emDRtc6iW8lsZGU2SnwSPJHaK5Yll7LRW5qR/YUrhFJzjmvyMzaUZTcOcLqF
2JlllC5lkLCYFPinp63EZq2hWBMrEhVBVvVWQi/kvNWZUhVEIvBrUtPzcS/U
FFHuqYdIZPj3fwor94ZwS5hZ5TUSV3bjUcYhH+jF119hyEmMaPOySVcKXjvM
cyvV1nHndcYJKBxes/93cTsJy3kf9vcKKXyytIqQK0jcqT72ts6XQqvqlI2s
i4STW4/w2AYKv1Ghd1xfkurfXzot3EfhuxmrLekdCWOtOpvrpRTstDc9sH9P
IilOcXF+OYXwsVvl79QON38VJaukoFREnPb7SOLbCc2leXcpVKS1B5sPktga
q1qf1Uwhekj2tmaIxHWXGzMy+ygUvB7viv2PhEToVKj7kUJ3a1DTgmESx3eF
Xzg5SEFUqFX8xwgJ5e3HpWeGKSzeKInZPEpCv74vroApwjbvlm2cMRLjXudM
uRoinHWcH9Cg9lp3/qKbWiJM0XvmYD1OQh6YKa7WFQGE/cI3anv5r5K6zRBh
b/8Jw9wJEsOpix2bZolQ8rRPy2eSxJ9iazs/YxF6613HJ9VeFROa2WUmwv9a
ng1F
       "]]},
     Annotation[#, "Charting`Private`Tag$27245#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2., 14.778112650252494`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2, 3}, {14.778112650252494`, 60.25660912992737}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.711120966792985*^9, 
  3.7111209788482323`*^9}},ExpressionUUID->"cae64f5f-cf2e-4ee9-bf2b-\
092dd7251098"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"3", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], ")"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"Exp", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2.81", ",", "2.83"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7111209867240777`*^9, 
  3.7111210024883084`*^9}},ExpressionUUID->"c96483d0-999d-426b-9891-\
0ec45aeb1f7b"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV0X0wFHgYB3Ds+HVtXjq6qTszGuJ0nayru7ghHiOe8lJdddMp0WWo826H
xJVF3hZtrfW6IuK0qWTIEpsryttSotqonJyXqHZMceK47umP3/zmM/PM8/s+
z8/kSNgefy0NDQ1POp/um18p8GUsgyn9hoAfAhFqlmkLRsl9AU2BjuSrM57y
CfLxuy2hO8jF9/8yU3+ql7w4foiclMjR+pesPO2cmkzePeWmWPU7gxZZr+wx
efzmgPV2cr/BtDoqCGGV19yX18muLc6p8mCESi0be9FJBtuEtkMhYQj/lX2e
43OKgf+VQ/5zEQjn/CpVG+IY4BN1aGQkgrcIAz8TMPhY1dRsEY0wUS3YrCJL
MYF3LYbyOig86uMZOK1Oen/sJELVlHyXJIGB1jEtxzUChDCRh/BwIoPBlqHC
ggSEwKJxA8fTDLgFVt4/JSGYlRv16yUxkPVMmj9LQTDq1Ds1SLYFu6O/CBE8
vFh0fTKDfSceGelkIti/zL+UnMJgpfRCl1iEEPCIt94/lcH2jLp5TzFCz1hS
FqQxmK+I+GNJgvBeHblZV8ggrrfFTpCLsNfvN7PXZHvtvCM2BQj8Bx/cG9MZ
vJHoBN8pRFBWZLZKMxhwXIwNE4sRjpwfMovOZOA5M269pRShXqhUbDvDQN9e
aqIoQ8ARRfk6EQNT2623T1Qg5Gza0fqe7Ha/85tllxFMSiXKP88ysI5dsZB2
hfYXO7Ku6BwDy+mNaU5VCMEe3TVBYppnafShshrhW2Gj2D2LQXZ03nhmLYLF
aMABCwmDCps1R53kCCNbqrxmyGX5kZL2BgTVzLysL5ve/2hSmNSEkFE5bHUx
h8G5DzJXw2aEk3HJxSG5DCZ4C545txEu3bLyccuj/7E+CztbEcQz/H1r8hns
maxof3oPoS63STpH5p4xRmkHQr71hdUdBQy8xcv3blQiNLyCuGwpg1W87hu1
PQgGOhPf8wsZxMgWjSN6Kb/FelOn8ww2jPCYRj9C3LUQX5MiBilOHE7bYwT9
PREpS+SOmt4DgqcIPmr90a5iBrH3lGu5z2g/szXiyxcY3NUc5Ha/QODNTkfF
lDB4HqZ90HcY4YbBW2eXUspvzv1nbAQhsvDtr6YXGYirv2svG0N4ZySUT5N1
JznqTa8QLOtUu2bIXM3Fgw7kgJ1fT86RPbbOd+4gD8S3Gn0kXzblVBwm3x5b
itctY6BXus9HRD57ne++gZweqn4w+amfs/ewH9nXe0leMkn9nlfGHCVnaErN
r5JLouYNgsjblXbZ9WRDWa4Ln3y8WxRxn7yg87AynryQzLdcJHc+cYkqIotU
1mX7pxC0wrP1SsmdbWsN/Mj2y/++VE5uHDRMCCVX28UPXiG3ha/wTSbnlzQ6
NpIVP9sa1ZL7flw+cIs8HLg7vZms07+ff4fcVR4y30kWaM+Wd5AXU+pVw+SG
YmeHbjLyRl3fkN/ZZKkekAMWv5DPkS0fDof3k/erPcw5r2neQB5XRTbWFmbr
kf8HjPMoxA==
       "]]},
     Annotation[#, "Charting`Private`Tag$28214#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV0ns0FHgUB3DL6be04qzs9pitjprSw+IsKmW5Jd2SVNJKi5I13o9mOSPv
NBRq5DXNymMyNpoUh1CDw67a9SornR2PDppVpOdqLKPH7t0/fueezz/33vO9
P5PjEW7+2lpaWnvp/V9vL23Cx7EMoGKF77bvEGo+nZc0Rh52CF3iSq5U760f
Jy91aek9Qi6+P8J9Rfb+NWZ7FFmYoqP9jpy/xpZbTt4/6dxkHMcg7I/XE/oe
CE9vD1juIktbrAX9ZGPPmSVV5HuNy8ojPBHk2pvsRPEMrIxHRlReCB9ln+f7
JDAIcWv5yDmGcMFPrlyfyOBZ0ieHnPwQvEQYrJvEAKfDGmp5COPVSVZKckm7
ZHw8iPa1b3JpSGYQ7N2z2TcM4cZk/b7cUwzsxVkdnZEIESKX9GMpDG6uW2A4
9yNCcNFTI4fTDBYHSLPCBQjcMk6fgZDB3a9sblXEInA6DBIGyb/1D7G+BAQX
TyZoSGVgeZjJt59CsHssKU9No3zSOx8JhAi8hxZr/c/QfI0mZuoMwr0nwhw4
y8Brq7+jdybC21dRVgvSGXA8fIXnRQgH/YK4z8kb7AZ36eQg8Htm9ygyGDhY
cwX2+QhdV861FWQycLWZ/bZFgnC8cJgrOMdANHF+nWUhQkN6V9OO8wwk0hZ/
XgkCqprKVokYyDoa3VWlCPnf7G57S54UJpxZdQXB5HJuV0sWgwvW7nfdr1J+
sapVRRcYGKglPV2VCKEu3TUh2Qxs/HTn6VYjbEhXZO/JYdDtoOFk1CKYjvGO
mOYyMFy9Zef7egTVxhuearJzXWCKlQJBqdZUPMhj0Dp8TFHdjJApHzUvzWcw
5Bw6M9WKEJ+YWhwmZuDy5ULz1XcQypvNfZwvMjC2Mo8t+h0hW813Xyxh4BGm
qBnsRKgTNxbMkDu/f/iFz30EiWXJovaf6L8dCD98pRfh1gQk5hUw+Dtleebw
QwQj/XFr/iUGUXU22t79tL/p2pXbChnodH10kA4hJF4PO2pSxEBre7hy3QiC
oduJtA/ks0chQKZC8HllONZZzMBX92DZ4yeUz3RN9tUSBvv1Mg/xniFYTL+J
PillYB5jUF71AuGm0UtHp8sMjsfOV068Roi69NJ3ZSndz0s/P/AtwhQnvf4N
eRlXOFj5D4JZnXKfmtw4P+9EI5nnuubZDPnI5krdTvJAchvnX3JV4PTGcXLr
kw/JC2QMti5/nmsyg5BVxd+zntw26rdPTDZz9Br1I6tVGd1Js9TvkfxkADmj
RvaDiCyN1hiFkGs77rwvJC+sEDvxyR33V3ytIM/p98qTyRetbUVqcsefTtFF
5AK+5kCQBkE7Ms/gMjmoWTwpINvp/VVeRjbeb3c6jVy9NXnwGvmzvdKbMrJE
qnBQkGd/7lo0TH5gqzfQTF5kea36BVm/z4P/C9laO3f3O3LSvOmydnJ0Ylzc
4jm6Z7GjfTdZtjbe2JQ8tSlH2UMeW5p63YZs1jsa2Ufecki8cweZF2wxX0mW
K6tG3Mj/AR3VJpM=
       "]]},
     Annotation[#, "Charting`Private`Tag$28214#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2.81, 46.673870220620756`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2.81, 2.83}, {46.673870220620756`, 47.955654106960836`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7111209908338957`*^9, 
  3.71112100267583*^9}},ExpressionUUID->"daa1acf6-4d52-4f30-be76-\
9165686e65f0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Determinando as componentes de onda viajantes", "Section",
 CellChangeTimes->{{3.7112789125440187`*^9, 
  3.7112789269361916`*^9}},ExpressionUUID->"e9b0018c-1613-479e-b4fa-\
eb30aa299bfb"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7112762057842693`*^9, 3.711276209144006*^9}, {
  3.7112787590900216`*^9, 
  3.7112787592462883`*^9}},ExpressionUUID->"1c875f34-a19c-4021-ab6d-\
5261920c24ef"],

Cell[CellGroupData[{

Cell["uma dimens\[ATilde]o", "Subsection",
 CellChangeTimes->{{3.711278938187401*^9, 3.7112789418284173`*^9}, {
  3.711278975300766*^9, 
  3.7112789792386894`*^9}},ExpressionUUID->"51d57921-b536-46df-925e-\
7e1448866018"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", " ", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], 
   RowBox[{"Cos", "[", "t", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7112789905836587`*^9, 
  3.7112789924119806`*^9}},ExpressionUUID->"3e667715-c0b9-412e-b6a1-\
08ced02a4a2d"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Sin", "[", 
      RowBox[{"t", "-", "x"}], "]"}]}], "+", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", "+", "x"}], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7112789930057955`*^9},ExpressionUUID->"22c00e9d-9600-448b-aa70-\
6ba1500bf284"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["duas dimens\[OTilde]es", "Subsection",
 CellChangeTimes->{{3.711278938187401*^9, 
  3.7112789418284173`*^9}},ExpressionUUID->"55bf1320-c9df-4973-b587-\
c89a201325ed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", " ", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], 
   RowBox[{"Sin", "[", "y", "]"}], 
   RowBox[{"Cos", "[", "t", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711276180203395*^9, 3.7112762036434145`*^9}, {
  3.711276480438797*^9, 
  3.7112764894866447`*^9}},ExpressionUUID->"323837db-648f-467f-8898-\
ce8037b2c96d"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Cos", "[", 
      RowBox[{"t", "-", "x", "-", "y"}], "]"}]}], "+", 
    RowBox[{"Cos", "[", 
     RowBox[{"t", "+", "x", "-", "y"}], "]"}], "+", 
    RowBox[{"Cos", "[", 
     RowBox[{"t", "-", "x", "+", "y"}], "]"}], "-", 
    RowBox[{"Cos", "[", 
     RowBox[{"t", "+", "x", "+", "y"}], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.711276212581876*^9, {3.7112764837360277`*^9, 
   3.711276490377365*^9}},ExpressionUUID->"e0140990-e685-46d7-b006-\
2faa5503abdb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["tr\[EHat]s dimens\[OTilde]es", "Subsection",
 CellChangeTimes->{{3.711278938187401*^9, 
  3.7112789512513056`*^9}},ExpressionUUID->"ec692e01-32ac-4210-96bf-\
7c65a40db370"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", " ", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], 
   RowBox[{"Sin", "[", "y", "]"}], 
   RowBox[{"Sin", "[", "z", "]"}], 
   RowBox[{"Cos", "[", "t", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7112787530581226`*^9, 
  3.711278766575201*^9}},ExpressionUUID->"c886ffe8-ae19-484e-8a60-\
1b54ea77d3fa"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "8"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"t", "-", "x", "-", "y", "-", "z"}], "]"}], "-", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", "+", "x", "-", "y", "-", "z"}], "]"}], "-", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", "-", "x", "+", "y", "-", "z"}], "]"}], "+", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", "+", "x", "+", "y", "-", "z"}], "]"}], "-", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", "-", "x", "-", "y", "+", "z"}], "]"}], "+", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", "+", "x", "-", "y", "+", "z"}], "]"}], "+", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", "-", "x", "+", "y", "+", "z"}], "]"}], "-", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", "+", "x", "+", "y", "+", "z"}], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7112787672471495`*^9},ExpressionUUID->"07371cd7-20b8-49d1-af6f-\
c5d89bc83c9d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["f\[OAcute]rmulas de prostaf\[EAcute]rese", "Subsection",
 CellChangeTimes->{{3.711278938187401*^9, 
  3.7112789677687063`*^9}},ExpressionUUID->"dac385d6-0e11-415d-a520-\
a2825d49750b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", " ", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], 
   RowBox[{"Sin", "[", "y", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.711278838551689*^9},ExpressionUUID->"30d1808d-ceef-440d-bd2c-\
cf370c86ed84"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"x", "-", "y"}], "]"}], "-", 
    RowBox[{"Cos", "[", 
     RowBox[{"x", "+", "y"}], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7112788391298776`*^9},ExpressionUUID->"9c5d4613-af37-458f-a9f3-\
46c38e48a079"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", " ", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], 
   RowBox[{"Cos", "[", "t", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711278849662259*^9, 
  3.7112788547721834`*^9}},ExpressionUUID->"123e14c3-a3ce-417f-9459-\
e380d309161e"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Sin", "[", 
      RowBox[{"t", "-", "x"}], "]"}]}], "+", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", "+", "x"}], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7112788561317053`*^9},ExpressionUUID->"6556dc32-3511-4140-bd90-\
c952dea3625a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", " ", 
  RowBox[{
   RowBox[{"Cos", "[", "x", "]"}], 
   RowBox[{"Cos", "[", "t", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711278866585953*^9, 
  3.7112788681955013`*^9}},ExpressionUUID->"71c3472e-0fff-40e1-ba54-\
dff81f60025f"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"t", "-", "x"}], "]"}], "+", 
    RowBox[{"Cos", "[", 
     RowBox[{"t", "+", "x"}], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7112788687580624`*^9},ExpressionUUID->"09d28697-60ad-47ea-877c-\
126fc8991be7"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{759, 833},
WindowMargins->{{Automatic, 256}, {Automatic, 61}},
Magnification:>0.9 Inherited,
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 237, 4, 150, "Title", "ExpressionUUID" -> \
"66d1b618-ba33-48eb-8652-e3eb358e8652"],
Cell[CellGroupData[{
Cell[842, 30, 201, 3, 62, "Section", "ExpressionUUID" -> \
"91c78b26-7ad0-4de9-827f-e955ed33d2ef"],
Cell[CellGroupData[{
Cell[1068, 37, 579, 17, 28, "Input", "ExpressionUUID" -> \
"53a23359-c004-4b63-a83e-b354ce45e151"],
Cell[1650, 56, 229, 7, 57, "Output", "ExpressionUUID" -> \
"f938a2ee-b83f-417c-a349-5e3807967c0c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1928, 69, 225, 5, 62, "Section", "ExpressionUUID" -> \
"39271651-6147-4890-800c-a3069d62a49c"],
Cell[CellGroupData[{
Cell[2178, 78, 330, 8, 28, "Input", "ExpressionUUID" -> \
"446c2d51-bb72-4c17-ab27-a726fbefc491"],
Cell[2511, 88, 164, 3, 28, "Output", "ExpressionUUID" -> \
"6d8f244a-a9c7-4121-85e5-fc2895b754fe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2712, 96, 432, 9, 28, "Input", "ExpressionUUID" -> \
"60454262-9e67-4002-bee5-a130468fcf65"],
Cell[3147, 107, 228, 3, 30, "Output", "ExpressionUUID" -> \
"5f2b0a74-459c-4305-992b-225c6b499764"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3412, 115, 335, 8, 28, "Input", "ExpressionUUID" -> \
"95c4c291-7f34-4c5b-8e2e-2c093b5142d1"],
Cell[3750, 125, 162, 3, 30, "Output", "ExpressionUUID" -> \
"0812941a-2b56-4430-8c0d-84034165c221"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3949, 133, 352, 11, 28, "Input", "ExpressionUUID" -> \
"59aa8bf9-5ee3-4921-918e-11833beebfea"],
Cell[4304, 146, 186, 4, 30, "Output", "ExpressionUUID" -> \
"c40c7338-b5e7-4642-b963-906cf2eec34b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4527, 155, 341, 8, 28, "Input", "ExpressionUUID" -> \
"8fb9fb46-f2f4-4dc1-8a4e-446b5b2935d8"],
Cell[4871, 165, 185, 4, 30, "Output", "ExpressionUUID" -> \
"7509e72a-edba-40c9-9083-1778b2fab489"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5105, 175, 157, 3, 62, "Section", "ExpressionUUID" -> \
"f64b8d6b-a8b2-44e4-9c80-6991f0d31c6d"],
Cell[CellGroupData[{
Cell[5287, 182, 793, 24, 28, "Input", "ExpressionUUID" -> \
"1e410407-8a8f-4ca3-98b1-560ddb100365"],
Cell[6083, 208, 301, 7, 28, "Output", "ExpressionUUID" -> \
"1ffcdc3d-97b3-435b-920f-86a56da269bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6421, 220, 363, 9, 28, "Input", "ExpressionUUID" -> \
"d4a0b557-c021-4d58-8752-f9375a011285"],
Cell[6787, 231, 168, 3, 28, "Output", "ExpressionUUID" -> \
"15ae3b9f-d217-4449-b2e7-a4d349fb8f03"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6992, 239, 298, 9, 28, "Input", "ExpressionUUID" -> \
"714bcd86-c458-42eb-a1db-320e938a5c24"],
Cell[7293, 250, 177, 3, 30, "Output", "ExpressionUUID" -> \
"87b4e354-fbfb-415c-8b77-73b134914a31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7507, 258, 269, 8, 28, "Input", "ExpressionUUID" -> \
"46e2fdf6-7a9d-4258-89d5-5f8382842f96"],
Cell[7779, 268, 555, 18, 59, "Output", "ExpressionUUID" -> \
"2fb3bb4d-6e65-4276-a2bb-f92e74cd8381"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8371, 291, 425, 13, 28, "Input", "ExpressionUUID" -> \
"6e88182b-5860-4b6f-8e71-6cf4f320eee9"],
Cell[8799, 306, 367, 12, 54, "Output", "ExpressionUUID" -> \
"546901a1-84cb-47c9-88ce-db6c41c0e0da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9203, 323, 536, 17, 28, "Input", "ExpressionUUID" -> \
"0cdc6293-afee-4604-a437-b8ea94ec4bab"],
Cell[9742, 342, 251, 6, 28, "Output", "ExpressionUUID" -> \
"e15f851e-1bbd-47bc-9fa3-5f9b9099e241"]
}, Open  ]],
Cell[10008, 351, 188, 4, 28, "Input", "ExpressionUUID" -> \
"807440af-ff9f-4659-8dbd-73cd80b7ad80"],
Cell[CellGroupData[{
Cell[10221, 359, 488, 15, 28, "Input", "ExpressionUUID" -> \
"2276e661-f4b4-4a7d-8bb3-a06bcc688670"],
Cell[10712, 376, 5058, 104, 216, "Output", "ExpressionUUID" -> \
"cae64f5f-cf2e-4ee9-bf2b-092dd7251098"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15807, 485, 496, 15, 28, "Input", "ExpressionUUID" -> \
"c96483d0-999d-426b-9891-0ec45aeb1f7b"],
Cell[16306, 502, 4839, 100, 210, "Output", "ExpressionUUID" -> \
"daa1acf6-4d52-4f30-be76-9165686e65f0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21194, 608, 194, 3, 62, "Section", "ExpressionUUID" -> \
"e9b0018c-1613-479e-b4fa-eb30aa299bfb"],
Cell[21391, 613, 282, 6, 28, "Input", "ExpressionUUID" -> \
"1c875f34-a19c-4021-ab6d-5261920c24ef"],
Cell[CellGroupData[{
Cell[21698, 623, 221, 4, 45, "Subsection", "ExpressionUUID" -> \
"51d57921-b536-46df-925e-7e1448866018"],
Cell[CellGroupData[{
Cell[21944, 631, 278, 7, 28, "Input", "ExpressionUUID" -> \
"3e667715-c0b9-412e-b6a1-08ced02a4a2d"],
Cell[22225, 640, 360, 12, 51, "Output", "ExpressionUUID" -> \
"22c00e9d-9600-448b-aa70-6ba1500bf284"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22634, 658, 172, 3, 45, "Subsection", "ExpressionUUID" -> \
"55bf1320-c9df-4973-b587-c89a201325ed"],
Cell[CellGroupData[{
Cell[22831, 665, 363, 9, 28, "Input", "ExpressionUUID" -> \
"323837db-648f-467f-8898-ce8037b2c96d"],
Cell[23197, 676, 586, 17, 51, "Output", "ExpressionUUID" -> \
"e0140990-e685-46d7-b006-2faa5503abdb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23832, 699, 178, 3, 45, "Subsection", "ExpressionUUID" -> \
"ec692e01-32ac-4210-96bf-7c65a40db370"],
Cell[CellGroupData[{
Cell[24035, 706, 348, 9, 28, "Input", "ExpressionUUID" -> \
"c886ffe8-ae19-484e-8a60-1b54ea77d3fa"],
Cell[24386, 717, 906, 23, 73, "Output", "ExpressionUUID" -> \
"07371cd7-20b8-49d1-af6f-c5d89bc83c9d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25341, 746, 190, 3, 45, "Subsection", "ExpressionUUID" -> \
"dac385d6-0e11-415d-a520-a2825d49750b"],
Cell[CellGroupData[{
Cell[25556, 753, 250, 7, 28, "Input", "ExpressionUUID" -> \
"30d1808d-ceef-440d-bd2c-cf370c86ed84"],
Cell[25809, 762, 338, 11, 51, "Output", "ExpressionUUID" -> \
"9c5d4613-af37-458f-a9f3-46c38e48a079"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26184, 778, 276, 7, 28, "Input", "ExpressionUUID" -> \
"123e14c3-a3ce-417f-9459-e380d309161e"],
Cell[26463, 787, 360, 12, 51, "Output", "ExpressionUUID" -> \
"6556dc32-3511-4140-bd90-c952dea3625a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26860, 804, 276, 7, 28, "Input", "ExpressionUUID" -> \
"71c3472e-0fff-40e1-ba54-dff81f60025f"],
Cell[27139, 813, 338, 11, 51, "Output", "ExpressionUUID" -> \
"09d28697-60ad-47ea-877c-126fc8991be7"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)