Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"y", " ", "=", " ", "R"}], "}"}], ",", " ", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Text", "@", RowBox[{"Row", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "Red", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "Black", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "Purple", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "Orange", ",", "12"}], "]"}]}], " ", "}"}], ",", RowBox[{"Alignment", "->", "Right"}]}], "]"}], ",", " ", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"N", "@", "R"}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", "Red", ",", "\"\\"", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"N", "@", "\[Theta]"}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", "Black", ",", "\"\\"", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ RowBox[{"N", "@", "2"}], " ", "Pi", " ", "\[Theta]", " ", RowBox[{"R", "/", "360"}]}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", "Purple", ",", "\"\\"", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"N", "@", "1"}], "/", "2"}], " ", RowBox[{"R", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Pi", " ", RowBox[{"\[Theta]", " ", "/", "360"}]}], " ", "-", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "Pi", " ", RowBox[{"\[Theta]", " ", "/", "360"}]}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", "Orange", ",", "\"\\"", ",", "12"}], "]"}]}], " ", "}"}], ",", RowBox[{"Alignment", "->", "Right"}]}], "]"}], ",", "\"\< \>\"", ",", " ", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "Brown", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{".2", ",", ".2", ",", ".75"}], "]"}], ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "Green", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "Gray", ",", "12"}], "]"}]}], " ", "}"}], ",", RowBox[{"Alignment", "->", "Right"}]}], "]"}], ",", " ", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ RowBox[{"N", "@", "R"}], " ", "-", " ", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", "Brown", ",", "\"\\"", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ RowBox[{"N", "@", "R"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".2", ",", ".2", ",", ".75"}], "]"}], ",", "\"\\"", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ RowBox[{"N", "@", "2"}], " ", "R", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", "Green", ",", "\"\\"", ",", "12"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"N", "@", "1"}], "/", "2"}], " ", RowBox[{"R", "^", "2"}], RowBox[{"(", RowBox[{"Sin", "[", RowBox[{"2", " ", "Pi", " ", RowBox[{"\[Theta]", " ", "/", "360"}]}], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"NumberPadding", "->", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<0\>\""}], "}"}]}]}], "]"}], ",", "Gray", ",", "\"\\"", ",", "12"}], "]"}]}], " ", "}"}], ",", RowBox[{"Alignment", "->", "Right"}]}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"ImageSize", "->", " ", RowBox[{"{", RowBox[{"490", ",", "60"}], "}"}]}]}], "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Yellow", ",", " ", RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", " ", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "R", ",", " ", RowBox[{"{", RowBox[{"0", " ", ",", " ", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "R", ",", " ", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"Pi", "/", "2"}], "+", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], ",", "Pi"}], "}"}]}], "]"}], ",", " ", "Red", ",", RowBox[{"(*", RowBox[{ RowBox[{"Angle", " ", "Lines"}], ",", " ", "Radius"}], "*)"}], " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "14"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}], "/", "2"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "R"}], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", " ", "Purple", ",", RowBox[{"(*", "Arc", "*)"}], " ", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "R", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], " ", ",", " ", RowBox[{ RowBox[{"Pi", "/", "2"}], "+", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}]}], " ", "}"}]}], "]"}], ",", " ", "Brown", ",", RowBox[{"(*", "Sagitta", "*)"}], " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "14"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{"0", ",", "R"}], "}"}]}], ")"}], "/", "2"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0"}], "}"}]}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "R"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{".2", ",", ".2", ",", ".75"}], "]"}], ",", RowBox[{"(*", "Apothem", "*)"}], " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "14"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}], "/", "2"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0"}], "}"}]}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", " ", "Green", ",", RowBox[{"(*", RowBox[{"Chord", " ", "line"}], "*)"}], " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "R"}], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", " ", "Black", ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "14"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "R"}], "/", "15"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "14"}], "]"}], ",", RowBox[{"1.05", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "R"}], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}]}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "14"}], "]"}], ",", RowBox[{"1.05", RowBox[{"{", RowBox[{"0", ",", "R"}], "}"}]}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "14"}], "]"}], ",", RowBox[{"1.05", RowBox[{"{", " ", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{"Pi", " ", RowBox[{"\[Theta]", "/", "360"}]}]}], "]"}]}]}], "}"}]}]}], "]"}]}], " ", "}"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"490", ",", "250"}], "}"}]}]}], "]"}]}], " ", "}"}], ",", RowBox[{"Spacings", "->", "2"}]}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"R", ",", "2.", ",", "\"\\""}], "}"}], ",", "1", ",", "50", ",", ".01", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]", ",", "60", ",", "\"\\""}], "}"}], ",", "2", ",", "179", ",", ".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.3878089930946865`*^9, 3.38780911160983*^9}, {3.3878091736515155`*^9, 3.3878091945924625`*^9}, {3.3878100434569254`*^9, 3.387810074823279*^9}, {3.387810135292641*^9, 3.3878101682112885`*^9}, {3.387810236492195*^9, 3.38781030910951*^9}, {3.3878107903506947`*^9, 3.3878107972108326`*^9}, {3.387811245282999*^9, 3.3878113532124987`*^9}, {3.387811408243825*^9, 3.3878115565730276`*^9}, {3.3878119103404894`*^9, 3.387811941537526*^9}, {3.387811975879304*^9, 3.3878120034709044`*^9}, {3.387812203512512*^9, 3.387812258675683*^9}, {3.3878190652662673`*^9, 3.3878190810195475`*^9}, {3.3878193372482057`*^9, 3.3878194323988204`*^9}, {3.387819463554863*^9, 3.387819464816728*^9}, {3.3878200432220535`*^9, 3.387820044644212*^9}, {3.387820134097765*^9, 3.387820439408958*^9}, {3.387821086204801*^9, 3.3878211554871874`*^9}, {3.3878211999028254`*^9, 3.3878212077744584`*^9}, {3.387821244989455*^9, 3.387821276496016*^9}, {3.387821320871595*^9, 3.387821322033312*^9}, {3.3878217017845125`*^9, 3.387821707142431*^9}, {3.387821758438236*^9, 3.387821758608488*^9}, {3.3878218021528387`*^9, 3.3878218269995575`*^9}, {3.3878218612301435`*^9, 3.3878218901328564`*^9}, {3.3878219204075966`*^9, 3.387821951092944*^9}, {3.3878220105608263`*^9, 3.387822048386726*^9}, {3.387822394147696*^9, 3.387822591619522*^9}, {3.3878228904611545`*^9, 3.3878229548963776`*^9}, {3.387822987764951*^9, 3.387823048024003*^9}, {3.387823092339493*^9, 3.3878231117882347`*^9}, {3.387823946204191*^9, 3.3878239464044952`*^9}, {3.387885892214965*^9, 3.3878858923852186`*^9}, {3.3878859571615915`*^9, 3.3878859880976176`*^9}, {3.387886172532016*^9, 3.387886219091286*^9}, {3.3878862584398284`*^9, 3.3878863024553137`*^9}, {3.3878863466710973`*^9, 3.3878863662702565`*^9}, {3.387886462783848*^9, 3.3878864986071453`*^9}, {3.387886576742992*^9, 3.38788663469864*^9}, {3.38788667348596*^9, 3.387886730610379*^9}, {3.387886767414769*^9, 3.387886836917486*^9}, {3.387886925489262*^9, 3.3878869420539064`*^9}, 3.387886985688826*^9, { 3.3878870230143585`*^9, 3.3878870937796416`*^9}, { 3.3878877741563606`*^9, 3.3878878900643873`*^9}, { 3.3878880248141165`*^9, 3.3878880515016932`*^9}, { 3.3878880882834826`*^9, 3.3878880958140855`*^9}, { 3.387888387336665*^9, 3.387888585147335*^9}, { 3.3878886244528666`*^9, 3.387888627968728*^9}, { 3.387888659461233*^9, 3.3878886655413694`*^9}, { 3.387888846132454*^9, 3.3878888908658295`*^9}, { 3.3878889264383993`*^9, 3.3878889831622267`*^9}, { 3.3878899654298162`*^9, 3.3878900054489574`*^9}, { 3.387890070895675*^9, 3.3878900827431836`*^9}, 3.3878901464773707`*^9, {3.3878902181933537`*^9, 3.387890242018563*^9}, {3.3878902792936487`*^9, 3.387890287736125*^9}, 3.387890321926652*^9, 3.3878903595823*^9, { 3.387890412700799*^9, 3.3878904153346915`*^9}, { 3.3878904485037093`*^9, 3.387890533899909*^9}, { 3.3878924988804736`*^9, 3.387892501183878*^9}, { 3.387894602726556*^9, 3.3878946136797514`*^9}, { 3.387894682227065*^9, 3.3878946865395927`*^9}, { 3.3878947415711946`*^9, 3.3878947659151*^9}, { 3.3878948366968036`*^9, 3.387894912119161*^9}, { 3.3878949808227262`*^9, 3.3878950843702636`*^9}, { 3.3878951148079586`*^9, 3.3878951214017506`*^9}, { 3.3878952155582924`*^9, 3.3878952598239174`*^9}, { 3.387902322555089*^9, 3.3879023405622387`*^9}, { 3.387902395394912*^9, 3.387902397127524*^9}, {3.387902468675398*^9, 3.3879024794216003`*^9}, {3.387902545270883*^9, 3.387902558400679*^9}, {3.3879026052012415`*^9, 3.38790263361408*^9}, {3.3885186568962708`*^9, 3.3885186601008787`*^9}, {3.3885187624680753`*^9, 3.3885187806241827`*^9}, 3.76079330276334*^9}, CellID->122289382], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`R$$ = 2., $CellContext`\[Theta]$$ = 60, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`R$$], 2., "radius r"}, 1, 50, 0.01}, {{ Hold[$CellContext`\[Theta]$$], 60, "angle at A"}, 2, 179, 0.01}}, Typeset`size$$ = {490., {164.5, 169.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`R$476$$ = 0, $CellContext`\[Theta]$477$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`R$$ = 2., $CellContext`\[Theta]$$ = 60}, "ControllerVariables" :> { Hold[$CellContext`R$$, $CellContext`R$476$$, 0], Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$477$$, 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`y$ = $CellContext`R$$}, Column[{ Graphics[ Text[ Row[{ Column[{ Style["radius r: ", "Label", Red, 12], Style["angle BAD: ", "Label", Black, 12], Style["arc length BCD: ", "Label", Purple, 12], Style[ "circular segment area BCD: ", "Label", Orange, 12]}, Alignment -> Right], Column[{ Style[ NumberForm[ N[$CellContext`R$$], {6, 4}, NumberPadding -> {"", "0"}], Red, "Label", 12], Style[ NumberForm[ N[$CellContext`\[Theta]$$], {6, 4}, NumberPadding -> {"", "0"}], Black, "Label", 12], Style[ NumberForm[((N[2] Pi) $CellContext`\[Theta]$$) ($CellContext`R$$/ 360), {6, 4}, NumberPadding -> {"", "0"}], Purple, "Label", 12], Style[ NumberForm[((N[1]/ 2) $CellContext`R$$^2) ((2 Pi) ($CellContext`\[Theta]$$/360) - Sin[(2 Pi) ($CellContext`\[Theta]$$/360)]), {6, 4}, NumberPadding -> {"", "0"}], Orange, "Label", 12]}, Alignment -> Right], " ", Column[{ Style["sagitta s: ", "Label", Brown, 12], Style["apothem a: ", "Label", RGBColor[0.2, 0.2, 0.75], 12], Style["chord length BD: ", "Label", Green, 12], Style["triangle area BAD: ", "Label", Gray, 12]}, Alignment -> Right], Column[{ Style[ NumberForm[ N[$CellContext`R$$] - $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], {6, 4}, NumberPadding -> {"", "0"}], Brown, "Label", 12], Style[ NumberForm[ N[$CellContext`R$$] Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], {6, 4}, NumberPadding -> {"", "0"}], RGBColor[0.2, 0.2, 0.75], "Label", 12], Style[ NumberForm[(N[2] $CellContext`R$$) Cos[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], {6, 4}, NumberPadding -> {"", "0"}], Green, "Label", 12], Style[ NumberForm[((N[1]/2) $CellContext`R$$^2) Sin[(2 Pi) ($CellContext`\[Theta]$$/360)], {6, 4}, NumberPadding -> {"", "0"}], Gray, "Label", 12]}, Alignment -> Right]}]], ImageSize -> {490, 60}], Graphics[{Yellow, AbsoluteThickness[2], Circle[{0, 0}, $CellContext`R$$, { 0, Pi/2 - Pi ($CellContext`\[Theta]$$/360)}], Circle[{0, 0}, $CellContext`R$$, { Pi/2 + Pi ($CellContext`\[Theta]$$/360), Pi}], Red, Text[ Style[ "r", "Label", 14], {$CellContext`R$$ Cos[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]}/2, {-1, 1}], Line[{{(-$CellContext`R$$) Cos[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]}, {0, 0}, {$CellContext`R$$ Cos[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]}}], Purple, Circle[{0, 0}, $CellContext`R$$, { Pi/2 - Pi ($CellContext`\[Theta]$$/360), Pi/2 + Pi ($CellContext`\[Theta]$$/360)}], Brown, Text[ Style[ "s", "Label", 14], ({0, $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]} + { 0, $CellContext`R$$})/2, {-2, 0}], Line[{{0, $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]}, { 0, $CellContext`R$$}}], RGBColor[0.2, 0.2, 0.75], Text[ Style[ "a", "Label", 14], { 0, $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]}/2, {-2, 0}], Line[{{0, 0}, { 0, $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]}}], Green, Line[{{(-$CellContext`R$$) Cos[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/ 360)]}, {$CellContext`R$$ Cos[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]}}], Black, Text[ Style["A", "Label", 14], {0, (-$CellContext`R$$)/15}], Text[ Style["B", "Label", 14], 1.05 {(-$CellContext`R$$) Cos[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]}], Text[ Style["C", "Label", 14], 1.05 {0, $CellContext`R$$}], Text[ Style["D", "Label", 14], 1.05 {$CellContext`R$$ Cos[Pi/2 - Pi ($CellContext`\[Theta]$$/360)], $CellContext`R$$ Sin[Pi/2 - Pi ($CellContext`\[Theta]$$/360)]}]}, ImageSize -> {490, 250}]}, Spacings -> 2]], "Specifications" :> {{{$CellContext`R$$, 2., "radius r"}, 1, 50, 0.01, Appearance -> "Labeled"}, {{$CellContext`\[Theta]$$, 60, "angle at A"}, 2, 179, 0.01, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{535., {224., 230.}}, 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.760793302763628*^9}, CellID->337699087] }, {2}]]