(* 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[     64312,       1647]
NotebookOptionsPosition[     56123,       1488]
NotebookOutlinePosition[     56500,       1504]
CellTagsIndexPosition[     56457,       1501]
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, 3.729409826553173*^9, 
  3.729495881640813*^9},ExpressionUUID->"d86a3843-e4b1-45aa-9648-\
03dd84a8849d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "^", "3"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"a", " ", "f"}], "]"}], "-", "1"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"f", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"a", ">", "0"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7294197497463617`*^9, 
  3.729419808455682*^9}},ExpressionUUID->"efbb76cf-52f8-4993-aa83-\
1b3d87b7c492"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[Pi]", "4"], 
  RowBox[{"15", " ", 
   SuperscriptBox["a", "4"]}]]], "Output",
 CellChangeTimes->{3.7294198098308277`*^9, 
  3.7294958818127065`*^9},ExpressionUUID->"9a8c9509-8b54-4916-bd0e-\
f51fa870a993"]
}, 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}, 
   3.7294098406952906`*^9, 3.729495006094706*^9, 
   3.72949588184396*^9},ExpressionUUID->"215efc79-e062-43fd-9aa0-\
d11b0d1c6414"]
}, 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, 3.729409840804676*^9, 3.729495008188677*^9, 
   3.7294958818752136`*^9},ExpressionUUID->"2e70416b-0f6f-4ddf-8273-\
3d8b8f1f0952"]
}, 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, 3.72940984083593*^9, 
  3.729495011329633*^9, 
  3.7294958819064665`*^9},ExpressionUUID->"24e3feec-8977-42d2-988f-\
2b8b2bd40b69"]
}, 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, 3.7294098408515563`*^9, 
  3.7294958819220934`*^9},ExpressionUUID->"46ffa7c7-7c64-440f-817f-\
60a62dfd8781"]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData["5.670366999999999677820484295099`5.338637820431227*^-8"], \
"Output",
 CellChangeTimes->{3.711115951742476*^9, 3.7294098408828096`*^9, 
  3.729495881968974*^9},ExpressionUUID->"e4e254f2-9367-4b8a-876c-\
d72aad90dd27"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell["\<\
Note que \[EAcute] preciso expressar a radi\[AHat]ncia em fun\[CCedilla]\
\[ATilde]o do comprimento de onda;
 o m\[AAcute]ximo em unidades de comprimento de onda n\[ATilde]o coincide com \
aquele em frequ\[EHat]ncia\
\>", "Text",
 CellChangeTimes->{{3.729495562747192*^9, 
  3.729495625222534*^9}},ExpressionUUID->"398eda83-c911-4b9d-83e9-\
9724a10f0e6f"],

Cell[CellGroupData[{

Cell["solu\[CCedilla]\[ATilde]o num\[EAcute]rica", "Subsubsection",
 CellChangeTimes->{{3.7294957964749794`*^9, 
  3.7294957995690556`*^9}},ExpressionUUID->"a642ffe8-4935-498d-90af-\
fb4f473055d1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "^", "5"}], "/", 
             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}, {3.7294953952920227`*^9, 
  3.7294954150441065`*^9}, {3.7294954915052996`*^9, 
  3.7294955005218763`*^9}},ExpressionUUID->"1e410407-8a8f-4ca3-98b1-\
560ddb100365"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"b", "\[Rule]", "4.965114231744276`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.711120505084728*^9, {3.7111205988734274`*^9, 3.7111206042490053`*^9}, 
   3.7111207251485043`*^9, 3.7294098538216753`*^9, 3.7294213372732496`*^9, 
   3.729495501678249*^9, 
   3.7294958821096134`*^9},ExpressionUUID->"a18e4b9f-bc2f-4a95-aa6a-\
0e13d90c5344"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"h", " ", 
   RowBox[{"c", " ", "/", 
    RowBox[{"(", 
     RowBox[{"k", " ", "b"}], ")"}]}]}], "/.", "u"}]], "Input",
 CellChangeTimes->{{3.7294949862019815`*^9, 3.729495001906763*^9}, {
  3.729495094791565*^9, 3.7294951042456865`*^9}, {3.7294955120699697`*^9, 
  3.7294955188519354`*^9}},ExpressionUUID->"48399903-17f3-4283-8ce7-\
abee673e3902"],

Cell[BoxData[
 RowBox[{"{", "0.002897772914526216`", "}"}]], "Output",
 CellChangeTimes->{{3.7294949920932283`*^9, 3.72949502575303*^9}, 
   3.729495105089526*^9, 3.729495519695774*^9, 
   3.72949588212524*^9},ExpressionUUID->"4a8d9083-8471-4076-a1ca-\
07032b41c8f4"]
}, 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, 3.729409853868555*^9, 
  3.7294956302386894`*^9, 
  3.729495882156493*^9},ExpressionUUID->"c08dd513-a43b-4561-b607-\
e6008dc1d768"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solu\[CCedilla]\[ATilde]o gr\[AAcute]fica", "Subsubsection",
 CellChangeTimes->{{3.7294957790200124`*^9, 
  3.72949578373926*^9}},ExpressionUUID->"282bf793-ab68-4127-914a-\
75aa0d8c9ab6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"5", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], ")"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"Exp", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "4", ",", "6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711120925442354*^9, 3.7111209659022636`*^9}, {
  3.7294956999022894`*^9, 
  3.7294957199356527`*^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:eJwVzHk8lAkAxvFpbAeqeed8OxRCVDZrJbU2PeujU7GVqFbIlRaZQa6cxZBr
RULDvMKG5MhOIc0aoyhbulBS2yEkRDWpSHb2j+fz+3z/ebRd/XZ60Gk02nbl
/u+CNVJlCDxKiTd43MDH/eiJtnyllz+8sD5BzkfizbWiX6YRSJ2dJV99nY/x
fZdNjtMJiBWT6pmtfHRFVLrPmE5AxWm0wr6Dj+yms82z1QhoB2+wevuGD66t
MHE+h0DWFkNdP54AhKcty8SAwLS6sxH1hwVwj/tb3rKLwBU9qm3dKn+Mz/Rf
FBpOoL/a0MxL4Y94/02aTkUEtDz5mvtrAyBo+9JYdIfAfIZRrzQzEOKU0bmz
Piv/Z1mEfvQ5AgOLa19v6TCxNDlSZ8I5CCWddSev2zDxRDYc82pPMLzvf7j7
OIgJ1znOpRVbQ5DUoHZxRwETd3xz6K2/heItw9O8t5WJ9iC2qa9HGDZt7vG5
8J6JpxqlpGXgUXwTrFvfsYiFId2eKMtz4fj0rbt+wUYWnIRLg4vvRMAmwqGr
UcBCcVPcsxjNKIh6FHm5uSyEiAqaas2jsby8c/apayysok/U17yMBumVqTE8
wkLVZL/jfioGG4XZna7z2MjVLXnyj/0xPMgMMf7Jig0Ht9q8Ab3jsE8JM9ng
x8bI6oabzPHjWPha9swni40WwnbmjzdiYbHqleGYnI1LM0Pv0i7GobDHWjd3
kA2NJbZR4RlCTIV1yI+wObDTCtf2CYtHrcrP9IsWHFRphlrYRSVAMtI3OOsg
Bw3Zhu/fhZ/AnNuHg+TpHJjlJN+yFyXCMX1eSaWUg89+ElmxLAlvr8yIrevl
4GUZkZ/0NBlP2+/R9JhcDLcK9+zVTAVj5wv98rVc/FkmKvp1zx8wq2GNeR3g
YpPUN7vKOg3SOdoewmQurATvPN9PpSGuJSBSJuGiVTqg0Kg8iTL/wjWOz7kQ
6o8VjQamgx1D5nFUefjrI13ma5oBQXB5Cc2Yh+qKFJW6Lxn43llrt40jD6+F
9+6GPjyFFecfltXG8iCt6b/KqsxEfJ93YWwVD/Fp9bWxBafRpbbEMrabhxfW
9MhnoiwcTtdIylchsU1B7NJIzYaLuiJwsRGJgs2Ne2uoHGT2M1TrHEi45OXl
d5eegaxsu1V8FAnatMah1XUibD7gpVVznkTJFSvG7cFcsMNazqk8IGF7dCfr
JleMrQe1s2uUZo8FBPAWinHM7ugJ73YSugzjJnctMUZXGvk86CAxNKBn9N0K
Mdp6ThsXPiJRFJ2+zgZiJGz3vGr5LwlPrx17Gd5ifNWafj9mgARRIZVsbBTD
ZK5zk+kbEudLl5pXN4vx+0StZEDp3q7gS4tvidHV4ZO1Y4jEMpdI4XinGJcT
2x21R0ikH2gTS4fEECgK+2UKEhEf9NoE8yiUvJh8FPiRREKrefHQIgrP2xxa
DcZIsNwGg7x0KNiUqpenfSLhuOH6uOtKCoZOAf4u4yTUAnVy3KwouFnfduNM
kEhrbl7Rt4XCmTX6u28oXRHmfPmQLQVVdrfZD5MkVA9pSgL2UQDNdNkrpVn9
efrjzhRChlMXZH8j4W4jy4jxoFD5+LX6tikSKnbVn1W9KfS1WE5OKS2XUPYZ
fAr/AVaiML0=
       "]]},
     Annotation[#, "Charting`Private`Tag$3317#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVzms4VAkAxnGxklLOzBxzrFRs2VSWtSqS5c2KbvQgVEsXInYGDbmWYhom
dymZoo2j3SaTVZtCpUU2JUblljxdLCNdJnab0Ljt9OF9/s/v22vsH+4RqK6m
puaq2pca2NSoQsDQNXl9zhYOniSOS4tUvvyTX+p7dw7SHqwpWDeDgHVIb+tG
Hw6UO29YHVMnEDIoCdTy56A7oXzfTE0CM749VJ0Vw4HobvE9ndkEnNmlK6Q0
B3pbU9K+JglUZ7ikMpQcEEFbmVamBFpkzTUVEi72Jd+pb/QksFnzzH3B2jAo
tSIWxB0m8Olkq0nZ3XAII1wW7bpAgPRsrvOUHABP+rnuQiuBFMJIvy6Hh18z
h+fNGiPQvaOvLZMXAVP7honmxQwMlJ5ZHsiLhLiz+sTfbgzw5Fbh6XEHwXny
8dGzaAYu3cku0z8chfS/Zl91pxlQevde9KOj8UE3aK2siQHukgbThvoYuGzo
417+j4GLYzYbP7yNxRTvR4eOBUzY+jfIZ9nFY3Sq55aBMxMGnqVmZMohuCX4
dNfxmDjltbopa/IwCvoU5woLmYirlCYrE49geVmnzqkGJkStPf2y8aOggvMM
5UNMrJOZa/A7EuGcIur012ehyjqkqECchLa8WEtbJxa2mRdJJSI+vDPjrdaH
syAYWRKxJ+cY5g/WvuTms9A1PjJ+gy+A/cp+s5F6Fmydjbiep5NR0rd5SeE7
FlIlNH/rhRRMx3fUR7FI7IzjWHKqhajSsFO/ak+iR9chu0BxHBVDA+9m7Sdh
FoBn85alYW5LWHR9Lgnzm5EPq4Xp8M3VF5fXkODIGc93/JuBDzdnCqplJL5y
j1wo88jC8/bHaiYMPfxRc8vlZX82dD16l5at0cOfoRUfLSpzYF3JHAneqwcH
/ni3ZtIJ1Mw1DkzJ0EPy6LXrqUG5SG6MPFJboYeu0p+VU84nIYkosfF9pYeJ
gRKJofMpsJKoc6Q2GzH9gt/kDnngxZSJ1SxV/lQlssVpfLfbyMvNlw37ep1F
JwPysaK0S1IlYMPf0sNOlCiCcIBTIrjChveU34OwhjPonv2No6CHDa3LQ1fs
mQUIyzVML9Kg8Llw+vyR7YXYM0dxcKEFBb+WZfI1D88h77WudrUPhbGAySit
1edRK3F1Eh6l0JSwb6m2VxE27A02qiylMBzrFBppWgxWfOPvGm0UPk78M2Ey
WoxN+41FlSpv2l5i16ksBn/boVROOwXZAXtb4VQxhs0tuG0dFLxNC8LfadKQ
9p22LHlKgc/TabxN0jjuGnTb8QWFF0XtG4/9QGPCSPNJ0hsKiuyr4qIwGlbz
dt9d9ZaCCXuxPDiCxi/jVRVvVHYZtFBYRtPo7uDmu7+nII+6vuleAo0bae2+
xkMUNDTEC8YyaPAUJa9rFRR0tdUTEiU0xL2TTw9+Uv054TS5rZzGK6lPk+kI
Be7rTMfl12i4XZpTljNKQTzwyLDrJg2zXZERe5QUQuBH2jbRCNjcEkCOUzhL
zK8jpTTO2iz1uq+yxwb9lcOPaWizeqy/n6QQ0BwaeqmbBtRWLetXuf8suVL4
nEasPMtANEXBtSO/LrCXRvmzwTlbpil0tC5kr5fRGGh0nJxWOXrgkaXJGxr/
A9UQN6E=
       "]]},
     Annotation[#, "Charting`Private`Tag$3317#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{4, 218.39261127505677`},
  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->{{4, 6}, {218.39261127505677`, 2420.5726456910443`}},
  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}, 
   3.7294098541498346`*^9, {3.729495712059823*^9, 3.7294957209201336`*^9}, 
   3.7294958822815065`*^9},ExpressionUUID->"059412af-cc4b-4435-950f-\
14f29050f013"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"5", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], ")"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"Exp", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "4.9", ",", "5.0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7111209867240777`*^9, 3.7111210024883084`*^9}, {
  3.7294957291241226`*^9, 
  3.729495745438344*^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:eJwV0384FHYcB3DdnegQ65vtsZbQ6FqyplU6snetNMrDbqHnWY1+SCVxbQo9
dOm+32uU3Upy0vzqrB8y5Knrxz03bYoTdeahUI9STcoO0S/Jvv3xed7P65/3
X++P6/p4WbTAwsIimN/7nHfqikajIRAdubb66D9KnHg9WFLEbZtVSWu4JwfN
LD/F3b9yoOop91DvkasXuZ85x09EixJVnvFP73AHeGys7+H2qnBd9HEewdWI
L0OkrUpILrCuPO65Znne3dtKTKkNnZF/jMDLX/W5+z0lSJ/5bf1xAu0E38D8
J0psVkzqaC4gWDL+NgsfUiI8Ur3XVESQfcB2btc7JcKCnBJGSgjUYbd2rRJT
VBa6x1iUEkQJU7ViR4ppwkWlc04SHDtYpCxzofCo/ONs+GmCrqTU5c6eFBlG
rT6ijCDhqLr81nyKMXOpo7KcwPqInSRhCYVJMWtnZgXB+nU3C0OCKfzW2hTs
ryLwqY49NxpBcXHZC/vKagK/7lLvvA0UhzUbf64+T7BrrkmeuJ0i7fXdoG4d
gf5WsBQpFAJtVYvVZYID+hWknVJ0XxbHWOkJhhU2GyrVFK334hZ7GwgIbS5K
zqdwj1v1qU8NwVIXt4q03ymYVUDIlr8IQgZ2NiWeo1D0HVqiriWwk87O8DVQ
tPlv8D90nSA0ecd1PyPFV/n+6YZ6gkTatueLVgpR9PGm6w0EukluDuvuU6xP
juiubSRwC9vXu/YZRbPmE5hvErS7zzsR8oqiwD1a+9xE4Fsb2pciZEjV62TT
WwjGTT8hzbdnGCqMqfumlUDwQLIycwpDnVkTEHib4IeMtLwqD4byoDbbxHYC
p0L7tSZvhgGH3I7dnQQOXvEVM/wZGt2qdyTdIzilECYEBTJcQse3hV0Ea6SN
tpvCGERGurDkAcHj3zb1XYhiiIr03WJ6SJC+xr5FGMfgFPVTUftjgshhm1Ca
xBBbZl18p4cgZZ/a0LyPoUl0slf4lGBzembJFDVDVp3Rd0IfwUyVsCH3GO/L
fdWy0Ewge+OXPekkQ8O5vfOjBvi+UouaVlczHJZmFa57TjCtZ3m/ycCwrVEr
yxomiMvx9wq8wVDcALucl9zGX4oH2xjkjgvUh1/z/7ixzCOmm0EW6/P9lREC
1+LihR1mBrWn3uvPUYI50k5PxQhDwZlxXvXcjumXfKq5yz8LmN3MXdZht6yH
u1Fyc9ZDbnEdiQx9yyB2vy+xfsf3UJyf6zLKQKdaTg99769LXGveMaRMDP6o
i3tHbGamQKBCxsFfP3zCbfjXrnQ+t8a21XGQW5tjWbOVWyeOnCwaI5CrV71q
5h4eL/9Awn3NQb6tRKhCwli2TQK33yzt1qWWKuxJuyNO5hYH7z6QxJ01OlWc
zj1Qea28jPvsSKl1Nrd3oH5o8ngVel/qLHXcvsaZ7BH3m52johpunevpM05W
Kkx4sVhk5GZ/F5iCuSVDRkEnt6y/1/k894If7QWPuFfvRkAvd8Dgd+P+424N
s9nubK1CuDzX4iV3u2JFjow7ur9zbIw7ctTCwLj/Bxa6LL0=
       "]]},
     Annotation[#, "Charting`Private`Tag$3420#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV0ns01GkYB/CJkahW66VOFy0iU0nKsbnvl5MhXbZU2uq0ppF0XWy7ndpO
Le3vUpKMsZmpHLeldBklYVayqI2xwqyTMJXotsTIrTSVffvjPe/5nPOc5708
XztpdGikkUAgWEXX5909/5ZSqSTQb3/5jyiZwR+jAzlZ1ObalbLN1FYh81T5
1K3eTmGJ1EPdv1epqW+aeT/VUxc6R/e0UmsuP/5QLGPgcs3Od8ZZAs/hqSGB
cgaiEq7jLHX++1Af6RkGM++ucTp/jsC42i0u/TwD0qv/UJtOkGLhXzj3EoOd
cZbt2gyC4jT5ZG0xg7Dw5PimLHq+NHVWYDWDDSHTYww5BIvWdf52v5HB9UzH
KEEeQbqZTcTBRwy+MvbNc71IsNXBytarh8Hc6wVXwy4RaPNM3O+8Y5CgyS3f
eIVA0V9rtM+ExZg+z5pREQQXL1csIiya4hYcOHmNQL1VYTzFloXP1okZxwsJ
3lu+EJQ4s1AHjlhcLyJwezSad8iLhVy5/URRMUHZ6rjd3wWxODr6KKSrlGCj
w27p+g0sjHILm03LCBJkc+TTIlh0lZlHmZYTZDcOzhiOZvHg8T7/JRUEy+q7
a94cYeG4b72DRyW9z+LAl6YnWXCm4m93VRPcvjlU7qdkEdebEpB8l6Bz2ezF
PhdYtPhF+KXcI7jytzBobRGLb877HauoJRhfs9ziRBULYWT6/Xt1BFnqZ6db
GlhID23sultP5817POzWsdAqZ0HfQGBwLau272GR4RiZO9hE4C3WZUa/Y3Gk
vDR0TjOBfFOFunM8h6HMqJrgBwTHm1TimdYcavRK8fKHBLVpVv077DmoQlom
/dxGsKNkdUubK4c3UxTth3UEI641ryV+HOrti348+Jjg1JJe5aUVHP5E+9rM
DpqHqqQjszdzEGpYz5xOgjtrJJXZURwk4d67mp4RuO9Xt4Ue4DBd8lNW2wuC
2IAgqSXDYc+VCdmtrwjC/T11qTIO94UXu417CBYH3HAOzOSQVKPxNuulefXV
WxuraD/Fu2ZPPUHDfvnh/lsc6m7Efy15Q/NjSGOz6jjIvZIytw0S6CSmy75v
5bC3Pjc0aZgg3k0lW/mKQ3YdJp95S9Ae9G964AiHWOulyfJR+p7XiVKBkEfo
Ho8ttwx0vj+cq+iz5JHsXO7y10cC/xU2n57b8si4PM6llrqgY2Cvgx0P1Xzx
Qi21evVenZS6XtSw4Bm1e1lI+RNqc8enogmf6P8aF3Ot9jxYG5M5a6jt7gR5
1Dvw+OWLVdM6qGP4iKk3RTwSTsmm/kd9RlKiHKRWTnpgPUA9Ji6wWTKPR6l5
uJVwjCAo4KRTAfXw+NgvRdRltkMB+fN5xIylToyh3tmXoEh35vHr0VbzQ9SN
22zn6qiTPtqYH6N+8mFT0YyFPK4a8iakUp++ptamUXe/LTUppfbzWTAtxYXH
+wMfhZXUE2d25jdSm434CzXUF1x8fS0W8RANaYx01CaGJ5GJ1Ev3Wxg9/1xf
4mTQUIsH1o3ro45XEZmZK4+wWIXgLTXpynEKpo7s142NUW8Je3ibo/4fQOI1
JA==
       "]]},
     Annotation[#, "Charting`Private`Tag$3420#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{4.9, 658.0199220731428},
  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->{{4.9, 5.}, {658.0199220731428, 742.0657936955789}},
  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}, 
   3.7294098541810875`*^9, {3.7294957377969136`*^9, 3.7294957456727448`*^9}, 
   3.7294958823127594`*^9},ExpressionUUID->"1367d916-b89e-4807-a243-\
6a3f2d819550"]
}, Open  ]]
}, 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, 3.729409912691963*^9, 
  3.7294958823440123`*^9},ExpressionUUID->"763b37e5-6ca0-4bdb-b0a3-\
3fd7fed94b9c"]
}, 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}, 
   3.7294099127075896`*^9, 
   3.7294958823440123`*^9},ExpressionUUID->"3d376d46-b9c6-42a2-8327-\
e78cb5d63d7a"]
}, 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, 3.729409912723216*^9, 
  3.729495882359639*^9},ExpressionUUID->"d4cdad5c-0b97-4a3b-95c1-\
ed78581757e1"]
}, 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, 3.729409912723216*^9, 
  3.729495882375266*^9},ExpressionUUID->"83363e08-588e-4bf6-a712-\
8a7412989595"]
}, 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, 3.729409912738843*^9, 
  3.729495882375266*^9},ExpressionUUID->"ba7b947e-0ff7-41c4-b5f5-\
079453327f5a"]
}, 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, 3.72940991275447*^9, 
  3.729495882390893*^9},ExpressionUUID->"98946ae3-67bf-4acb-b6df-\
eef3e11e6a0f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Contando os modos", "Section",
 CellChangeTimes->{{3.729356731114981*^9, 
  3.729356735427936*^9}},ExpressionUUID->"869fe2d0-21bf-46b5-8c06-\
3a4e4c37ed12"],

Cell[CellGroupData[{

Cell["em 2D", "Subsection",
 CellChangeTimes->{{3.7294150156709213`*^9, 
  3.729415017467987*^9}},ExpressionUUID->"e4848a95-d266-481c-8e2b-\
1bbc526450f5"],

Cell[CellGroupData[{

Cell["modes[] e texto s\[ATilde]o funcoes auxiliares", "Subsubsection",
 CellChangeTimes->{{3.729415172294152*^9, 
  3.729415185092377*^9}},ExpressionUUID->"7a3a412e-3bd6-4be8-823d-\
b9d9f611f218"],

Cell[BoxData[
 RowBox[{
  RowBox[{"modes", "[", 
   RowBox[{"w_", ",", "n_"}], "]"}], ":=", 
  RowBox[{"First", "[", " ", 
   RowBox[{"w", "[", 
    RowBox[{"[", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", " ", 
       RowBox[{"Position", "[", " ", 
        RowBox[{
         RowBox[{"w", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"First", "[", " ", 
          RowBox[{"Nearest", "[", 
           RowBox[{
            RowBox[{"w", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "n"}], "]"}], " ",
           "]"}]}], " ", "]"}], " ", "]"}], ",", "2"}], "]"}], "]"}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.729413207677286*^9, 
  3.729413273494939*^9}},ExpressionUUID->"0a6ea8ac-34fc-40c4-ae5e-\
cb625d0b9325"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"texto", "[", 
    RowBox[{"w_", ",", "n_", ",", "\[Delta]n_"}], "]"}], ":=", 
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<estimativa        contagem\\n\>\"", ",", 
      RowBox[{"NumberForm", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "4"}]}], ")"}], " ", "n", " ", "\[Delta]n"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"12", ",", "3"}], "}"}]}], "]"}], ",", "\"\<\\t\>\"", ",", 
      RowBox[{"NumberForm", "[", 
       RowBox[{
        RowBox[{"modes", "[", 
         RowBox[{"w", ",", "n"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"12", ",", "3"}], "}"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.729413811341015*^9, 3.729413971071412*^9}, {
  3.7294140423567486`*^9, 3.7294140496679745`*^9}, {3.729414160137639*^9, 
  3.729414160372039*^9}},ExpressionUUID->"0491a190-2d8f-40c1-958a-\
e8e2c34ae876"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"rede", ",", 
        RowBox[{"\[Delta]n", "=", "0.5"}], ",", "u", ",", "w"}], "}"}], ",", 
      RowBox[{
       RowBox[{"rede", "=", 
        RowBox[{"Tuples", "[", 
         RowBox[{
          RowBox[{"Range", "[", 
           RowBox[{"1", ",", "max"}], "]"}], ",", "2"}], "]"}]}], " ", ";", 
       "\[IndentingNewLine]", 
       RowBox[{"u", "=", 
        RowBox[{"BinCounts", "[", 
         RowBox[{
          RowBox[{"Norm", " ", "/@", " ", "rede"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"0", ",", "max", ",", "\[Delta]n"}], "}"}]}], "]"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"w", "=", 
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{
             RowBox[{"0", "+", 
              RowBox[{"\[Delta]n", "/", "2"}]}], ",", 
             RowBox[{"max", "-", 
              RowBox[{"\[Delta]n", "/", "2"}]}], ",", "\[Delta]n"}], "]"}], 
           " ", ",", "u"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"rede", ",", " ", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[\(n\), \(x\)]\)\>\"", ",", 
            "\"\<\!\(\*SubscriptBox[\(n\), \(y\)]\)\>\""}], "}"}]}], ",", 
         RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
         RowBox[{"AxesOrigin", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"texto", "[", 
           RowBox[{"w", ",", "n", ",", "\[Delta]n"}], "]"}]}], ",", 
         RowBox[{"Epilog", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Circle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", "n", ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Circle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              RowBox[{"n", "+", "\[Delta]n"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]}], "}"}]}]}], 
        "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"max", ",", "20"}], "}"}], ",", "10", ",", "100", ",", "5"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", "5"}], "}"}], ",", "1", ",", 
      RowBox[{"max", "-", "1"}], ",", "1"}], "}"}]}], " ", "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.729412550578746*^9, 3.729412873278617*^9}, {
   3.729413303361015*^9, 3.729413315721694*^9}, {3.7294133605864244`*^9, 
   3.7294133645243397`*^9}, 3.7294134443313093`*^9, {3.7294134902770276`*^9, 
   3.729413490886464*^9}, {3.729413543149824*^9, 3.729413544603102*^9}, {
   3.7294139878826666`*^9, 3.729414008383309*^9}, 3.7294140986515656`*^9, {
   3.729415327613474*^9, 
   3.729415377580695*^9}},ExpressionUUID->"141af6ba-7148-434f-9bcb-\
70ca4b54cdac"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`max$$ = 75, $CellContext`n$$ = 12, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`max$$], 20}, 10, 100, 5}, {{
       Hold[$CellContext`n$$], 5}, 1, 
      Dynamic[$CellContext`max$$ - 1], 1}}, Typeset`size$$ = {
    432., {239., 245.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`max$3450$$ = 
    0, $CellContext`n$3455$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`max$$ = 20, $CellContext`n$$ = 5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`max$$, $CellContext`max$3450$$, 0], 
        Hold[$CellContext`n$$, $CellContext`n$3455$$, 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" :> 
      Module[{$CellContext`rede$, $CellContext`\[Delta]n$ = 
         0.5, $CellContext`u$, $CellContext`w$}, $CellContext`rede$ = Tuples[
           Range[1, $CellContext`max$$], 2]; $CellContext`u$ = BinCounts[
           Map[Norm, $CellContext`rede$], {
           0, $CellContext`max$$, $CellContext`\[Delta]n$}]; $CellContext`w$ = 
         Transpose[{
            Range[
            0 + $CellContext`\[Delta]n$/
              2, $CellContext`max$$ - $CellContext`\[Delta]n$/
             2, $CellContext`\[Delta]n$], $CellContext`u$}]; 
        ListPlot[$CellContext`rede$, 
          AxesLabel -> {
           "\!\(\*SubscriptBox[\(n\), \(x\)]\)", 
            "\!\(\*SubscriptBox[\(n\), \(y\)]\)"}, AspectRatio -> Automatic, 
          AxesOrigin -> {0, 0}, 
          PlotLabel -> $CellContext`texto[$CellContext`w$, $CellContext`n$$, \
$CellContext`\[Delta]n$], Epilog -> {
            Circle[{0, 0}, $CellContext`n$$, {0, Pi/2}], 
            
            Circle[{0, 0}, $CellContext`n$$ + $CellContext`\[Delta]n$, {
             0, Pi/2}]}]], 
      "Specifications" :> {{{$CellContext`max$$, 20}, 10, 100, 
         5}, {{$CellContext`n$$, 5}, 1, 
         Dynamic[$CellContext`max$$ - 1], 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{489., {307., 314.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.729495882984706*^9},ExpressionUUID->"0f0a590a-eaab-43ea-9743-\
4bf6dc0644cf"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["s\[OAcute] o gr\[AAcute]fico da aproxima\[CCedilla]\[ATilde]o comparado \
com a contagem", "Subsubsection",
 CellChangeTimes->{{3.729415206069036*^9, 
  3.72941522857451*^9}},ExpressionUUID->"d17f82a4-ce8c-4bb5-bd9e-\
5a14c5d73491"],

Cell[BoxData[
 RowBox[{
  RowBox[{"rede", "=", 
   RowBox[{"Tuples", "[", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"1", ",", "200"}], "]"}], ",", "2"}], "]"}]}], " ", 
  ";"}]], "Input",
 CellChangeTimes->{{3.7294144199766207`*^9, 
  3.729414424977147*^9}},ExpressionUUID->"b84216e2-406c-44d8-9628-\
d1100b91a100"],

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "=", 
   RowBox[{"BinCounts", "[", 
    RowBox[{
     RowBox[{"Norm", " ", "/@", " ", "rede"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "200", ",", 
       RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7294144450947685`*^9, 
  3.7294144627703023`*^9}},ExpressionUUID->"de38a051-0b58-4a3b-a9fb-\
8c41706cd078"],

Cell[BoxData[
 RowBox[{
  RowBox[{"w", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"1", "/", "4"}], ",", 
        RowBox[{"200", "-", 
         RowBox[{"1", "/", "4"}]}], ",", 
        RowBox[{"1", "/", "2"}]}], "]"}], " ", ",", "u"}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7294144843721437`*^9, 
  3.7294145077324996`*^9}},ExpressionUUID->"ed86b2d1-cd82-4882-90c6-\
652199b346fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", " ", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", 
        RowBox[{"Pi", "/", "4"}]}], ")"}], " ", "n", " ", 
      RowBox[{"1", "/", "2"}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "199"}], "}"}]}], "]"}], " ", ",", 
   RowBox[{"ListPlot", "[", " ", "w", " ", "]"}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.729414528444458*^9, 
  3.72941455448254*^9}},ExpressionUUID->"a8ff819b-1ad5-40de-8554-\
75d124c28f75"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVxn081AcAx3FdNS8vr1W4qXlY6PmGmIck+n2HHpzn83BxHu7ud/gp69C5
zuhB08lTrTanpKteWuXhZYQpbd15OFcL0TWxtZCVFYmsXAu39sfn9f5Y84Ws
eJqenl7Ah/5XdvuaxyK9SUK1zXx2gc1zYs7H0E6pnSTO5Sa+aLr6ghC0kJZZ
U1OE6E59/1cbx4kvmunz00+mCZsA/8YBj1dEd5VYMaKaIVC5tam/6jWx+IS7
V1uBjiirE6bUdmiJZsbwqpYCfTCGqKmNB2n4XtJAVxaY4MnEr+Rg/RKY3e1b
Z+Vkg2Z70ak8mQW8Cwod9xgxkPNGmsbMWI1W1nrpp385wKwsr2LHMQZ+bHym
tDNxQZZfr2FMkQN861pS1f+6wS6fez5N7oRa2juhkasnaNNfd3tNueKkkjPW
WQMsQUr7cWd3WPnfGdDIvcAJ/Nu0ifCEjPZ04tp1HyS2pdMCtgP8xUsVD2o+
jPL6leqeL9Egz2r75OxOuG5McmCGemOcf3rCvo4JT6fBj1RvfZC5r/VBfrk/
npbIDO0PbsdkTenwLUUgLpw0iRWt3QkxOEYGScHYPzf3nbbDF+eDUpaGcUMw
cWeDdrefH7aIHlkVJLOw/3PzyuZJf9AU906MJITi4suAfG1GIDxXmhmvF4dB
aLPqkYFxMG4ypfZZh8Nhrt8ncB0JhqAs4+qUJAIryioWRV0OweGF7S6hUjbk
7+P8xjNYUH9bbNWXvQv7DDdVpBOhCHl+7AdKEgn2g3at5YIwBLI1nqPfRKE9
0eWVsyYM4rFLTrkHOMiu6pj1KgmHcXGXh0lhNNQ33OsUeyIwZbBiqKY4BhbZ
8WyOBxvvLz0f2lMUC6W2lj4xz4Yk3PgNvTQOE+6Dkle9u7DMlFcvZHKRbGf/
z6gsEotHfW9Eq7iY6Xfi6dhRaPB6fFvB5MEwyCL96AYOJI6uuU5qHoTpay7Q
XnLwtnJzkGUgHzEJRmkTymjkNel1LO/k46z+Z5xeaQxuVfQblO4gMcobdtHs
jEX12mj2qS4SN6W5Td7mcah1LQ89yxRgiBMYXDUYh729xZFm9wVQz71XI4qL
rpAzttbseKxhVHNvtnLhFc+tcdPEo7pmPMdxNQ8pCzWbOyITID4tn31cxEOD
s4FI8DABSb8P6XIneTjjF5yZz0rEiGQ+EyF8uL30Klzbn4iLWUV+Ds18jFu/
89OEUcjtr75sbkGim31lXhdBQZWXOtxjSaK2KLzONpLCwi2uFtKVJETv6kyl
MRQOnlOcnLQhMduze9gtgUI6/36WagOJjw8/Esv3UyDHZ1jCTSTsHysuJpVS
IPS8da0sEsvoe8NkZRSy6vTdJWEkXvta6LfJKTTzO0V2ESR+apQkW5RTcFGF
vyiJJLG1yHHTvSoKtvnUb8lcEoEe5Z3Ov1Awox+vMt1LwiEt5BBPQYGtYj27
KyRhfFXneLyFQrF4uXV2Kok+k+iSURWFZQMXZGMiErFjdH5pNwV9eX22MpME
rNvo6h4K24IkP6cfIGHDTlVP36dwRM9zhnGIxLPWLtuAhxTm+R3JxUdI3NZm
DmYMUNhCL7jCzCFRac84dfkPChmqoCe6oyQKBf0+mj8pNInplo25JISl0hnd
IIU36wbYu/NI/AdRuTlA
        "]]},
      Annotation[#, "Charting`Private`Tag$3622#1"]& ]}, {}, {}}, {{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxdlDuwU1UUhqOFk7FwjqOOcdTxoKjxHRU0iMoRBCMKhHdA0ONFIJ0pU57y
lilvmTJlypSnvGXKlClTprBIYeE4+b5ir9tsvvOv9a/H3uHEwd83Hj/baDQm
zzQa/5/7v+W5RvK3CfwPvOX8N+jPFvyD87kijX8+6C8EfpHzZc6X1Pl7BW5x
vsrZ5Hwt6K8H/zc53+B8izPbn1We6tWJ1K96Gz4Jv5PWr04G/d2Q/x7MWb0f
6rdhzuqD0M+H8MfwRzB9V3xvEFd9EvRPg/9naT9FB+asZeoXn8On0GX8iy/g
L9Fl9lHwvcH3Wrb+qVBfZq7iNMxZnw76V6E/mX0UX8N8r2X2UXRhvtey/mfg
s+hngv4NzFnL7Kk4G+rL7KP4NvjL+n8H872W2WPxPcxZy+yzOAdz1jL7you0
/1JmH1OZ+uug5z/AfC9l9jiVqbuWrX8e5ixl7nkqk7eW2Wd+YX9WnOWFUF82
X2bf+Y+w+TL9TeGKc63OvvKLof7FVJ/KnGuZe8wvwcxVyuxzein1X6tzH/lP
MH2VcGW+uvVl3kneIx7fshfqB32tbv7PMN9LuGLfU3Xz5fPkXybe/MvpfFOZ
vLXx+Oe/hPqy/cMV51qdfea/wuylhN33VN18detfCfVl9j29Euqrnyf/Ksz3
8mqor87ca5l95tdS//JaqC/T39p49pn10/odmfp9uKLuSJ19TdTJn6vzHpcy
59Z49Ow6On11ZPrrXw/11ZlvIuM7N57+lurkb2X07Mb+LDg7N1K9L+M/gt3f
RLa+zL6XIX8rc1/Zzf1Zo3dg77svkze6GerL1g/5S/2Zexv07Bb56B2Z++zL
1oe9nwlc4DtX53eyvBXqqzv/7dS/I1tfxn8E+14nt0P9oC9l9K1+vIfsDrr1
ZevDNXkjdd7rRLb+ndR/KTP3NujZXfLROzL32Ydr9JG69e+m/nO4YN9LdeeX
8c8GqX9nkOp92fmNx3+iju9c9v5l5t7K5Gf36Be9cy+dr38v1Idr5pkEfS5z
n0v96W8b/LP7MHoHrsnv30/7H8nOfz/1n+vHPpfqzm8+/We/wdaH3W8fbrC3
kfH0N4ELfOfq3N/SfObe6m/9B6l/50HaXx8urG88802MR5/D/l6WQd/qR372
MO2v8zDUh2v0kfHWD/lz462vbn2ZfWe/04/1Yd9TX2a/I+N9f+rMNZfRl3BN
3W3wz/5I5+vADevDFfc2Mp73NFF3ftn54YK6W3X21yzT/ltl6t+GG+hdGf+e
8egD/djv0Hj6H8P+Xg6NZz9H6tzXTJ38hX7Me2w89VfG09/GeObf2S/+zT9T
vSXTXxv2/rqw77lnvPMbT39D48kfy84P5/R1FPxn+tHfIuQfW597XRlP/kad
+juZfTYP9mdBfgv2PbXV6a97kM7XM578Aez9DIP/OPgfwlPnN5/f28x66Av9
vP9QfyUz3wYuyd+pe/+P0vlaMvfZfpTW7z5K++/BOXsdwL6Hoez8+qEf6uf8
6vQ/U8d/IZN/HOqvQn+bkL9zPu//r3S+Fux7acP5wf7swr7nnkz+QD/e6xAu
qD82nvqH8BT9KPjP4LXzqzu/TH8r61F/E/rbOR/30Xyc1m89Tv3bcMHeurD/
H/TgBvpARh/CJfo4+B/Kzm89+psF/0XQj80/2J8r45l3A7u/nfHO/yT1bz1J
/dsy/l3j0XtwyV4HQR+a7/yw/98dwhX6kfnc38x4/BfB/zjUX6k7P1zjv4PX
6M2n6MzXeprmt+Gp9288ek/2/o1n38On6Xxj/dEP4bXzB30W/Bf6U/846Cu4
JH+jH/e+g/09Nodp/dYwna8NF+R3h+l8PXXvf5j2PzSe/LHxzh/8j4L/DK7Q
F+rOH/JX1j/Ynxvnc379yuI/1urv3g==
       "]]}, {}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1, 199}, {0., 156.2942313424425}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.729414535584803*^9, 3.7294145552013674`*^9}, 
   3.729495883953558*^9},ExpressionUUID->"43618837-ec20-402c-8dd9-\
3c82f2eca44f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["3 D n\[ATilde]o d\[AAcute] para visualizar nada", "Subsection",
 CellChangeTimes->{{3.729415249759221*^9, 
  3.7294152558309393`*^9}},ExpressionUUID->"3a40558a-35cf-47c7-a853-\
f90cf7449e70"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPointPlot3D", "[", " ", 
  RowBox[{
   RowBox[{"Tuples", "[", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"1", ",", "10"}], "]"}], ",", "3"}], "]"}], " ", ",", " ", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.729357961485263*^9, 
  3.7293579861441145`*^9}},ExpressionUUID->"4be2e9fc-0391-4855-924b-\
063fbc527b6e"],

Cell[BoxData[
 Graphics3DBox[
  {RGBColor[0.3315753, 0.4561011, 0.6388182], Point3DBox[CompressedData["
1:eJyN2zGOLEUQRdEROJgYGBgYEGIfsAaW8CVsto3JEsDgOReOchBSqe90/5mr
6sp6GRH105c/fvv9q4+Pjz+//vj45/9///vrl88dP379f/4N+Lfg34F/D/4D
+I/gB/5zuHzG+/O9ru94fcfrO17f8fqO13f8wOur8zRe3/F+bq/rO17f8fqO
13e8vuMHXl99/8brO17f8f57e13f8fqO13e8vuMHXl9dV+P1Ha/veH3H+3v2
ur7j9R2v7/iB11frxXh9x+s7Xt/x+o739+91fcfrO37g9dU6OF7f8fqO13e8
vuP1He/ftdf1HT/w+mp9H6/veH3H6zte3/H6jtd3vH/vXh94ffu+8vqO13e8
vuP1Ha/veH3H6ztej72ub1+X13e8vuP1Ha/veH3H6zte3/EDl4fyh3KH7s+6
j2m917qo9UPX2YHX9+WnY32br8rr23xVXt/mq/IDr69yoXyar8rr23xVXt/m
q/L6Nl+V11d5V+ep+aq8n2u+Kq9v81V5fZuvyuurHK/vX/NVeX2br8rr23xV
Xt/mq/L6an+i66r5qry+zVfl/T3NV+X1bb4qr6/2XVovmq/K69t8VV7f5qvy
+jZflddX+0mtg81X5fVtviqvb/NVef+u5qvy+u592j9r3a/veH3H6zte3/H6
jtf3ciyvr+oduk83X5XXt/mqvL7NV+X1bb4qVx5UvUP3adU5VA/Qvln7S+3D
ej29cr3Oj3Ki8odyh+7Puo9pvde6qPXjwOv7Om/y07G+zVfl9W2+Kq9v81V5
fVVfUy6UT/NVeX2br8rr23xVfuD1Vd1QeVfnqfmqvJ9rviqvb/NV+YHXV/VQ
5Xh9/5qvyuvbfFVe3+ar8gOvr+q82p/oumq+Kq9v81V5f0/zVfmB17f56rXv
0nrRfFVe3+ar8vo2X5UfeH33PtXr69t/t7y+4/Udr+94fcfrezmW11f9FdUF
dD9rviqvb/NVeX2br8oPXHU19VeaI179IvVV1H9QnV717F43r/qocq7qbfXV
/bjv075f+2PtI7Xf0r5E+f3V93rlROUP5Q7dn3Uf03qvdfHA6/v6Puq8yU/H
+jZflde3+ar8wOurPqXqa8qF8mm+Kq9v81V5fZuvyuur/qvqhsq7Ok/NV+X9
XPNVeX2br8rrq76y6qHK8fr+NV+V17f5qry+zVfl9W2+etV5tT/RddV8VV7f
5qvy/p7mq/L67n2aD6jvuPZjWkfqO17f8fqO1/dyLK+v5jnUh9D+Wet+81V5
fZuvyuvbfFWu/qTmOZoXtE/W+v6a49C8g+YCen28+syqF6pvWV/t/3Xf6ufV
Z1A9XnVr1XdVB33N2bzqbap36D6tOofqAdo3a3954LqelOuVf5UTlT+UO3R/
1n1M6/2B1/d1nen7qPMmPx3r23xVXt/mq/L6at5LfUrV15QL5dN8VV7f5qvy
A6+v5tjUf1XdUHlX56n5qryfa74qP/D6Nl+V11f1UOV4ff+ar8rr23xVfuD1
3fvqO17fcdV/tW/R9Vbf8fqO1/dyLK+v5kc196B6vfaZWh+br8rr23xVfuCa
82re0XyD6vLaT2od7O/THKXmDTWXp/m11/xr89Wr36B9stb3/ruaa1D/X31y
9ZNfc73NV68+yqsPpvuZ+irqP6hOf+Dal6g+qjqi6m2qd+g+rTqH6gHaNx+4
1gntV5TrlX+VE5U/lDt0f9Z97MDr+1o/dJ3p+6jzJj8d69t8VX7g9dXcvOa9
1KdUfU25UD7NV+X1bb4qr2/zVXl91X9V3VB5V+ep+aq8n2u+Kq/v3lff8fqO
q9+sOqnyvb6X9R2v7+VYXl89r6I5S80HqK6t/ZjWkear8vo2X5VrXr65RvOU
mgNQ/Vr7Lq0X/Tv03Iaeb9BzAK/nbZqvXvMNqstrP6l1sL9Pc5SaN9RcnubX
XvOvmttQv+E1d6N1X3Mc9X3NBai+qz6z+rHqW6q/orqA7mfqq6j/cODab6nu
q/qo6oiqt6neofu06hyqBxy41j/tw7RfUa5X/lVOVP5Q7tD9+cDr+1oXtX7o
OtP3UedNfjrWt/mqvL7NV+X1bb4qV/9SdTflRXn2581X5fXd++o7Xt9xzbep
L6t6onKwzl99L8fy+ur5WD3XoXlE9dFV/9W+Rddb81X5geu5w+YXPb+huUP1
y1Xn1f5E11X/vvID13MAeh6xvs1X5ZoPUF1b+zGtI/VtvirXXJ6eD+jv0Zyo
5htUl9d+8jUPW9/XfKX65JrXq2/zVbnmOdSH0P5Z6359X/MOqlurf17f5qty
9S3VX1FdQPez+r76D9pHqp5d31d9VHVE1dtU79B9WnWOA9e6rv2l9mHaryjX
K/8qJyp/KHcceH1f673WRa0fus70fdR5k5+OB17fva++4/Ud1zy95sDUv1Td
TXlRnv35Xte3+aq8vnr+QXN76jerTqp8r+9l81V5f958Vd77uZ5z0Hye+sqq
hyrH6/vXv7tcz1P2c81X5XquQ/OI6qOr/qt9i663A9fzDXrOsv+enkvRPKXm
AFS/1r5L68XrORXNG+q5h/o2X5VrflRzD6rXa5+p9fHA1f/XHGJ9m6/KNf+l
eQ71IbR/1rp/4KrHay6gvs1X5erHqm+p/orqArqfHbj2x6rT1/dV91V9VHVE
1dtU79B9+sB1v9K+ub6vfZj2K8r1yr/KicofB17fHXUf03qvdVHrh64zfR91
3uSnY32br8rrq+ct9ZyA5tvUl1U9UTlY56/5qp7NI81X5b2/6XkAzbGp/6q6
ofKuzlN9ev768+ar8vo2X73m85qvXvVQ5Xh9//p393tZ3+ar8vrq+Q3NHapf
rjqv9ie6rvr39Xp7PT9a/noe8TVPqTkA1a+17/rs8zddR17Pc5S/ng8o1/yo
5h5Ur9c+88Dr23xVXt/mq/LXXNtrbuOz80Sv9f2zcxyad9BcgPrn6jOrH/vq
o3y2D6Z+kfoq6j+oTq96tuq+qo+++kOfrUupfqM6h+oB2jdrf6l9mPYryvWv
es3lqDyl3KH7s+5jWu+1Lmr90HWm76PO23/9/gZGhvDy
    "]]},
  AspectRatio->Automatic,
  Axes->True,
  AxesLabel->{None, None, None},
  AxesOrigin->{0, 0, 0},
  BoxRatios->{1, 1, 0.4},
  FaceGridsStyle->Automatic,
  ImageSize->{361.9353542644223, 253.40357226970022`},
  ImageSizeRaw->Automatic,
  PlotRange->{{1., 10.}, {1., 10.}, Automatic},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {Automatic, Automatic}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{0.9037403056737385, -2.8772850258457336`, 1.5344329049993206`},
  ViewVertical->{0.09817544387212274, -0.13872970915783167`, 
   2.4636300072473025`}]], "Output",
 CellChangeTimes->{{3.729357979627802*^9, 3.7293579866910477`*^9}, 
   3.7294958840004377`*^9},ExpressionUUID->"3fe432ab-64d4-4084-9ffd-\
e121a7601fa5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"rede3D", "=", 
   RowBox[{"Tuples", "[", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"1", ",", "50"}], "]"}], ",", "3"}], "]"}]}], " ", 
  ";"}]], "Input",
 CellChangeTimes->{{3.7294147213992767`*^9, 
  3.7294147280275555`*^9}},ExpressionUUID->"74605221-9b73-4f5c-9723-\
c973d3c89663"],

Cell[BoxData[
 RowBox[{
  RowBox[{"u3D", "=", 
   RowBox[{"BinCounts", "[", 
    RowBox[{
     RowBox[{"Norm", " ", "/@", " ", "rede3D"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "50", ",", 
       RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.729414740388234*^9, 
  3.729414768886118*^9}},ExpressionUUID->"b0bbb9ec-a889-4d3b-b2c9-\
c97af5cd22dc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"w3D", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"1", "/", "4"}], ",", 
        RowBox[{"50", "-", 
         RowBox[{"1", "/", "4"}]}], ",", 
        RowBox[{"1", "/", "2"}]}], "]"}], " ", ",", "u3D"}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.729414761291566*^9, 
  3.7294147787581234`*^9}},ExpressionUUID->"45a5eb72-37e3-4dfa-9c9f-\
cb55fcedb3a6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", " ", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"1", "/", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{"3", 
        RowBox[{"Pi", "/", "6"}]}], ")"}], " ", 
      RowBox[{"n", "^", "2"}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "49"}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"n", ",", "\"\<n\[UAcute]mero de modos\>\""}], "}"}]}]}], 
    "]"}], " ", ",", 
   RowBox[{"ListPlot", "[", " ", "w3D", " ", "]"}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.729414798304697*^9, 3.729414840035934*^9}, {
  3.729414922624447*^9, 3.729414924905937*^9}, {3.7294152793650866`*^9, 
  3.7294153121475725`*^9}},ExpressionUUID->"65d61ef7-ebd6-4e75-b0ce-\
7bfc6fca1af5"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1Pk/1PsCx/HRqEEyNNOQpaJMSkUjWYrP23LGtzqlVUpkT3HLUqFSNJEM
RTgV8zU56UiqGx1KMcWV3ApdtEgouV1b9iWEc+4Pr8fzP3jpeh7Z7jODwWCE
/N3/fa84PEuO0UfIlNvFKd0O8nLL1ozN6/vIzDn2ynWfO0hxcq5pWlgfsZml
GBr0eye5ruPpbdLfR/QeCTjKq7qJ3+qaUp/WfnJ+/kzfR769ZNw559TL8kES
1lH7eGTVIOmm5bnqckOELi93v581SJpb9+d6WQ2RqRT+ZLXWECkL4H38WTBE
js+znL9OZZiII0VmRtnDxDz1enM1c5Ro33IdSL4wSliJ/hltqyeIyvdHFz4/
HyV9sn2530smCEPA1V054wfhfi2557LpJ2l78tKx4sQPojb7zVXfQ5Pkbo3Z
3R/+Y+Rrg8m4WdE0sR5V83PdMkEOFP0Ma/t1BjyEFU18zjRpp2Qftz1gwX04
4Fv0zmnyz+CPs4PVFeCWxeltS50mYgeVGd6nFLAqyjhymzIDMQPFViWUIgxb
IpLYlxgI37x2wL5LCfrpGn+KU+Tgp37NMWe3CuZztoyJpEw8iGD3tH6bi6uH
MiNMnjHRY6fhzOZzoFE2JPf1MxMFLXeysnw44AWlK9nqyePzlfD/Kn7jgFvT
rsW4KY9ipcyZT7u4UBGLrE/dnong8aXP6pTUMYNZJDpawMJ3Od6C7CtaGMx6
en6sjoWOe6phzc1aaBNWiE8PsHB7sNYuiK+Niri65FgjBYjs7xnnFGpDPLfn
hiRHAbHMZ/s9G3XA1VtcXk4rImQiW3FScxH4Ngny82JmI6RB1a/lih42nPGI
LnBigwHhm2pNAwgulQozj7LRtfE/Kt2UAbSlugoJl9kwXxpPTEMN0Cf7Eudd
zcbYjqTQTfUG2DRtXKm4WBUKpxtszicuw4B1XtWjNFUEcj3IejVDQJb3gRen
BteNm5vTTVahsTi/p9aPA6fvr99qnBZgu7TAf044B92x+yzm0gK8jHrU7nCB
gyX+I6H6xQI8Fspai3M4OMbcEHNtXIC0N/9+90cnBxmig/97GGaCvW2fZScC
uFAuu/KkKnwNPs5mX9ILnIddZjm5rpfWomGvv1FwqDpo5vXbKgrroOaQ4FsK
LTBK92jlWtpCtd4n38xlIeI+uNfKdCmoqRbW2+bpYpfl2sD5T7bArOkfr2wu
L4bdsr157lXb8Ww88tf6dH2k/rj5MK/LCQeeVlbKzi7FVlphQlvPBVe9sjXn
uS9Disvu95fT92OF85eRKR9DOHY7dmUEeKJp0LEaG1Ziqt/q+qCyD/pb5hvz
dhnhdVTbkKOGHyp3lTzIzTVGoJeDbxrlDz5bYXNY+mo4hqdVpRw5jMLAyNyL
UgF0X9WVOc8KQr1+MmvbZROcObJiNKIqGEtEdQau19Zgodhc3rj+KCy2tqyR
ppti2W+neTZdx9EUGG2dEL8WbmoOa04OhyHfYs+c50lmsCl4/emt/UnwnF40
3Io2x7hIapV6LgKklZFUdtQCRx7aTC6vOYNrPL85/DBLsIlck4EgCmczDp43
PbQO3SGkd0PwWdDVVysuBq7Hn+K+p70NIkQcTu7TCbbCyxundjY6RKPLw0Bj
j6c1sqvUpdJbMRBPdso3+xKccWyIu28SC9eRG6GslQCn12va/P4FvNM3b7XM
At7/YdVkbyyG3zIvo2R9G5gp6Eh3NMWj1MnlpE2GDeLfzVtuFn4RJs6dOVxd
W0gWOy9aoZeIAJHwvVW6LRZQ/nePTSUi1ldhXI5jhzcJXso/G5NQouMx3Zli
h3VxU+0RtZdRNBXDXK5iD7ev1p98ZMmofmDXmZBkD2N1664D5Sl4vsi3In7u
L4jojxdyX6fi3MNdmV/ifvn7E/Tvr178hn16n9xc5gjR483Ilmu5golCIy3D
80KoimNfJHVcxSlmx+vUKSHuBi31PzR0DbwlFh76kQ5Yeqc0REc7HaGHnYaU
xhzAs7qb+cFUAu213pX8CQfIGjL21FhK8GwySGI76YDOWdujKogESgkJ9ifk
KDTOnVxYuEGCjNzylA5FCkr9PmlprhJUtAtMKzUp0BVnRWHREnC92Mej11NI
etfOj30rQdFynY2Z1hRY55Tfx3+UwG1g+YISUGCW9Y8ktUhwK0pYMWRPIbGX
EUN3SLDuegTPezOFIVXBl6JJCTybugpt3Sj0B7SIWXwarJtjcW7uFGr0tM05
hjTuBLD2n/CksPqg5s6FxjRGJvRY+b4U4rNdGs0tacRp7t2te4RCQmcfP2gL
DaPWA4ZWQRQyllhui9xBoz7n2LRzCIU1vfZdl5xpLLBIyk4MpTBsKj1835PG
vxjSk3fCKSzM79ldeoCGX+Udx8qTFN7Ipu/XBtBQTny8uC2Cwsx9teFtQTTy
dleOTp+hUHbBN3/kOI2/ACThPjk=
        "]]},
      Annotation[#, "Charting`Private`Tag$3730#1"]& ]}, {}, {}}, {{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1EtvTHEcxvFJFyIWUkGMqDh1LYpiMK79o6iNSFPJLFzGpVIiDCHEJTku
oe7jLjRyXkJfwryEvoRZdNGFxSwsLCyQ/+cspieZfPM9z+/5nTkzZ6b73LWh
kY5CoXDh3+s/4zHZX2g7pmf4rxn+h7ewI0TOxlmhfX4O78K5WMR5uBznYw8u
xO24CDfiYtyNS3ArLsVDuCwyDZjgYexG86n31RjiK/AorowMJ/gq1znGV/MK
X8PzefeZnsK1rpfPr4vMzvL1rnea90Y2z/MNeAZ9TtURvkn/Iva53ijyNM83
86vy3C/Jt+B1ee6X0fcQbsj5RM35UmTnTXmpfT5sk9+W83qeey5ad+S8dku+
I3Lyrpw3zIdyZHbPeV4zH3ZGllM5b9yX74qsPHSeZw/knsvGI+SD5sOeyPSx
nHfm+d7InqdyXjYf9kUez3PezPN+7++5nCfmE7+D1lhkNfdn7oPXX9rLJ+xL
9tv/Wp/3vdDn9Tf6/Pcr/QORw3V9Pm1fxsM7fT76Vv9g5Nh7fX7SvoxPyZu8
iycDzn/Q53V5xqc+meNF84n/iYHP+rzyUZ83vyC/Yl/if6fwVZ//tC/jC77p
85J9yREur/KafRl/8l0/z80ng+53XJ8XzWd5/kOf946Hv1AJx3U=
       "]]}, {}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["n", HoldForm], TraditionalForm], 
    FormBox["\"n\[UAcute]mero de modos\"", TraditionalForm]},
  AxesOrigin->{1, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1, 49}, {0., 1885.7409149190503`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7294148407235074`*^9, 3.729414925499751*^9, {3.729415304988995*^9, 
   3.7294153130851736`*^9}, 
   3.7294958856881156`*^9},ExpressionUUID->"547a9f54-3eab-4ed8-a410-\
baa4750b2c81"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1904, 997},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
Magnification:>1.2 Inherited,
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 237, 4, 116, "Title",ExpressionUUID->"66d1b618-ba33-48eb-8652-e3eb358e8652"],
Cell[CellGroupData[{
Cell[842, 30, 201, 3, 80, "Section",ExpressionUUID->"91c78b26-7ad0-4de9-827f-e955ed33d2ef"],
Cell[CellGroupData[{
Cell[1068, 37, 579, 17, 35, "Input",ExpressionUUID->"53a23359-c004-4b63-a83e-b354ce45e151"],
Cell[1650, 56, 273, 7, 61, "Output",ExpressionUUID->"d86a3843-e4b1-45aa-9648-03dd84a8849d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1960, 68, 516, 15, 35, "Input",ExpressionUUID->"efbb76cf-52f8-4993-aa83-1b3d87b7c492"],
Cell[2479, 85, 253, 7, 61, "Output",ExpressionUUID->"9a8c9509-8b54-4916-bd0e-f51fa870a993"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2781, 98, 225, 5, 80, "Section",ExpressionUUID->"39271651-6147-4890-800c-a3069d62a49c"],
Cell[CellGroupData[{
Cell[3031, 107, 330, 8, 35, "Input",ExpressionUUID->"446c2d51-bb72-4c17-ab27-a726fbefc491"],
Cell[3364, 117, 236, 4, 39, "Output",ExpressionUUID->"215efc79-e062-43fd-9aa0-d11b0d1c6414"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3637, 126, 432, 9, 35, "Input",ExpressionUUID->"60454262-9e67-4002-bee5-a130468fcf65"],
Cell[4072, 137, 300, 4, 39, "Output",ExpressionUUID->"2e70416b-0f6f-4ddf-8273-3d8b8f1f0952"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4409, 146, 335, 8, 35, "Input",ExpressionUUID->"95c4c291-7f34-4c5b-8e2e-2c093b5142d1"],
Cell[4747, 156, 232, 4, 39, "Output",ExpressionUUID->"24e3feec-8977-42d2-988f-2b8b2bd40b69"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5016, 165, 352, 11, 35, "Input",ExpressionUUID->"59aa8bf9-5ee3-4921-918e-11833beebfea"],
Cell[5371, 178, 234, 4, 39, "Output",ExpressionUUID->"46ffa7c7-7c64-440f-817f-60a62dfd8781"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5642, 187, 399, 9, 35, "Input",ExpressionUUID->"8fb9fb46-f2f4-4dc1-8a4e-446b5b2935d8"],
Cell[6044, 198, 231, 4, 39, "Output",ExpressionUUID->"e4e254f2-9367-4b8a-876c-d72aad90dd27"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6324, 208, 157, 3, 80, "Section",ExpressionUUID->"f64b8d6b-a8b2-44e4-9c80-6991f0d31c6d"],
Cell[6484, 213, 365, 8, 68, "Text",ExpressionUUID->"398eda83-c911-4b9d-83e9-9724a10f0e6f"],
Cell[CellGroupData[{
Cell[6874, 225, 197, 3, 53, "Subsubsection",ExpressionUUID->"a642ffe8-4935-498d-90af-fb4f473055d1"],
Cell[CellGroupData[{
Cell[7096, 232, 896, 25, 35, "Input",ExpressionUUID->"1e410407-8a8f-4ca3-98b1-560ddb100365"],
Cell[7995, 259, 402, 9, 39, "Output",ExpressionUUID->"a18e4b9f-bc2f-4a95-aa6a-0e13d90c5344"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8434, 273, 382, 9, 35, "Input",ExpressionUUID->"48399903-17f3-4283-8ce7-abee673e3902"],
Cell[8819, 284, 267, 5, 39, "Output",ExpressionUUID->"4a8d9083-8471-4076-a1ca-07032b41c8f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9123, 294, 363, 9, 35, "Input",ExpressionUUID->"d4a0b557-c021-4d58-8752-f9375a011285"],
Cell[9489, 305, 239, 4, 39, "Output",ExpressionUUID->"c08dd513-a43b-4561-b607-e6008dc1d768"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9777, 315, 193, 3, 53, "Subsubsection",ExpressionUUID->"282bf793-ab68-4127-914a-75aa0d8c9ab6"],
Cell[CellGroupData[{
Cell[9995, 322, 541, 16, 35, "Input",ExpressionUUID->"2276e661-f4b4-4a7d-8bb3-a06bcc688670"],
Cell[10539, 340, 5166, 105, 282, "Output",ExpressionUUID->"059412af-cc4b-4435-950f-14f29050f013"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15742, 450, 545, 16, 35, "Input",ExpressionUUID->"c96483d0-999d-426b-9891-0ec45aeb1f7b"],
Cell[16290, 468, 5015, 102, 281, "Output",ExpressionUUID->"1367d916-b89e-4807-a243-6a3f2d819550"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21366, 577, 194, 3, 80, "Section",ExpressionUUID->"e9b0018c-1613-479e-b4fa-eb30aa299bfb"],
Cell[21563, 582, 282, 6, 35, "Input",ExpressionUUID->"1c875f34-a19c-4021-ab6d-5261920c24ef"],
Cell[CellGroupData[{
Cell[21870, 592, 221, 4, 65, "Subsection",ExpressionUUID->"51d57921-b536-46df-925e-7e1448866018"],
Cell[CellGroupData[{
Cell[22116, 600, 278, 7, 35, "Input",ExpressionUUID->"3e667715-c0b9-412e-b6a1-08ced02a4a2d"],
Cell[22397, 609, 406, 12, 55, "Output",ExpressionUUID->"763b37e5-6ca0-4bdb-b0a3-3fd7fed94b9c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22852, 627, 172, 3, 65, "Subsection",ExpressionUUID->"55bf1320-c9df-4973-b587-c89a201325ed"],
Cell[CellGroupData[{
Cell[23049, 634, 363, 9, 35, "Input",ExpressionUUID->"323837db-648f-467f-8898-ce8037b2c96d"],
Cell[23415, 645, 638, 18, 55, "Output",ExpressionUUID->"3d376d46-b9c6-42a2-8327-e78cb5d63d7a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24102, 669, 178, 3, 65, "Subsection",ExpressionUUID->"ec692e01-32ac-4210-96bf-7c65a40db370"],
Cell[CellGroupData[{
Cell[24305, 676, 348, 9, 35, "Input",ExpressionUUID->"c886ffe8-ae19-484e-8a60-1b54ea77d3fa"],
Cell[24656, 687, 950, 23, 55, "Output",ExpressionUUID->"d4cdad5c-0b97-4a3b-95c1-ed78581757e1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25655, 716, 190, 3, 65, "Subsection",ExpressionUUID->"dac385d6-0e11-415d-a520-a2825d49750b"],
Cell[CellGroupData[{
Cell[25870, 723, 250, 7, 35, "Input",ExpressionUUID->"30d1808d-ceef-440d-bd2c-cf370c86ed84"],
Cell[26123, 732, 382, 11, 55, "Output",ExpressionUUID->"83363e08-588e-4bf6-a712-8a7412989595"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26542, 748, 276, 7, 35, "Input",ExpressionUUID->"123e14c3-a3ce-417f-9459-e380d309161e"],
Cell[26821, 757, 404, 12, 55, "Output",ExpressionUUID->"ba7b947e-0ff7-41c4-b5f5-079453327f5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27262, 774, 276, 7, 35, "Input",ExpressionUUID->"71c3472e-0fff-40e1-ba54-dff81f60025f"],
Cell[27541, 783, 381, 11, 55, "Output",ExpressionUUID->"98946ae3-67bf-4acb-b6df-eef3e11e6a0f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27983, 801, 162, 3, 80, "Section",ExpressionUUID->"869fe2d0-21bf-46b5-8c06-3a4e4c37ed12"],
Cell[CellGroupData[{
Cell[28170, 808, 155, 3, 65, "Subsection",ExpressionUUID->"e4848a95-d266-481c-8e2b-1bbc526450f5"],
Cell[CellGroupData[{
Cell[28350, 815, 197, 3, 53, "Subsubsection",ExpressionUUID->"7a3a412e-3bd6-4be8-823d-b9d9f611f218"],
Cell[28550, 820, 835, 24, 35, "Input",ExpressionUUID->"0a6ea8ac-34fc-40c4-ae5e-cb625d0b9325"],
Cell[29388, 846, 994, 27, 35, "Input",ExpressionUUID->"0491a190-2d8f-40c1-958a-e8e2c34ae876"],
Cell[CellGroupData[{
Cell[30407, 877, 3374, 85, 157, "Input",ExpressionUUID->"141af6ba-7148-434f-9bcb-70ca4b54cdac"],
Cell[33784, 964, 2992, 62, 643, "Output",ExpressionUUID->"0f0a590a-eaab-43ea-9743-4bf6dc0644cf"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36825, 1032, 238, 4, 53, "Subsubsection",ExpressionUUID->"d17f82a4-ce8c-4bb5-bd9e-5a14c5d73491"],
Cell[37066, 1038, 329, 10, 35, "Input",ExpressionUUID->"b84216e2-406c-44d8-9628-d1100b91a100"],
Cell[37398, 1050, 400, 11, 35, "Input",ExpressionUUID->"de38a051-0b58-4a3b-a9fb-8c41706cd078"],
Cell[37801, 1063, 486, 15, 35, "Input",ExpressionUUID->"ed86b2d1-cd82-4882-90c6-652199b346fa"],
Cell[CellGroupData[{
Cell[38312, 1082, 536, 15, 35, "Input",ExpressionUUID->"a8ff819b-1ad5-40de-8554-75d124c28f75"],
Cell[38851, 1099, 5323, 106, 281, "Output",ExpressionUUID->"43618837-ec20-402c-8dd9-3c82f2eca44f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44235, 1212, 197, 3, 65, "Subsection",ExpressionUUID->"3a40558a-35cf-47c7-a853-f90cf7449e70"],
Cell[CellGroupData[{
Cell[44457, 1219, 514, 13, 35, "Input",ExpressionUUID->"4be2e9fc-0391-4855-924b-063fbc527b6e"],
Cell[44974, 1234, 3997, 75, 324, "Output",ExpressionUUID->"3fe432ab-64d4-4084-9ffd-e121a7601fa5"]
}, Open  ]],
Cell[48986, 1312, 332, 10, 35, "Input",ExpressionUUID->"74605221-9b73-4f5c-9723-c973d3c89663"],
Cell[49321, 1324, 399, 11, 35, "Input",ExpressionUUID->"b0bbb9ec-a889-4d3b-b2c9-c97af5cd22dc"],
Cell[49723, 1337, 487, 15, 35, "Input",ExpressionUUID->"45a5eb72-37e3-4dfa-9c9f-cb55fcedb3a6"],
Cell[CellGroupData[{
Cell[50235, 1356, 804, 21, 35, "Input",ExpressionUUID->"65d61ef7-ebd6-4e75-b0ce-7bfc6fca1af5"],
Cell[51042, 1379, 5029, 103, 313, "Output",ExpressionUUID->"547a9f54-3eab-4ed8-a410-baa4750b2c81"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)