(* 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[ 24302, 675] NotebookOptionsPosition[ 23934, 658] NotebookOutlinePosition[ 24282, 673] CellTagsIndexPosition[ 24239, 670] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["K - Means algoritam for the data set \[ScriptCapitalA] \[Subset] \ \[DoubleStruckCapitalR] , or ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ RowBox[{"\[ScriptCapitalA]", " ", "\[Subset]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "2"]}]], FontColor->RGBColor[1, 0, 0], ExpressionUUID -> "c32008ac-184c-4461-94bb-5ee4feee0e74"], StyleBox[" started with an initial partition", FontColor->RGBColor[1, 0, 0]] }], "Subsubsection", CellChangeTimes->{{3.7311282758576365`*^9, 3.7311283023292036`*^9}, { 3.8209848930172358`*^9, 3.820984956217693*^9}}, ExpressionUUID -> "84ab69d5-84d3-4f3a-9e89-4809531361bd"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ StyleBox["Input", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"initial", " ", "partition", " ", SuperscriptBox["\[CapitalPi]", RowBox[{"(", "0", ")"}]]}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox[ RowBox[{"parameter", " ", StyleBox["p", FontSlant->"Italic"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox["=", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["1", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox["or", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ StyleBox["2", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[".", FontColor->RGBColor[0, 0, 1]]}]]}]}]}], StyleBox[" ", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{ RowBox[{"One", " ", "can", " ", "choose", " ", "the", " ", StyleBox["p", FontSlant->"Italic"]}], "-", RowBox[{"distance", " ", "like", " ", "function", " ", "for", " ", StyleBox["p", FontSlant->"Italic"]}]}], StyleBox[" ", FontSlant->"Italic"], StyleBox["=", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], RowBox[{ StyleBox["1", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["or", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox[ RowBox[{ StyleBox["2", FontSlant->"Italic"], "."}]], " ", "Options"}]}], FontColor->RGBColor[0, 0, 1]], "\n", RowBox[{ StyleBox["\t", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ "for", " ", "printout", " ", "and", " ", "graphical", " ", "presentation", " ", "of", " ", "intermediate"}], FontColor->RGBColor[0, 0, 1]]}], "\n", RowBox[{ StyleBox["\t", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"results", " ", "are", " ", "provided", " ", RowBox[{"(", StyleBox[ RowBox[{"Ind", "=", "1"}], FontSlant->"Italic"], ")"}]}], ",", " ", RowBox[{ "as", " ", "well", " ", "as", " ", "options", " ", "for", " ", "printing", " ", "the"}]}], FontColor->RGBColor[0, 0, 1]]}], "\n", RowBox[{ StyleBox["\t", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{ "results", " ", "as", " ", "fractions", " ", "or", " ", "as", " ", "decimal", " ", "numbers", " ", RowBox[{"(", RowBox[{"num", "=", "1"}], ")"}]}], ";"}], FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ StyleBox["\t", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{ RowBox[{"Examples", " ", "from", " ", "Test"}], "-", RowBox[{ "example", " ", "9.1", " ", "can", " ", "also", " ", "be", " ", "used"}]}], ";"}], 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[{"partition", " ", "\[CapitalPi]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"centers", " ", SubscriptBox["c", "1"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox["\[TripleDot]", FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ SubscriptBox["c", "k"], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ "objective", " ", "function", " ", "values", " ", "\[ScriptCapitalF]", RowBox[{"(", "\[CapitalPi]", ")"}]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"\[FormalCapitalF]", RowBox[{"(", "c", ")"}]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0, 0, 1]], StyleBox["\t", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"or", " ", "\[ScriptCapitalG]", RowBox[{"(", "\[CapitalPi]", ")"}]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{ "values", " ", "of", " ", "CH", " ", "index", " ", "and", " ", "DB", " ", "index"}], ";"}], FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ StyleBox["Submodules", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"d", "[", "]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"FF", "[", "]"}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"Fmin", "[", "]"}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"Figure1", "[", "]"}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"Figure2", "[", "]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[" ", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]"}], "Text", CellChangeTimes->{{3.8209850103247423`*^9, 3.8209850890189104`*^9}, { 3.8209851240124426`*^9, 3.8209852077723737`*^9}, 3.8209853390670557`*^9, { 3.820985415926425*^9, 3.8209854412654853`*^9}, {3.8209855014622383`*^9, 3.8209856033477964`*^9}, {3.8223112407588425`*^9, 3.8223112612342596`*^9}}, FontSize->12, ExpressionUUID -> "8952ba7a-5746-4ee6-ab7b-6edf5bd275e2"], Cell[BoxData[ RowBox[{ RowBox[{"KMeansPart", "[", RowBox[{"PI0_", ",", RowBox[{"p_:", "2"}], ",", RowBox[{"Ind_:", "1"}], ",", RowBox[{"num_:", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "A", ",", RowBox[{"k", "=", RowBox[{"Length", "[", "PI0", "]"}]}], ",", RowBox[{"it", "=", "0"}], ",", "F0", ",", "F1", ",", "PI", ",", "tab", ",", "imin", ",", "c", ",", "sigma2", ",", "G", ",", "KK", ",", "CH", ",", "DB"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Flatten", "[", RowBox[{"PI0", ",", "1"}], "]"}]}], ";", RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"p", "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"PI0", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"G", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"PI0", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"Mean", "[", "A", "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Median", "[", RowBox[{"PI0", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", RowBox[{"G", "=", RowBox[{"{", "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"num", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"c", "=", RowBox[{"c", "//", "N"}]}], ";", RowBox[{"G", "=", RowBox[{"G", "//", "N"}]}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "it", ",", "\"\<: PI=\>\"", ",", "PI0", ",", "\"\<; c=\>\"", ",", "c", ",", "\"\<; F=\>\"", ",", RowBox[{"F0", "=", RowBox[{"FF", "[", RowBox[{"PI0", ",", "c", ",", "p"}], "]"}]}], ",", "\"\<; G=\>\"", ",", "G", ",", "\"\<; Fmin=\>\"", ",", RowBox[{"Fmin", "[", RowBox[{"A", ",", "c", ",", "p"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"A", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"Figure1", "[", "PI0", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"A", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{"Figure2", "[", "PI0", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PI", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tab", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"d", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "p"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "//", "N"}]}], ";", "\[IndentingNewLine]", RowBox[{"imin", "=", RowBox[{ RowBox[{"Ordering", "[", RowBox[{"tab", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], ",", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"DeleteCases", "[", RowBox[{"PI", ",", RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "<", RowBox[{"Length", "[", "PI0", "]"}]}], ",", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"Length", "[", "PI0", "]"}]}], "]"}], ",", "\"\< to \>\"", ",", "k"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"p", "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"G", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"Mean", "[", "A", "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}]}], ",", RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Median", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"num", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"c", "=", RowBox[{"c", "//", "N"}]}], ";", RowBox[{"G", "=", RowBox[{"G", "//", "N"}]}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"F1", "=", RowBox[{"FF", "[", RowBox[{"PI", ",", "c", ",", "p"}], "]"}]}], ";", RowBox[{"it", "=", RowBox[{"it", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "it", ",", "\"\<: PI=\>\"", ",", "PI", ",", "\"\<; c=\>\"", ",", "c", ",", "\"\<; F=\>\"", ",", "F1", ",", "\"\<; G=\>\"", ",", "G", ",", "\"\<; Fmin=\>\"", ",", RowBox[{"Fmin", "[", RowBox[{"A", ",", "c", ",", "p"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Chop", "[", RowBox[{"F0", "-", "F1"}], "]"}], "\[NotEqual]", "0"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"A", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"Figure1", "[", "PI", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"A", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{"Figure2", "[", "PI", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"F0", "=", "F1"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"p", "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"CH", "=", RowBox[{ RowBox[{"(", RowBox[{"G", "/", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"F1", "/", RowBox[{"(", RowBox[{"m", "-", "k"}], ")"}]}], ")"}]}]}], ";", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "CH"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"KK", "=", RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sigma2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s"}], "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "/", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "c"}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Sqrt", "[", "sigma2", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"DB", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"sigma2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "+", RowBox[{"Sqrt", "[", RowBox[{"sigma2", "[", RowBox[{"[", "s", "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"Norm", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"c", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Complement", "[", RowBox[{"KK", ",", RowBox[{"{", "j", "}"}]}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "/", "k"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "DB"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PI", ",", "c", ",", "F1", ",", "G", ",", "CH", ",", "DB"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.73112578295751*^9, 3.731125956992042*^9}, { 3.731125987088831*^9, 3.7311261640768085`*^9}, {3.7311261955646596`*^9, 3.73112623044333*^9}, {3.7311263770214214`*^9, 3.731126492096473*^9}, { 3.731126547961833*^9, 3.7311265593222837`*^9}, {3.731126597467252*^9, 3.7311267040567617`*^9}, {3.7311272921927633`*^9, 3.7311273243680735`*^9}, {3.731127420206789*^9, 3.731127434848837*^9}, { 3.7311275105443754`*^9, 3.731127510935127*^9}, {3.731127699861579*^9, 3.7311277217702236`*^9}, {3.731127829219427*^9, 3.7311278492998037`*^9}, { 3.731127880865615*^9, 3.731127936512225*^9}, {3.731131571811527*^9, 3.7311316164723024`*^9}, {3.763901581369135*^9, 3.7639015835092983`*^9}, { 3.7639016704264383`*^9, 3.763901671707561*^9}, {3.7639027241345005`*^9, 3.7639027535340395`*^9}, {3.763902838248406*^9, 3.7639028451998663`*^9}, { 3.763902905138945*^9, 3.7639029160270553`*^9}, {3.7639042326574206`*^9, 3.763904254277369*^9}, {3.7639043646731806`*^9, 3.7639043792480907`*^9}, { 3.7639044452011967`*^9, 3.763904456573577*^9}, {3.7639047207929125`*^9, 3.7639047228705416`*^9}, {3.76390478254426*^9, 3.7639047949788527`*^9}, { 3.763904837171941*^9, 3.763904844764076*^9}, {3.7639051670478115`*^9, 3.7639051965254374`*^9}, {3.7639052279555798`*^9, 3.763905251896916*^9}, { 3.7639053597308664`*^9, 3.7639053632458334`*^9}, {3.7639914771111298`*^9, 3.763991477427286*^9}, {3.7639915086866865`*^9, 3.763991513397133*^9}, { 3.763991632016856*^9, 3.763991635681072*^9}, {3.7639919920253816`*^9, 3.7639920039863873`*^9}, {3.7639921261307783`*^9, 3.7639921263033085`*^9}, {3.763992158930053*^9, 3.763992191909856*^9}, 3.763992381287408*^9, {3.7639935386160736`*^9, 3.763993538961115*^9}, { 3.7639935747065563`*^9, 3.763993575415618*^9}, {3.763996028533924*^9, 3.763996029418552*^9}, {3.7639962729141836`*^9, 3.763996273355003*^9}, { 3.7639978622558618`*^9, 3.763998002338193*^9}, {3.763998335001047*^9, 3.7639983624875298`*^9}, {3.7640517798417373`*^9, 3.764051783048151*^9}, { 3.764079515462506*^9, 3.764079557884059*^9}, {3.7640798944275866`*^9, 3.7640799160792136`*^9}, {3.7644225338045983`*^9, 3.764422579153182*^9}, { 3.764422609864673*^9, 3.7644227028896656`*^9}, {3.7644234241111326`*^9, 3.764423429578596*^9}, {3.764423897840397*^9, 3.764424251589713*^9}, { 3.7644246571507254`*^9, 3.764424660071707*^9}, {3.7644247176614237`*^9, 3.764424759026518*^9}, {3.764424790940886*^9, 3.7644248230739493`*^9}, { 3.7644257380801597`*^9, 3.7644257414543276`*^9}, {3.7644257827725735`*^9, 3.7644258014869304`*^9}, {3.764425846976227*^9, 3.7644258785313396`*^9}, { 3.8070804645801506`*^9, 3.8070804735897493`*^9}, 3.807099926620502*^9, { 3.807102436962626*^9, 3.8071025157054977`*^9}, {3.810700420356027*^9, 3.8107004351840143`*^9}, {3.810700618610241*^9, 3.810700651962322*^9}, { 3.810701048447056*^9, 3.8107011074406166`*^9}, {3.8107011669759483`*^9, 3.810701177536561*^9}, {3.8107014107006674`*^9, 3.810701411151971*^9}, { 3.810701511414133*^9, 3.810701572551365*^9}, 3.8107016503266716`*^9, { 3.8107018738146005`*^9, 3.8107018744089713`*^9}, {3.8209852190801105`*^9, 3.820985219805659*^9}, {3.8209853032597837`*^9, 3.820985309755464*^9}},ExpressionUUID->"2155e45f-130e-4c6d-b7ae-\ 1ca3b6c7af5b"] }, Open ]] }, WindowSize->{1536, 779}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 659, 14, 39, "Subsubsection"], Cell[1242, 38, 6912, 241, 195, "Text"], Cell[8157, 281, 15761, 374, 658, "Input"] }, Open ]] } ] *)