(*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 0, 0] NotebookDataLength[ 79493, 2245] NotebookOptionsPosition[ 71186, 1993] NotebookOutlinePosition[ 73009, 2045] CellTagsIndexPosition[ 72930, 2040] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["RigidityTools", "Section", CellChangeTimes->{{3.4312643942076607`*^9, 3.4312643955966*^9}, { 3.4312644761699333`*^9, 3.431264479513*^9}}], Cell[TextData[{ StyleBox["RigidityTools is a ", FontSize->18], StyleBox["Mathematica", FontSize->18, FontSlant->"Italic"], StyleBox[" package for computations on frameworks.", FontSize->18] }], "Text", CellChangeTimes->{{3.43126440217321*^9, 3.431264485825754*^9}}], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"$Path", " ", "=", " ", RowBox[{"Append", "[", RowBox[{"$Path", ",", " ", "\"\<~/Desktop\>\""}], "]"}]}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{"Needs", "[", "\"\\"", "]"}], FontSize->18]}], "Input", CellChangeTimes->{{3.431264502121076*^9, 3.4312645360697393`*^9}, 3.454982210902212*^9}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["The Basics", "Section", CellChangeTimes->{{3.4312647822671824`*^9, 3.431264783857074*^9}}], Cell[TextData[StyleBox["We can tell RigidityTools about a framework, and it \ can show us what it looks like:", FontSize->18]], "Text", CellChangeTimes->{{3.431264786161398*^9, 3.431264816298877*^9}, 3.431298158955553*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"triangle", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"2", "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "/", "5"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}]}], FontSize->18]], "Input", CellChangeTimes->{{3.431264820580203*^9, 3.4312648398480387`*^9}, { 3.431265138873557*^9, 3.431265162833003*^9}, {3.431265529605282*^9, 3.431265543174492*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox["2", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", FractionBox["1", "5"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.454982268099717*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"GraphFramework", "[", "triangle", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.43126484407794*^9, 3.431264851437639*^9}, { 3.4312655256496077`*^9, 3.431265526945911*^9}}], Cell[BoxData[ GraphicsBox[ {PointSize[0.05], PointBox[NCache[{{0, 0}, {Rational[1, 2], Rational[2, 3]}, { 1, Rational[1, 5]}}, {{0, 0}, {0.5, 0.6666666666666666}, {1, 0.2}}]], {Thickness[Large], LineBox[NCache[{{{0, 0}, {Rational[1, 2], Rational[2, 3]}}, {{ Rational[1, 2], Rational[2, 3]}, {1, Rational[1, 5]}}, {{0, 0}, { 1, Rational[1, 5]}}}, {{{0, 0}, {0.5, 0.6666666666666666}}, {{0.5, 0.6666666666666666}, {1, 0.2}}, {{0, 0}, {1, 0.2}}}]]}}, ImageSize->{132.66666666666652`, Automatic}]], "Output", CellChangeTimes->{3.45498226986122*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Another Framework", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}}], Cell[TextData[StyleBox["A square:", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, 3.431265589124461*^9}], Cell[BoxData[ StyleBox[ RowBox[{"square", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}]}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, { 3.431265554271954*^9, 3.4312655549977713`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFramework", "[", "square", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312652143535624`*^9, 3.431265214433221*^9}, { 3.431265556810093*^9, 3.431265559267466*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"FirstOrderRigidQ", "[", "square", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312653932363453`*^9, 3.431265393362298*^9}, { 3.431296506476249*^9, 3.431296507142934*^9}}], Cell[TextData[StyleBox["How does it know whether or not a framework is \ infinitesimally flexible? ", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.431265411478127*^9, 3.431265427986998*^9}, {3.4312683061645823`*^9, 3.43126831902005*^9}, { 3.431302754796216*^9, 3.43130275954769*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Rigidity Matrix", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}}], Cell[TextData[StyleBox["An abstract rigidity matrix:", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}}], Cell[BoxData[ RowBox[{ StyleBox["abstractFramework", FontSize->18], StyleBox["=", FontSize->18], StyleBox[" ", FontSize->18], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x3", ",", " ", "y3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x4", ",", " ", "y4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "}"}]}], "}"}], FontSize->16]}]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431297753761977*^9, {3.431297856659524*^9, 3.4312978691128*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"RigidityMatrix", "[", "abstractFramework", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.43126547932753*^9, 3.431265490431583*^9}, 3.431297755995647*^9}], Cell[TextData[StyleBox["A simple concrete rigidity matrix:", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265356063512*^9}, {3.431265723509112*^9, 3.431265724490933*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"square2", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], FontSize->18]], "Input", CellChangeTimes->{3.431265677498603*^9}], Cell[BoxData[ StyleBox[ RowBox[{"RigidityMatrix", "[", "square2", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.431265691143474*^9, 3.431265706821411*^9}, 3.431265761886634*^9, {3.4312658587032347`*^9, 3.431265859688498*^9}, { 3.431299328544807*^9, 3.431299343114685*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Larger Rigidity Matrices", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}}], Cell[TextData[{ StyleBox["Generating rigidity matrices by hand can be tedious. So we let ", FontSize->18], StyleBox["Mathematica", FontSize->18, FontSlant->"Italic"], StyleBox[" create them for us:", FontSize->18] }], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"framework1", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"412", "/", "100"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"108", "/", "100"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"11", "/", "10"}], ",", RowBox[{"34", "/", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"52", "/", "10"}], ",", RowBox[{"35", "/", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"303", "/", "100"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"6", ",", "7"}], "}"}]}], "}"}]}], "}"}]}], ";"}], FontSize->16]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.431268346092415*^9}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFramework", "[", "framework1", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312661333459673`*^9, 3.43126614509789*^9}, { 3.431296582593969*^9, 3.431296585427283*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"RigidityMatrix", "[", "framework1", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.43126547932753*^9, 3.431265490431583*^9}, { 3.431266006945014*^9, 3.431266008267145*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Infinitesimal Flex", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431299374968282*^9, 3.431299378948229*^9}}], Cell[TextData[StyleBox["RigidityTools can also compute and show infinitesimal \ flexes. ", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.43129922772442*^9, 3.431299230468701*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"square", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], ";"}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.4312663354773693`*^9, {3.431300149865511*^9, 3.431300171964635*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"FirstOrderFlex", "[", RowBox[{"square", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "3", ",", " ", RowBox[{"2", "/", "3"}]}], "}"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.431297681833821*^9, 3.431297698108968*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFirstOrderFlex", "[", RowBox[{"square", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "3", ",", RowBox[{"2", "/", "3"}]}], "}"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312661333459673`*^9, 3.43126614509789*^9}, { 3.431266344089861*^9, 3.431266364754613*^9}, {3.431297685256048*^9, 3.431297693504895*^9}, {3.431300151936175*^9, 3.431300160080273*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Motion!", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.4312664153134413`*^9, 3.4312664225763893`*^9}}], Cell[TextData[StyleBox["How would such a square actually move?", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.431266437600634*^9, 3.431266446809244*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"Square", "[", "\[Theta]_", "]"}], " ", ":=", " ", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Theta]", "]"}], ",", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"1", " ", "+", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], "}"}], ")"}]}], ";"}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.4312663354773693`*^9, 3.431266463324037*^9}], Cell[BoxData[ StyleBox[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"GraphFirstOrderFlex", "[", RowBox[{ RowBox[{"Square", "[", "\[Theta]", "]"}], " ", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "3", ",", RowBox[{"2", "/", "3"}]}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", RowBox[{"\[Pi]", "/", "2"}], ",", RowBox[{"\[Pi]", "/", "4"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312661333459673`*^9, 3.43126614509789*^9}, { 3.431266344089861*^9, 3.431266364754613*^9}, 3.431266475415114*^9}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["More Interesting Examples", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431266569897574*^9, 3.43126658958453*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFirstOrderFlex", "[", RowBox[{"framework1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "6", ",", " ", "1"}], "}"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.4312663354773693`*^9, {3.431266626021244*^9, 3.431266628503296*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"framework2", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"6", ",", "7"}], "}"}]}], "}"}]}], "}"}]}], ";"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312661333459673`*^9, 3.43126614509789*^9}, { 3.431266344089861*^9, 3.431266364754613*^9}, {3.431266656184435*^9, 3.43126668197229*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFirstOrderFlex", "[", RowBox[{"framework2", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "6", ",", " ", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "5", ",", " ", "2"}], "}"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.431266665651265*^9, 3.4312666657211857`*^9}, { 3.431266696624435*^9, 3.431266698837883*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Two Triangles", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431266569897574*^9, 3.43126658958453*^9}, {3.43126672477787*^9, 3.4312667268957653`*^9}, {3.4312669190281553`*^9, 3.431266921530052*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"twoTriangles", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}]}], "}"}]}], "}"}]}], ";"}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.4312663354773693`*^9, {3.431266626021244*^9, 3.431266628503296*^9}, {3.431266775502664*^9, 3.431266785961494*^9}, { 3.4312669247861147`*^9, 3.431266962116953*^9}, {3.431298305643727*^9, 3.431298306036508*^9}, 3.43129834714436*^9}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFirstOrderFlex", "[", RowBox[{"twoTriangles", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "1", ",", "2"}], "}"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312661333459673`*^9, 3.43126614509789*^9}, { 3.431266344089861*^9, 3.431266364754613*^9}, {3.431266656184435*^9, 3.43126668197229*^9}, {3.431266804464807*^9, 3.4312668153701153`*^9}, { 3.4312669471007*^9, 3.431266953640458*^9}, {3.431298309017704*^9, 3.43129830953115*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Two Squares", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431266569897574*^9, 3.43126658958453*^9}, {3.43126672477787*^9, 3.4312667268957653`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"twoSquares", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"6", ",", "7"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"7", ",", "8"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"8", ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}]}], "}"}]}], "}"}]}], ";"}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.4312663354773693`*^9, {3.431266626021244*^9, 3.431266628503296*^9}, {3.431266775502664*^9, 3.431266785961494*^9}, { 3.431298382174085*^9, 3.431298382550963*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFirstOrderFlex", "[", RowBox[{"twoSquares", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "4", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "8", ",", "1"}], "}"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312661333459673`*^9, 3.43126614509789*^9}, { 3.431266344089861*^9, 3.431266364754613*^9}, {3.431266656184435*^9, 3.43126668197229*^9}, {3.431266804464807*^9, 3.4312668153701153`*^9}, { 3.431298385265327*^9, 3.431298385721961*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Three Dimensions", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431266569897574*^9, 3.43126658958453*^9}, {3.43126672477787*^9, 3.4312667268957653`*^9}, {3.431266993038785*^9, 3.4312669964220133`*^9}}], Cell[TextData[{ StyleBox["Mathematica", FontSize->18, FontSlant->"Italic"], StyleBox[" is really good at showing 3D figures.", FontSize->18] }], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.431267401221443*^9, 3.431267429980934*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"tetrahedron", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", " ", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1.1", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.3", ",", RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", " ", "1.2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}]}], ";"}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.4312663354773693`*^9, {3.431266626021244*^9, 3.431266628503296*^9}, {3.431266775502664*^9, 3.431266785961494*^9}, { 3.431267001558289*^9, 3.431267045805646*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFramework3D", "[", "tetrahedron", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312661333459673`*^9, 3.43126614509789*^9}, { 3.431266344089861*^9, 3.431266364754613*^9}, {3.431266656184435*^9, 3.43126668197229*^9}, {3.431266804464807*^9, 3.4312668153701153`*^9}, { 3.431267053267112*^9, 3.431267059826798*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"FirstOrderRigidQ", "[", "tetrahedron", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.431267087638056*^9, 3.4312670925690536`*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Two Bananas", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431266569897574*^9, 3.43126658958453*^9}, {3.43126672477787*^9, 3.4312667268957653`*^9}, {3.431266993038785*^9, 3.4312669964220133`*^9}, { 3.431267128647211*^9, 3.431267131341098*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"twoBananas", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8"}], "}"}]}], "}"}]}], "}"}]}], ";"}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.4312663354773693`*^9, {3.431266626021244*^9, 3.431266628503296*^9}, {3.431266775502664*^9, 3.431266785961494*^9}, { 3.431267001558289*^9, 3.431267045805646*^9}, {3.431267142424428*^9, 3.4312671488168163`*^9}, {3.431298447611862*^9, 3.431298448013901*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"FirstOrderRigidQ", "[", "twoBananas", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312661333459673`*^9, 3.43126614509789*^9}, { 3.431266344089861*^9, 3.431266364754613*^9}, {3.431266656184435*^9, 3.43126668197229*^9}, {3.431266804464807*^9, 3.4312668153701153`*^9}, { 3.431267053267112*^9, 3.431267059826798*^9}, 3.4312671694117002`*^9, { 3.43129845057256*^9, 3.431298450954149*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFirstOrderFlex3D", "[", RowBox[{"twoBananas", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "8", ",", "1.5"}], "}"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.431267087638056*^9, 3.4312670925690536`*^9}, 3.431267181305231*^9, {3.431298453244228*^9, 3.431298453635827*^9}, { 3.431300253526728*^9, 3.431300256452617*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"RigidityMatrix3D", "[", "twoBananas", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.431267209894786*^9, 3.431267219698833*^9}, { 3.431298455843345*^9, 3.4312984562929*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["On A Sphere", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431266569897574*^9, 3.43126658958453*^9}, {3.43126672477787*^9, 3.4312667268957653`*^9}, {3.431266993038785*^9, 3.4312669964220133`*^9}, { 3.431267128647211*^9, 3.431267131341098*^9}, {3.4312672739833517`*^9, 3.4312672776688747`*^9}}], Cell[TextData[StyleBox["A framework on a sphere is the same as a 3D framework \ with an additional vertex at the center of the sphere, a fixed distance from \ every other vertex.", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.43129885072774*^9, 3.431298875111696*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"sphericalFramework", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "/", "14"}], ",", RowBox[{"\[Pi]", "/", "13"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "+", RowBox[{"\[Pi]", "/", "7"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], ";"}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.4312663354773693`*^9, {3.431266626021244*^9, 3.431266628503296*^9}, {3.431266775502664*^9, 3.431266785961494*^9}, { 3.431267001558289*^9, 3.431267045805646*^9}, {3.431267142424428*^9, 3.4312671488168163`*^9}, {3.4312672919470387`*^9, 3.431267313333962*^9}, { 3.431298485651888*^9, 3.431298504604607*^9}, {3.431298897652222*^9, 3.431298932568715*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFrameworkSpherical", "[", "sphericalFramework", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.4312661333459673`*^9, 3.43126614509789*^9}, { 3.431266344089861*^9, 3.431266364754613*^9}, {3.431266656184435*^9, 3.43126668197229*^9}, {3.431266804464807*^9, 3.4312668153701153`*^9}, { 3.431267053267112*^9, 3.431267059826798*^9}, 3.4312671694117002`*^9, { 3.43126730960385*^9, 3.4312673229368896`*^9}, {3.431298488397165*^9, 3.431298505859395*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFirstOrderFlexSpherical", "[", RowBox[{"sphericalFramework", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "4", ",", "1"}], "}"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.431267828985302*^9, 3.43126783303891*^9}, { 3.431298495449849*^9, 3.431298506901533*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"threeDVersion", " ", "=", " ", RowBox[{"SphericalTo3DFramework", "[", "sphericalFramework", "]"}]}], FontSize->18]], "Input", CellChangeTimes->{{3.431267593736661*^9, 3.431267657446508*^9}, { 3.431298498675604*^9, 3.431298518638199*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFramework3D", "[", "threeDVersion", "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.431267660161413*^9, 3.4312676722745647`*^9}, 3.43129852452915*^9}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Another Spherical Framework", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431266569897574*^9, 3.43126658958453*^9}, {3.43126672477787*^9, 3.4312667268957653`*^9}, {3.431266993038785*^9, 3.4312669964220133`*^9}, { 3.431267128647211*^9, 3.431267131341098*^9}, {3.4312672739833517`*^9, 3.4312672776688747`*^9}, {3.431267870238312*^9, 3.431267873820381*^9}, { 3.431267972449637*^9, 3.431268009555522*^9}}], Cell[TextData[StyleBox["This framework actually is flexible.", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"sphericalFramework2", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Pi]", "/", "2"}], " ", "+", " ", RowBox[{"\[Pi]", "/", "4"}]}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], " ", "-", " ", RowBox[{"\[Pi]", "/", "11"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "/", "7"}], ",", RowBox[{"\[Pi]", "/", "13"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "+", RowBox[{"\[Pi]", "/", "12"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}], "}"}]}], ";"}], FontSize->18]], "Input", CellChangeTimes->{ 3.431265130014681*^9, {3.4312652030055*^9, 3.431265203146858*^9}, 3.431265475277521*^9, 3.431265941349572*^9, {3.431265996925152*^9, 3.431266066177453*^9}, 3.4312663354773693`*^9, {3.431266626021244*^9, 3.431266628503296*^9}, {3.431266775502664*^9, 3.431266785961494*^9}, { 3.431267001558289*^9, 3.431267045805646*^9}, {3.431267142424428*^9, 3.4312671488168163`*^9}, {3.4312672919470387`*^9, 3.431267313333962*^9}, { 3.431268122691475*^9, 3.431268131495028*^9}, 3.4312681803413477`*^9, { 3.431298646418796*^9, 3.431298646914126*^9}, {3.431298962037955*^9, 3.431299000639266*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"GraphFirstOrderFlexSpherical", "[", RowBox[{"sphericalFramework2", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "4", ",", "2"}], "}"}]}], "}"}]}], "]"}], FontSize->18]], "Input", CellChangeTimes->{{3.431268160067069*^9, 3.4312681633605337`*^9}, { 3.431298649690865*^9, 3.431298650140265*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["What about actual flexibility?", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431266569897574*^9, 3.43126658958453*^9}, {3.43126672477787*^9, 3.4312667268957653`*^9}, {3.431266993038785*^9, 3.4312669964220133`*^9}, { 3.431267128647211*^9, 3.431267131341098*^9}, {3.4312672739833517`*^9, 3.4312672776688747`*^9}, {3.431267870238312*^9, 3.431267873820381*^9}, { 3.431267972449637*^9, 3.431268009555522*^9}, {3.431268361960297*^9, 3.431268372462566*^9}, {3.431268957586153*^9, 3.4312689689111023`*^9}}], Cell[TextData[StyleBox["We have talked about infinitesimal flexibility a lot. \ But what about actual you-can-move-it flexibility?", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.4312688338717127`*^9, {3.431268906453129*^9, 3.431268922419722*^9}, {3.431268972262815*^9, 3.43126901018443*^9}, { 3.431269054467911*^9, 3.431269057379281*^9}, {3.431302474169291*^9, 3.431302493303376*^9}}], Cell[TextData[{ StyleBox["Basically,\n infinitesimal flexibility + ", FontSize->18], StyleBox["genericity", FontSize->18, FontWeight->"Bold"], StyleBox[" => flexibility.", FontSize->18] }], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.4312688338717127`*^9, {3.431268906453129*^9, 3.431268922419722*^9}, {3.431268972262815*^9, 3.43126910250126*^9}, { 3.43126914420205*^9, 3.431269144383753*^9}, {3.431302370248159*^9, 3.431302444510159*^9}}], Cell[TextData[StyleBox["Informally, a framework is generic if its vertices \ are not in any certain special positions (no collinear vertices or parallel \ edges etc.)", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.4312688338717127`*^9, {3.431268906453129*^9, 3.431268922419722*^9}, {3.431268972262815*^9, 3.43126901018443*^9}, { 3.431269054467911*^9, 3.431269057379281*^9}, {3.431269185041998*^9, 3.43126928226271*^9}, {3.431300401962962*^9, 3.431300402244535*^9}, { 3.431302519707727*^9, 3.431302543642434*^9}, {3.431303519404994*^9, 3.431303520967932*^9}, 3.431303801126187*^9}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["A Sequence of Polynomials", "Section", CellChangeTimes->{{3.4312650461485987`*^9, 3.431265049343918*^9}, { 3.431265318591477*^9, 3.4312653250224743`*^9}, {3.431265901070908*^9, 3.4312659166929083`*^9}, {3.431266252096621*^9, 3.4312662597110777`*^9}, { 3.431266569897574*^9, 3.43126658958453*^9}, {3.43126672477787*^9, 3.4312667268957653`*^9}, {3.431266993038785*^9, 3.4312669964220133`*^9}, { 3.431267128647211*^9, 3.431267131341098*^9}, {3.4312672739833517`*^9, 3.4312672776688747`*^9}, {3.431267870238312*^9, 3.431267873820381*^9}, { 3.431267972449637*^9, 3.431268009555522*^9}, {3.431268361960297*^9, 3.431268372462566*^9}}], Cell[TextData[{ StyleBox["While trying to determine whether or not frameworks are ", FontSize->18], StyleBox["generic", FontSize->18, FontWeight->"Bold"], StyleBox[", we came across a need to know the number of zero minors of the \ rigidity matrix for an abstract framework with ", FontSize->18], StyleBox["v ", FontSize->18, FontSlant->"Italic"], StyleBox["vertices.", FontSize->18] }], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.4312688338717127`*^9, {3.431268906453129*^9, 3.431268922419722*^9}, {3.431299061189914*^9, 3.431299081996768*^9}}], Cell[TextData[{ StyleBox["An n", FontSize->18], "\[Times]", StyleBox["n minor is the determinate of an n", FontSize->18], "\[Times]", StyleBox["n submatrix.", FontSize->18] }], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.431268830921405*^9, {3.431300483775625*^9, 3.431300532397254*^9}, {3.43130204789469*^9, 3.431302154683208*^9}}], Cell[TextData[{ StyleBox["Here, Z1[v] is the number of 1", FontSize->18], "\[Times]", StyleBox["1 minors that are always zero for a framework with ", FontSize->18], StyleBox["v", FontSize->18, FontSlant->"Italic"], StyleBox[" vertices.", FontSize->18] }], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.431268830921405*^9, {3.431300483775625*^9, 3.431300532397254*^9}, 3.431302114053808*^9, {3.431302229069063*^9, 3.431302255327456*^9}}], Cell[TextData[Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{"Z1", "[", "v", "]"}], " ", "=", RowBox[{ RowBox[{"v", "(", RowBox[{"v", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"v", "-", "2"}], ")"}]}]}], FontSize->18], TraditionalForm]], FontSize->24]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.431268830921405*^9, {3.431300483775625*^9, 3.431300532397254*^9}, {3.431300983474097*^9, 3.431301004816646*^9}, { 3.431301113128846*^9, 3.431301189799588*^9}, {3.431301249838926*^9, 3.431301267558323*^9}, {3.431301327482206*^9, 3.431301346609474*^9}, { 3.431301480647123*^9, 3.431301484271765*^9}, {3.431301805870889*^9, 3.431301816970628*^9}}], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ StyleBox[ RowBox[{"Z2", "[", "v", "]"}], FontSize->18], StyleBox["=", FontSize->18], RowBox[{ StyleBox[ RowBox[{"v", "(", RowBox[{"v", "-", "1"}], ")"}], FontSize->18], StyleBox[ RowBox[{"(", RowBox[{"v", "-", "2"}], ")"}], FontSize->18], RowBox[{ RowBox[{ StyleBox["(", FontSize->18], RowBox[{ RowBox[{ StyleBox["2", FontSize->18], SuperscriptBox[ StyleBox["v", FontSize->18], "3"]}], StyleBox["+", FontSize->18], SuperscriptBox[ StyleBox["v", FontSize->18], "2"], StyleBox["-", FontSize->18], StyleBox[ RowBox[{"17", "v"}], FontSize->18], StyleBox["-", FontSize->18], StyleBox["4", FontSize->18]}], StyleBox[")", FontSize->18]}], StyleBox["/", FontSize->18], StyleBox["8", FontSize->18]}]}]}], TraditionalForm]], FontSize->24]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.431268830921405*^9, {3.431300483775625*^9, 3.431300532397254*^9}, {3.431300983474097*^9, 3.431301004816646*^9}, { 3.431301113128846*^9, 3.431301461348104*^9}, {3.431301824087791*^9, 3.431301833231956*^9}}], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ StyleBox[ RowBox[{"Z3", "[", "v", "]"}], FontSize->18], StyleBox["=", FontSize->18], RowBox[{ RowBox[{ SuperscriptBox[ StyleBox["v", FontSize->18], "2"], StyleBox["(", FontSize->18], StyleBox[ RowBox[{"v", "-", "1"}], FontSize->18], StyleBox[")", FontSize->18]}], StyleBox[ RowBox[{"(", RowBox[{"v", "-", "2"}], ")"}], FontSize->18], RowBox[{ RowBox[{ StyleBox["(", FontSize->18], RowBox[{ RowBox[{ StyleBox["2", FontSize->18], SuperscriptBox[ StyleBox["v", FontSize->18], "5"]}], StyleBox["-", FontSize->18], RowBox[{ StyleBox["3", FontSize->18], SuperscriptBox[ StyleBox["v", FontSize->18], "4"]}], StyleBox["-", FontSize->18], RowBox[{ StyleBox["9", FontSize->18], SuperscriptBox[ StyleBox["v", FontSize->18], "3"]}], StyleBox["-", FontSize->18], RowBox[{ StyleBox["89", FontSize->18], SuperscriptBox[ StyleBox["v", FontSize->18], "2"]}], StyleBox["+", FontSize->18], StyleBox[ RowBox[{"223", "v"}], FontSize->18], StyleBox["+", FontSize->18], StyleBox["140", FontSize->18]}], StyleBox[")", FontSize->18]}], StyleBox["/", FontSize->18], StyleBox["72", FontSize->18]}]}]}], TraditionalForm]], FontSize->24]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.431268830921405*^9, {3.431300483775625*^9, 3.431300532397254*^9}, {3.431300983474097*^9, 3.431301004816646*^9}, { 3.431301113128846*^9, 3.431301587629996*^9}, {3.431301629855063*^9, 3.431301632636308*^9}, {3.431301729511499*^9, 3.431301753081742*^9}, { 3.431301838181125*^9, 3.431301845998764*^9}}], Cell[TextData[Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{"Z4", "[", "v", "]"}], " ", "=", "??"}], FontSize->18], TraditionalForm]], FontSize->24]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.431268830921405*^9, {3.431300483775625*^9, 3.431300532397254*^9}, {3.431300983474097*^9, 3.431301004816646*^9}, { 3.431301113128846*^9, 3.431301189799588*^9}, {3.431301249838926*^9, 3.431301267558323*^9}, {3.431301327482206*^9, 3.431301346609474*^9}, { 3.431301480647123*^9, 3.431301484271765*^9}, {3.431301805870889*^9, 3.431301816970628*^9}, {3.431301860906411*^9, 3.431301865949303*^9}}], Cell[TextData[StyleBox["I would really like to know how this sequence \ continues.", FontSize->18]], "Text", CellChangeTimes->{{3.431265131878477*^9, 3.431265133043521*^9}, { 3.431265327926053*^9, 3.431265335566361*^9}, {3.4312659265279016`*^9, 3.431265937373892*^9}, {3.431266088072151*^9, 3.431266120295697*^9}, { 3.431266265991818*^9, 3.431266304113738*^9}, {3.4312674619375467`*^9, 3.431267507153228*^9}, {3.4312680911040897`*^9, 3.4312681014964323`*^9}, { 3.431268511846923*^9, 3.431268522190607*^9}, {3.4312687163615627`*^9, 3.431268774436347*^9}, 3.431268830921405*^9, {3.431302327398667*^9, 3.431302327850217*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext"] }, Open ]] }, Open ]] }, WindowSize->{1024, 689}, WindowMargins->{{4, Automatic}, {7, Automatic}}, Magnification->1.5, FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[422, 15, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[2175, 72, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[5815, 189, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[8855, 282, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[12886, 410, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[16788, 528, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[20655, 639, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[24444, 745, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[28574, 868, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32314, 972, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[36414, 1086, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[40182, 1191, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[45675, 1341, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[50972, 1480, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[55434, 1595, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[59863, 1686, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 71499, 2004} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[422, 15, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[511, 20, 146, 2, 108, "Section"], Cell[660, 24, 277, 9, 92, "Text"], Cell[940, 35, 402, 11, 83, "Input"], Cell[1345, 48, 781, 18, 41, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2175, 72, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[2264, 77, 97, 1, 108, "Section"], Cell[2364, 80, 228, 4, 92, "Text"], Cell[CellGroupData[{ Cell[2617, 88, 868, 27, 100, "Input"], Cell[3488, 117, 629, 22, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4154, 144, 219, 5, 56, "Input"], Cell[4376, 151, 594, 11, 158, "Output"] }, Open ]], Cell[4985, 165, 781, 18, 41, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5815, 189, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[5904, 194, 104, 1, 108, "Section"], Cell[6011, 197, 152, 3, 54, "Text"], Cell[6166, 202, 1024, 32, 100, "Input"], Cell[7193, 236, 218, 5, 56, "Input"], Cell[7414, 243, 220, 5, 56, "Input"], Cell[7637, 250, 385, 6, 92, "Text"], Cell[8025, 258, 781, 18, 41, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8855, 282, 64, 1, 8, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[8944, 287, 153, 2, 108, "Section"], Cell[9100, 291, 194, 3, 54, "Text"], Cell[9297, 296, 1203, 39, 168, "Input"], Cell[10503, 337, 203, 5, 84, "Input"], Cell[10709, 344, 249, 4, 81, "Text"], Cell[10961, 350, 797, 26, 150, "Input"], Cell[11761, 378, 292, 6, 84, "Input"], Cell[12056, 386, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12886, 410, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[12975, 415, 213, 3, 162, "Section"], Cell[13191, 420, 449, 11, 138, "Text"], Cell[13643, 433, 1866, 55, 315, "Input"], Cell[15512, 490, 221, 5, 84, "Input"], Cell[15736, 497, 219, 5, 84, "Input"], Cell[15958, 504, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16788, 528, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[16877, 533, 304, 4, 162, "Section"], Cell[17184, 539, 425, 7, 81, "Text"], Cell[17612, 548, 1056, 31, 150, "Input"], Cell[18671, 581, 504, 14, 150, "Input"], Cell[19178, 597, 644, 16, 150, "Input"], Cell[19825, 615, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20655, 639, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[20744, 644, 297, 4, 162, "Section"], Cell[21044, 650, 399, 6, 81, "Text"], Cell[21446, 658, 1341, 37, 279, "Input"], Cell[22790, 697, 821, 22, 214, "Input"], Cell[23614, 721, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24444, 745, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[24533, 750, 310, 4, 162, "Section"], Cell[24846, 756, 678, 18, 150, "Input"], Cell[25527, 776, 1584, 47, 343, "Input"], Cell[27114, 825, 627, 17, 214, "Input"], Cell[27744, 844, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28574, 868, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[28663, 873, 396, 5, 162, "Section"], Cell[29062, 880, 1709, 47, 279, "Input"], Cell[30774, 929, 707, 17, 150, "Input"], Cell[31484, 948, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32314, 972, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[32403, 977, 346, 5, 162, "Section"], Cell[32752, 984, 2059, 56, 408, "Input"], Cell[34814, 1042, 767, 18, 214, "Input"], Cell[35584, 1062, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36414, 1086, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[36503, 1091, 399, 5, 162, "Section"], Cell[36905, 1098, 470, 11, 81, "Text"], Cell[37378, 1111, 1420, 39, 279, "Input"], Cell[38801, 1152, 369, 7, 84, "Input"], Cell[39173, 1161, 176, 4, 84, "Input"], Cell[39352, 1167, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40182, 1191, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[40271, 1196, 443, 6, 162, "Section"], Cell[40717, 1204, 2756, 74, 472, "Input"], Cell[43476, 1280, 444, 8, 84, "Input"], Cell[43923, 1290, 696, 18, 214, "Input"], Cell[44622, 1310, 220, 5, 84, "Input"], Cell[44845, 1317, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45675, 1341, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[45764, 1346, 496, 7, 162, "Section"], Cell[46263, 1355, 562, 8, 193, "Text"], Cell[46828, 1365, 1764, 47, 279, "Input"], Cell[48595, 1414, 511, 9, 84, "Input"], Cell[49109, 1425, 539, 14, 150, "Input"], Cell[49651, 1441, 282, 6, 150, "Input"], Cell[49936, 1449, 203, 5, 84, "Input"], Cell[50142, 1456, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50972, 1480, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[51061, 1485, 607, 8, 162, "Section"], Cell[51671, 1495, 449, 6, 81, "Text"], Cell[52123, 1503, 1932, 50, 279, "Input"], Cell[54058, 1555, 543, 14, 150, "Input"], Cell[54604, 1571, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[55434, 1595, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[55523, 1600, 707, 9, 162, "Section"], Cell[56233, 1611, 845, 12, 138, "Text"], Cell[57081, 1625, 899, 18, 139, "Text"], Cell[57983, 1645, 1047, 15, 138, "Text"], Cell[59033, 1662, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59863, 1686, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[59952, 1691, 654, 9, 162, "Section"], Cell[60609, 1702, 1002, 22, 195, "Text"], Cell[61614, 1726, 780, 17, 81, "Text"], Cell[62397, 1745, 890, 20, 138, "Text"], Cell[63290, 1767, 1138, 23, 81, "Text"], Cell[64431, 1792, 1773, 58, 108, "Text"], Cell[66207, 1852, 2458, 85, 202, "Text"], Cell[68668, 1939, 1054, 18, 81, "Text"], Cell[69725, 1959, 649, 10, 81, "Text"], Cell[70377, 1971, 781, 18, 61, "PreviousNext"] }, Open ]] }, Open ]] } ] *)