(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 37897, 1021] NotebookOptionsPosition[ 34695, 936] NotebookOutlinePosition[ 36446, 988] CellTagsIndexPosition[ 36403, 985] WindowTitle->Monge | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Find the Monge point and six midplanes for a tetrahedron:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7586494828263507`*^9, 3.7586495917215805`*^9}, { 3.7586496425657463`*^9, 3.7586496456632752`*^9}, {3.758649920181261*^9, 3.7586499218566747`*^9}, 3.7601086721566*^9, {3.760108735213353*^9, 3.76010875629983*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Monge", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Monge", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/Monge"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Monge"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Monge"], BoxID -> "Monge", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.758649463043649*^9, {3.759261532173729*^9, 3.759261533189273*^9}}, CellLabel->"In[86]:=", CellID->73051154], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["61", "38"], ",", RowBox[{"-", FractionBox["63", "19"]}], ",", FractionBox["43", "19"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Hyperplane", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}]}], "]"}], ",", RowBox[{"Hyperplane", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", RowBox[{"-", FractionBox["3", "2"]}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Hyperplane", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "2"], ",", RowBox[{"-", FractionBox["1", "2"]}], ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}]}], "]"}], ",", RowBox[{"Hyperplane", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], ",", RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Hyperplane", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", "0", ",", FractionBox["1", "2"]}], "}"}]}], "]"}], ",", RowBox[{"Hyperplane", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox["1", "2"]}], ",", "2"}], "}"}]}], "]"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7586494640748296`*^9, 3.759261565723136*^9, 3.760108636098523*^9}, CellLabel->"Out[86]=", CellID->605548050] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1691970809], Cell["\<\ A graphic of a tetrahedron, the Monge point and the six midplanes:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7586496933435383`*^9, 3.758649720620927*^9}, { 3.7586497769267654`*^9, 3.758649814219704*^9}, {3.7586499160702686`*^9, 3.758649917070193*^9}, 3.770982959513939*^9}, CellID->151569526], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tet", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"monge", "=", " ", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Monge", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Monge", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/Monge"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Monge"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Monge"], BoxID -> "Monge", Selectable->False], "[", "tet", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Tube", "[", "#", "]"}], "&"}], "/@", RowBox[{"Subsets", "[", RowBox[{"tet", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"monge", "[", RowBox[{"[", "1", "]"}], "]"}], ",", ".2"}], "]"}], ",", RowBox[{"Opacity", "[", ".6", "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Polygon", "/@", RowBox[{"Subsets", "[", RowBox[{"tet", ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ",", "Yellow", ",", " ", RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"monge", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.758649034640134*^9, 3.758649182268778*^9}, { 3.758649219147715*^9, 3.758649222652972*^9}, {3.758649730646101*^9, 3.7586497549829655`*^9}, 3.758649825367859*^9, {3.759261535766944*^9, 3.759261536485689*^9}}, CellLabel->"In[87]:=", CellID->36135170], Cell[BoxData[ Graphics3DBox[{{TubeBox[{{0, 1, -2}, {1, 3, 3}}], TubeBox[{{0, 1, -2}, {3, -1, 0}}], TubeBox[{{0, 1, -2}, {-1, 0, 0}}], TubeBox[{{1, 3, 3}, {3, -1, 0}}], TubeBox[{{1, 3, 3}, {-1, 0, 0}}], TubeBox[{{3, -1, 0}, {-1, 0, 0}}]}, {RGBColor[0, 1, 0], SphereBox[{0, 0, 0}, 0.2]}, {RGBColor[1, 0, 0], Opacity[0.6], Polygon3DBox[{{0, 1, -2}, {1, 3, 3}, {3, -1, 0}}], Polygon3DBox[{{0, 1, -2}, {1, 3, 3}, {-1, 0, 0}}], Polygon3DBox[{{0, 1, -2}, {3, -1, 0}, {-1, 0, 0}}], Polygon3DBox[{{1, 3, 3}, {3, -1, 0}, {-1, 0, 0}}]}, {RGBColor[1, 1, 0], Opacity[0.2], InterpretationBox[ ConicHullRegion3DBox[NCache[{1, Rational[-1, 2], 0}, {1, -0.5, 0}], {{-5, 0, 1}, {-2, 1, 0}}], Hyperplane[{-1, -2, -5}, {1, Rational[-1, 2], 0}]], InterpretationBox[ ConicHullRegion3DBox[ NCache[{0, Rational[3, 2], Rational[3, 2]}, {0, 1.5, 1.5}], {{-2, 0, 3}, {2, 3, 0}}], Hyperplane[{-3, 2, -2}, {0, Rational[3, 2], Rational[3, 2]}]], InterpretationBox[ ConicHullRegion3DBox[NCache[{2, 1, Rational[3, 2]}, {2, 1, 1.5}], {{2, 0, 1}, {-1, 1, 0}}], Hyperplane[{1, 1, -2}, {2, 1, Rational[3, 2]}]], InterpretationBox[ ConicHullRegion3DBox[ NCache[{Rational[-1, 2], Rational[1, 2], -1}, {-0.5, 0.5, -1}], {{3, 0, 2}, {2, 1, 0}}], Hyperplane[{-2, 4, 3}, { Rational[-1, 2], Rational[1, 2], -1}]], InterpretationBox[ ConicHullRegion3DBox[NCache[{Rational[3, 2], 0, -1}, {1.5, 0, -1}], {{-3, 0, 2}, {-3, 2, 0}}], Hyperplane[{2, 3, 3}, { Rational[3, 2], 0, -1}]], InterpretationBox[ ConicHullRegion3DBox[ NCache[{Rational[1, 2], 2, Rational[1, 2]}, {0.5, 2, 0.5}], {{0, 0, 1}, {1, 4, 0}}], Hyperplane[{4, -1, 0}, { Rational[1, 2], 2, Rational[1, 2]}]]}}, ImageSize->{368.39095684469123`, 346.3905301386733}, ImageSizeRaw->Automatic, ViewPoint->{-3.268981085173644, -0.7804048492825226, 0.39335853364744205`}, ViewVertical->{-0.3244076993438366, -0.8847921284219888, 0.3345183613629093}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7586491463878193`*^9, 3.758649159533781*^9}, 3.758649223338975*^9, {3.758649738592863*^9, 3.7586497553735447`*^9}, 3.7592615704883575`*^9, 3.7601086403985023`*^9}, CellLabel->"Out[89]=", CellID->1808080938] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["The Monge point can be outside of the tetrahedron:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7586498881265936`*^9, 3.7586499135343475`*^9}}, CellID->645712504], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tet", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"monge", "=", " ", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Monge", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Monge", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/Monge"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Monge"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Monge"], BoxID -> "Monge", Selectable->False], "[", "tet", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Tube", "[", "#", "]"}], "&"}], "/@", RowBox[{"Subsets", "[", RowBox[{"tet", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"monge", "[", RowBox[{"[", "1", "]"}], "]"}], ",", ".2"}], "]"}], ",", RowBox[{"Opacity", "[", ".6", "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Polygon", "/@", RowBox[{"Subsets", "[", RowBox[{"tet", ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ",", "Yellow", ",", " ", RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"monge", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7586492450489335`*^9, 3.7586492583943596`*^9}, 3.758649876498823*^9, {3.7592615412508717`*^9, 3.7592615421414633`*^9}}, CellLabel->"In[90]:=", CellID->25915134], Cell[BoxData[ Graphics3DBox[{{TubeBox[{{2, -2, 3}, {1, 0, 0}}], TubeBox[{{2, -2, 3}, {2, 2, 1}}], TubeBox[{{2, -2, 3}, {3, -1, -2}}], TubeBox[{{1, 0, 0}, {2, 2, 1}}], TubeBox[{{1, 0, 0}, {3, -1, -2}}], TubeBox[{{2, 2, 1}, {3, -1, -2}}]}, {RGBColor[0, 1, 0], SphereBox[{0, 0, 0}, 0.2]}, {RGBColor[1, 0, 0], Opacity[0.6], Polygon3DBox[{{2, -2, 3}, {1, 0, 0}, {2, 2, 1}}], Polygon3DBox[{{2, -2, 3}, {1, 0, 0}, {3, -1, -2}}], Polygon3DBox[{{2, -2, 3}, {2, 2, 1}, {3, -1, -2}}], Polygon3DBox[{{1, 0, 0}, {2, 2, 1}, {3, -1, -2}}]}, {RGBColor[1, 1, 0], Opacity[0.2], InterpretationBox[ ConicHullRegion3DBox[ NCache[{Rational[5, 2], Rational[1, 2], Rational[-1, 2]}, {2.5, 0.5, -0.5}], {{-3, 0, 1}, {2, 1, 0}}], Hyperplane[{1, -2, 3}, { Rational[5, 2], Rational[1, 2], Rational[-1, 2]}]], InterpretationBox[ ConicHullRegion3DBox[NCache[{2, Rational[-1, 2], -1}, {2, -0.5, -1}], {{ 0, 1, 2}, {1, 0, 0}}], Hyperplane[{0, -4, 2}, {2, Rational[-1, 2], -1}]], InterpretationBox[ ConicHullRegion3DBox[ NCache[{Rational[3, 2], 1, Rational[1, 2]}, {1.5, 1, 0.5}], {{5, 0, 1}, {-1, 1, 0}}], Hyperplane[{-1, -1, 5}, { Rational[3, 2], 1, Rational[1, 2]}]], InterpretationBox[ ConicHullRegion3DBox[ NCache[{Rational[5, 2], Rational[-3, 2], Rational[1, 2]}, {2.5, -1.5, 0.5}], {{-1, 0, 1}, {-2, 1, 0}}], Hyperplane[{-1, -2, -1}, { Rational[5, 2], Rational[-3, 2], Rational[1, 2]}]], InterpretationBox[ConicHullRegion3DBox[{2, 0, 2}, {{1, 0, 1}, {1, 2, 0}}], Hyperplane[{-2, 1, 2}, {2, 0, 2}]], InterpretationBox[ ConicHullRegion3DBox[ NCache[{Rational[3, 2], -1, Rational[3, 2]}, {1.5, -1, 1.5}], {{3, 0, 1}, {3, 1, 0}}], Hyperplane[{-1, 3, 3}, { Rational[3, 2], -1, Rational[3, 2]}]]}}, ImageSize->{372.1627790630185, 355.11288487745225`}, ImageSizeRaw->Automatic, ViewPoint->{-2.449930119304926, -2.117845282233128, 0.9811084400031587}, ViewVertical->{-0.9522681210634845, 0.21616117532316478`, 0.21554528964727776`}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7586492458925934`*^9, 3.758649261430319*^9}, 3.7586498777209983`*^9, 3.759261573823905*^9, 3.7601086448426*^9}, CellLabel->"Out[92]=", CellID->1284717683] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Monge | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[618, 23, 168, 7, 70, "Subsection",ExpressionUUID->"31ed7d00-acc4-4212-8fd9-1e0e10867df7", CellID->462042388], Cell[789, 32, 356, 6, 70, "Text",ExpressionUUID->"3aadf3d9-5089-4035-bfcc-059ef4cad2aa", CellID->13078159], Cell[CellGroupData[{ Cell[1170, 42, 7531, 195, 70, "Input",ExpressionUUID->"d4fc79a2-4a96-41b2-ba4e-259e1952f522", CellID->73051154], Cell[8704, 239, 2321, 76, 70, "Output",ExpressionUUID->"fa1083a8-93ae-4d1e-aa5b-f8d0a425de0a", CellID->605548050] }, Open ]], Cell[CellGroupData[{ Cell[11062, 320, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"32dd80f5-b7c5-4bed-85a2-d75bc6c58d91", CellID->1691970809], Cell[11210, 326, 323, 7, 70, "Text",ExpressionUUID->"531a6df0-e308-44cd-880d-36ee87f4941d", CellID->151569526], Cell[CellGroupData[{ Cell[11558, 337, 8982, 227, 70, "Input",ExpressionUUID->"1c788634-db20-4d79-8647-8e3ac85365ae", CellID->36135170], Cell[20543, 566, 2406, 58, 70, "Output",ExpressionUUID->"f9832569-a2f3-4be0-9ef6-39de510d4a14", CellID->1808080938] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23010, 631, 159, 7, 70, "Subsection",ExpressionUUID->"e52ca80c-a9b2-400d-912c-7288cb23fb66", CellID->964056545], Cell[23172, 640, 175, 3, 70, "Text",ExpressionUUID->"0e55af07-ea4d-468a-89b1-31c305ac9386", CellID->645712504], Cell[CellGroupData[{ Cell[23372, 647, 8885, 224, 70, "Input",ExpressionUUID->"6bdc6b15-87aa-4936-90b0-f1fe27928599", CellID->25915134], Cell[32260, 873, 2407, 59, 70, "Output",ExpressionUUID->"e6a1ddf6-fa4f-4370-9838-ee7b7c9ccadb", CellID->1284717683] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)