(* 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[     15295,        424]
NotebookOptionsPosition[     13438,        370]
NotebookOutlinePosition[     13782,        385]
CellTagsIndexPosition[     13739,        382]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Problema 2.7", "Section",
 CellChangeTimes->{{3.716891067497424*^9, 
  3.7168910704196124`*^9}},ExpressionUUID->"1179c365-ea60-434e-b8e5-\
e22dea4a5fa4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Piecewise", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"x", "<", 
           RowBox[{"a", "/", "2"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "x"}], ")"}], ",", 
          RowBox[{
           RowBox[{"a", "/", "2"}], "\[LessEqual]", "x", "<", "a"}]}], 
         "}"}]}], "}"}], ",", "0"}], "]"}], 
    RowBox[{"Sin", "[", 
     RowBox[{"n", " ", "Pi", " ", 
      RowBox[{"x", "/", "a"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "a"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", ">", "0"}], ",", 
      RowBox[{"n", "\[Element]", "Integers"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.716889563414275*^9, 3.716889588385703*^9}, {
  3.7168896261084976`*^9, 3.7168897219156456`*^9}, {3.7168909621892576`*^9, 
  3.7168909889108725`*^9}},ExpressionUUID->"3f0cf850-fc1d-4816-bb09-\
586ea0716bd8"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}], "-", 
   RowBox[{"Sin", "[", 
    RowBox[{"n", " ", "\[Pi]"}], "]"}]}], 
  RowBox[{"10000000000", " ", 
   SuperscriptBox["n", "2"], " ", 
   SuperscriptBox["\[Pi]", "2"]}]]], "Output",
 CellChangeTimes->{3.717751774904676*^9, 
  3.7177763461459227`*^9},ExpressionUUID->"7bc5a69f-0d7a-4f2c-921e-\
06cfb0cd44f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"n", " ", "Pi", " ", 
      RowBox[{"x", "/", "a"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"a", "/", "2"}]}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", ">", "0"}], ",", 
      RowBox[{"n", "\[Element]", "Integers"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7168898900899277`*^9, 3.7168898954029975`*^9}, {
  3.716890994552103*^9, 
  3.716890994692743*^9}},ExpressionUUID->"46c2217f-d9cb-4c25-94f8-\
6cec9cb26e80"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"n", " ", "\[Pi]", " ", 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}]}], 
   RowBox[{"20000000000", " ", 
    SuperscriptBox["n", "2"], " ", 
    SuperscriptBox["\[Pi]", "2"]}]]}]], "Output",
 CellChangeTimes->{3.7177517750453167`*^9, 
  3.71777634630219*^9},ExpressionUUID->"8ebe9309-07bc-46c0-aadb-a53ed4538966"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "a_", ",", "m_"}], "]"}], ":=", 
  RowBox[{"Total", "[", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], ")"}]}], "4", 
      RowBox[{
       RowBox[{"Sqrt", "[", "6", "]"}], "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", " ", "Pi"}], ")"}], "^", "2"}]}], 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", "/", "a"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"n", " ", "Pi", " ", 
        RowBox[{"x", "/", "a"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "m", ",", "2"}], "}"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7168904128647327`*^9, 3.7168905111252675`*^9}, {
  3.7168905520671577`*^9, 
  3.716890569865941*^9}},ExpressionUUID->"86ed9a87-369a-4c73-924f-\
cbd701ef2dee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "10", ",", "41"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.71689051525071*^9, 3.7168905342371206`*^9}, {
  3.716890573319436*^9, 
  3.7168905868365107`*^9}},ExpressionUUID->"68ae86c7-45e8-4a5c-8db0-\
172097f3a51a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nk0VusXB3Ay3CguzqFE3pe3ek1JlAjtnSZT/AiVNBAZUypx0WRoVnSV
mahLEqUMyTxEIpIMRTrHcCWUMXN+5/5x1lmftZ6z1tl7f59nPfIOJyydFvHw
8CQzz3/v+PMOgusdb2x5XRGosePQvi2VTWzTvWxXuLnxQI6jrRYsVBUHsdl/
QWzmXXEF250QXxrKEmBfgxIT37Xl+23AQ9/7+CQrGiJ31JlF7zsGTbMuEcOs
NPDb/1eGltVZ+KO9izvEyge54GsTUtsvQ9LbRK8BVg3M+Gq97JC8B5lPr7V7
qH0GhyN8woM9KeAMjdGDp7rhUjDXPpzIAs9epe7szH64ioYzP/7KBWH5YO5X
7WEY6Lozq+xdCLfEapWTjozB7IzYI96ZUnBotyrhq/sF+/Z1UrtnKsDrdbDD
Ce4MXNq6oO8yVAVZJ5fuWW40D97mwrcUUmogyd/9u/peHuypTcxrf1QHgYlz
FuODvNhix52gnBqAp4nCQj8+5L+5o1aWbIQ1Z475WikL4Ei4vtL6Gx+gZyLS
ZkmRICY8/Fe7Y7AJjHvdzt3xWowi51SzTh5vBrOeMBU5OWG8xdFzC6Ja4HuF
w8U3GUvQ0M3Wb3ZHG6iJt6zcdlgEszfFlEW8/ATCMGHfMSaKrpxbafmr2mHX
kO2kgrUYfnrS7acZ1wFt5Y68tqriaGpbwL9WthNyrlYeYk+IY9agJRT6f4Vj
At5Ufb0E5kkpkrQPBStYNa2zjRJYa0CMCPhTUK+9skGxWQLnO/T/VDtPgZbH
66LAdgkUU++PvhJMgWCTZKzWNwmst1i93S6cgn/u51on8BKYJfTM0SWdgh7d
qbfHNxAYrJ+tGPaVgihr0/KYTQQeTimWLOuiwPTE/fzqzQReaEhe/6OXguxk
w0fyWwmcMdPI1R2kIFgoOqR5N4F8J3yEY6coWNWqg/rOBPImcofkxWhoGw7d
5OZGYNrcafZPCRpuCnepRR4n8Oc76d0vJGkY17++cuQ0ga26vgYsGRoqH36e
eXiRwM1xLy4HrKbBt1httDGIwOXa5zymuDSotgX2/75MYHJObL6LMg0RS1Ta
9oUSOKD/w2z1OhqOnvLPWRpDoHt2Cr+gNg1aGp05SvEErmv5eVhiMw3Co5i7
8z6Bm1LO2ojr0fDMSzDvYgqB/sUyEv8CDUHrXfPi0wickDLZX7CVBpuR2rxX
Twg87TkFgdtomDsZ/nL8OYEPmlV5e3bS0KA+/lI8l8C4oki384Y0JA/b5Kvl
E5j76Gi4kDENRidlX7mUECiqcsVwxJQGWfULr0LKmXrmjc7uNqNh+Cf9Kvk1
gYvRLi7anIZ7J1ILOmoJVMjlVeC1pMF1nXDhdD2BkucF18nuoUHvp0eh1AcC
P4pY3l5jRYPY04ZCzWYCQ6ZH5NjWNHR7ahT9r41AP9aawsU2NOSq3S063k6g
z0+XXRTj6z8mi653EviS6/MgZS8NBzNti1NpAoME9uYc2EeDumdRcWUPgUTf
IccFxnxq7BK6j8ApO92Y8P00tAwFlvz+TqBK2riBhC0NaRm9JTI/CFR8PGZ6
iXHAccNS7REC09UF0zoZm69NL7UeJ7Cs2MFY+QANCkMiZacmCVz5NH2NI+Nf
T06W3Z4hsLhiZONNxjUeTWVP5glcJZN7KplxnKpWeQ0PiZdvDHxKYXxyMKr8
Xz4Sk49OukUz3vZktpzvDxIHwrK4foylPA5VsIVJFFFxJI0Y96uUVeiLkNjv
+HaTIOPCAU6lrRiJFt2isVnM/91Ov1zpQ5C43K/GyISxg3t/ZYQUib/N5yya
mHo3qpi+zpIm0dlNrNKI8eKBzNf1siRSSY3PM5n+dDwWrxpgkRjO46a5iPFT
tzNVizkk/nnT7uB2pr+Byq1Vq9eQOO5/wdib6b/Nd51qAyUSFb5OSN1l5jXn
ulAdsI5EvaMlNUnMfBuUHN5Ea5Ao2ho5douZf3J/5ZvcjSQafSwKcrdg8uR6
vWZYl8RhkffeY0x+ZJWGakSAREFpJ9XE3Uyevpm/VTYgUTg+eHQzk7d7LpK1
jobM90SDxzYjJk+KvrWXTEhcGPAPebaLydO3z7UJZiRyExPOijJ57nK+X9dm
RaJL6N6SeAMa1jmr1JvaM5YOsBLTpaHTlXUiw5HEWumDvJ3M/rrpQYiJupBo
TwlKx2kx/faatWjwJPGV5pGu7+tpeBBQ22wRwNR70S+jg9m/y+64f7GJZOo1
cBB2FKehKuLw+bwYElfXNzQeFaXhTOQe1vIEEvvERub3L6GhMU7X/tNDErdM
jsqoCNBwI3VJ74HnJFa1FEe4M+fNQmH64JF3JEqsGIou+kJBZkliaNl7Epd5
FYxYfqbArvxvNYWPJC51q6Z6WijIr/Y/2f2ZxLt2v0YWGig4/cFk3OkbiYpR
sddlyyno6xuYdeOTRKevB3U2pVDQIKG6xFtHElube/TLT1BQkBkYq8onhYss
CzYIXP0K/rzK/6v7IoULPCrmmkKdINzhZ+iZvQy/BT3frnWzA3pT5CMSA5bj
7fEEVv7GdohQlObPt5ZGK+2Hi3c9/QRhMceq7dkr0CtW6Pla6zawjThYv7Rv
Bb7fERSkOdoCU9v/mU4slsGHO512KQQ0Q3evgW/5FVk0ox5bCMp8hGT99TLv
7FdiE/vT/IuYD5AR4i3uvFYOr5Wl8zfpNMIV66MmfBNy+ONO3K/IjAbY2JGU
duUdC63uJxs3ltZBlFJsxjsTNvp+c7VKHK+BC6WhUSb5bBTq3qCVOl0Fu2Ws
/3m7Sh4fHOUY+gpWwlbP6gPi1+TxRrpYx+T2MkiUdVhVNyGPF6MvWC7cL4RV
Fan3zA4o4JedNTnHFuVB2Npy5Q/FCph0v/7j8sQsODbG31ijzEERd6E3vuap
4JA1yr52m4MRCW7H4tKjwCNwz5xxOAc3X0rkXjCOAu892a1L/+bg+2UHpuz6
I+HqhPetsHscrEp48U6QGwmZOtOzkfEcVDzDp7KQdBemyxZaUtI5eMctoWD4
7h0I+7A0tLKag2Jfm7U0e69CzIPjLpdrOIitxm9TWVfhwZn6bYa1HBzNX6Mx
s/8K5EqFzdTWc3DXQFupTn0IdNgSLk3NHNykd+ecek4gcLult3V1czBer99U
fdYX1LP95B72crD6sbSwk4cPbA5pn3bq42CMT+9Wzy/eYMqNf9b/nYN5W15w
F5ecglPubLmREQ4WzPuUGfK6QoDepennYxzUsM7JD6WdIESk6+OZCQ7meNQG
ppY5QNTTBzempjh4ZKe1fvei/ZB8kd/51QwHRetlre3KLSHdwskgYI6D4GVf
d5jPCLIVqlZu+c1Bx2ylxDQ+HSgeWzO9sMCsp8w3/Hcf/D++BLvM
       "]]},
     Annotation[#, "Charting`Private`Tag$9389#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     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->{{0, 10}, {0., 0.5424379593135746}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7177517751234493`*^9, 
  3.7177763463803234`*^9},ExpressionUUID->"fa7bcd3a-6ebd-4f6d-bc35-\
4eb47738e53c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"16", " ", 
   RowBox[{"6", "/", 
    RowBox[{"Pi", "^", "4"}]}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.716891413783942*^9, 
  3.716891422753653*^9}},ExpressionUUID->"5f51d2fe-3ac2-4e7d-86bc-\
4043719b4cfc"],

Cell[BoxData["0.9855342964496963`"], "Output",
 CellChangeTimes->{{3.7168914181281586`*^9, 3.7168914234724803`*^9}, 
   3.717751775139076*^9, 
   3.71777634640329*^9},ExpressionUUID->"3c6bbc0b-41bf-41eb-ba1d-\
9cd40e1f9a1a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"n", "^", "2"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "Infinity", ",", "2"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7168915788328886`*^9, 
  3.716891595647191*^9}},ExpressionUUID->"2232d342-e1fc-4aae-8846-\
8e46e362f7d4"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[Pi]", "2"], "8"]], "Output",
 CellChangeTimes->{3.716891596381646*^9, 3.717751775139076*^9, 
  3.717776346439467*^9},ExpressionUUID->"0fd45445-d64b-4214-9f12-\
bdb2be64c519"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "10", ",", "nMaximo"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nMaximo", ",", "3"}], "}"}], ",", "1", ",", "100", ",", "1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7177763616442213`*^9, 
  3.717776424574798*^9}},ExpressionUUID->"8d7eb410-87b6-4c93-82f3-\
b4ea9d2e80b6"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`nMaximo$$ = 100, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`nMaximo$$], 3}, 1, 100, 1}}, Typeset`size$$ = {
    599., {181., 186.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`nMaximo$9774$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`nMaximo$$ = 3}, 
      "ControllerVariables" :> {
        Hold[$CellContext`nMaximo$$, $CellContext`nMaximo$9774$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`f[$CellContext`x, 
         10, $CellContext`nMaximo$$], {$CellContext`x, 0, 10}], 
      "Specifications" :> {{{$CellContext`nMaximo$$, 3}, 1, 100, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{650., {228., 234.}},
     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.7177764267368455`*^9},ExpressionUUID->"5f007fe2-2203-4fed-9406-\
f33afea2078d"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{759, 813},
WindowMargins->{{Automatic, 413}, {82, Automatic}},
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, 159, 3, 70, "Section", "ExpressionUUID" -> \
"1179c365-ea60-434e-b8e5-e22dea4a5fa4"],
Cell[CellGroupData[{
Cell[764, 29, 1116, 32, 50, "Input", "ExpressionUUID" -> \
"3f0cf850-fc1d-4816-bb09-586ea0716bd8"],
Cell[1883, 63, 465, 14, 68, "Output", "ExpressionUUID" -> \
"7bc5a69f-0d7a-4f2c-921e-06cfb0cd44f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2385, 82, 640, 18, 30, "Input", "ExpressionUUID" -> \
"46c2217f-d9cb-4c25-94f8-6cec9cb26e80"],
Cell[3028, 102, 557, 16, 68, "Output", "ExpressionUUID" -> \
"8ebe9309-07bc-46c0-aadb-a53ed4538966"]
}, Open  ]],
Cell[3600, 121, 1017, 31, 50, "Input", "ExpressionUUID" -> \
"86ed9a87-369a-4c73-924f-cbd701ef2dee"],
Cell[CellGroupData[{
Cell[4642, 156, 384, 10, 30, "Input", "ExpressionUUID" -> \
"68ae86c7-45e8-4a5c-8db0-172097f3a51a"],
Cell[5029, 168, 4925, 99, 236, "Output", "ExpressionUUID" -> \
"fa7bcd3a-6ebd-4f6d-bc35-4eb47738e53c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9991, 272, 250, 7, 30, "Input", "ExpressionUUID" -> \
"5f51d2fe-3ac2-4e7d-86bc-4043719b4cfc"],
Cell[10244, 281, 224, 4, 30, "Output", "ExpressionUUID" -> \
"3c6bbc0b-41bf-41eb-ba1d-9cd40e1f9a1a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10505, 290, 335, 10, 30, "Input", "ExpressionUUID" -> \
"2232d342-e1fc-4aae-8846-8e46e362f7d4"],
Cell[10843, 302, 222, 5, 56, "Output", "ExpressionUUID" -> \
"0fd45445-d64b-4214-9f12-bdb2be64c519"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11102, 312, 545, 16, 30, "Input", "ExpressionUUID" -> \
"8d7eb410-87b6-4c93-82f3-b4ea9d2e80b6"],
Cell[11650, 330, 1760, 36, 479, "Output", "ExpressionUUID" -> \
"5f007fe2-2203-4fed-9406-f33afea2078d"]
}, Open  ]]
}, Open  ]]
}
]
*)