(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 25816, 556] NotebookOptionsPosition[ 25057, 523] NotebookOutlinePosition[ 25404, 538] CellTagsIndexPosition[ 25361, 535] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["P\[EHat]ndulo For\[CCedilla]ado", "Title", CellChangeTimes->{{3.683837937183425*^9, 3.683837943509582*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g", "=", "978.", " ", RowBox[{"(*", " ", RowBox[{"in", " ", RowBox[{"cm", "/", RowBox[{"s", "^", "2"}]}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6838371085246973`*^9, 3.683837140866659*^9}}], Cell[BoxData["978.`"], "Output", CellChangeTimes->{3.6838371530833807`*^9, 3.6838382218081913`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Solu\[CCedilla]\[ATilde]o da equa\[CCedilla]\[ATilde]o diferencial do \ exemplo 7.5 do Marion", "Section", CellChangeTimes->{{3.6838379602206964`*^9, 3.683837975357071*^9}, { 3.683838014671039*^9, 3.6838380232450705`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solucao", "=", RowBox[{"ParametricNDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "-", RowBox[{"a", " ", RowBox[{"\[Omega]", "^", "2"}], " ", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Theta]", "[", "t", "]"}], "-", RowBox[{"\[Omega]", " ", "t"}]}], "]"}], "/", "b"}]}], "+", RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", "\[Theta]", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "\[Omega]", ",", "b"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.683836854926175*^9, 3.6838371038899794`*^9}, { 3.6838371760463376`*^9, 3.683837180372317*^9}, {3.683837238700507*^9, 3.6838372727356005`*^9}, {3.68383731572333*^9, 3.6838373160213747`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\[Theta]", "\[Rule]", TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["ParametricFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{}, {}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, { 0.0874367476365131, 0.08197166587636243}, { 0.18222810297558026`, 0.1358255024317191}, { 0.27073779576926765`, 0.13315455086535802`}, { 0.3575112797365835, 0.08143316377978886}, { 0.4516394623155443, -0.007347854733426912}, { 0.5394859823491253, -0.08816932746972758}, { 0.6346872009943513, -0.13787329990112937`}, { 0.7281522108132057, -0.12816574147938434`}, { 0.8153355580866803, -0.07001063326902106}, { 0.9098736039718, 0.02121659675083076}, { 0.9999999090909091, 0.10024804094746914`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, { 0.0874367476365131, 0.08090369567458766}, { 0.18222810297558026`, 0.12746559200130417`}, { 0.27073779576926765`, 0.1116266937044405}, { 0.3575112797365835, 0.046963725126600256`}, { 0.4516394623155443, -0.04509050859182233}, { 0.5394859823491253, -0.11115559892361665`}, { 0.6346872009943513, -0.12642564594664163`}, { 0.7281522108132057, -0.07740196037964171}, { 0.8153355580866803, 0.004179083230780074}, { 0.9098736039718, 0.08937493944143977}, { 0.9999999090909091, 0.12834702174618903`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, { 0.0874367476365131, 0.07984396759533968}, { 0.18222810297558026`, 0.11939549826670079`}, { 0.27073779576926765`, 0.09184904274707059}, { 0.3575112797365835, 0.017913117173780694`}, { 0.4516394623155443, -0.07109962300031061}, { 0.5394859823491253, -0.11717052830989395`}, { 0.6346872009943513, -0.09879571259704382}, { 0.7281522108132057, -0.022693471356141894`}, { 0.8153355580866803, 0.06128703302641453}, { 0.9098736039718, 0.11605625481609519`}, { 0.9999999090909091, 0.10415981267620744`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, { 0.0874367476365131, 0.07879243663407876}, { 0.18222810297558026`, 0.1116081822210312}, { 0.27073779576926765`, 0.07372482040530459}, { 0.3575112797365835, -0.006267252216927747}, { 0.4516394623155443, -0.08743897872291118}, { 0.5394859823491253, -0.11109134853087661`}, { 0.6346872009943513, -0.06371549528296311}, { 0.7281522108132057, 0.02544576624054603}, { 0.8153355580866803, 0.09464282937855747}, { 0.9098736039718, 0.10731931496853601`}, { 0.9999999090909091, 0.0516787429232188}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, { 0.0874367476365131, 0.07774905743802465}, { 0.18222810297558026`, 0.10409673959866513`}, { 0.27073779576926765`, 0.05716133039337165}, { 0.3575112797365835, -0.026084496726167965`}, { 0.4516394623155443, -0.09591154799603378}, { 0.5394859823491253, -0.09685594593277226}, { 0.6346872009943513, -0.02730376120671303}, { 0.7281522108132057, 0.061646715198529656`}, { 0.8153355580866803, 0.1046634148537508}, {0.9098736039718, 0.07509702498429204}, { 0.9999999090909091, -0.006536873471333553}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, { 0.0874367476365131, 0.07671378556951527}, { 0.18222810297558026`, 0.09685439581479163}, { 0.27073779576926765`, 0.042069810325321415`}, { 0.3575112797365835, -0.042006785469922474`}, { 0.4516394623155443, -0.09808544986431629}, { 0.5394859823491253, -0.07760167026270944}, { 0.6346872009943513, 0.0063643674428021085`}, { 0.7281522108132057, 0.08405712128907425}, { 0.8153355580866803, 0.09555213349985489}, { 0.9098736039718, 0.03202960165577907}, { 0.9999999090909091, -0.054402034659985464`}}]}}, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, Method -> {"ScalingFunctions" -> None}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}, Ticks -> {Automatic, Automatic}], GridBox[{{ RowBox[{ TagBox["\"Expression: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox["\[Theta]", HoldForm], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Parameters: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"a", ",", "\[Omega]", ",", "b"}], "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{}, {}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, { 0.0874367476365131, 0.08197166587636243}, { 0.18222810297558026`, 0.1358255024317191}, { 0.27073779576926765`, 0.13315455086535802`}, { 0.3575112797365835, 0.08143316377978886}, { 0.4516394623155443, -0.007347854733426912}, { 0.5394859823491253, -0.08816932746972758}, { 0.6346872009943513, -0.13787329990112937`}, { 0.7281522108132057, -0.12816574147938434`}, { 0.8153355580866803, -0.07001063326902106}, { 0.9098736039718, 0.02121659675083076}, { 0.9999999090909091, 0.10024804094746914`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, { 0.0874367476365131, 0.08090369567458766}, { 0.18222810297558026`, 0.12746559200130417`}, { 0.27073779576926765`, 0.1116266937044405}, { 0.3575112797365835, 0.046963725126600256`}, { 0.4516394623155443, -0.04509050859182233}, { 0.5394859823491253, -0.11115559892361665`}, { 0.6346872009943513, -0.12642564594664163`}, { 0.7281522108132057, -0.07740196037964171}, { 0.8153355580866803, 0.004179083230780074}, { 0.9098736039718, 0.08937493944143977}, { 0.9999999090909091, 0.12834702174618903`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, { 0.0874367476365131, 0.07984396759533968}, { 0.18222810297558026`, 0.11939549826670079`}, { 0.27073779576926765`, 0.09184904274707059}, { 0.3575112797365835, 0.017913117173780694`}, { 0.4516394623155443, -0.07109962300031061}, { 0.5394859823491253, -0.11717052830989395`}, { 0.6346872009943513, -0.09879571259704382}, { 0.7281522108132057, -0.022693471356141894`}, { 0.8153355580866803, 0.06128703302641453}, { 0.9098736039718, 0.11605625481609519`}, { 0.9999999090909091, 0.10415981267620744`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, { 0.0874367476365131, 0.07879243663407876}, { 0.18222810297558026`, 0.1116081822210312}, { 0.27073779576926765`, 0.07372482040530459}, { 0.3575112797365835, -0.006267252216927747}, { 0.4516394623155443, -0.08743897872291118}, { 0.5394859823491253, -0.11109134853087661`}, { 0.6346872009943513, -0.06371549528296311}, { 0.7281522108132057, 0.02544576624054603}, { 0.8153355580866803, 0.09464282937855747}, { 0.9098736039718, 0.10731931496853601`}, { 0.9999999090909091, 0.0516787429232188}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, { 0.0874367476365131, 0.07774905743802465}, { 0.18222810297558026`, 0.10409673959866513`}, { 0.27073779576926765`, 0.05716133039337165}, { 0.3575112797365835, -0.026084496726167965`}, { 0.4516394623155443, -0.09591154799603378}, { 0.5394859823491253, -0.09685594593277226}, { 0.6346872009943513, -0.02730376120671303}, { 0.7281522108132057, 0.061646715198529656`}, { 0.8153355580866803, 0.1046634148537508}, {0.9098736039718, 0.07509702498429204}, { 0.9999999090909091, -0.006536873471333553}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, { 0.0874367476365131, 0.07671378556951527}, { 0.18222810297558026`, 0.09685439581479163}, { 0.27073779576926765`, 0.042069810325321415`}, { 0.3575112797365835, -0.042006785469922474`}, { 0.4516394623155443, -0.09808544986431629}, { 0.5394859823491253, -0.07760167026270944}, { 0.6346872009943513, 0.0063643674428021085`}, { 0.7281522108132057, 0.08405712128907425}, { 0.8153355580866803, 0.09555213349985489}, { 0.9098736039718, 0.03202960165577907}, { 0.9999999090909091, -0.054402034659985464`}}]}}, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, Method -> {"ScalingFunctions" -> None}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}, Ticks -> {Automatic, Automatic}], GridBox[{{ RowBox[{ TagBox["\"Expression: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox["\[Theta]", HoldForm], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Parameters: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"a", ",", "\[Omega]", ",", "b"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Generator: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["ParametricNDSolve", "SummaryItem"]}]}, { RowBox[{ TagBox[ "\"Dependent variables: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "\[Theta]", "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox[ "\"Independent variables: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("ParametricFunction[<>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", CellChangeTimes->{3.6838382308777704`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Fixando raio do disco girat\[OAcute]rio em 3 cm. \[Omega] \[EAcute] a frequ\[EHat]ncia de rota\[CCedilla]\[ATilde]o (rd) e b \ comprimento do p\[EHat]ndulo, em cm\ \>", "Section", CellChangeTimes->{{3.6838380479268093`*^9, 3.6838381228163815`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", " ", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", RowBox[{"3", ",", "\[Omega]", ",", "b"}], "]"}], "[", "t", "]"}], "/.", "solucao"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\<\[Theta] (rd)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Omega]", ",", "10"}], "}"}], ",", "1", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "30"}], "}"}], ",", "10", ",", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6838375542882037`*^9, 3.683837589500681*^9}, { 3.683837623212288*^9, 3.683837637967671*^9}, {3.6838376928483343`*^9, 3.6838376940325303`*^9}, {3.6838381465584664`*^9, 3.6838382152569923`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`b$$ = 30, $CellContext`\[Omega]$$ = 39.2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`\[Omega]$$], 10}, 1, 100}, {{ Hold[$CellContext`b$$], 30}, 10, 100}}, Typeset`size$$ = { 360., {105., 111.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Omega]$4223$$ = 0, $CellContext`b$4224$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`b$$ = 30, $CellContext`\[Omega]$$ = 10}, "ControllerVariables" :> { Hold[$CellContext`\[Omega]$$, $CellContext`\[Omega]$4223$$, 0], Hold[$CellContext`b$$, $CellContext`b$4224$$, 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[ Evaluate[ ReplaceAll[ $CellContext`\[Theta][ 3, $CellContext`\[Omega]$$, $CellContext`b$$][$CellContext`t], \ $CellContext`solucao]], {$CellContext`t, 0, 10}, AxesLabel -> {"t (s)", "\[Theta] (rd)"}], "Specifications" :> {{{$CellContext`\[Omega]$$, 10}, 1, 100}, {{$CellContext`b$$, 30}, 10, 100}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{411., {165., 172.}}, 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.6838375913027215`*^9, 3.683837639082833*^9, 3.6838376950330114`*^9, { 3.6838382167269783`*^9, 3.683838238634861*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{768, 581}, WindowMargins->{{Automatic, 286}, {24, Automatic}}, FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (February 25, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 114, 1, 90, "Title"], Cell[CellGroupData[{ Cell[719, 27, 242, 6, 31, "Input"], Cell[964, 35, 100, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1101, 41, 231, 3, 97, "Section"], Cell[CellGroupData[{ Cell[1357, 48, 1252, 33, 72, "Input"], Cell[2612, 83, 18833, 344, 72, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21494, 433, 260, 5, 131, "Section"], Cell[CellGroupData[{ Cell[21779, 442, 1048, 29, 52, "Input"], Cell[22830, 473, 2187, 45, 354, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *)