(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 135668, 3321] NotebookOptionsPosition[ 114901, 2884] NotebookOutlinePosition[ 131471, 3182] CellTagsIndexPosition[ 131428, 3179] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Constructing parallelograms from rectangles", "Section", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.46369340412612*^9, 3.463693406654079*^9}, {3.463693728494059*^9, 3.463693738762319*^9}, {3.46369385950071*^9, 3.463693870025489*^9}}], Cell[CellGroupData[{ Cell["Translate a triangle from one side to another", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.46369340412612*^9, 3.463693406654079*^9}, {3.463693904081521*^9, 3.4636939290740023`*^9}, 3.4636944041054573`*^9}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, PlotRange->{{-1, 5}, {0, 2}}], {189., -64.8}, ImageScaled[{0.5, 0.5}], {360., 120.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[1, 0, 0], PolygonBox[{{2, 0}, {3, 2}, {3, 0}}]}}, PlotRange->{{-1, 5}, {0, 2}}], {189., -194.39999999999998`}, ImageScaled[{0.5, 0.5}], {360., 119.99999999999997`}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {2, 0}, {3, 2}, {0, 2}}]}, {GrayLevel[1], PolygonBox[{{2, 0}, {3, 2}, {3, 0}}]}, {RGBColor[1, 0, 0], PolygonBox[{{-1, 0}, {0, 2}, {0, 0}}]}}, PlotRange->{{-1, 5}, {0, 2}}], {189., -324.}, ImageScaled[{0.5, 0.5}], {360., 119.99999999999994`}], InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], PolygonBox[{{-1, 0}, {2, 0}, {3, 2}, {0, 2}}]}, PlotRange->{{-1, 5}, {0, 2}}], {189., -453.6}, ImageScaled[{0.5, 0.5}], {360., 120.00000000000006`}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.463675231999001*^9, 3.463675244462569*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["This only goes so far", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.46369340412612*^9, 3.463693406654079*^9}, {3.463693890266808*^9, 3.463693891570037*^9}, {3.4636939689481173`*^9, 3.463693978529923*^9}, { 3.463694086996654*^9, 3.463694088661141*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`s$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`s$$], 0, 2}}, Typeset`size$$ = {148., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`s$329260$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`s$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`s$$, $CellContext`s$329260$$, 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" :> $CellContext`tryit[{0, 0}, {2, 3}, $CellContext`s$$], "Specifications" :> {{$CellContext`s$$, 0, 2, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{324., {251.34375, 256.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.463673643093375*^9, 3.463673733166273*^9}, { 3.4636751647071447`*^9, 3.463675198236671*^9}, {3.4636940536424093`*^9, 3.463694097828877*^9}, {3.4637572879445972`*^9, 3.463757289854*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["When in need...", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.46369340412612*^9, 3.463693406654079*^9}, {3.463693890266808*^9, 3.463693891570037*^9}, {3.4636940160206833`*^9, 3.463694024106688*^9}, { 3.4636941126539288`*^9, 3.463694116491206*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, PlotRange->{{0, 5}, {0, 2}}], {189., -78.}, ImageScaled[{0.5, 0.5}], {360., 144.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[1, 0, 0], PolygonBox[{{3, 0}, {5, 2}, {3, 2}}]}}, PlotRange->{{0, 5}, {0, 2}}], {189., -234.}, ImageScaled[{0.5, 0.5}], {360., 144.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[0, 0, 1], PolygonBox[{{3, 0}, {5, 2}, {3, 2}}]}}, PlotRange->{{0, 5}, {0, 2}}], {189., -390.}, ImageScaled[{0.5, 0.5}], {360., 144.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[0, 0, 1], PolygonBox[{{3, 0}, {5, 2}, {3, 2}}]}, {RGBColor[1, 0, 0], PolygonBox[{{0, 0}, {2, 2}, {0, 2}}]}}, PlotRange->{{0, 5}, {0, 2}}], {189., -546.}, ImageScaled[{0.5, 0.5}], {360., 144.}], InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {3, 0}, {5, 2}, {2, 2}}]}, PlotRange->{{0, 5}, {0, 2}}], {189., -702.}, ImageScaled[{0.5, 0.5}], {360., 144.}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.463675624166095*^9}] }, Open ]], Cell[CellGroupData[{ Cell["This construction allows arbitrarily large shearing", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.46369340412612*^9, 3.463693406654079*^9}, {3.463693890266808*^9, 3.463693891570037*^9}, {3.4636940160206833`*^9, 3.463694024106688*^9}, { 3.4636941126539288`*^9, 3.463694116491206*^9}, {3.463694192560738*^9, 3.463694206627655*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`s$$ = 5.138568115234374, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`s$$], 0, 8}}, Typeset`size$$ = {209., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`s$339781$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`s$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`s$$, $CellContext`s$339781$$, 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" :> $CellContext`tryits[{0, 0}, {2, 3}, $CellContext`s$$], "Specifications" :> {{$CellContext`s$$, 0, 8, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{324., {251.34375, 256.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.463674934545179*^9, {3.463674996380817*^9, 3.46367515724069*^9}, { 3.463675202337419*^9, 3.463675202699198*^9}, {3.463675583419518*^9, 3.463675605034039*^9}, {3.463694209389183*^9, 3.4636942377888536`*^9}, { 3.463757487365285*^9, 3.463757517170567*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Code", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.46369340412612*^9, 3.463693406654079*^9}, {3.463693890266808*^9, 3.463693891570037*^9}, {3.463694395198225*^9, 3.463694395373891*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tryit", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.463673397590702*^9, 3.46367340491715*^9}, { 3.463673450728249*^9, 3.463673451061488*^9}, {3.463673518543314*^9, 3.463673518861958*^9}, {3.463675230340302*^9, 3.463675244097061*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, PlotRange->{{-1, 5}, {0, 2}}], {189., -64.8}, ImageScaled[{0.5, 0.5}], {360., 120.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[1, 0, 0], PolygonBox[{{2, 0}, {3, 2}, {3, 0}}]}}, PlotRange->{{-1, 5}, {0, 2}}], {189., -194.39999999999998`}, ImageScaled[{0.5, 0.5}], {360., 119.99999999999997`}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {2, 0}, {3, 2}, {0, 2}}]}, {GrayLevel[1], PolygonBox[{{2, 0}, {3, 2}, {3, 0}}]}, {RGBColor[1, 0, 0], PolygonBox[{{-1, 0}, {0, 2}, {0, 0}}]}}, PlotRange->{{-1, 5}, {0, 2}}], {189., -324.}, ImageScaled[{0.5, 0.5}], {360., 119.99999999999994`}], InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], PolygonBox[{{-1, 0}, {2, 0}, {3, 2}, {0, 2}}]}, PlotRange->{{-1, 5}, {0, 2}}], {189., -453.6}, ImageScaled[{0.5, 0.5}], {360., 120.00000000000006`}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.463675231999001*^9, 3.463675244462569*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tryit", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.463673397590702*^9, 3.46367340491715*^9}, { 3.463673450728249*^9, 3.463673451061488*^9}, {3.463673518543314*^9, 3.463673518861958*^9}, {3.463675230340302*^9, 3.463675244097061*^9}, { 3.463675277845729*^9, 3.463675278033476*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, PlotRange->{{-2, 4}, {0, 2}}], {189., -64.8}, ImageScaled[{0.5, 0.5}], {360., 120.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[1, 0, 0], PolygonBox[{{1, 0}, {3, 2}, {3, 0}}]}}, PlotRange->{{-2, 4}, {0, 2}}], {189., -194.39999999999998`}, ImageScaled[{0.5, 0.5}], {360., 119.99999999999997`}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {1, 0}, {3, 2}, {0, 2}}]}, {GrayLevel[1], PolygonBox[{{1, 0}, {3, 2}, {3, 0}}]}, {RGBColor[1, 0, 0], PolygonBox[{{-2, 0}, {0, 2}, {0, 0}}]}}, PlotRange->{{-2, 4}, {0, 2}}], {189., -324.}, ImageScaled[{0.5, 0.5}], {360., 119.99999999999994`}], InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], PolygonBox[{{-2, 0}, {1, 0}, {3, 2}, {0, 2}}]}, PlotRange->{{-2, 4}, {0, 2}}], {189., -453.6}, ImageScaled[{0.5, 0.5}], {360., 120.00000000000006`}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.463675231999001*^9, 3.463675244462569*^9}, 3.463675278404108*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tryit", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.463673397590702*^9, 3.46367340491715*^9}, { 3.463673450728249*^9, 3.463673451061488*^9}, {3.463673518543314*^9, 3.463673518861958*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[1, 0, 0], PolygonBox[{{0, 0}, {3, 2}, {3, 0}}]}}, PlotRange->{{-3, 3}, {0, 2}}], {189., -64.5}, ImageScaled[{0.5, 0.5}], {360., 120.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {0, 0}, {3, 2}, {0, 2}}]}, {GrayLevel[1], PolygonBox[{{0, 0}, {3, 2}, {3, 0}}]}, {RGBColor[1, 0, 0], PolygonBox[{{-3, 0}, {0, 2}, {0, 0}}]}}, PlotRange->{{-3, 3}, {0, 2}}], {189., -193.5}, ImageScaled[{0.5, 0.5}], {360., 120.}], InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], PolygonBox[{{-3, 0}, {0, 0}, {3, 2}, {0, 2}}]}, PlotRange->{{-3, 3}, {0, 2}}], {189., -322.5}, ImageScaled[{0.5, 0.5}], {360., 120.}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.463673398181629*^9, 3.4636734054165497`*^9}, 3.4636734515063334`*^9, {3.463673519393404*^9, 3.4636735480947533`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tryits", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.463672849802215*^9, 3.4636728588222017`*^9}, { 3.463674028572163*^9, 3.4636740360913687`*^9}, {3.4636756235662117`*^9, 3.463675623837118*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, PlotRange->{{0, 5}, {0, 2}}], {189., -78.}, ImageScaled[{0.5, 0.5}], {360., 144.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[1, 0, 0], PolygonBox[{{3, 0}, {5, 2}, {3, 2}}]}}, PlotRange->{{0, 5}, {0, 2}}], {189., -234.}, ImageScaled[{0.5, 0.5}], {360., 144.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[0, 0, 1], PolygonBox[{{3, 0}, {5, 2}, {3, 2}}]}}, PlotRange->{{0, 5}, {0, 2}}], {189., -390.}, ImageScaled[{0.5, 0.5}], {360., 144.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[0, 0, 1], PolygonBox[{{3, 0}, {5, 2}, {3, 2}}]}, {RGBColor[1, 0, 0], PolygonBox[{{0, 0}, {2, 2}, {0, 2}}]}}, PlotRange->{{0, 5}, {0, 2}}], {189., -546.}, ImageScaled[{0.5, 0.5}], {360., 144.}], InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {3, 0}, {5, 2}, {2, 2}}]}, PlotRange->{{0, 5}, {0, 2}}], {189., -702.}, ImageScaled[{0.5, 0.5}], {360., 144.}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.463675624166095*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tryits", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.463672849802215*^9, 3.4636728588222017`*^9}, { 3.463674028572163*^9, 3.4636740360913687`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, PlotRange->{{0, 7}, {0, 2}}], {189., -55.71428571428571}, ImageScaled[{0.5, 0.5}], {360., 102.85714285714286`}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[1, 0, 0], PolygonBox[{{3, 0}, {7, 2}, {3, 2}}]}}, PlotRange->{{0, 7}, {0, 2}}], {189., -167.1428571428571}, ImageScaled[{0.5, 0.5}], {360., 102.85714285714286`}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[0, 0, 1], PolygonBox[{{3, 0}, {7, 2}, {3, 2}}]}}, PlotRange->{{0, 7}, {0, 2}}], {189., -278.57142857142856`}, ImageScaled[{0.5, 0.5}], {360., 102.85714285714283`}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[0, 0, 1], PolygonBox[{{3, 0}, {7, 2}, {3, 2}}]}, {RGBColor[1, 0, 0], PolygonBox[{{0, 0}, {4, 2}, {0, 2}}]}}, PlotRange->{{0, 7}, {0, 2}}], {189., -389.99999999999994`}, ImageScaled[{0.5, 0.5}], {360., 102.85714285714289`}], InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {3, 0}, {7, 2}, {4, 2}}]}, PlotRange->{{0, 7}, {0, 2}}], {189., -501.42857142857133`}, ImageScaled[{0.5, 0.5}], {360., 102.85714285714283`}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{ 3.463672859535027*^9, 3.463672941155401*^9, 3.463673029618441*^9, { 3.463673248450535*^9, 3.463673260170992*^9}, 3.463673305065402*^9, 3.463673376740759*^9, {3.463673606761046*^9, 3.463673617046281*^9}, { 3.463674028975493*^9, 3.463674036492893*^9}, 3.463674239410228*^9, 3.463674418299181*^9, {3.463674475712099*^9, 3.463674497971795*^9}, 3.4636746713046017`*^9, 3.4636747758482847`*^9, 3.463674836982943*^9, 3.463675515048465*^9}] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tryits", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", "7"}], "]"}]], "Input", CellChangeTimes->{{3.463672849802215*^9, 3.4636728588222017`*^9}, { 3.463674028572163*^9, 3.4636740360913687`*^9}, {3.4636756568084297`*^9, 3.463675657765481*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, PlotRange->{{0, 10}, {0, 2}}], {189., -39.}, ImageScaled[{0.5, 0.5}], {360., 72.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[1, 0, 0], PolygonBox[{{3, 0}, {10, 2}, {3, 2}}]}}, PlotRange->{{0, 10}, {0, 2}}], {189., -117.}, ImageScaled[{0.5, 0.5}], {360., 72.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[0, 0, 1], PolygonBox[{{3, 0}, {10, 2}, {3, 2}}]}}, PlotRange->{{0, 10}, {0, 2}}], {189., -195.}, ImageScaled[{0.5, 0.5}], {360., 72.}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0, 1], RectangleBox[{0, 0}, {3, 2}]}, {RGBColor[0, 0, 1], PolygonBox[{{3, 0}, {10, 2}, {3, 2}}]}, {RGBColor[1, 0, 0], PolygonBox[{{0, 0}, {7, 2}, {0, 2}}]}}, PlotRange->{{0, 10}, {0, 2}}], {189., -273.}, ImageScaled[{0.5, 0.5}], {360., 72.}], InsetBox[ GraphicsBox[ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {3, 0}, {10, 2}, {7, 2}}]}, PlotRange->{{0, 10}, {0, 2}}], {189., -351.}, ImageScaled[{0.5, 0.5}], {360., 72.}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.463675658166709*^9}] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"tryit", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", "s"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.463673629683701*^9, 3.463673642559116*^9}, { 3.463675161467843*^9, 3.463675164351317*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`s$$ = 1.7979621887207031`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`s$$], 0, 2}}, Typeset`size$$ = {148., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`s$329260$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`s$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`s$$, $CellContext`s$329260$$, 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" :> $CellContext`tryit[{0, 0}, {2, 3}, $CellContext`s$$], "Specifications" :> {{$CellContext`s$$, 0, 2, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{324., {251.34375, 256.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.463673643093375*^9, 3.463673733166273*^9}, { 3.4636751647071447`*^9, 3.463675198236671*^9}, {3.4636940536424093`*^9, 3.4636940676089983`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"tryits", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", "s"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "8"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.463673629683701*^9, 3.463673642559116*^9}, { 3.4636749295713167`*^9, 3.463674934067319*^9}, {3.4636750058216867`*^9, 3.463675139128063*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`s$$ = 2.4653602600097657`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`s$$], 0, 8}}, Typeset`size$$ = {131., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`s$339781$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`s$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`s$$, $CellContext`s$339781$$, 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" :> $CellContext`tryits[{0, 0}, {2, 3}, $CellContext`s$$], "Specifications" :> {{$CellContext`s$$, 0, 8, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{324., {251.34375, 256.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.463674934545179*^9, {3.463674996380817*^9, 3.46367515724069*^9}, { 3.463675202337419*^9, 3.463675202699198*^9}, {3.463675583419518*^9, 3.463675605034039*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"tryit", "[", RowBox[{ RowBox[{"{", RowBox[{"xl_", ",", "yl_"}], "}"}], ",", RowBox[{"{", RowBox[{"xh_", ",", "yh_"}], "}"}], ",", "xs_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xs", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yl"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xs", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xl", ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xs", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yl"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xs", "-", "xh", "+", "xl"}], ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xl", ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"xs", "-", "xh", "+", "xl"}], ")"}], ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xs", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xl", ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "#"}], "]"}], "}"}]}], "}"}], "]"}], "&"}], "[", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xs", "-", "xh", "+", "xl"}], ",", RowBox[{"xh", "+", "xs"}]}], "}"}], ",", RowBox[{"{", RowBox[{"yl", ",", "yh"}], "}"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.463671113559444*^9, 3.463671169175666*^9}, { 3.46367130034534*^9, 3.4636714050898123`*^9}, {3.46367189862538*^9, 3.463671898816897*^9}, {3.4636722861974783`*^9, 3.463672338420772*^9}, { 3.463672435504795*^9, 3.463672445840119*^9}, {3.4636725401933393`*^9, 3.463672655618178*^9}, {3.4636726884840097`*^9, 3.4636727162377043`*^9}, { 3.463672759163392*^9, 3.463672786727952*^9}, {3.463672825476046*^9, 3.46367284591772*^9}, {3.463672902064829*^9, 3.463672905996993*^9}, { 3.463672961972547*^9, 3.463672975719803*^9}, {3.463673008621921*^9, 3.463673025741761*^9}, {3.463673244596672*^9, 3.463673302399109*^9}, { 3.463673338926127*^9, 3.463673373146778*^9}, {3.463673473132121*^9, 3.463673505365529*^9}, {3.463673539129081*^9, 3.463673614542061*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"tryits", "[", RowBox[{ RowBox[{"{", RowBox[{"xl_", ",", "yl_"}], "}"}], ",", RowBox[{"{", RowBox[{"xh_", ",", "yh_"}], "}"}], ",", "xs_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xh", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xh", "+", "xs"}], ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xh", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xh", "+", "xs"}], ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xl", "+", "xs"}], ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xl", ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xh", "+", "xs"}], ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xl", "+", "xs"}], ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "#"}], "]"}], "}"}]}], "}"}], "]"}], "&"}], "[", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", RowBox[{"xh", "+", "xs"}]}], "}"}], ",", RowBox[{"{", RowBox[{"yl", ",", "yh"}], "}"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.463671113559444*^9, 3.463671169175666*^9}, { 3.46367130034534*^9, 3.4636714050898123`*^9}, {3.46367189862538*^9, 3.463671898816897*^9}, {3.4636722861974783`*^9, 3.463672338420772*^9}, { 3.463672435504795*^9, 3.463672445840119*^9}, {3.4636725401933393`*^9, 3.463672655618178*^9}, {3.4636726884840097`*^9, 3.4636727162377043`*^9}, { 3.463672759163392*^9, 3.463672786727952*^9}, {3.463672825476046*^9, 3.46367284591772*^9}, {3.463672902064829*^9, 3.463672905996993*^9}, { 3.463672961972547*^9, 3.463672975719803*^9}, {3.463673008621921*^9, 3.463673025741761*^9}, {3.463673244596672*^9, 3.463673302399109*^9}, { 3.463673338926127*^9, 3.463673373146778*^9}, {3.463673473132121*^9, 3.463673505365529*^9}, {3.463673539129081*^9, 3.463673614542061*^9}, 3.4636737580302773`*^9, {3.4636738115202503`*^9, 3.46367384819191*^9}, { 3.463673886324236*^9, 3.463674022821652*^9}, {3.4636741040632877`*^9, 3.463674119738356*^9}, {3.463674224328553*^9, 3.463674236041677*^9}, 3.463674336205727*^9, 3.4636744127355824`*^9, {3.4636744602295933`*^9, 3.4636744950559387`*^9}, {3.463674593606802*^9, 3.463674668239143*^9}, { 3.4636747259972143`*^9, 3.463674772923565*^9}, {3.463674813400239*^9, 3.463674833248254*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"tryits", "[", RowBox[{ RowBox[{"{", RowBox[{"xl_", ",", "yl_"}], "}"}], ",", RowBox[{"{", RowBox[{"xh_", ",", "yh_"}], "}"}], ",", "xs_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xh", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xh", "+", "xs"}], ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xh", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xh", "+", "xs"}], ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xh", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xh", "+", "xs"}], ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xl", "+", "xs"}], ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{"xl", ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "#"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{"xh", ",", "yl"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xh", "+", "xs"}], ",", "yh"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xl", "+", "xs"}], ",", "yh"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "#"}], "]"}], "}"}]}], "}"}], "]"}], "&"}], "[", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", RowBox[{"xh", "+", "xs"}]}], "}"}], ",", RowBox[{"{", RowBox[{"yl", ",", "yh"}], "}"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.463671113559444*^9, 3.463671169175666*^9}, { 3.46367130034534*^9, 3.4636714050898123`*^9}, {3.46367189862538*^9, 3.463671898816897*^9}, {3.4636722861974783`*^9, 3.463672338420772*^9}, { 3.463672435504795*^9, 3.463672445840119*^9}, {3.4636725401933393`*^9, 3.463672655618178*^9}, {3.4636726884840097`*^9, 3.4636727162377043`*^9}, { 3.463672759163392*^9, 3.463672786727952*^9}, {3.463672825476046*^9, 3.46367284591772*^9}, {3.463672902064829*^9, 3.463672905996993*^9}, { 3.463672961972547*^9, 3.463672975719803*^9}, {3.463673008621921*^9, 3.463673025741761*^9}, {3.463673244596672*^9, 3.463673302399109*^9}, { 3.463673338926127*^9, 3.463673373146778*^9}, {3.463673473132121*^9, 3.463673505365529*^9}, {3.463673539129081*^9, 3.463673614542061*^9}, 3.4636737580302773`*^9, {3.4636738115202503`*^9, 3.46367384819191*^9}, { 3.463673886324236*^9, 3.463674022821652*^9}, {3.4636741040632877`*^9, 3.463674119738356*^9}, {3.463674224328553*^9, 3.463674236041677*^9}, 3.463674336205727*^9, 3.4636744127355824`*^9, {3.4636744602295933`*^9, 3.4636744950559387`*^9}, {3.463674593606802*^9, 3.463674668239143*^9}, { 3.4636747259972143`*^9, 3.463674772923565*^9}, {3.463674813400239*^9, 3.463674833248254*^9}, {3.463675384816328*^9, 3.463675422171916*^9}, { 3.463675501252851*^9, 3.463675505875382*^9}}] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Euclid's proof of the Pythagorean theorem (section 2.5 in text)\ \>", "Section", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.46369340412612*^9, 3.463693406654079*^9}, {3.463693728494059*^9, 3.463693738762319*^9}, {3.463760382244934*^9, 3.463760387426519*^9}}], Cell[CellGroupData[{ Cell["Start", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.46369340412612*^9, 3.463693406654079*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {5, 0}, {5, 5}, {0, 5}}]}, {RGBColor[1, 0, 0], PolygonBox[ NCache[{{0, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[4, 5], Rational[53, 5]}, { Rational[-12, 5], Rational[41, 5]}}, {{0, 5}, {3.2, 7.4}, {0.8, 10.6}, {-2.4, 8.2}}]]}, {RGBColor[1, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[37, 5], Rational[34, 5]}, { Rational[28, 5], Rational[46, 5]}, { Rational[16, 5], Rational[37, 5]}}, {{5, 5}, {7.4, 6.8}, {5.6, 9.2}, { 3.2, 7.4}}]]}}]], "Output", CellChangeTimes->{3.46369154339424*^9, 3.46369175617133*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Split one square into two congruent triangles", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.463693427764779*^9, 3.463693441561927*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {5, 0}, {5, 5}, {0, 5}}]}, {RGBColor[1, 0, 0], PolygonBox[ NCache[{{0, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[4, 5], Rational[53, 5]}, { Rational[-12, 5], Rational[41, 5]}}, {{0, 5}, {3.2, 7.4}, {0.8, 10.6}, {-2.4, 8.2}}]]}, {RGBColor[1, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[37, 5], Rational[34, 5]}, { Rational[28, 5], Rational[46, 5]}, { Rational[16, 5], Rational[37, 5]}}, {{5, 5}, {7.4, 6.8}, {5.6, 9.2}, { 3.2, 7.4}}]]}, {RGBColor[0, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[37, 5], Rational[34, 5]}}, {{5, 5}, {3.2, 7.4}, {7.4, 6.8}}]]}}]], "Output", CellChangeTimes->{ 3.4636883096850863`*^9, {3.4636883916872787`*^9, 3.463688397429449*^9}, { 3.463688450319076*^9, 3.46368847665685*^9}, {3.46368852544804*^9, 3.463688533213965*^9}, {3.4636885770280037`*^9, 3.463688585933568*^9}, { 3.463688626998373*^9, 3.463688676499267*^9}, {3.463688827006482*^9, 3.4636888412696457`*^9}, {3.463688910092959*^9, 3.463688960565134*^9}, { 3.463688999128389*^9, 3.4636890283700953`*^9}, {3.463689155485664*^9, 3.463689206446875*^9}, {3.463689260116312*^9, 3.463689349580286*^9}, 3.463689452390689*^9, {3.46368950716649*^9, 3.4636895204801893`*^9}, { 3.46368955707543*^9, 3.463689567553461*^9}, 3.463689716586239*^9, { 3.463689833493575*^9, 3.463689912324201*^9}, 3.463691785060081*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Shear the green triangle until one side lies along the top of the blue square\ \ \>", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.463693427764779*^9, 3.4636934911062927`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]$$], 0, Rational[4, 3]}}, Typeset`size$$ = {360., {192., 196.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]$396026$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$396026$$, 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" :> Show[{ Graphics[{Blue, Polygon[ $CellContext`sq[5]]}], Graphics[{Red, Polygon[ $CellContext`euc[ $CellContext`sq[4], ArcSin[3/5], {0, 5}]]}], Graphics[{Yellow, Polygon[ $CellContext`euc[ $CellContext`sq[3], Pi/2 - ArcSin[4/5], {5, 5}]]}], Graphics[{Green, Polygon[ $CellContext`euc[ $CellContext`shear[ $CellContext`tri[3], $CellContext`\[Sigma]$$, 0], Pi/2 - ArcSin[ 4/5], {5, 5}]]}]}], "Specifications" :> {{$CellContext`\[Sigma]$$, 0, Rational[4, 3], AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229.34375, 234.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4636899864613657`*^9, 3.4636899999967422`*^9}, { 3.463690053937707*^9, 3.463690090312325*^9}, {3.463690131614929*^9, 3.463690185775958*^9}, {3.463690689227458*^9, 3.46369070060576*^9}, { 3.4636907950954227`*^9, 3.463690815762595*^9}, {3.463691571622871*^9, 3.463691581977839*^9}, 3.46369161691389*^9, {3.463691663550363*^9, 3.463691683480723*^9}, {3.4636918285108356`*^9, 3.4636918629774837`*^9}, { 3.463693749132538*^9, 3.4636937526278467`*^9}, {3.463758365640245*^9, 3.463758376029922*^9}, {3.463763521849502*^9, 3.463763522254032*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["(Same thing tilted so that the base is horizontal)", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.463693427764779*^9, 3.463693525266531*^9}, {3.463693778197749*^9, 3.463693792120022*^9}, {3.463760433821031*^9, 3.463760444047278*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]$$], 0, Rational[4, 3]}}, Typeset`size$$ = {360., {195., 199.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]$396242$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$396242$$, 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" :> Show[{ Graphics[{Blue, Polygon[ $CellContext`euc[ $CellContext`sq[5], (-Pi)/2 + ArcSin[4/5], {0, 0}]]}], Graphics[{Red, Polygon[ $CellContext`euc[ $CellContext`euc[ $CellContext`sq[4], ArcSin[3/5], {0, 5}], (-Pi)/2 + ArcSin[4/5], {0, 0}]]}], Graphics[{Yellow, Polygon[ $CellContext`euc[ $CellContext`sq[3], 0, Part[ $CellContext`euc[{{5, 5}}, (-Pi)/2 + ArcSin[4/5], {0, 0}], 1]]]}], Graphics[{Green, Polygon[ $CellContext`euc[ $CellContext`shear[ $CellContext`tri[3], $CellContext`\[Sigma]$$, 0], 0, Part[ $CellContext`euc[{{5, 5}}, (-Pi)/2 + ArcSin[4/5], {0, 0}], 1]]]}]}], "Specifications" :> {{$CellContext`\[Sigma]$$, 0, Rational[4, 3], AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {232.34375, 237.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4636925406033373`*^9, 3.46369255035716*^9}, { 3.463692646379446*^9, 3.463692653346623*^9}, 3.463692685300037*^9, { 3.4636927554936037`*^9, 3.4636927590258627`*^9}, 3.463692800258808*^9, { 3.4636937883718567`*^9, 3.4636938180246553`*^9}, {3.463758393305738*^9, 3.463758426472596*^9}, {3.463763518480809*^9, 3.4637635192504*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Rotate the green triangle until the blue length side is vertical\ \>", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.463693427764779*^9, 3.4636935790022507`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Theta]$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Theta]$$], 0, Rational[1, 2] Pi}}, Typeset`size$$ = {360., {192., 196.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Theta]$396117$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Theta]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$396117$$, 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" :> Show[{ Graphics[{Blue, Polygon[ $CellContext`sq[5]]}], Graphics[{Red, Polygon[ $CellContext`euc[ $CellContext`sq[4], ArcSin[3/5], {0, 5}]]}], Graphics[{Yellow, Polygon[ $CellContext`euc[ $CellContext`sq[3], Pi/2 - ArcSin[4/5], {5, 5}]]}], Graphics[{Green, Polygon[ $CellContext`euc[ $CellContext`shear[ $CellContext`tri[3], 4/3], Pi/2 - ArcSin[ 4/5] + $CellContext`\[Theta]$$, {5, 5}]]}]}], "Specifications" :> {{$CellContext`\[Theta]$$, 0, Rational[1, 2] Pi, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229.34375, 234.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4636923221729937`*^9, 3.463692343465473*^9}, { 3.463692803531261*^9, 3.463692806867914*^9}, 3.463692837931354*^9, { 3.463758483662977*^9, 3.463758495996584*^9}, {3.463763515375291*^9, 3.463763515688745*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Shear vertically until the short side is horizontal", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.463693610228476*^9, 3.463693642386299*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]$$], 0, Rational[4, 3]}}, Typeset`size$$ = {360., {192., 196.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]$396302$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$396302$$, 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" :> Show[{ Graphics[{Blue, Polygon[ $CellContext`sq[5]]}], Graphics[{Red, Polygon[ $CellContext`euc[ $CellContext`sq[4], ArcSin[3/5], {0, 5}]]}], Graphics[{Yellow, Polygon[ $CellContext`euc[ $CellContext`sq[3], Pi/2 - ArcSin[4/5], {5, 5}]]}], Graphics[{Black, Dashed, Line[ ({{#, 0}, {#, 5 + 4 Cos[ ArcSin[4/5]]}}& )[4 Cos[ ArcSin[3/5]]]]}], Graphics[{Green, Polygon[ $CellContext`euc[ $CellContext`shear[ $CellContext`euc[ $CellContext`shear[ $CellContext`tri[3], 4/3, 0], Pi - ArcSin[4/5], {0, 5}], 0, $CellContext`\[Sigma]$$], 0, {5, 0}]]}]}], "Specifications" :> {{$CellContext`\[Sigma]$$, 0, Rational[4, 3], AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229.34375, 234.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.463690360050913*^9, 3.4636903702866163`*^9}, { 3.463690412407892*^9, 3.4636904304333057`*^9}, {3.463690751858616*^9, 3.463690776932613*^9}, {3.463690839725278*^9, 3.4636909591748123`*^9}, { 3.4636911132875147`*^9, 3.463691116696371*^9}, {3.463691149724435*^9, 3.4636911640284977`*^9}, {3.463691218372654*^9, 3.463691262015382*^9}, { 3.463692384187941*^9, 3.463692415505526*^9}, {3.463692841864216*^9, 3.4636928447923937`*^9}, 3.463692890966929*^9, {3.463693016459647*^9, 3.4636930793306303`*^9}, {3.463758545233819*^9, 3.463758566315312*^9}, { 3.4637603493231277`*^9, 3.4637603510576773`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Half done: the two green triangles have the same area (repeat for the red \ square)\ \>", "Subsection", CellChangeTimes->{{3.463693366124496*^9, 3.463693367603022*^9}, { 3.463693677723555*^9, 3.463693709635358*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {5, 0}, {5, 5}, {0, 5}}]}, {RGBColor[1, 1, 0], PolygonBox[ NCache[{{Rational[16, 5], 0}, {5, 0}, {5, 5}, {Rational[16, 5], 5}}, {{ 3.2, 0}, {5, 0}, {5, 5}, {3.2, 5}}]]}, {RGBColor[1, 0, 0], PolygonBox[ NCache[{{0, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[4, 5], Rational[53, 5]}, { Rational[-12, 5], Rational[41, 5]}}, {{0, 5}, {3.2, 7.4}, {0.8, 10.6}, {-2.4, 8.2}}]]}, {RGBColor[1, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[37, 5], Rational[34, 5]}, { Rational[28, 5], Rational[46, 5]}, { Rational[16, 5], Rational[37, 5]}}, {{5, 5}, {7.4, 6.8}, {5.6, 9.2}, { 3.2, 7.4}}]]}, {RGBColor[0, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[37, 5], Rational[34, 5]}}, {{5, 5}, {3.2, 7.4}, {7.4, 6.8}}]]}, {RGBColor[0, 1, 0], PolygonBox[ NCache[{{5, 5}, {5, 0}, {Rational[16, 5], 5}}, {{5, 5}, {5, 0}, { 3.2, 5}}]]}, {GrayLevel[0], Dashing[{Small, Small}], LineBox[NCache[{{Rational[16, 5], 0}, { Rational[16, 5], Rational[37, 5]}}, {{3.2, 0}, {3.2, 7.4}}]]}}]], "Output", CellChangeTimes->{{3.463691367532514*^9, 3.463691375587472*^9}, { 3.4636914327073593`*^9, 3.4636914455279093`*^9}, 3.46369148770284*^9, { 3.4636931189417963`*^9, 3.463693156791051*^9}, {3.463693258650238*^9, 3.463693287235997*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["A different approach: ", "Subsection", CellChangeTimes->{{3.463693383557221*^9, 3.463693386296385*^9}, { 3.4636943676092377`*^9, 3.463694367782003*^9}, {3.463763256347184*^9, 3.463763357538328*^9}}], Cell[TextData[StyleBox["The first part implements Euclid's transformations, \ but on the entire yellow square; the red square is transformed using two \ families of shears followed by a translation. What would the corresponding \ transformation of the yellow square look like?", FontSize->16]], "Text", CellChangeTimes->{{3.463763359840969*^9, 3.463763420393956*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]$$], 0, 6}}, Typeset`size$$ = { 360., {210., 215.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]$444373$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$444373$$, 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" :> Show[ Join[{ Graphics[{Blue, Polygon[ $CellContext`sq[5]]}]}, Which[$CellContext`\[Sigma]$$ < 1, { $CellContext`phase1[$CellContext`\[Sigma]$$], $CellContext`phase4[0]}, Inequality[1, LessEqual, $CellContext`\[Sigma]$$, Less, 2], { $CellContext`phase2[$CellContext`\[Sigma]$$ - 1], $CellContext`phase4[0]}, Inequality[2, LessEqual, $CellContext`\[Sigma]$$, Less, 3], { $CellContext`phase3[$CellContext`\[Sigma]$$ - 2], $CellContext`phase4[0]}, Inequality[3, LessEqual, $CellContext`\[Sigma]$$, Less, 4], { $CellContext`phase4[$CellContext`\[Sigma]$$ - 3], $CellContext`phase3[1]}, Inequality[4, LessEqual, $CellContext`\[Sigma]$$, Less, 5], { $CellContext`phase5[$CellContext`\[Sigma]$$ - 4], $CellContext`phase3[1]}, 5 <= $CellContext`\[Sigma]$$, { $CellContext`phase6[$CellContext`\[Sigma]$$ - 5], $CellContext`phase3[1]}]], PlotRange -> {{-3, 8}, {0, 13}}], "Specifications" :> {{$CellContext`\[Sigma]$$, 0, 6, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {247.34375, 252.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4637629481851187`*^9, 3.463763060579891*^9}, { 3.463763099267692*^9, 3.463763131815958*^9}, {3.463763180250565*^9, 3.4637632386167793`*^9}, {3.4637634259480047`*^9, 3.4637634751066217`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Code", "Subsection", CellChangeTimes->{{3.463693383557221*^9, 3.463693386296385*^9}, { 3.4636943676092377`*^9, 3.463694367782003*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"euc", "[", RowBox[{"pts_", ",", "\[Theta]_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Theta]", "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}], "}"}], ".", "#"}], "+", "\[Tau]"}], ")"}], "&"}], "/@", "pts"}]}]], "Input", CellChangeTimes->{{3.463688210020643*^9, 3.463688267685622*^9}, { 3.4636917228479652`*^9, 3.463691733682832*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"sq", "[", "s_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "s"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.463688323831863*^9, 3.463688368198155*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"tri", "[", "s_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "0"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.463688323831863*^9, 3.463688368198155*^9}, { 3.463689799310226*^9, 3.4636898061062613`*^9}, {3.463689850751338*^9, 3.46368991016225*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"shear", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "}"}], ",", "s", ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.463691061882208*^9, 3.4636910714935904`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "-", RowBox[{"s", " ", "y"}]}], ",", RowBox[{ RowBox[{"t", " ", "x"}], "+", "y"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.463691071927924*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"shear", "[", RowBox[{"pts_", ",", "\[Sigma]_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "\[Sigma]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", "1"}], "}"}]}], "}"}], ".", "#"}], ")"}], "&"}], "/@", "pts"}]}]], "Input", CellChangeTimes->{{3.4636906462717113`*^9, 3.4636906670849457`*^9}, { 3.46369082467614*^9, 3.4636908304178677`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"sq", "[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "4", "]"}], ",", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.463688124856393*^9, 3.463688198924368*^9}, { 3.4636882768442183`*^9, 3.463688305703165*^9}, {3.463688374307206*^9, 3.463688476323903*^9}, {3.4636885198185253`*^9, 3.463688536913001*^9}, { 3.463688574145926*^9, 3.4636885856081333`*^9}, {3.463688618914523*^9, 3.463688675991314*^9}, {3.463688812184002*^9, 3.463688959112102*^9}, { 3.463688992616921*^9, 3.463689028052938*^9}, {3.463689146785759*^9, 3.463689205907483*^9}, {3.46368925758146*^9, 3.4636893491316957`*^9}, { 3.463689439995429*^9, 3.4636894518785973`*^9}, {3.463689505378296*^9, 3.463689566030363*^9}, {3.463689714115632*^9, 3.4636897156815166`*^9}, { 3.463689818797358*^9, 3.4636898329146137`*^9}, {3.46369154138277*^9, 3.46369154273341*^9}, {3.463691740534038*^9, 3.463691755153083*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {5, 0}, {5, 5}, {0, 5}}]}, {RGBColor[1, 0, 0], PolygonBox[ NCache[{{0, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[4, 5], Rational[53, 5]}, { Rational[-12, 5], Rational[41, 5]}}, {{0, 5}, {3.2, 7.4}, {0.8, 10.6}, {-2.4, 8.2}}]]}, {RGBColor[1, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[37, 5], Rational[34, 5]}, { Rational[28, 5], Rational[46, 5]}, { Rational[16, 5], Rational[37, 5]}}, {{5, 5}, {7.4, 6.8}, {5.6, 9.2}, { 3.2, 7.4}}]]}}]], "Output", CellChangeTimes->{3.46369154339424*^9, 3.46369175617133*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"sq", "[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "4", "]"}], ",", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"tri", "[", "3", "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.463688124856393*^9, 3.463688198924368*^9}, { 3.4636882768442183`*^9, 3.463688305703165*^9}, {3.463688374307206*^9, 3.463688476323903*^9}, {3.4636885198185253`*^9, 3.463688536913001*^9}, { 3.463688574145926*^9, 3.4636885856081333`*^9}, {3.463688618914523*^9, 3.463688675991314*^9}, {3.463688812184002*^9, 3.463688959112102*^9}, { 3.463688992616921*^9, 3.463689028052938*^9}, {3.463689146785759*^9, 3.463689205907483*^9}, {3.46368925758146*^9, 3.4636893491316957`*^9}, { 3.463689439995429*^9, 3.4636894518785973`*^9}, {3.463689505378296*^9, 3.463689566030363*^9}, {3.463689714115632*^9, 3.4636897156815166`*^9}, { 3.463689818797358*^9, 3.4636898329146137`*^9}, {3.46369176136649*^9, 3.463691784104414*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {5, 0}, {5, 5}, {0, 5}}]}, {RGBColor[1, 0, 0], PolygonBox[ NCache[{{0, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[4, 5], Rational[53, 5]}, { Rational[-12, 5], Rational[41, 5]}}, {{0, 5}, {3.2, 7.4}, {0.8, 10.6}, {-2.4, 8.2}}]]}, {RGBColor[1, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[37, 5], Rational[34, 5]}, { Rational[28, 5], Rational[46, 5]}, { Rational[16, 5], Rational[37, 5]}}, {{5, 5}, {7.4, 6.8}, {5.6, 9.2}, { 3.2, 7.4}}]]}, {RGBColor[0, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[37, 5], Rational[34, 5]}}, {{5, 5}, {3.2, 7.4}, {7.4, 6.8}}]]}}]], "Output", CellChangeTimes->{ 3.4636883096850863`*^9, {3.4636883916872787`*^9, 3.463688397429449*^9}, { 3.463688450319076*^9, 3.46368847665685*^9}, {3.46368852544804*^9, 3.463688533213965*^9}, {3.4636885770280037`*^9, 3.463688585933568*^9}, { 3.463688626998373*^9, 3.463688676499267*^9}, {3.463688827006482*^9, 3.4636888412696457`*^9}, {3.463688910092959*^9, 3.463688960565134*^9}, { 3.463688999128389*^9, 3.4636890283700953`*^9}, {3.463689155485664*^9, 3.463689206446875*^9}, {3.463689260116312*^9, 3.463689349580286*^9}, 3.463689452390689*^9, {3.46368950716649*^9, 3.4636895204801893`*^9}, { 3.46368955707543*^9, 3.463689567553461*^9}, 3.463689716586239*^9, { 3.463689833493575*^9, 3.463689912324201*^9}, 3.463691785060081*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"sq", "[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "4", "]"}], ",", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"tri", "[", "3", "]"}], ",", "\[Sigma]", ",", "0"}], "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Sigma]", ",", "0", ",", RowBox[{"4", "/", "3"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBWIQPSl99vfScy8dc6bcZSgD0teYZ3OB6JAGMz4QvejK STEQnRXbpQyiYwx/aYBoP3NZbRCdu/qIPoi+UmpsCKKPOceagugbO+ptQHTE 41ZfEB0+7XE8iL64VzgFRK/e2JgBoj+oRJaDaCmuvXUgOmi2USuIvmW2ZAKI 7rv1fzaIrpCtmQuiGaR1loDoPT8OrAbRTpud94HoP+dKwfTX5sjTILrFRfYs iN7JpfUAzOfyeQyiJ1UufAGiv2k6fAPRzza2CZcD6arAfjAtJJ9uBqIvVvw2 B9Hafp0eIFpv7UQwbSSwYh2Ibj1wYyOIlmpdfwisP3fnSRANAPRUuZs= "]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]$$ = 0.848461659749349, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]$$], 0, Rational[4, 3]}}, Typeset`size$$ = {360., {192., 196.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]$396026$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$396026$$, 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" :> Show[{ Graphics[{Blue, Polygon[ $CellContext`sq[5]]}], Graphics[{Red, Polygon[ $CellContext`euc[ $CellContext`sq[4], ArcSin[3/5], {0, 5}]]}], Graphics[{Yellow, Polygon[ $CellContext`euc[ $CellContext`sq[3], Pi/2 - ArcSin[4/5], {5, 5}]]}], Graphics[{Green, Polygon[ $CellContext`euc[ $CellContext`shear[ $CellContext`tri[3], $CellContext`\[Sigma]$$, 0], Pi/2 - ArcSin[ 4/5], {5, 5}]]}]}], "Specifications" :> {{$CellContext`\[Sigma]$$, 0, Rational[4, 3], AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229.34375, 234.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4636899864613657`*^9, 3.4636899999967422`*^9}, { 3.463690053937707*^9, 3.463690090312325*^9}, {3.463690131614929*^9, 3.463690185775958*^9}, {3.463690689227458*^9, 3.46369070060576*^9}, { 3.4636907950954227`*^9, 3.463690815762595*^9}, {3.463691571622871*^9, 3.463691581977839*^9}, 3.46369161691389*^9, {3.463691663550363*^9, 3.463691683480723*^9}, {3.4636918285108356`*^9, 3.4636918629774837`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "5", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], "+", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "4", "]"}], ",", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], "+", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", "0", ",", RowBox[{ RowBox[{"euc", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], "+", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"tri", "[", "3", "]"}], ",", "\[Sigma]", ",", "0"}], "]"}], ",", "0", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"euc", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], "+", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Sigma]", ",", "0", ",", RowBox[{"4", "/", "3"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQB2IQPSl99vfScy8dc6bcZSgD0teYZ3OB6JAGMz4QvejK STEQnRXbpQyiYwx/aYBoP3NZbRCdu/qIPoi+UmpsCKKPOceagugbO+ptQHTE 41ZfEB0+7XE8iL64VzgFRK/e2JgBoj+oRJaDaCmuvXUgOmi2USuIvmW2ZAKI 7rv1fzaIrpCtmQuiGaR1loDoPT8OrAbRTpud94HoP+dKwfTX5sjTILrFRfYs iN7JpfUAzOfyeQyiJ1UufAGiv2k6fAPRzza2CZcD6arAfjAtJJ9uBqIvVvw2 B9Hafp0eIFpv7UQwbSSwYh2Ibj1wYyOIlmpdfwisP3fnSRD9QsxYtAJIM22f ZAiitcWKLUB0bspvMA0AHgDJDw== "]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]$$ = 1.025556182861328, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]$$], 0, Rational[4, 3]}}, Typeset`size$$ = {360., {195., 199.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]$396242$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$396242$$, 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" :> Show[{ Graphics[{Blue, Polygon[ $CellContext`euc[ $CellContext`sq[5], (-Pi)/2 + ArcSin[4/5], {0, 0}]]}], Graphics[{Red, Polygon[ $CellContext`euc[ $CellContext`euc[ $CellContext`sq[4], ArcSin[3/5], {0, 5}], (-Pi)/2 + ArcSin[4/5], {0, 0}]]}], Graphics[{Yellow, Polygon[ $CellContext`euc[ $CellContext`sq[3], 0, Part[ $CellContext`euc[{{5, 5}}, (-Pi)/2 + ArcSin[4/5], {0, 0}], 1]]]}], Graphics[{Green, Polygon[ $CellContext`euc[ $CellContext`shear[ $CellContext`tri[3], $CellContext`\[Sigma]$$, 0], 0, Part[ $CellContext`euc[{{5, 5}}, (-Pi)/2 + ArcSin[4/5], {0, 0}], 1]]]}]}], "Specifications" :> {{$CellContext`\[Sigma]$$, 0, Rational[4, 3], AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {232.34375, 237.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4636925406033373`*^9, 3.46369255035716*^9}, { 3.463692646379446*^9, 3.463692653346623*^9}, 3.463692685300037*^9, { 3.4636927554936037`*^9, 3.4636927590258627`*^9}, 3.463692800258808*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"sq", "[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "4", "]"}], ",", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"tri", "[", "3", "]"}], ",", RowBox[{"4", "/", "3"}]}], "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}], "+", "\[Theta]"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQPSl99vfScy8dc6bcZSgD0teYZ3OB6JAGMz4QvejK STEQnRXbpQyiYwx/aYBoP3NZbRCdu/qIPoi+UmpsCKKPOceagugbO+ptQHTE 41ZfEB0+7XE8iL64VzgFRK/e2JgBoj+oRJaDaCmuvXUgOmi2USuIvmW2ZAKI 7rv1fzaIrpCtmQuiGaR1loDoPT8OrAbRTpud94HoP+dKwfTX5sjTILrFRfYs iN7JpfUAzOfyeQyiJ1UufAGiv2k6fAPRhyfo/wfRVZJyrOVA+pEetxWIZvOY AaYn9T//C6JN7nKyVABpAOFPpuk= "]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Theta]$$ = 0.7749754590288079, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Theta]$$], 0, Rational[1, 2] Pi}}, Typeset`size$$ = {360., {192., 196.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Theta]$396117$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Theta]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$396117$$, 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" :> Show[{ Graphics[{Blue, Polygon[ $CellContext`sq[5]]}], Graphics[{Red, Polygon[ $CellContext`euc[ $CellContext`sq[4], ArcSin[3/5], {0, 5}]]}], Graphics[{Yellow, Polygon[ $CellContext`euc[ $CellContext`sq[3], Pi/2 - ArcSin[4/5], {5, 5}]]}], Graphics[{Green, Polygon[ $CellContext`euc[ $CellContext`shear[ $CellContext`tri[3], 4/3], Pi/2 - ArcSin[ 4/5] + $CellContext`\[Theta]$$, {5, 5}]]}]}], "Specifications" :> {{$CellContext`\[Theta]$$, 0, Rational[1, 2] Pi, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229.34375, 234.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4636923221729937`*^9, 3.463692343465473*^9}, { 3.463692803531261*^9, 3.463692806867914*^9}, 3.463692837931354*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"sq", "[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "4", "]"}], ",", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"#", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#", ",", RowBox[{"5", "+", RowBox[{"4", " ", RowBox[{"Cos", "[", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}], "]"}]}]}]}], "}"}]}], "}"}], "&"}], "[", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], "]"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Polygon", "[", "\[IndentingNewLine]", RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"tri", "[", "3", "]"}], ",", FractionBox["4", "3"], ",", "0"}], "]"}], ",", RowBox[{"\[Pi]", "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], ",", "0", ",", "\[Sigma]"}], "]"}], ",", "0", ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Sigma]", ",", "0", ",", FractionBox["4", "3"]}], "}"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdx08oQwEAx/EXSb30LkwZz98d/FnWyJRWeHPSOIxmizWtLaxJDrMZmX87 WFrrNS4vFu32kuSCmYiUZKWWtCi2y1y0A/MnNe+3w7dP3xrTlMaSRxCEWAiy Y9yXPfrWbQs8EzOCD/kcCQcXFRTcjd2UQqvBWwdH5L/1sL+dboKT/JUMxuyt cnitMrTBxyO3EuqSnj44tJk0wvtIsRnyB0vjMC3RO6CYjCxADdfigXFFyA99 8SwHnfT8FiTKpSF4+n3OQ+ZQdQb/ovacnyv6W7jaQ9/BY7LxJfekOgnZ2Z0U zDR0ZeClX5aFrrLKAodgRYAtgp18goLLJ9UiGNfqciZq00o4kOpgIBN86oXv 3jUttAZ/TLCq2WiG7HaJDYbF7mlIXpgc8EMimoOj4Y1Cp+DEq5SC6/vDaujb cxnhPxra4k4= "]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]$$ = 0.4009803771972656, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]$$], 0, Rational[4, 3]}}, Typeset`size$$ = {360., {192., 196.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]$396302$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$396302$$, 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" :> Show[{ Graphics[{Blue, Polygon[ $CellContext`sq[5]]}], Graphics[{Red, Polygon[ $CellContext`euc[ $CellContext`sq[4], ArcSin[3/5], {0, 5}]]}], Graphics[{Yellow, Polygon[ $CellContext`euc[ $CellContext`sq[3], Pi/2 - ArcSin[4/5], {5, 5}]]}], Graphics[{Black, Dashed, Line[ ({{#, 0}, {#, 5 + 4 Cos[ ArcSin[4/5]]}}& )[4 Cos[ ArcSin[3/5]]]]}], Graphics[{Green, Polygon[ $CellContext`euc[ $CellContext`shear[ $CellContext`euc[ $CellContext`shear[ $CellContext`tri[3], 4/3, 0], Pi - ArcSin[4/5], {0, 5}], 0, $CellContext`\[Sigma]$$], 0, {5, 0}]]}]}], "Specifications" :> {{$CellContext`\[Sigma]$$, 0, Rational[4, 3], AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229.34375, 234.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.463690360050913*^9, 3.4636903702866163`*^9}, { 3.463690412407892*^9, 3.4636904304333057`*^9}, {3.463690751858616*^9, 3.463690776932613*^9}, {3.463690839725278*^9, 3.4636909591748123`*^9}, { 3.4636911132875147`*^9, 3.463691116696371*^9}, {3.463691149724435*^9, 3.4636911640284977`*^9}, {3.463691218372654*^9, 3.463691262015382*^9}, { 3.463692384187941*^9, 3.463692415505526*^9}, {3.463692841864216*^9, 3.4636928447923937`*^9}, 3.463692890966929*^9, {3.463693016459647*^9, 3.4636930793306303`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"sq", "[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"#", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"#", ",", "5"}], "}"}]}], "}"}], "]"}], "&"}], "[", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "4", "]"}], ",", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"tri", "[", "3", "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"tri", "[", "3", "]"}], ",", FractionBox["4", "3"], ",", "0"}], "]"}], ",", RowBox[{"\[Pi]", "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], ",", "0", ",", RowBox[{"4", "/", "3"}]}], "]"}], ",", "0", ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", "Dashed", ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"#", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#", ",", RowBox[{"5", "+", RowBox[{"4", " ", RowBox[{"Cos", "[", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}], "]"}]}]}]}], "}"}]}], "}"}], "&"}], "[", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], "]"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.4636913069655523`*^9, 3.463691375064098*^9}, { 3.463691417130481*^9, 3.4636914449662437`*^9}, {3.4636914858090277`*^9, 3.463691487127131*^9}, {3.463693117486519*^9, 3.463693286070051*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], PolygonBox[{{0, 0}, {5, 0}, {5, 5}, {0, 5}}]}, {RGBColor[1, 1, 0], PolygonBox[ NCache[{{Rational[16, 5], 0}, {5, 0}, {5, 5}, {Rational[16, 5], 5}}, {{ 3.2, 0}, {5, 0}, {5, 5}, {3.2, 5}}]]}, {RGBColor[1, 0, 0], PolygonBox[ NCache[{{0, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[4, 5], Rational[53, 5]}, { Rational[-12, 5], Rational[41, 5]}}, {{0, 5}, {3.2, 7.4}, {0.8, 10.6}, {-2.4, 8.2}}]]}, {RGBColor[1, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[37, 5], Rational[34, 5]}, { Rational[28, 5], Rational[46, 5]}, { Rational[16, 5], Rational[37, 5]}}, {{5, 5}, {7.4, 6.8}, {5.6, 9.2}, { 3.2, 7.4}}]]}, {RGBColor[0, 1, 0], PolygonBox[ NCache[{{5, 5}, {Rational[16, 5], Rational[37, 5]}, { Rational[37, 5], Rational[34, 5]}}, {{5, 5}, {3.2, 7.4}, {7.4, 6.8}}]]}, {RGBColor[0, 1, 0], PolygonBox[ NCache[{{5, 5}, {5, 0}, {Rational[16, 5], 5}}, {{5, 5}, {5, 0}, { 3.2, 5}}]]}, {GrayLevel[0], Dashing[{Small, Small}], LineBox[NCache[{{Rational[16, 5], 0}, { Rational[16, 5], Rational[37, 5]}}, {{3.2, 0}, {3.2, 7.4}}]]}}]], "Output", CellChangeTimes->{{3.463691367532514*^9, 3.463691375587472*^9}, { 3.4636914327073593`*^9, 3.4636914455279093`*^9}, 3.46369148770284*^9, { 3.4636931189417963`*^9, 3.463693156791051*^9}, {3.463693258650238*^9, 3.463693287235997*^9}}] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"phase1", "[", "\[Sigma]_", "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", RowBox[{ FractionBox["4", "3"], "\[Sigma]"}], ",", "0"}], "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.463760815947517*^9, 3.4637608694600487`*^9}, { 3.463760971781315*^9, 3.463760972837537*^9}, 3.463761104739389*^9, { 3.463762576647642*^9, 3.463762579150679*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"phase2", "[", "\[Sigma]_", "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", RowBox[{"4", "/", "3"}]}], "]"}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}], "+", RowBox[{ FractionBox["\[Pi]", "2"], "\[Sigma]"}]}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.463760862702629*^9, 3.463760875235186*^9}, 3.463761007287898*^9, 3.463761111067851*^9, {3.463761176154853*^9, 3.4637611764397907`*^9}, {3.463762582659457*^9, 3.463762584663775*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"phase3", "[", "\[Sigma]_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"sq", "[", "3", "]"}], ",", FractionBox["4", "3"], ",", "0"}], "]"}], ",", RowBox[{"\[Pi]", "-", RowBox[{"ArcSin", "[", RowBox[{"4", "/", "5"}], "]"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], ",", "0", ",", RowBox[{ FractionBox["4", "3"], "\[Sigma]"}]}], "]"}], ",", "0", ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.4637608947924232`*^9, 3.463760897329494*^9}, 3.463761048360721*^9, {3.463761119478825*^9, 3.4637611223106117`*^9}, { 3.463762589410941*^9, 3.463762591099098*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"phase4", "[", "\[Sigma]_", "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"sq", "[", "4", "]"}], ",", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "\[Sigma]"}], ",", "0"}], "]"}], ",", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.463760815947517*^9, 3.4637608694600487`*^9}, { 3.463760971781315*^9, 3.463760972837537*^9}, 3.463761104739389*^9, { 3.463761375733975*^9, 3.463761398571516*^9}, {3.463761602591724*^9, 3.463761625145399*^9}, {3.463762730191433*^9, 3.4637627319333143`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"phase5", "[", "\[Sigma]_", "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"shear", "[", RowBox[{ RowBox[{"euc", "[", RowBox[{ RowBox[{"shear", "[", RowBox[{ RowBox[{"sq", "[", "4", "]"}], ",", RowBox[{"-", FractionBox["3", "4"]}], ",", "0"}], "]"}], ",", RowBox[{"ArcSin", "[", RowBox[{"3", "/", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "]"}], ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "\[Sigma]"}]}], "]"}], "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.463761973342347*^9, 3.4637620332558613`*^9}, { 3.463762080341544*^9, 3.4637620826021423`*^9}, {3.463762392784155*^9, 3.463762398276328*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"phase6", "[", "\[Sigma]_", "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"5", RowBox[{"(", RowBox[{"1", "-", "\[Sigma]"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5", "-", FractionBox["9", "5"]}], ",", RowBox[{"5", RowBox[{"(", RowBox[{"2", "-", "\[Sigma]"}], ")"}]}]}], "}"}]}], "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.463761973342347*^9, 3.4637620332558613`*^9}, { 3.463762080341544*^9, 3.463762215864007*^9}, {3.463762305649891*^9, 3.4637623158819723`*^9}, {3.463762502031952*^9, 3.4637625291819572`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Polygon", "[", RowBox[{"sq", "[", "5", "]"}], "]"}]}], "}"}], "]"}], "}"}], ",", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "<", "1"}], ",", RowBox[{"{", RowBox[{ RowBox[{"phase1", "[", "\[Sigma]", "]"}], ",", RowBox[{"phase4", "[", "0", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"1", " ", "\[LessEqual]", " ", "\[Sigma]", " ", "<", "2"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"phase2", "[", RowBox[{"\[Sigma]", "-", "1"}], "]"}], ",", RowBox[{"phase4", "[", "0", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"2", "\[LessEqual]", " ", "\[Sigma]", "<", "3"}], ",", RowBox[{"{", RowBox[{ RowBox[{"phase3", "[", RowBox[{"\[Sigma]", "-", "2"}], "]"}], ",", RowBox[{"phase4", "[", "0", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"3", "\[LessEqual]", " ", "\[Sigma]", "<", "4"}], ",", RowBox[{"{", RowBox[{ RowBox[{"phase4", "[", RowBox[{"\[Sigma]", "-", "3"}], "]"}], ",", RowBox[{"phase3", "[", "1", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"4", "\[LessEqual]", " ", "\[Sigma]", "<", "5"}], ",", RowBox[{"{", RowBox[{ RowBox[{"phase5", "[", RowBox[{"\[Sigma]", "-", "4"}], "]"}], ",", RowBox[{"phase3", "[", "1", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"5", "\[LessEqual]", " ", "\[Sigma]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"phase6", "[", RowBox[{"\[Sigma]", "-", "5"}], "]"}], ",", RowBox[{"phase3", "[", "1", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "13"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Sigma]", ",", "0", ",", "6"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.463760908462682*^9, 3.4637610961482773`*^9}, { 3.463761134000139*^9, 3.463761148979208*^9}, {3.4637612515666428`*^9, 3.463761254333552*^9}, {3.463762634902038*^9, 3.463762691998672*^9}, { 3.463762754524621*^9, 3.4637629629366827`*^9}, {3.463763027320119*^9, 3.463763036541369*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]$$ = 0.5407331250000036, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]$$], 0, 6}}, Typeset`size$$ = { 360., {210., 215.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]$444373$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$444373$$, 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" :> Show[ Join[{ Graphics[{Blue, Polygon[ $CellContext`sq[5]]}]}, Which[$CellContext`\[Sigma]$$ < 1, { $CellContext`phase1[$CellContext`\[Sigma]$$], $CellContext`phase4[0]}, Inequality[1, LessEqual, $CellContext`\[Sigma]$$, Less, 2], { $CellContext`phase2[$CellContext`\[Sigma]$$ - 1], $CellContext`phase4[0]}, Inequality[2, LessEqual, $CellContext`\[Sigma]$$, Less, 3], { $CellContext`phase3[$CellContext`\[Sigma]$$ - 2], $CellContext`phase4[0]}, Inequality[3, LessEqual, $CellContext`\[Sigma]$$, Less, 4], { $CellContext`phase4[$CellContext`\[Sigma]$$ - 3], $CellContext`phase3[1]}, Inequality[4, LessEqual, $CellContext`\[Sigma]$$, Less, 5], { $CellContext`phase5[$CellContext`\[Sigma]$$ - 4], $CellContext`phase3[1]}, 5 <= $CellContext`\[Sigma]$$, { $CellContext`phase6[$CellContext`\[Sigma]$$ - 5], $CellContext`phase3[1]}]], PlotRange -> {{-3, 8}, {0, 13}}], "Specifications" :> {{$CellContext`\[Sigma]$$, 0, 6, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{403., {247.34375, 252.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4637629481851187`*^9, 3.463763060579891*^9}, { 3.463763099267692*^9, 3.463763131815958*^9}, {3.463763180250565*^9, 3.4637632386167793`*^9}, 3.463763589500079*^9, 3.46376363947941*^9}] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{697, 696}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0 NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/ c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU 5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B 0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh 7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3 bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6 qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8 c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6 ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6 OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7 X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2 B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz 5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa 0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ 3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk +Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO 0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv 0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m 2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko 4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb 2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR 6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L 913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5 BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8 WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1 NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO 78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R 1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA 3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7 jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8 dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t 3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio 9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8 Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9 76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa 9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8 fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4 ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3 1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2 ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9 1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x +ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6 xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg 57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1 30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/ /y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo 0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ /25JQEBAQPBHw/8DCp03+A== "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], ShowSelection->True, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 270, 3, 67, "Section"], Cell[CellGroupData[{ Cell[862, 29, 258, 3, 34, "Subsection"], Cell[1123, 34, 1200, 23, 447, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2360, 62, 303, 4, 34, "Subsection"], Cell[2666, 68, 1965, 40, 525, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4668, 113, 299, 4, 34, "Subsection"], Cell[4970, 119, 1349, 28, 447, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6356, 152, 384, 5, 34, "Subsection"], Cell[6743, 159, 2056, 42, 525, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8836, 206, 235, 3, 34, "Subsection"], Cell[CellGroupData[{ Cell[9096, 213, 398, 9, 27, "Input"], Cell[9497, 224, 1200, 23, 447, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10734, 252, 447, 10, 27, "Input"], Cell[11184, 264, 1226, 24, 447, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12447, 293, 352, 9, 27, "Input"], Cell[12802, 304, 1036, 20, 364, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13875, 329, 360, 9, 27, "Input"], Cell[14238, 340, 1349, 28, 447, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15624, 373, 309, 8, 27, "Input"], Cell[15936, 383, 1931, 35, 447, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[17904, 423, 360, 9, 21, "Input"], Cell[18267, 434, 1353, 28, 369, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[19657, 467, 431, 12, 21, "Input"], Cell[20091, 481, 1939, 40, 525, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22067, 526, 485, 13, 27, "Input"], Cell[22555, 541, 1960, 41, 525, "Output"] }, Open ]], Cell[24530, 585, 5563, 142, 208, "Input"], Cell[30096, 729, 5842, 144, 163, "Input"], Cell[35941, 875, 7026, 174, 193, "Input"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[43016, 1055, 299, 5, 67, "Section"], Cell[CellGroupData[{ Cell[43340, 1064, 141, 2, 34, "Subsection"], Cell[43484, 1068, 663, 15, 403, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44184, 1088, 182, 2, 34, "Subsection"], Cell[44369, 1092, 1542, 30, 403, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45948, 1127, 226, 5, 34, "Subsection"], Cell[46177, 1134, 2972, 64, 481, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49186, 1203, 282, 3, 34, "Subsection"], Cell[49471, 1208, 3030, 67, 487, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52538, 1280, 211, 4, 34, "Subsection"], Cell[52752, 1286, 2623, 59, 481, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55412, 1350, 188, 2, 34, "Subsection"], Cell[55603, 1354, 3284, 72, 481, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58924, 1431, 228, 5, 34, "Subsection"], Cell[59155, 1438, 1495, 35, 403, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60687, 1478, 210, 3, 34, "Subsection"], Cell[60900, 1483, 370, 5, 68, "Text"], Cell[61273, 1490, 3055, 60, 517, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64365, 1555, 143, 2, 34, "Subsection"], Cell[64511, 1559, 775, 22, 27, "Input"], Cell[65289, 1583, 417, 13, 27, "Input"], Cell[65709, 1598, 456, 13, 27, "Input"], Cell[CellGroupData[{ Cell[66190, 1615, 237, 7, 27, "Input"], Cell[66430, 1624, 241, 8, 27, "Output"] }, Open ]], Cell[66686, 1635, 565, 17, 27, "Input"], Cell[CellGroupData[{ Cell[67276, 1656, 1919, 45, 58, "Input"], Cell[69198, 1703, 663, 15, 403, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69898, 1723, 2364, 59, 73, "Input"], Cell[72265, 1784, 1542, 30, 403, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73844, 1819, 2370, 64, 118, "Input"], Cell[76217, 1885, 2839, 62, 481, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79093, 1952, 3813, 100, 133, "Input"], Cell[82909, 2054, 2897, 65, 487, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85843, 2124, 2365, 64, 146, "Input"], Cell[88211, 2190, 2539, 57, 481, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90787, 2252, 3561, 95, 238, "Input"], Cell[94351, 2349, 3200, 71, 481, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97588, 2425, 4207, 118, 243, "Input"], Cell[101798, 2545, 1495, 35, 403, "Output"] }, Closed]], Cell[103308, 2583, 854, 23, 57, "Input"], Cell[104165, 2608, 909, 24, 85, "Input"], Cell[105077, 2634, 1131, 29, 142, "Input"], Cell[106211, 2665, 912, 23, 62, "Input"], Cell[107126, 2690, 938, 26, 88, "Input"], Cell[108067, 2718, 826, 23, 47, "Input"], Cell[CellGroupData[{ Cell[108918, 2745, 2874, 72, 133, "Input"], Cell[111795, 2819, 3066, 60, 517, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature quTk#c7AXQi1oC1l@2V#ycIh *)