(* 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[ 6306, 191] NotebookOptionsPosition[ 5946, 174] NotebookOutlinePosition[ 6294, 189] CellTagsIndexPosition[ 6251, 186] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Mahalanobis fuzzy objective function ", FontColor->RGBColor[1, 0, 0]]], "Subsection", CellChangeTimes->{ 3.5854097085807176`*^9, 3.585637218737363*^9, {3.7255165931679688`*^9, 3.725516594386836*^9}, {3.808314571167672*^9, 3.8083145723140163`*^9}, { 3.810605351138794*^9, 3.8106053518891726`*^9}, {3.8208945819477487`*^9, 3.8208945970799646`*^9}}, ExpressionUUID -> "4d0ff360-f05f-4920-a6b3-be79213cdb4c"], Cell[BoxData[{ RowBox[{ RowBox[{ StyleBox["Input", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"data", " ", "set", " ", "\[ScriptCapitalA]"}], " ", "\[Subset]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], 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[ RowBox[{ SubscriptBox["c", "k"], " ", "\[Element]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"Membership", " ", "matrix", " ", "U"}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"covariance", " ", "matrix", " ", "cov"}], ";"}], 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[{"objective", " ", "function", " ", "value", " ", SubscriptBox["\[FormalCapitalF]", "M"], RowBox[{"(", RowBox[{"c", ",", "U"}], ")"}]}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[";", 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[{"dM", "[", "]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"muGK", "[", "]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[" ", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]"}], "Text", CellChangeTimes->{{3.8208946694679637`*^9, 3.8208946825852127`*^9}, { 3.8208947599083104`*^9, 3.8208947845314164`*^9}, {3.820894817111429*^9, 3.820894876432636*^9}, {3.8208949225129137`*^9, 3.8208949230486593`*^9}, { 3.8223132728060913`*^9, 3.8223132801597576`*^9}}, FontSize->12, ExpressionUUID -> "53f24dea-b928-4556-af6d-4e55ef3e1f87"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MFz", "[", RowBox[{"A_", ",", "cen_", ",", "U_", ",", "cov_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ",", RowBox[{"k", "=", RowBox[{"Length", "[", "cen", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Return", "[", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"muGK", "[", RowBox[{"A", ",", "cen", ",", "cov", ",", "i", ",", "j"}], "]"}], "^", "q"}], " ", RowBox[{"dM", "[", RowBox[{ RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"cov", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\t", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", 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.724041619150714*^9, 3.7240416260661516`*^9}, {3.7240418334787807`*^9, 3.7240418762726283`*^9}, {3.7240419092262836`*^9, 3.724041910005359*^9}, { 3.7240419457023067`*^9, 3.724041984153574*^9}, {3.724042028248847*^9, 3.72404206950558*^9}, {3.7240422848453293`*^9, 3.724042286792523*^9}, 3.724045515376709*^9, 3.7255205876973066`*^9, {3.7255230033161693`*^9, 3.725523022546343*^9}, {3.808200030595463*^9, 3.808200035655111*^9}, { 3.808223743804393*^9, 3.808223744369849*^9}, {3.8083145761352806`*^9, 3.808314587988263*^9}, 3.8099108145167055`*^9}, ExpressionUUID -> "648acf90-051d-4493-87fe-71b48f131978"] }, 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, 444, 7, 49, "Subsection"], Cell[1027, 31, 2787, 91, 85, "Text"], Cell[3817, 124, 2113, 47, 107, "Input"] }, Open ]] } ] *)