(* 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[ 6526, 191] NotebookOptionsPosition[ 5999, 174] NotebookOutlinePosition[ 6342, 189] CellTagsIndexPosition[ 6299, 186] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"Distance", " ", "between", " ", "the", " ", "point", " ", "T"}], "\[Element]", RowBox[{ SuperscriptBox["\[DoubleStruckCapitalR]", "n"], "and", " ", "the", " ", "circle", " ", "Circ", RowBox[{"(", RowBox[{"c", ",", " ", "r"}], ")"}], "in", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}]}], "Subsubsection", FontColor->RGBColor[1, 0, 0]]], "Subsection", CellChangeTimes->{{3.869025165269126*^9, 3.8690252260693774`*^9}},ExpressionUUID->"a16a3ed9-7c76-47e6-b342-\ 523cfaac4063"], Cell[CellGroupData[{ Cell[TextData[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[{"point", " ", "T"}], "\[Element]", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{ RowBox[{"center", " ", "c"}], " ", "\[Element]", " ", RowBox[{ RowBox[{ SuperscriptBox["\[DoubleStruckCapitalR]", "n"], "and", " ", "radius", " ", "r"}], " ", ">", "0"}]}], ";"}], 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[{ "Distance", " ", "from", " ", "the", " ", "point", " ", "T", " ", "to", " ", "the", " ", "circle", " ", "Circ", RowBox[{"(", RowBox[{"c", ",", " ", "r"}], ")"}]}], 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[0, 0, 1]], StyleBox["None", FontColor->RGBColor[0, 0, 1]]}]}], "Text", CellChangeTimes->{{3.8208938752340946`*^9, 3.8208939165097227`*^9}, 3.8208939777537127`*^9, {3.82089402908541*^9, 3.8208940654953437`*^9}, { 3.820894178610306*^9, 3.8208942451936073`*^9}, {3.820894336841039*^9, 3.8208943606992674`*^9}, {3.8222252468201857`*^9, 3.8222252579121275`*^9}, {3.8222263768275585`*^9, 3.8222264735149126`*^9}, {3.8222267120062532`*^9, 3.8222267137917337`*^9}, 3.8222268123848886`*^9, {3.8223097789208064`*^9, 3.822309786698867*^9}}, FontSize-> 12,ExpressionUUID->"5410b5af-5253-416e-b755-75cb15be49d6"]], "Subsection", CellChangeTimes->{{3.868246254366021*^9, 3.8682462755903225`*^9}, { 3.8690250273395615`*^9, 3.869025042552888*^9}, {3.8690251065488477`*^9, 3.8690251608816423`*^9}, {3.8690252701815977`*^9, 3.8690253041100616`*^9}, { 3.869025338348714*^9, 3.869025367855494*^9}, {3.8690254160584574`*^9, 3.869025451124421*^9}, {3.869026199276972*^9, 3.869026199276972*^9}, { 3.8690271081145*^9, 3.8690271798211412`*^9}},ExpressionUUID->"64ef23ed-0594-466b-b4e1-\ af701c6a61c4"], Cell[BoxData[ RowBox[{"\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{"LAD", " ", "distance"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dist1", "[", RowBox[{"T_", ",", "c_", ",", "r_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"Return", "[", RowBox[{"Abs", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{"T", "-", "c"}], "]"}], "-", "r"}], "]"}], " ", "]"}]}], "\[IndentingNewLine]", " ", "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{"TLS", " ", RowBox[{"distance", ".", "like"}], " ", "function"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dist2", "[", RowBox[{"T_", ",", "c_", ",", "r_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"Return", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Norm", "[", RowBox[{"T", "-", "c"}], "]"}], "-", "r"}], ")"}], "^", "2"}], " ", "]"}]}], "\[IndentingNewLine]", " ", "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\t\t\t", RowBox[{"(*", " ", RowBox[{"Algebraic", " ", "fit", " ", "criterion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"DistA", "[", RowBox[{"T_", ",", "c_", ",", "r_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"Return", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"T", "-", "c"}], "]"}], "^", "2"}], "-", RowBox[{"r", "^", "2"}]}], ")"}], "^", "2"}], "]"}]}], "\[IndentingNewLine]", " ", "]"}]}], ";"}], " "}]}]], "Input", CellChangeTimes->{{3.868246304706664*^9, 3.8682463924457817`*^9}, { 3.869715250917884*^9, 3.869715264810376*^9}},ExpressionUUID->"9d35e21b-cd95-497d-926d-\ 0cbcafa1f660"] }, Open ]] }, WindowSize->{675, 469}, WindowMargins->{{246, Automatic}, {Automatic, 79}}, 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[558, 20, 569, 14, 52, "Subsection",ExpressionUUID->"a16a3ed9-7c76-47e6-b342-523cfaac4063"], Cell[CellGroupData[{ Cell[1152, 38, 2589, 69, 63, "Subsection",ExpressionUUID->"64ef23ed-0594-466b-b4e1-af701c6a61c4"], Cell[3744, 109, 2239, 62, 181, "Input",ExpressionUUID->"9d35e21b-cd95-497d-926d-0cbcafa1f660"] }, Open ]] } ] *)