Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]", " ", "=", " ", RowBox[{"ArcCos", "[", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Text", "@", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Black", ",", "\"\\"", ",", "12"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{".12", ",", ".61", ",", ".78"}], "]"}], ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\< + \>\"", ",", "\"\\"", ",", "Black", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{"\"\<2 B\>\"", ",", "\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".47", ",", "0"}], "]"}], ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\< + \>\"", ",", "\"\\"", ",", "Black", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{"\"\< C\>\"", ",", "\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{".49", ",", "0", ",", "0"}], "]"}], ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\< = \>\"", ",", "Black", ",", "\"\\"", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"2", "\[Theta]", " ", "x"}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".12", ",", ".61", ",", ".78"}], "]"}], ",", "\"\\"", ",", "12"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< + \>\"", ",", "Black", ",", "\"\\"", ",", "12"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".47", ",", "0"}], "]"}], ",", "\"\\"", ",", "12"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< + \>\"", ",", "Black", ",", "\"\\"", ",", "12"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"Pi", "-", "\[Theta]"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".49", ",", "0", ",", "0"}], "]"}], ",", "\"\\"", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\< = \>\"", ",", "Black", ",", "\"\\"", ",", "12"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", "y", "+", "z"}], ")"}], "^", "2"}], "-", RowBox[{"y", "^", "2"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Pi"}], "-", RowBox[{"2", RowBox[{"ArcCos", "[", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], "]"}]}]}], ")"}], RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"Pi", "-", RowBox[{"2", RowBox[{"ArcSin", "[", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], "]"}]}]}], ")"}], "x"}]}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", "Black", ",", "\"\\"", ",", "12"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"ImageSize", "->", " ", RowBox[{"{", RowBox[{"450", ",", "45"}], "}"}]}]}], "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "x"}], "]"}], ",", " ", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ",", "0"}], "}"}], ",", RowBox[{"x", "+", "y"}]}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", "x", ")"}]}], RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", "x", ")"}], RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}], "^", "2"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "+", "y", "+", "z"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z", "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}], "^", "2"}]}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z", "-", RowBox[{ RowBox[{"(", "y", ")"}], RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", "y", ")"}], RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}], "^", "2"}]}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "+", "z"}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}], "/", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "z"}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "/", "15"}]}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "/", "2"}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}], "/", "9"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "+", RowBox[{"z", "/", "2"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}], "/", "9"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "+", "z", "+", RowBox[{"x", "/", "2"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}], "/", "9"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "z", "+", RowBox[{"y", "/", "2"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}], "/", "9"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[Theta]\>\"", ",", "Italic"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "z", "+", "y", " ", "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "/", "15"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "/", "15"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{".12", ",", ".61", ",", ".78"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "/", "9"}]}], ",", "0"}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".47", ",", "0"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", "x", ")"}]}], RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", "x", ")"}], RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}], "^", "2"}]}], "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z", "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}], "^", "2"}]}], "]"}]}]}], "}"}]}], ")"}], "/", "2"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "/", "9"}]}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{".49", ",", "0", ",", "0"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3", "x"}], "+", "z", "+", RowBox[{"2", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "/", "9"}]}], ",", "0"}], "}"}]}], "]"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".47", ",", "0"}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z", "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}], "^", "2"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", "x", ")"}]}], RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", "x", ")"}], RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}], "^", "2"}]}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z", "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}], RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}], "^", "2"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", "x", ")"}]}], RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", "x", ")"}]}], RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], ")"}], "^", "2"}]}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{".12", ",", ".61", ",", ".78"}], "]"}], ",", " ", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "x", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Pi", "/", "2"}], "+", RowBox[{"ArcSin", "[", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], "]"}]}], ",", " ", RowBox[{ RowBox[{"3", RowBox[{"Pi", "/", "2"}]}], "-", RowBox[{"ArcSin", "[", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], "]"}]}]}], "}"}]}], "]"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{".49", ",", "0", ",", "0"}], "]"}], ",", " ", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ",", "0"}], "}"}], ",", RowBox[{"x", "+", "y"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], "-", RowBox[{"ArcSin", "[", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Pi", "/", "2"}], "+", RowBox[{"ArcSin", "[", RowBox[{"y", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "y", "+", "z"}], ")"}]}], "]"}]}]}], "}"}]}], "]"}]}], " ", "}"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"450", ",", "150"}], "}"}]}]}], "]"}]}], " ", "}"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "2.", ",", "\"\\""}], "}"}], ",", "1", ",", "10", ",", ".01", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "1.", ",", "\"\\""}], "}"}], ",", "0", ",", "5", ",", ".01", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"z", ",", "1.", ",", "\"\\""}], "}"}], ",", ".1", ",", "5", ",", ".01", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, {3.3833186437008457`*^9, 3.38331865889269*^9}, {3.38331874827121*^9, 3.3833187887894726`*^9}, {3.3833188437384853`*^9, 3.38331885192025*^9}, {3.383318937743658*^9, 3.38331898085565*^9}, {3.38331992743081*^9, 3.383319931917485*^9}, {3.3833199655775642`*^9, 3.3833199761933584`*^9}, {3.383320143872311*^9, 3.3833201529452667`*^9}, {3.3833201853915987`*^9, 3.3833203526904945`*^9}, {3.3833203922069225`*^9, 3.3833204611967316`*^9}, {3.383320499974037*^9, 3.3833205327524776`*^9}, {3.383320755301363*^9, 3.383320781540139*^9}, {3.3833208186249437`*^9, 3.3833208303222303`*^9}, {3.383320864032047*^9, 3.383320922047783*^9}, {3.3833211684018483`*^9, 3.383321174470929*^9}, {3.3833212075104136`*^9, 3.3833213557023687`*^9}, {3.383321882172651*^9, 3.383321963042161*^9}, {3.3833219931867085`*^9, 3.3833219969723034`*^9}, {3.383322027988139*^9, 3.383322036250349*^9}, 3.3833223626287575`*^9, 3.383322397974163*^9, {3.3833913704383893`*^9, 3.383391458711234*^9}, {3.3833915043996406`*^9, 3.383391694893161*^9}, {3.3833918587618356`*^9, 3.3833919121717377`*^9}, {3.3833921174626055`*^9, 3.383392170630012*^9}, {3.383392457293653*^9, 3.383392539060195*^9}, {3.3833925812554965`*^9, 3.3833926336646814`*^9}, {3.383392675331324*^9, 3.38339270026469*^9}, {3.38339516993314*^9, 3.38339518049194*^9}, { 3.383395339386796*^9, 3.3833954432468395`*^9}, { 3.3833956801465607`*^9, 3.383395725584885*^9}, { 3.383396450386963*^9, 3.3833964651216764`*^9}, { 3.383396511806611*^9, 3.383396595213292*^9}, 3.3833968073518934`*^9, {3.383396958521763*^9, 3.3833969726064095`*^9}, {3.383397526677826*^9, 3.3833975320859795`*^9}, {3.383397603022933*^9, 3.3833976642151937`*^9}, {3.383397707230048*^9, 3.3833977159031253`*^9}, 3.383397895372384*^9, { 3.383397949022739*^9, 3.383397950805409*^9}, { 3.3833984506673727`*^9, 3.383398494281226*^9}, { 3.3833985481012993`*^9, 3.3833985593680615`*^9}, { 3.383398590374192*^9, 3.3833987796157427`*^9}, { 3.3833988107220216`*^9, 3.383398811823661*^9}, { 3.383398849329461*^9, 3.383398861177088*^9}, { 3.3833994462957296`*^9, 3.383399459024032*^9}, { 3.3833995007740655`*^9, 3.3833995879894753`*^9}, { 3.383399734890709*^9, 3.38339983554993*^9}, { 3.3833998712230043`*^9, 3.383399899354858*^9}, { 3.3834000032894907`*^9, 3.3834000138051353`*^9}, { 3.3834000465839033`*^9, 3.3834000499789543`*^9}, { 3.3834001131930027`*^9, 3.3834001330124903`*^9}, { 3.38340017358285*^9, 3.383400289164811*^9}, { 3.3834003470208883`*^9, 3.383400460469675*^9}, { 3.3834006114775763`*^9, 3.3834006145313272`*^9}, 3.3834955875579996`*^9, {3.38349564055766*^9, 3.3834956646200066`*^9}, {3.3834957024947643`*^9, 3.3834957791810207`*^9}, {3.3839172779198656`*^9, 3.3839173474354906`*^9}, {3.3846271658214417`*^9, 3.384627169743292*^9}, {3.384627208961791*^9, 3.38462725366463*^9}, {3.384627284101935*^9, 3.3846273037268095`*^9}, {3.3846273454296675`*^9, 3.3846273942887297`*^9}, {3.385725161984855*^9, 3.3857251674066954`*^9}, 3.3857252024220963`*^9, 3.3857252475624323`*^9, 3.760833741593992*^9}, CellID->122289382], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`x$$ = 2., $CellContext`y$$ = 1., $CellContext`z$$ = 1., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x$$], 2., "x"}, 1, 10, 0.01}, {{ Hold[$CellContext`y$$], 1., "y"}, 0, 5, 0.01}, {{ Hold[$CellContext`z$$], 1., "z"}, 0.1, 5, 0.01}}, Typeset`size$$ = {450., {97.5, 102.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`x$1632$$ = 0, $CellContext`y$1633$$ = 0, $CellContext`z$1634$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`x$$ = 2., $CellContext`y$$ = 1., $CellContext`z$$ = 1.}, "ControllerVariables" :> { Hold[$CellContext`x$$, $CellContext`x$1632$$, 0], Hold[$CellContext`y$$, $CellContext`y$1633$$, 0], Hold[$CellContext`z$$, $CellContext`z$1634$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> With[{$CellContext`\[Theta]$ = ArcCos[$CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)]}, Column[{ Graphics[ Text[ Row[{ Style["belt length: ", Black, "Label", 12], Style["A", "Label", RGBColor[0.12, 0.61, 0.78], 12], Style[" + ", "Label", Black, 12], Style["2 B", "Label", RGBColor[1, 0.47, 0], 12], Style[" + ", "Label", Black, 12], Style[" C", "Label", RGBColor[0.49, 0, 0], 12], Style[" = ", Black, "Label", 12], Style[ NumberForm[( 2 $CellContext`\[Theta]$) $CellContext`x$$, {6, 4}, NumberPadding -> {"", "0"}], RGBColor[0.12, 0.61, 0.78], "Label", 12], Style[" + ", Black, "Label", 12], Style[ NumberForm[( 2 (2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)) Sin[$CellContext`\[Theta]$], {6, 4}, NumberPadding -> {"", "0"}], RGBColor[1, 0.47, 0], "Label", 12], Style[" + ", Black, "Label", 12], Style[ NumberForm[( 2 (Pi - $CellContext`\[Theta]$)) ($CellContext`x$$ + \ $CellContext`y$$), {6, 4}, NumberPadding -> {"", "0"}], RGBColor[0.49, 0, 0], "Label", 12], Style[" = ", Black, "Label", 12], Style[ NumberForm[ 2 Sqrt[( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)^2 - $CellContext`y$$^2] + (2 Pi - 2 ArcCos[$CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)]) ($CellContext`x$$ + $CellContext`y$$) + (Pi - 2 ArcSin[$CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)]) $CellContext`x$$, {6, 4}, NumberPadding -> {"", "0"}], Black, "Label", 12]}]], ImageSize -> {450, 45}], Graphics[{ Circle[{0, 0}, $CellContext`x$$], Circle[{ 2 $CellContext`x$$ + $CellContext`y$$ + $CellContext`z$$, 0}, $CellContext`x$$ + $CellContext`y$$], Line[{{(-$CellContext`x$$) ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)), $CellContext`x$$ Sqrt[1 - ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$))^2]}, {0, 0}, { 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$, 0}, { 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$ - ($CellContext`x$$ + $CellContext`y$$) \ ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)), ($CellContext`x$$ + $CellContext`y$$) Sqrt[1 - ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$))^2]}}], Line[{{0, 0}, { 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$ - $CellContext`y$$ ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)), $CellContext`y$$ Sqrt[1 - ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$))^2]}}], Line[{{2 $CellContext`x$$ + $CellContext`z$$, \ (-($CellContext`x$$ + $CellContext`y$$))/15}, { 2 $CellContext`x$$ + $CellContext`z$$, \ ($CellContext`x$$ + $CellContext`y$$)/15}}], Text[ Style[ "x", Italic], {$CellContext`x$$/ 2, (-($CellContext`x$$ + $CellContext`y$$))/9}], Text[ Style[ "z", Italic], {$CellContext`x$$ + $CellContext`z$$/ 2, (-($CellContext`x$$ + $CellContext`y$$))/9}], Text[ Style[ "x", Italic], {$CellContext`x$$ + $CellContext`z$$ + \ $CellContext`x$$/2, (-($CellContext`x$$ + $CellContext`y$$))/9}], Text[ Style["y", Italic], { 2 $CellContext`x$$ + $CellContext`z$$ + $CellContext`y$$/ 2, (-($CellContext`x$$ + $CellContext`y$$))/9}], Text[ Style["\[Theta]", Italic], { 2 $CellContext`x$$ + $CellContext`z$$ + $CellContext`y$$ - \ ($CellContext`x$$ + $CellContext`y$$)/ 15, ($CellContext`x$$ + $CellContext`y$$)/15}], Text[ Style["A", "Label", RGBColor[ 0.12, 0.61, 0.78]], {-$CellContext`x$$ - ($CellContext`x$$ + \ $CellContext`y$$)/9, 0}], Text[ Style["B", "Label", RGBColor[ 1, 0.47, 0]], ({(-$CellContext`x$$) ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)), $CellContext`x$$ Sqrt[1 - ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$))^2]} + { 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$ - ($CellContext`x$$ + $CellContext`y$$) \ ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)), ($CellContext`x$$ + $CellContext`y$$) Sqrt[1 - ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$))^2]})/2 + ($CellContext`x$$ + $CellContext`y$$)/9], Text[ Style["C", "Label", RGBColor[0.49, 0, 0]], { 3 $CellContext`x$$ + $CellContext`z$$ + 2 $CellContext`y$$ + ($CellContext`x$$ + \ $CellContext`y$$)/9, 0}], RGBColor[1, 0.47, 0], Line[{{2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$ - ($CellContext`x$$ + $CellContext`y$$) \ ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)), ($CellContext`x$$ + $CellContext`y$$) Sqrt[1 - ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$))^2]}, {(-$CellContext`x$$) ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)), $CellContext`x$$ Sqrt[1 - ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$))^2]}}], Line[{{2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$ - ($CellContext`x$$ + $CellContext`y$$) \ ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)), (-($CellContext`x$$ + $CellContext`y$$)) Sqrt[1 - ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$))^2]}, {(-$CellContext`x$$) ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)), (-$CellContext`x$$) Sqrt[1 - ($CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$))^2]}}], RGBColor[0.12, 0.61, 0.78], Circle[{0, 0}, $CellContext`x$$, { Pi/2 + ArcSin[$CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)], 3 (Pi/2) - ArcSin[$CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)]}], RGBColor[0.49, 0, 0], Circle[{ 2 $CellContext`x$$ + $CellContext`y$$ + $CellContext`z$$, 0}, $CellContext`x$$ + $CellContext`y$$, {(-Pi)/2 - ArcSin[$CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)], Pi/2 + ArcSin[$CellContext`y$$/( 2 $CellContext`x$$ + $CellContext`y$$ + \ $CellContext`z$$)]}]}, ImageSize -> {450, 150}]}]], "Specifications" :> {{{$CellContext`x$$, 2., "x"}, 1, 10, 0.01, Appearance -> "Labeled"}, {{$CellContext`y$$, 1., "y"}, 0, 5, 0.01, Appearance -> "Labeled"}, {{$CellContext`z$$, 1., "z"}, 0.1, 5, 0.01, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{495., {171., 177.}}, 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.760833741594322*^9}, CellID->122448290] }, {2}]]