(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 5549, 158] NotebookOptionsPosition[ 5026, 141] NotebookOutlinePosition[ 5372, 156] CellTagsIndexPosition[ 5329, 153] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Minimal element of the upper triangular matrix", FontColor->RGBColor[1, 0, 0]]], "Subsection", CellChangeTimes->{ 3.5854097085807176`*^9, 3.585637218737363*^9, 3.8067555638956704`*^9, { 3.822221900508813*^9, 3.822221903815808*^9}, {3.822222129185065*^9, 3.822222147210169*^9}, 3.8222222736415343`*^9, {3.8404253729166374`*^9, 3.840425376660223*^9}},ExpressionUUID->"b33b86a0-a6d1-4c88-ae06-\ 4a4d3f13aa13"], Cell[BoxData[{ RowBox[{ RowBox[{ StyleBox["Input", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["The", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["upper", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["triangular", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["matrix", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["\[DoubleStruckCapitalR]", FontColor->RGBColor[0, 0, 1]]}]}], StyleBox[";", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ StyleBox["Output", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"Minimal", " ", "element"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[";", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ StyleBox["Submodules", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["None", FontColor->RGBColor[0, 0, 1]]}]}], "Text", CellChangeTimes->{{3.5886541897699375`*^9, 3.5886541909877396`*^9}, { 3.588654263023868*^9, 3.588654339794004*^9}, {3.5917588683674088`*^9, 3.591758869047409*^9}, {3.5917590328866577`*^9, 3.591759044816675*^9}, { 3.5937444692479725`*^9, 3.5937444771129847`*^9}, {3.8067251659311037`*^9, 3.8067252085746784`*^9}, {3.8067252462048798`*^9, 3.806725247420523*^9}, { 3.8067555742205267`*^9, 3.8067555768738213`*^9}, {3.8071002028759546`*^9, 3.807100208919777*^9}, {3.8107927170556965`*^9, 3.8107927208402033`*^9}, { 3.813128996198531*^9, 3.81312899765561*^9}, {3.8131290871131477`*^9, 3.8131291044656687`*^9}, 3.813129162727297*^9, {3.813129217851308*^9, 3.81312926039266*^9}, {3.8131293311074486`*^9, 3.813129508676306*^9}, { 3.8208235288040915`*^9, 3.8208235296679153`*^9}, {3.820823683703711*^9, 3.820823686279229*^9}, {3.822221932773207*^9, 3.822222005492038*^9}, { 3.8222221607470207`*^9, 3.8222221750484905`*^9}, 3.8222222931703854`*^9, { 3.8223140281777897`*^9, 3.8223140337699394`*^9}, 3.8404253803665066`*^9, { 3.8404254152648797`*^9, 3.8404254916411805`*^9}, {3.8907216671534786`*^9, 3.890721668949444*^9}, 3.890735472660903*^9}, FontSize->12,ExpressionUUID->"b4ab02d9-d9df-4159-b4f1-e43d3f781cdb"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MinR", "[", "R_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", RowBox[{"R", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", RowBox[{"min", "=", "Infinity"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"red", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "i"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"minn", "=", RowBox[{"Min", "[", "red", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"minn", "<", "min"}], ",", RowBox[{"min", "=", "minn"}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "min"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input",ExpressionUUID->"c3b66c2d-795c-495b-b77a-\ bc58b3b32357"] }, Open ]] }, WindowSize->{834, 312}, WindowMargins->{{-1882, Automatic}, {169, Automatic}}, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 445, 7, 53, "Subsection",ExpressionUUID->"b33b86a0-a6d1-4c88-ae06-4a4d3f13aa13"], Cell[1028, 31, 2675, 68, 66, "Text",ExpressionUUID->"b4ab02d9-d9df-4159-b4f1-e43d3f781cdb"], Cell[3706, 101, 1304, 37, 162, "Input",ExpressionUUID->"c3b66c2d-795c-495b-b77a-bc58b3b32357"] }, Open ]] } ] *)