Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ "c1", ",", "r1", ",", "c2", ",", "r2", ",", "c3", ",", "r3"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["pts", RowBox[{ "[[", "1", "]]"}]], ",", RowBox[{"Norm", "[", RowBox[{ SubscriptBox["pts", RowBox[{ "[[", "2", "]]"}]], "-", SubscriptBox["pts", RowBox[{ "[[", "1", "]]"}]]}], "]"}], ",", SubscriptBox["pts", RowBox[{ "[[", "3", "]]"}]], ",", RowBox[{"Norm", "[", RowBox[{ SubscriptBox["pts", RowBox[{ "[[", "3", "]]"}]], "-", SubscriptBox["pts", RowBox[{ "[[", "4", "]]"}]]}], "]"}], ",", SubscriptBox["pts", RowBox[{ "[[", "5", "]]"}]], ",", RowBox[{"Norm", "[", RowBox[{ SubscriptBox["pts", RowBox[{ "[[", "5", "]]"}]], "-", SubscriptBox["pts", RowBox[{ "[[", "6", "]]"}]]}], "]"}]}], "}"}]}], ";", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"c1", "[", RowBox[{"[", "2", "]"}], "]"}], "!=", " ", RowBox[{"c2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"y", "-", RowBox[{"c1", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r1", ")"}], "^", "2"}]}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"y", "-", RowBox[{"c2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r2", ")"}], "^", "2"}]}]}], ",", "y"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c1", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "-", RowBox[{"c1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r1", ")"}], "^", "2"}]}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "-", RowBox[{"c2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r2", ")"}], "^", "2"}]}]}], ",", "y"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"k", "=", RowBox[{"Array", "[", RowBox[{"f", ",", "3"}], "]"}]}]}], ",", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<=", "3"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "=", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"20", "*", RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}]}]}]}], ",", RowBox[{"a", "=", RowBox[{"p", "[", "X", "]"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"c1", "[", RowBox[{"[", "2", "]"}], "]"}], "!=", RowBox[{"c2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"f", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{"X", ",", RowBox[{"(", RowBox[{"y", "/.", "a"}], ")"}]}], "}"}]}], ",", RowBox[{ RowBox[{"f", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"y", "/.", "a"}], ")"}], ",", "X"}], "}"}]}]}], "]"}]}], "}"}]}], "]"}]}], "}"}], ";", RowBox[{"If", "[", RowBox[{"l", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p1", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"c1", "[", RowBox[{"[", "2", "]"}], "]"}], "!=", RowBox[{"c3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"y1", "-", RowBox[{"c1", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r1", ")"}], "^", "2"}]}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"y1", "-", RowBox[{"c3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c3", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r3", ")"}], "^", "2"}]}]}], ",", "y1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c1", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y1", "-", RowBox[{"c1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r1", ")"}], "^", "2"}]}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y1", "-", RowBox[{"c3", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r3", ")"}], "^", "2"}]}]}], ",", "y1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"k1", "=", RowBox[{"Array", "[", RowBox[{"f1", ",", "3"}], "]"}]}]}], ",", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<=", "3"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "=", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"20", "*", RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}]}]}]}], ",", RowBox[{"b", "=", RowBox[{"p1", "[", "X", "]"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"c1", "[", RowBox[{"[", "2", "]"}], "]"}], "!=", RowBox[{"c3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"f1", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{"X", ",", RowBox[{"(", RowBox[{"y1", "/.", "b"}], ")"}]}], "}"}]}], ",", RowBox[{ RowBox[{"f1", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"y1", "/.", "b"}], ")"}], ",", "X"}], "}"}]}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"p2", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"c2", "[", RowBox[{"[", "2", "]"}], "]"}], "!=", RowBox[{"c3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"y2", "-", RowBox[{"c2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r2", ")"}], "^", "2"}]}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"y2", "-", RowBox[{"c3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c3", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r3", ")"}], "^", "2"}]}]}], ",", "y2"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y2", "-", RowBox[{"c2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r1", ")"}], "^", "2"}]}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"c3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y2", "-", RowBox[{"c3", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{ RowBox[{"(", "r3", ")"}], "^", "2"}]}]}], ",", "y2"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"k2", "=", RowBox[{"Array", "[", RowBox[{"f2", ",", "3"}], "]"}]}]}], ",", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<=", "3"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "=", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"20", "*", RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}]}]}]}], ",", RowBox[{"b", "=", RowBox[{"p2", "[", "X", "]"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"c2", "[", RowBox[{"[", "2", "]"}], "]"}], "!=", RowBox[{"c3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"f2", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{"X", ",", RowBox[{"(", RowBox[{"y2", "/.", "b"}], ")"}]}], "}"}]}], ",", RowBox[{ RowBox[{"f2", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"y2", "/.", "b"}], ")"}], ",", "X"}], "}"}]}]}], "]"}]}], "}"}]}], "]"}]}], "}"}]}], "]"}], ";", " ", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", " ", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Opacity", "[", ".5", "]"}], ",", " ", "Orange", ",", RowBox[{"Disk", "[", RowBox[{"c1", ",", "r1"}], "]"}], ",", " ", "Blue", ",", RowBox[{"Disk", "[", RowBox[{"c2", ",", "r2"}], "]"}], ",", " ", RowBox[{"Opacity", "[", "1", "]"}], ",", "Red", ",", RowBox[{"Line", "[", "k", "]"}], ",", " ", "Orange", ",", RowBox[{ RowBox[{ RowBox[{"Disk", "[", RowBox[{"#", ",", ".05"}], "]"}], "&"}], "/@", RowBox[{"Take", "[", RowBox[{"pts", ",", "2"}], "]"}]}], ",", " ", "Blue", ",", RowBox[{ RowBox[{ RowBox[{"Disk", "[", RowBox[{"#", ",", ".05"}], "]"}], "&"}], "/@", RowBox[{"Take", "[", RowBox[{"pts", ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "]"}]}], ",", " ", RowBox[{"If", "[", RowBox[{"l", ",", RowBox[{"{", " ", RowBox[{"Yellow", ",", RowBox[{"Line", "[", "k1", "]"}], ",", " ", "Purple", ",", RowBox[{"Line", "[", "k2", "]"}], ",", " ", "Green", ",", " ", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Disk", "[", RowBox[{"c3", ",", "r3"}], "]"}], ",", " ", RowBox[{"Opacity", "[", "1", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Disk", "[", RowBox[{"#", ",", ".05"}], "]"}], "&"}], "/@", RowBox[{"Take", "[", RowBox[{"pts", ",", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}]}], "]"}]}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "->", "3"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"450", ",", "450"}], "}"}]}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pts", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.34", ",", RowBox[{"-", ".26"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.35", ",", RowBox[{"-", "1.63"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.22"}], ",", RowBox[{"-", "1.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", ".5"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", "Locator", ",", " ", RowBox[{"Appearance", "->", " ", "None"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"l", ",", "True", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", RowBox[{"ControlPlacement", "->", "Top"}]}], "}"}], ",", RowBox[{"ControllerLinking", "->", "True"}], ",", RowBox[{"TrackedSymbols", "->", "True"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, 3.5289160228997684`*^9, { 3.5289164856052337`*^9, 3.528916489615463*^9}, { 3.5289167451590796`*^9, 3.528916770077504*^9}, { 3.528916994732354*^9, 3.5289170038188734`*^9}, { 3.529813273071289*^9, 3.529813485524414*^9}, {3.529813544102539*^9, 3.529813544196289*^9}, {3.529813644336914*^9, 3.529813650821289*^9}, {3.529813939993164*^9, 3.529814016321289*^9}, 3.529814059243164*^9, {3.529814197461914*^9, 3.529814208508789*^9}, {3.529814264899414*^9, 3.529814277446289*^9}, {3.529814322555664*^9, 3.529814323852539*^9}, {3.529814403086914*^9, 3.529814407993164*^9}, {3.529814446805664*^9, 3.529814501649414*^9}, {3.529814542258789*^9, 3.529814587211914*^9}, {3.529814681305664*^9, 3.529814697133789*^9}, {3.529814828649414*^9, 3.529814867274414*^9}, {3.529814908243164*^9, 3.529814923383789*^9}, {3.529815078977539*^9, 3.529815080024414*^9}, {3.529815215836914*^9, 3.529815239508789*^9}, {3.529815349243164*^9, 3.529815352711914*^9}, {3.529815418852539*^9, 3.529815421961914*^9}, {3.529815470180664*^9, 3.529815475008789*^9}, {3.529815515399414*^9, 3.529815571477539*^9}, {3.529815606540039*^9, 3.529815690149414*^9}, {3.529867991227253*^9, 3.529867991318838*^9}, {3.529935581966354*^9, 3.52993559922608*^9}, {3.5299357113262887`*^9, 3.529935726190775*^9}, {3.5299357583699927`*^9, 3.5299359306522193`*^9}, {3.5299359706132145`*^9, 3.5299361031024623`*^9}, {3.529936175266678*^9, 3.5299362852526755`*^9}, {3.529936317166867*^9, 3.5299364883559837`*^9}, 3.760781923726386*^9}], Cell[BoxData[""], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.35696210375764*^9, {3.528916152971208*^9, 3.5289161780186405`*^9}, 3.7607819237183228`*^9}, CellID->199845453], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`l$$ = True, $CellContext`pts$$ = {{ 1.7250000000000005`, -0.06999999999999984}, { 1.46, -1.5999999999999999`}, {0.1499999999999999, 1.96}, { 0.8700000000000001, 1.5899999999999999`}, {-1.26, -1.0899999999999999`}, {-1.5, 0.27}}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`pts$$], {{ 1.7250000000000005`, -0.06999999999999984}, { 1.46, -1.5999999999999999`}, {0.1499999999999999, 1.96}, { 0.8700000000000001, 1.5899999999999999`}, {-1.26, -1.0899999999999999`}, {-1.5, 0.27}}}, {-3, -3}, {3, 3}}, {{ Hold[$CellContext`l$$], True, "add third circle"}, { True, False}}}, Typeset`size$$ = {450., {223., 227.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`pts$23228$$ = {0, 0}, $CellContext`l$23229$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`l$$ = True, $CellContext`pts$$ = {{ 1.7250000000000005`, -0.06999999999999984}, { 1.46, -1.5999999999999999`}, {0.1499999999999999, 1.96}, { 0.8700000000000001, 1.5899999999999999`}, {-1.26, -1.0899999999999999`}, {-1.5, 0.27}}}, "ControllerVariables" :> { Hold[$CellContext`pts$$, $CellContext`pts$23228$$, {0, 0}], Hold[$CellContext`l$$, $CellContext`l$23229$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ({$CellContext`c1, $CellContext`r1, $CellContext`c2, \ $CellContext`r2, $CellContext`c3, $CellContext`r3} = { Part[$CellContext`pts$$, 1], Norm[ Part[$CellContext`pts$$, 2] - Part[$CellContext`pts$$, 1]], Part[$CellContext`pts$$, 3], Norm[ Part[$CellContext`pts$$, 3] - Part[$CellContext`pts$$, 4]], Part[$CellContext`pts$$, 5], Norm[ Part[$CellContext`pts$$, 5] - Part[$CellContext`pts$$, 6]]}; {$CellContext`p[ Pattern[$CellContext`x, Blank[]]] := If[Part[$CellContext`c1, 2] != Part[$CellContext`c2, 2], Part[ Part[ Solve[($CellContext`y - Part[$CellContext`c1, 2])^2 + ($CellContext`x - Part[$CellContext`c1, 1])^2 - $CellContext`r1^2 == ($CellContext`y - Part[$CellContext`c2, 2])^2 + ($CellContext`x - Part[$CellContext`c2, 1])^2 - $CellContext`r2^2, $CellContext`y], 1], 1], Part[ Part[ Solve[($CellContext`x - Part[$CellContext`c1, 2])^2 + ($CellContext`y - Part[$CellContext`c1, 1])^2 - $CellContext`r1^2 == ($CellContext`x - Part[$CellContext`c2, 2])^2 + ($CellContext`y - Part[$CellContext`c2, 1])^2 - $CellContext`r2^2, $CellContext`y], 1], 1]]; $CellContext`k = Array[$CellContext`f, 3], For[$CellContext`i = 1, $CellContext`i <= 3, Increment[$CellContext`i], {$CellContext`X = -20 + 20 ($CellContext`i - 1), $CellContext`a = $CellContext`p[$CellContext`X], If[ Part[$CellContext`c1, 2] != Part[$CellContext`c2, 2], $CellContext`f[$CellContext`i] = {$CellContext`X, ReplaceAll[$CellContext`y, $CellContext`a]}, \ $CellContext`f[$CellContext`i] = { ReplaceAll[$CellContext`y, $CellContext`a], \ $CellContext`X}]}]}; If[$CellContext`l$$, {$CellContext`p1[ Pattern[$CellContext`x, Blank[]]] := If[Part[$CellContext`c1, 2] != Part[$CellContext`c3, 2], Part[ Part[ Solve[($CellContext`y1 - Part[$CellContext`c1, 2])^2 + ($CellContext`x - Part[$CellContext`c1, 1])^2 - $CellContext`r1^2 == ($CellContext`y1 - Part[$CellContext`c3, 2])^2 + ($CellContext`x - Part[$CellContext`c3, 1])^2 - $CellContext`r3^2, $CellContext`y1], 1], 1], Part[ Part[ Solve[($CellContext`x - Part[$CellContext`c1, 2])^2 + ($CellContext`y1 - Part[$CellContext`c1, 1])^2 - $CellContext`r1^2 == ($CellContext`x - Part[$CellContext`c3, 2])^2 + ($CellContext`y1 - Part[$CellContext`c3, 1])^2 - $CellContext`r3^2, $CellContext`y1], 1], 1]]; $CellContext`k1 = Array[$CellContext`f1, 3], For[$CellContext`i = 1, $CellContext`i <= 3, Increment[$CellContext`i], {$CellContext`X = -20 + 20 ($CellContext`i - 1), $CellContext`b = $CellContext`p1[$CellContext`X], If[ Part[$CellContext`c1, 2] != Part[$CellContext`c3, 2], $CellContext`f1[$CellContext`i] = {$CellContext`X, ReplaceAll[$CellContext`y1, $CellContext`b]}, \ $CellContext`f1[$CellContext`i] = { ReplaceAll[$CellContext`y1, $CellContext`b], \ $CellContext`X}]}], $CellContext`p2[ Pattern[$CellContext`x, Blank[]]] := If[Part[$CellContext`c2, 2] != Part[$CellContext`c3, 2], Part[ Part[ Solve[($CellContext`y2 - Part[$CellContext`c2, 2])^2 + ($CellContext`x - Part[$CellContext`c2, 1])^2 - $CellContext`r2^2 == ($CellContext`y2 - Part[$CellContext`c3, 2])^2 + ($CellContext`x - Part[$CellContext`c3, 1])^2 - $CellContext`r3^2, $CellContext`y2], 1], 1], Part[ Part[ Solve[($CellContext`x - Part[$CellContext`c2, 2])^2 + ($CellContext`y2 - Part[$CellContext`c2, 1])^2 - $CellContext`r1^2 == ($CellContext`x - Part[$CellContext`c3, 2])^2 + ($CellContext`y2 - Part[$CellContext`c3, 1])^2 - $CellContext`r3^2, $CellContext`y2], 1], 1]]; $CellContext`k2 = Array[$CellContext`f2, 3], For[$CellContext`i = 1, $CellContext`i <= 3, Increment[$CellContext`i], {$CellContext`X = -20 + 20 ($CellContext`i - 1), $CellContext`b = $CellContext`p2[$CellContext`X], If[ Part[$CellContext`c2, 2] != Part[$CellContext`c3, 2], $CellContext`f2[$CellContext`i] = {$CellContext`X, ReplaceAll[$CellContext`y2, $CellContext`b]}, \ $CellContext`f2[$CellContext`i] = { ReplaceAll[$CellContext`y2, $CellContext`b], \ $CellContext`X}]}]}]; Graphics[{ AbsoluteThickness[2], EdgeForm[{Thick, Black}], Opacity[0.5], Orange, Disk[$CellContext`c1, $CellContext`r1], Blue, Disk[$CellContext`c2, $CellContext`r2], Opacity[1], Red, Line[$CellContext`k], Orange, Map[Disk[#, 0.05]& , Take[$CellContext`pts$$, 2]], Blue, Map[Disk[#, 0.05]& , Take[$CellContext`pts$$, {3, 4}]], If[$CellContext`l$$, {Yellow, Line[$CellContext`k1], Purple, Line[$CellContext`k2], Green, Opacity[0.5], Disk[$CellContext`c3, $CellContext`r3], Opacity[1], Map[Disk[#, 0.05]& , Take[$CellContext`pts$$, {5, 6}]]}]}, PlotRange -> 3, ImageSize -> {450, 450}]), "Specifications" :> {{{$CellContext`pts$$, {{ 1.7250000000000005`, -0.06999999999999984}, { 1.46, -1.5999999999999999`}, {0.1499999999999999, 1.96}, { 0.8700000000000001, 1.5899999999999999`}, {-1.26, -1.0899999999999999`}, {-1.5, 0.27}}}, {-3, -3}, {3, 3}, ControlType -> Locator, Appearance -> None}, {{$CellContext`l$$, True, "add third circle"}, { True, False}, ControlPlacement -> Top}}, "Options" :> { ControllerLinking -> True, TrackedSymbols -> True}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{501., {268., 274.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.760781923718589*^9}, CellID->210576608] }, {3}]]