(* 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[ 12682, 378] NotebookOptionsPosition[ 10655, 325] NotebookOutlinePosition[ 11034, 341] CellTagsIndexPosition[ 10991, 338] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Compute the real Euclidean distance between two points:", "Text", CellChangeTimes->{{3.7566514454091682`*^9, 3.7566514593953457`*^9}, { 3.7583746078939657`*^9, 3.758374618666214*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"RealEuclideanDistance\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"RealEuclideanDistance\""}], ResourceFunction["RealEuclideanDistance"], BoxID -> "RealEuclideanDistance"], "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7566509220320344`*^9, 3.7566509396324863`*^9}, { 3.756651018018985*^9, 3.7566510229606185`*^9}}, CellID->230189252], Cell[BoxData[ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]], "Output", CellChangeTimes->{{3.756650931366358*^9, 3.756650940136137*^9}, 3.756651006906279*^9}, CellLabel->"Out[6]=", CellID->6235872] }, Open ]], Cell["Compute in three dimensions:", "Text", CellChangeTimes->{{3.7583746295336027`*^9, 3.758374639887044*^9}}, CellID->1040808873], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"RealEuclideanDistance\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"RealEuclideanDistance\""}], ResourceFunction["RealEuclideanDistance"], BoxID -> "RealEuclideanDistance"], "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7566510311135883`*^9, 3.7566510361012206`*^9}}, CellLabel->"In[7]:=", CellID->10752916], Cell[BoxData[ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]], "Output", CellChangeTimes->{3.7566510366699457`*^9}, CellLabel->"Out[7]=", CellID->296737644] }, Open ]], Cell["Using numeric values:", "Text", CellChangeTimes->{{3.758374647022924*^9, 3.758374652462185*^9}}, CellID->1569818398], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"RealEuclideanDistance\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"RealEuclideanDistance\""}], ResourceFunction["RealEuclideanDistance"], BoxID -> "RealEuclideanDistance"], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "2"}], ",", "6"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.756651549867322*^9, 3.756651571545481*^9}}, CellLabel->"In[4]:=", CellID->659086808], Cell[BoxData[ SqrtBox["118"]], "Output", CellChangeTimes->{3.7566515717993436`*^9}, CellLabel->"Out[4]=", CellID->105124771] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->461307998], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["EuclideanDistance", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/EuclideanDistance"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " adds ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Abs", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Abs"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " for variables and complicated expressions, making them more complicated. \ Often, that extra complication will make ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Simplify", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Simplify"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " more difficult:" }], "Text", CellChangeTimes->{{3.7566514912520227`*^9, 3.7566515339130096`*^9}, { 3.7566515985059423`*^9, 3.7566517117842255`*^9}, {3.758374523827619*^9, 3.7583745689231853`*^9}}, CellID->685256371], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EuclideanDistance", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.7566514737683454`*^9}, CellLabel->"In[3]:=", CellID->312494485], Cell[BoxData[ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", "x", "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Abs", "[", "y", "]"}], "2"]}]]], "Output", CellChangeTimes->{3.756651474409892*^9}, CellLabel->"Out[3]=", CellID->217163755] }, Open ]] }, Open ]] }, WindowSize->{808, 855}, WindowMargins->{{436, Automatic}, {Automatic, 50}}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb", $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"1a37f250-6460-47d8-a2b2-115e768a08ee", CellID->285421464], Cell[639, 25, 212, 3, 70, "Text",ExpressionUUID->"c9bc7161-5c07-449e-95e7-b8bcd4950154", CellID->221583938], Cell[CellGroupData[{ Cell[876, 32, 2079, 52, 70, "Input",ExpressionUUID->"b81575b4-f152-4733-a203-b3519e0db1b5", CellID->230189252], Cell[2958, 86, 245, 8, 70, "Output",ExpressionUUID->"4820ad7d-d57c-439b-8f62-d83719484be1", CellID->6235872] }, Open ]], Cell[3218, 97, 133, 2, 70, "Text",ExpressionUUID->"f8070010-4798-461a-a4de-c5fe41a10d45", CellID->1040808873], Cell[CellGroupData[{ Cell[3376, 103, 2070, 52, 70, "Input",ExpressionUUID->"52017a64-b4ad-4426-99c0-fb4227dc5eb5", CellID->10752916], Cell[5449, 157, 234, 8, 70, "Output",ExpressionUUID->"74609dd0-89cf-4a7d-a6d2-349a49a75f3e", CellID->296737644] }, Open ]], Cell[5698, 168, 124, 2, 70, "Text",ExpressionUUID->"b78619e6-772c-497e-8d81-70ff7608ded4", CellID->1569818398], Cell[CellGroupData[{ Cell[5847, 174, 2109, 54, 70, "Input",ExpressionUUID->"063819ed-e66d-4a60-8ebd-232860e32f3d", CellID->659086808], Cell[7959, 230, 128, 4, 70, "Output",ExpressionUUID->"b1b722c6-90c4-424c-ab1f-49ec098594f6", CellID->105124771] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8136, 240, 66, 1, 70, "Subsection",ExpressionUUID->"21744570-5a03-4bd7-a53c-991cea117cb4", CellID->461307998], Cell[8205, 243, 1855, 54, 70, "Text",ExpressionUUID->"2e224f66-6766-4de7-8d2d-3fec91f1795a", CellID->685256371], Cell[CellGroupData[{ Cell[10085, 301, 278, 9, 70, "Input",ExpressionUUID->"23431dbb-745a-492f-af9a-b34312c5a52f", CellID->312494485], Cell[10366, 312, 261, 9, 70, "Output",ExpressionUUID->"dc80ed5d-4ca5-43a4-a4ab-a86d21b21f4c", CellID->217163755] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)