(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='WolframDesktop 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 161, 7] NotebookDataLength[ 21501, 582] NotebookOptionsPosition[ 19527, 531] NotebookOutlinePosition[ 19895, 548] CellTagsIndexPosition[ 19852, 545] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Reflect points about a given line: ", "Text", CellChangeTimes->{{3.757790261807377*^9, 3.7577902781007414`*^9}, { 3.758896389362071*^9, 3.7588964047346354`*^9}}, CellID->13078159], Cell[BoxData[{ RowBox[{ RowBox[{"mirror2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pts2", "=", RowBox[{"Subsets", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "4"}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7577900996603603`*^9, 3.757790117056421*^9}, 3.7577901600898623`*^9, {3.757790195006253*^9, 3.757790238427185*^9}, { 3.757790463193981*^9, 3.757790465193847*^9}}, CellLabel->"In[58]:=", CellID->2896536], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ReflectPoints\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ReflectPoints\""}], ResourceFunction["ReflectPoints"], BoxID -> "ReflectPoints", Selectable->False], "[", RowBox[{"mirror2", ",", "pts2"}], "]"}]], "Input", CellChangeTimes->{{3.7577896396479034`*^9, 3.757789667314891*^9}, { 3.757789715568135*^9, 3.757789764520269*^9}, {3.757789914955558*^9, 3.757789919745654*^9}, {3.757790179612517*^9, 3.7577901871771708`*^9}, { 3.757790466568754*^9, 3.7577904674280863`*^9}}, CellLabel->"In[60]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["24", "5"], ",", RowBox[{"-", FractionBox["3", "5"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["27", "5"], ",", FractionBox["1", "5"]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["33", "5"], ",", FractionBox["9", "5"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["23", "5"], ",", FractionBox["4", "5"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["26", "5"], ",", FractionBox["8", "5"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["29", "5"], ",", FractionBox["12", "5"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["22", "5"], ",", FractionBox["11", "5"]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["21", "5"], ",", FractionBox["18", "5"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7577896713679757`*^9, {3.757789731961043*^9, 3.75778973960448*^9}, 3.7577897743373127`*^9, 3.757789920042447*^9, {3.757790187552148*^9, 3.757790240426813*^9}, {3.7577904558095417`*^9, 3.757790476347557*^9}}, CellLabel->"Out[60]=", CellID->313105191] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Point", "/@", "pts2"}], ",", " ", "Green", ",", " ", RowBox[{"InfiniteLine", "[", "mirror2", "]"}], ",", " ", "Red", ",", " ", RowBox[{"Point", "/@", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ReflectPoints\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ReflectPoints\""}], ResourceFunction["ReflectPoints"], BoxID -> "ReflectPoints", Selectable->False], "[", RowBox[{"mirror2", ",", "pts2"}], "]"}]}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.757789805066598*^9, 3.757789874612849*^9}, { 3.7577899255479956`*^9, 3.757790075039181*^9}, {3.757790123415312*^9, 3.7577901422824087`*^9}, {3.757790444021482*^9, 3.7577904740995045`*^9}}, CellLabel->"In[61]:=", CellID->309426493], Cell[BoxData[ GraphicsBox[{{PointBox[{0, 1}], PointBox[{0, 2}], PointBox[{0, 3}], PointBox[{0, 4}], PointBox[{1, 2}], PointBox[{1, 3}], PointBox[{1, 4}], PointBox[{2, 3}], PointBox[{2, 4}], PointBox[{3, 4}]}, {RGBColor[0, 1, 0], TagBox[ConicHullRegionBox[{{3, 2}, {2, -1}}], "InfiniteLine"]}, {RGBColor[1, 0, 0], PointBox[NCache[{Rational[24, 5], Rational[-3, 5]}, {4.8, -0.6}]], PointBox[NCache[{Rational[27, 5], Rational[1, 5]}, {5.4, 0.2}]], PointBox[{6, 1}], PointBox[NCache[{Rational[33, 5], Rational[9, 5]}, {6.6, 1.8}]], PointBox[NCache[{Rational[23, 5], Rational[4, 5]}, {4.6, 0.8}]], PointBox[NCache[{Rational[26, 5], Rational[8, 5]}, {5.2, 1.6}]], PointBox[NCache[{Rational[29, 5], Rational[12, 5]}, {5.8, 2.4}]], PointBox[NCache[{Rational[22, 5], Rational[11, 5]}, {4.4, 2.2}]], PointBox[{5, 3}], PointBox[NCache[{Rational[21, 5], Rational[18, 5]}, {4.2, 3.6}]]}}]], "Output", CellChangeTimes->{{3.757789863029848*^9, 3.7577898752221203`*^9}, { 3.757789928375928*^9, 3.7577900778671103`*^9}, {3.757790143663661*^9, 3.7577901623883343`*^9}, {3.757790199762702*^9, 3.757790243114147*^9}, { 3.7577904468430004`*^9, 3.75779047819273*^9}}, CellLabel->"Out[61]=", CellID->406274] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell["Reflect points about a given plane:", "Text", CellChangeTimes->{{3.757790261807377*^9, 3.7577902781007414`*^9}, { 3.7577905214499445`*^9, 3.757790522340561*^9}, {3.7588964120513*^9, 3.7588964125416803`*^9}}, CellID->748219128], Cell[BoxData[{ RowBox[{ RowBox[{"mirror3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pts3", "=", RowBox[{"Subsets", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "4"}], "]"}], ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7577900996603603`*^9, 3.757790117056421*^9}, 3.7577901600898623`*^9, {3.757790195006253*^9, 3.757790238427185*^9}, { 3.757790294606186*^9, 3.7577903040875206`*^9}, {3.7577903811844883`*^9, 3.757790387860834*^9}, {3.7577904819061203`*^9, 3.7577904830936003`*^9}}, CellLabel->"In[62]:=", CellID->46320161], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ReflectPoints\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ReflectPoints\""}], ResourceFunction["ReflectPoints"], BoxID -> "ReflectPoints", Selectable->False], "[", RowBox[{"mirror3", ",", "pts3"}], "]"}]], "Input", CellChangeTimes->{{3.7577896396479034`*^9, 3.757789667314891*^9}, { 3.757789715568135*^9, 3.757789764520269*^9}, {3.757789914955558*^9, 3.757789919745654*^9}, {3.757790179612517*^9, 3.7577901871771708`*^9}, { 3.7577904853431416`*^9, 3.75779048720245*^9}}, CellLabel->"In[64]:=", CellID->247820391], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["12", "35"]}], ",", FractionBox["39", "35"], ",", FractionBox["10", "7"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["6", "5"]}], ",", FractionBox["7", "5"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["72", "35"]}], ",", FractionBox["59", "35"], ",", FractionBox["4", "7"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["36", "35"]}], ",", FractionBox["82", "35"], ",", FractionBox["9", "7"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["66", "35"]}], ",", FractionBox["92", "35"], ",", FractionBox["6", "7"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["12", "7"]}], ",", FractionBox["25", "7"], ",", FractionBox["8", "7"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["19", "35"]}], ",", FractionBox["88", "35"], ",", FractionBox["3", "7"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["7", "5"]}], ",", FractionBox["14", "5"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["43", "35"]}], ",", FractionBox["131", "35"], ",", FractionBox["2", "7"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["26", "35"]}], ",", FractionBox["137", "35"], ",", RowBox[{"-", FractionBox["4", "7"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7577896713679757`*^9, {3.757789731961043*^9, 3.75778973960448*^9}, 3.7577897743373127`*^9, 3.757789920042447*^9, {3.757790187552148*^9, 3.757790240426813*^9}, 3.7577903077122154`*^9, 3.757790389922209*^9, 3.7577904980925198`*^9}, CellLabel->"Out[64]=", CellID->7084660] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Point", "/@", "pts3"}], ",", " ", "Green", ",", " ", RowBox[{"InfinitePlane", "[", "mirror3", "]"}], ",", " ", "Red", ",", " ", RowBox[{"Point", "/@", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ReflectPoints\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ReflectPoints\""}], ResourceFunction["ReflectPoints"], BoxID -> "ReflectPoints", Selectable->False], "[", RowBox[{"mirror3", ",", "pts3"}], "]"}]}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.757789805066598*^9, 3.757789874612849*^9}, { 3.7577899255479956`*^9, 3.757790075039181*^9}, {3.757790123415312*^9, 3.7577901422824087`*^9}, {3.757790399131772*^9, 3.757790425554957*^9}, { 3.7577904897022214`*^9, 3.757790495780221*^9}}, CellLabel->"In[65]:=", CellID->203540693], Cell[BoxData[ Graphics3DBox[{{Point3DBox[{0, 1, 2}], Point3DBox[{0, 1, 3}], Point3DBox[{0, 1, 4}], Point3DBox[{0, 2, 3}], Point3DBox[{0, 2, 4}], Point3DBox[{0, 3, 4}], Point3DBox[{1, 2, 3}], Point3DBox[{1, 2, 4}], Point3DBox[{1, 3, 4}], Point3DBox[{2, 3, 4}]}, {RGBColor[0, 1, 0], TagBox[ConicHullRegion3DBox[{{3, 2, 0}, {2, -1, 0}, {1, 1, 1}}], "InfinitePlane"]}, {RGBColor[1, 0, 0], Point3DBox[ NCache[{Rational[-12, 35], Rational[39, 35], Rational[ 10, 7]}, {-0.34285714285714286`, 1.1142857142857143`, 1.4285714285714286`}]], Point3DBox[NCache[{Rational[-6, 5], Rational[7, 5], 1}, {-1.2, 1.4, 1}]], Point3DBox[ NCache[{Rational[-72, 35], Rational[59, 35], Rational[ 4, 7]}, {-2.057142857142857, 1.6857142857142857`, 0.5714285714285714}]], Point3DBox[ NCache[{Rational[-36, 35], Rational[82, 35], Rational[ 9, 7]}, {-1.0285714285714285`, 2.342857142857143, 1.2857142857142858`}]], Point3DBox[ NCache[{Rational[-66, 35], Rational[92, 35], Rational[ 6, 7]}, {-1.8857142857142857`, 2.6285714285714286`, 0.8571428571428571}]], Point3DBox[ NCache[{Rational[-12, 7], Rational[25, 7], Rational[ 8, 7]}, {-1.7142857142857142`, 3.5714285714285716`, 1.1428571428571428`}]], Point3DBox[ NCache[{Rational[-19, 35], Rational[88, 35], Rational[ 3, 7]}, {-0.5428571428571428, 2.5142857142857142`, 0.42857142857142855`}]], Point3DBox[NCache[{Rational[-7, 5], Rational[14, 5], 0}, {-1.4, 2.8, 0}]], Point3DBox[ NCache[{Rational[-43, 35], Rational[131, 35], Rational[ 2, 7]}, {-1.2285714285714286`, 3.742857142857143, 0.2857142857142857}]], Point3DBox[ NCache[{Rational[-26, 35], Rational[137, 35], Rational[-4, 7]}, {-0.7428571428571429, 3.914285714285714, -0.5714285714285714}]]}}, ImageSize->{365.1686486988379, 298.1817168988035}, ImageSizeRaw->Automatic, ViewPoint->{-2.971428643409319, -0.9116877857147517, 1.3376984706970347`}, ViewVertical->{-0.5558700185162199, 0.6358009539285039, 0.5355050601986706}]], "Output", CellChangeTimes->{{3.757789863029848*^9, 3.7577898752221203`*^9}, { 3.757789928375928*^9, 3.7577900778671103`*^9}, {3.757790143663661*^9, 3.7577901623883343`*^9}, {3.757790199762702*^9, 3.757790243114147*^9}, { 3.7577903939310184`*^9, 3.7577904265392065`*^9}, 3.7577904996236525`*^9}, CellLabel->"Out[65]=", CellID->240306021] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (March 15, 2019)", StyleDefinitions->"Default.nb", $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[583, 22, 56, 1, 70, "Subsection",ExpressionUUID->"1a76b62b-15d2-45b3-b5a6-5d547d42ca4b", CellID->462042388], Cell[642, 25, 189, 3, 70, "Text",ExpressionUUID->"2bad73da-a480-4edd-be35-bfdd448789bc", CellID->13078159], Cell[834, 30, 706, 21, 70, "Input",ExpressionUUID->"5d7ea1ff-3851-481c-9eff-eb9a14bca3e4", CellID->2896536], Cell[CellGroupData[{ Cell[1565, 55, 2136, 51, 70, "Input",ExpressionUUID->"2f9f2fce-bb18-41d2-81bc-aabe4c5509f6", CellID->443871870], Cell[3704, 108, 1344, 45, 70, "Output",ExpressionUUID->"0fe30a1e-1012-4cb1-962c-ee58b4d1d1ff", CellID->313105191] }, Open ]], Cell[CellGroupData[{ Cell[5085, 158, 2556, 60, 70, "Input",ExpressionUUID->"19edb407-f2af-47e8-8703-d7ebd852e507", CellID->309426493], Cell[7644, 220, 1280, 24, 70, "Output",ExpressionUUID->"e1f03f89-1dab-4107-9f03-6c3affeb4d3c", CellID->406274] }, Open ]], Cell[8939, 247, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"ccfeca88-c165-489b-9df7-17274505cba1"], Cell[9047, 251, 239, 4, 70, "Text",ExpressionUUID->"9eabd3b8-5635-4e5e-adc2-8598771f3c1e", CellID->748219128], Cell[9289, 257, 907, 25, 70, "Input",ExpressionUUID->"0d18cce2-0cbf-4418-b884-c77e7ecd18c4", CellID->46320161], Cell[CellGroupData[{ Cell[10221, 286, 2135, 51, 70, "Input",ExpressionUUID->"a9f4d59f-8dc7-469a-a753-5575d89c4cca", CellID->247820391], Cell[12359, 339, 1999, 68, 70, "Output",ExpressionUUID->"80086a8f-1a48-4e12-b971-2cf46f107527", CellID->7084660] }, Open ]], Cell[CellGroupData[{ Cell[14395, 412, 2603, 60, 70, "Input",ExpressionUUID->"d96d8d60-173f-4d9e-b6ff-11e5446d2366", CellID->203540693], Cell[17001, 474, 2498, 53, 70, "Output",ExpressionUUID->"1e8e329b-0130-4405-b60f-8c8589a687e7", CellID->240306021] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)