(* 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[ 32949, 845] NotebookOptionsPosition[ 32520, 827] NotebookOutlinePosition[ 32928, 843] CellTagsIndexPosition[ 32885, 840] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mahalanobis weighted Incremental algorithm", FontColor->RGBColor[1, 0, 0]], "\n" }], "Subsubsection", CellChangeTimes->{{3.73112424028771*^9, 3.7311242546173754`*^9}, { 3.8106047392458076`*^9, 3.8106047456549196`*^9}, {3.8131286886441045`*^9, 3.8131286920600576`*^9}, 3.8209872570601444`*^9, 3.821011326978313*^9, { 3.8222083519875264`*^9, 3.8222083851565742`*^9}, 3.822313596871766*^9, 3.8223137286463823`*^9}, ExpressionUUID -> "e66d6e93-d6b2-4c5b-9154-8959b5b959a5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{ "Once", " ", "the", " ", "set", " ", "of", " ", "optimal", " ", "partitions", " ", "is", " ", "obtained"}], ",", " ", RowBox[{ RowBox[{ "one", " ", "should", " ", "activate", " ", "the", " ", "M"}], "-", RowBox[{ RowBox[{"Indexes", "[", "]"}], " ", "module", " ", "to", " ", "get", " ", "the", " ", "appropriate", " ", "Mahalanobis", " ", "indexes"}]}]}], FontSize->16, FontColor->RGBColor[0, 0, 1]], StyleBox["\[IndentingNewLine]", FontSize->16, FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->16, FontColor->RGBColor[0, 0, 1]], StyleBox["\[IndentingNewLine]", FontSize->16, FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->16, FontColor->RGBColor[0, 0, 1]], 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]", " ", RowBox[{ RowBox[{ SuperscriptBox["\[DoubleStruckCapitalR]", "n"], "data", " ", "weights", " ", "w", " ", "initial", " ", "center", RowBox[{"(", "s", ")"}], " ", RowBox[{ StyleBox["cen", FontSlant->"Italic"], StyleBox[".", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], "number"}], " ", "of", " ", "iterations", " ", RowBox[{"K", ".", " ", "Each"}], " ", "additional", " ", "center", " ", "is", " ", "obtained", " ", "solving", " ", "a", " ", "GOP", " ", "using", " ", RowBox[{"Compile", ".", "In"}], " ", "case", " ", "when", " ", "n"}], ">", "2"}]}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["one", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["has", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["to", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["adapt", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["the", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["minimizing", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["function", FontColor->RGBColor[0, 0, 1]], StyleBox[".", FontColor->RGBColor[0, 0, 1]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["Output", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ "set", " ", "of", " ", "partitions", " ", "each", " ", "partition", " ", "consists", " ", "of", " ", "clusters", " ", "with", " ", "corresponding", " ", "weights", " ", "associated", " ", "to", " ", "their", " ", "elements"}], FontColor->RGBColor[0, 0, 1]]}]}]}]}]}], StyleBox[")", FontColor->RGBColor[0, 0, 1]]}], StyleBox[".", FontColor->RGBColor[0, 0, 1]], StyleBox["Graphical", FontColor->RGBColor[0, 0, 1]]}], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["depictions", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["of", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["each", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["iteration", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["are", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["presented", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["only", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["for", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["n", FontColor->RGBColor[0, 0, 1]]}], StyleBox["=", FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["2", FontColor->RGBColor[0, 0, 1]], StyleBox[";;", FontColor->RGBColor[0, 0, 1]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0, 0, 1]], StyleBox[ StyleBox[ RowBox[{" ", " "}]], FontColor->RGBColor[0, 0, 1]], StyleBox[ StyleBox[ RowBox[{" ", " "}]], FontColor->RGBColor[0, 0, 1]], StyleBox[ StyleBox[ RowBox[{" ", " "}]], FontColor->RGBColor[0, 0, 1]], StyleBox[ StyleBox[ RowBox[{" ", " "}]], FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], 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[{"MWF", "[", "]"}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"MFmin", "[", "]"}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"Hdist", "[", "]"}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"DIRECT", "[", "]"}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"MWKMeans", "[", "]"}], FontColor->RGBColor[0, 0, 1]]}]], "Text", CellChangeTimes->{{3.8223135979877377`*^9, 3.8223137613798156`*^9}, { 3.8223137995477247`*^9, 3.8223138027984066`*^9}}, FontSize->12], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Ako", " ", "je", " ", "poznata", " ", "originalna", " ", "particija", " ", "PI0"}], ",", " ", RowBox[{ RowBox[{ "mo\[ZHacek]emo", " ", "je", " ", "usporediti", " ", "s", " ", "particijom", " ", "dobivenom", " ", "u", " ", "brk"}], "-", "koraku"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MInc", "[", RowBox[{"w_", ",", "A_", ",", "cen_", ",", "KK_", ",", RowBox[{"Ind_:", "0"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"centri", ",", "centriN", ",", RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ",", RowBox[{"n", "=", RowBox[{"Length", "[", RowBox[{"A", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", "k", ",", "dom", ",", "Scov", ",", "min", ",", "PI1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "n"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "Initialization", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"xG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";", RowBox[{"yG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Scov", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"IdentityMatrix", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "cen", "]"}]}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"MWKMeans", "[", RowBox[{"w", ",", "A", ",", "cen"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"cen", "=", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"centri", "=", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"brk0", "=", RowBox[{"Length", "[", "centri", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PART", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", "\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{"Iterativni", " ", "postupak"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\<\\nNa postojecih \>\"", ",", RowBox[{"Length", "[", "centri", "]"}], ",", "\"\< centara dodaje se 1 novi\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", RowBox[{"Length", "[", "centri", "]"}]}], ";", "\[IndentingNewLine]", "\t\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Compile", " ", "\[IndentingNewLine]", "FCompile"}], "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "_Real"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", "i", "]"}], "]"}], RowBox[{"Min", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"centri", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", "centri", "]"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "]"}], "^", "2"}]}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], " ", "]"}]}], "]"}]}], ";", "\t", "\[IndentingNewLine]", RowBox[{ RowBox[{"F2", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"Apply", "[", RowBox[{"FCompile", ",", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F2", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", "i", "]"}], "]"}], RowBox[{"Min", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"centri", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", "centri", "]"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "]"}], "^", "2"}]}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"{", RowBox[{"xG", ",", "yG"}], "}"}]}], ";", "\[IndentingNewLine]", "\t", RowBox[{"(*", " ", "DIRECT", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"minp", "=", RowBox[{ RowBox[{"DIRECT", "[", RowBox[{"F2", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10.", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "50"}], ",", " ", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}], "//", "Timing"}]}], ";", " ", RowBox[{"min", "=", RowBox[{"minp", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "min"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"centriN", "=", RowBox[{"Append", "[", RowBox[{"centri", ",", RowBox[{"min", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "centriN"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", " ", RowBox[{ "Ovdje", " ", "se", " ", "vrijednost", " ", "funkcije", " ", "cilja", " ", "ne", " ", "moze", " ", "racunati", " ", "kao", " ", "MWFmin", " ", "jer", " ", "jos", " ", "nemam", " ", RowBox[{"Scov", "[", RowBox[{"[", RowBox[{"k", "+", "1"}], "]"}], "]"}]}], " ", "*)"}], FontColor->RGBColor[1, 0.5, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0.5, 0, 0.5]], RowBox[{"k", "=", RowBox[{"Length", "[", "centriN", "]"}]}], ";", "\[IndentingNewLine]", "\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{ RowBox[{"Poziv", " ", "Mahalanobis", " ", "k"}], "-", "means"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"t1", "=", RowBox[{"Timing", "[", RowBox[{"sol", "=", RowBox[{"MWKMeans", "[", RowBox[{"w", ",", "A", ",", "centriN"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Scov", "=", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"sol", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "\"\<; MWF = \>\"", ",", RowBox[{"MWF", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\"\<; MWFmin = \>\"", ",", RowBox[{"MWFmin", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\"\<; mj: \>\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Ako", " ", "je", " ", "poznata", " ", "originalna", " ", "particija"}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "ovdje", " ", "ju", " ", "mo\[ZHacek]emo", " ", "usporediti", " ", "s", " ", "particijom", " ", "dobivenom", " ", "u", " ", "brk"}], "-", RowBox[{"koraku", ":", "\[IndentingNewLine]", "PI1"}]}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"brk", "\[LessEqual]", RowBox[{"Length", "[", "PI0", "]"}]}], ",", RowBox[{"rand", "=", RowBox[{"Rand", "[", RowBox[{"PI1", ",", "PI0"}], "]"}]}], ",", RowBox[{"rand", "=", RowBox[{"Rand", "[", RowBox[{"PI0", ",", "PI1"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"rand", "[", RowBox[{"[", "1", "]"}], "]"}], "//", "MatrixForm"}], ",", " ", "\"\<; Rand = \>\"", ",", RowBox[{"rand", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", "\"\<; Jaccard = \>\"", ",", RowBox[{"rand", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\