Notebook[{Cell[CellGroupData[{Cell["Basic Examples", "Subsection", CellID -> 285421464], Cell["Compute the cotangent of an angle:", "Text", CellChangeTimes -> {{3.742566273615699*^9, 3.7425663407516985*^9}, 3.742911636991931*^9, 3.7429155081990128*^9}, CellID -> 25463679], Cell[CellGroupData[{Cell[BoxData[RowBox[{InterpretationBox[ FrameBox[TemplateBox[{GraphicsBox[{RGBColor[0.9882352941176471, 0.4, 0.25098039215686274], Thickness[Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1], TemplateBox[{3}, "Spacer1"], StyleBox["\"CotDegree\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78*Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction -> (PaneBox[RowBox[ {TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center] & ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[ {"BaselinePosition", "\[Rule]", "Center"}]}], "]"}] & )], Selectable -> False, Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {0, -2}}, FrameStyle -> Directive[AbsoluteThickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False], ResourceFunction["CotDegree"], BoxID -> "CotDegree"], "[", "60", "]"}]], "Input", CellChangeTimes -> {{3.7499959708099174*^9, 3.749995975151352*^9}}, CellLabel -> "In[233]:=", CellID -> 358769750], Cell[BoxData[FractionBox["1", SqrtBox["3"]]], "Output", CellChangeTimes -> {3.749995975705407*^9, 3.7499973890687294*^9}, CellLabel -> "Out[233]=", CellID -> 620451382]}, Open]], Cell["Plot over a given range of angles:", "Text", CellChangeTimes -> {{3.742566273615699*^9, 3.7425663407516985*^9}, {3.7425674491305823*^9, 3.742567494534582*^9}}, CellID -> 113296902], Cell[CellGroupData[{Cell[BoxData[RowBox[{"Plot", "[", RowBox[{RowBox[{InterpretationBox[FrameBox[TemplateBox[ {GraphicsBox[{RGBColor[0.9882352941176471, 0.4, 0.25098039215686274], Thickness[Dynamic[If[ CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1], TemplateBox[{3}, "Spacer1"], StyleBox["\"CotDegree\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78*Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction -> (PaneBox[RowBox[{TemplateSlotSequence[ 1, "\[InvisibleSpace]"]}], BaselinePosition -> Center] & ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[ {"BaselinePosition", "\[Rule]", "Center"}]}], "]"}] & )], Selectable -> False, Background -> RGBColor[0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {0, -2}}, FrameStyle -> Directive[AbsoluteThickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False], ResourceFunction["CotDegree"], BoxID -> "CotDegree"], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "360"}], "}"}]}], "]"}]], "Input", CellChangeTimes -> {3.70999648737139*^9, {3.7425674263225822*^9, 3.7425674332075825*^9}, {3.7425674665905824*^9, 3.7425674767165823*^9}, 3.742911294582693*^9, 3.742915474648658*^9}, CellLabel -> "In[234]:=", CellID -> 146714838], Cell[BoxData[GraphicsBox[{{{{}, {}, TagBox[{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[{{8.872915669863985, 6.40907454714824}, {8.981490662104486, 6.326979390130795}, {9.101188951451583, 6.24237913348035}, {9.220887240798678, 6.15995704131303}, {9.460283819492872, 6.001316614923839}, {9.939076976881257, 5.706758696363435}, {10.058775266228352, 5.6374587998650805}, {10.178473555575449, 5.569772247197001}, {10.417870134269641, 5.4390167119166035}, {10.896663291658028, 5.194555535998224}, {11.016361581005125, 5.13672211109518}, {11.13605987035222, 5.080116762098435}, {11.375456449046414, 4.970435203281371}, {11.854249606434799, 4.7641907160215435}, {11.973947895781896, 4.71517136666614}, {12.093646185128993, 4.6671083386077035}, {12.333042763823185, 4.5737398480852205}, {12.811835921211571, 4.397311621797666}, {12.931534210558667, 4.355213038648457}, {13.051232499905764, 4.313873625803068}, {13.290629078599956, 4.233390244460911}, {13.769422235988342, 4.080670741574233}, {14.727008550765113, 3.8044659330206856}, {14.838774637241514, 3.7745034141647986}, {14.950540723717914, 3.7449788913218467}, {15.174072896670715, 3.6872051043705847}, {15.621137242576317, 3.576502976149706}, {16.51526593438752, 3.3726433256886796}, {16.627032020863922, 3.3486618671354735}, {16.738798107340322, 3.3249916785185545}, {16.962330280293124, 3.2785604830700468}, {17.409394626198726, 3.189171275633839}, {18.303523318009933, 3.023097058967732}, {18.415289404486337, 3.00343475155424}, {18.527055490962738, 2.9840014959025205}, {18.75058766391554, 2.945805739836274}, {19.19765200982114, 2.871987793633953}, {20.091780701632345, 2.7338435681004887}, {21.880038085254753, 2.490084634065835}, {21.989611764778825, 2.4763794507289867}, {22.099185444302897, 2.462803467913107}, {22.31833280335104, 2.4360314761538526}, {22.75662752144733, 2.383956049795097}, {23.63321695763991, 2.285297264253033}, {23.74279063716398, 2.273448830296719}, {23.852364316688053, 2.261702979516842}, {24.071511675736197, 2.238513407929092}, {24.509806393832488, 2.193304853431286}, {25.386395830025066, 2.107286278557787}, {25.495969509549138, 2.096923202947996}, {25.60554318907321, 2.0866429114899296}, {25.824690548121353, 2.0663264497463514}, {26.262985266217644, 2.0266413794273013}, {27.139574702410222, 1.95084745418188}, {28.892753574795375, 1.8120385000617147}, {29.011614439203854, 1.8031856220741265}, {29.13047530361233, 1.7943987298482211}, {29.368197032429286, 1.7770196765709938}, {29.8436404900632, 1.7430186299711408}, {30.79452740533103, 1.6778799637403983}, {32.69630123586669, 1.557881291550473}, {32.815162100275174, 1.5507948383647452}, {32.93402296468365, 1.5437538353155669}, {33.1717446935006, 1.5298062031912518}, {33.647188151134515, 1.502434989308257}, {34.598075066402345, 1.4496867201697696}, {36.499848896938005, 1.3514298917329406}, {36.61077755847579, 1.3459721277492842}, {36.72170622001357, 1.3405427346086285}, {36.943563543089134, 1.3297680198444846}, {37.38727818924026, 1.3085477611630345}, {38.27470748154253, 1.2673694636267236}, {40.04956606614705, 1.1896619888135083}, {40.160494727684835, 1.1849965463956167}, {40.27142338922262, 1.1803524622619994}, {40.49328071229819, 1.1711276471732452}, {40.936995358449316, 1.152926486382867}, {41.82442465075158, 1.1174800524712911}, {43.599283235356104, 1.050129754225555}, {43.719499081778295, 1.0457274894074244}, {43.83971492820048, 1.0413445003959734}, {44.08014662104486, 1.0326356929073712}, {44.56101000673361, 1.0154422595290733}, {45.522736778111124, 0.9819175176113946}, {47.44619032086615, 0.9180603931589512}, {51.293097406376205, 0.8013488873851669}, {51.411120845846064, 0.7979717756500655}, {51.52914428531592, 0.7946057478997918}, {51.76519116425565, 0.78790661346559}, {52.23728492213509, 0.774637752898356}, {53.18147243789397, 0.7486000392883941}, {55.06984746941174, 0.6983923207345843}, {58.846597532447284, 0.6045105007227398}, {65.89243667479384, 0.44748004520884727}, {73.53265564974241, 0.29559364225671525}, {80.66521364096644, 0.16437975969818422}, {87.65745758724145, 0.04090787423648929}, {95.24408136611846, -0.09178292082438173}, {102.32304416127096, -0.21845661406061817}, {109.99638678902545, -0.3638988193242111}, {117.52941537183092, -0.5212197450981362}, {117.63918674056657, -0.5236585401855908}, {117.74895810930221, -0.5261022336974137}, {117.96850084677348, -0.5310044472654833}, {118.40758632171605, -0.5408691110631264}, {119.28575727160117, -0.5608470082905416}, {121.0420991713714, -0.6018611063361935}, {124.55478297091187, -0.6886896671046355}, {124.67384152453192, -0.6917575903212372}, {124.79290007815197, -0.6948343462023507}, {125.03101718539206, -0.7010146160280931}, {125.50725139987225, -0.7134840384324708}, {126.4597198288326, -0.738873684774562}, {128.36465668675334, -0.791586357688238}, {128.48371524037339, -0.7949719659863345}, {128.60277379399344, -0.7983687783368021}, {128.84089090123354, -0.8051963567155912}, {129.3171251157137, -0.8189897620570966}, {130.26959354467408, -0.8471497116442831}, {132.17453040259483, -0.9059349427589608}, {132.28565675334417, -0.9094724834302804}, {132.39678310409352, -0.9130225261942587}, {132.61903580559223, -0.9201604918292734}, {133.06354120858964, -0.9345906086703808}, {133.95255201458443, -0.9640896590835188}, {135.73057362657403, -1.025832619992368}, {135.84169997732337, -1.0298211020762562}, {135.95282632807272, -1.0338255489315236}, {136.17507902957144, -1.0418828436368763}, {136.61958443256884, -1.0581946552943855}, {137.50859523856363, -1.0916372313566278}, {139.28661685055323, -1.162058105770596}, {139.407030386187, -1.1670097924007634}, {139.52744392182075, -1.1719858278232476}, {139.76827099308827, -1.1820118449786883}, {140.2499251356233, -1.2023661151336629}, {141.21323342069334, -1.2443375824833571}, {143.13984999083345, -1.3338060193229189}, {143.2602635264672, -1.3396629081367357}, {143.38067706210097, -1.3455528696988395}, {143.6215041333685, -1.357433349050089}, {144.1031582759035, -1.3816061482884396}, {145.06646656097354, -1.4316799870817616}, {146.99308313111365, -1.5394580629075656}, {147.11130425979508, -1.5464335705244483}, {147.22952538847653, -1.5534537360256904}, {147.46596764583938, -1.5676300101310083}, {147.9388521605651, -1.5965405220861706}, {148.8846211900165, -1.6567133791014683}, {149.00284231869793, -1.6644665106500527}, {149.12106344737936, -1.67227308009999}, {149.3575057047422, -1.6880490284651224}, {149.83039021946792, -1.7202701795379824}, {150.77615924891936, -1.7875423536655457}, {150.89438037760078, -1.7962307911838742}, {151.01260150628224, -1.8049838714034363}, {151.2490437636451, -1.8226871709993708}, {151.7219282783708, -1.8589055544074347}, {152.6676973078222, -1.9347873110431504}, {154.55923536672506, -2.102133862415091}, {154.6695242925358, -2.11260725056127}, {154.77981321834653, -2.1231661681147083}, {155.00039106996797, -2.14454513619658}, {155.44154677321092, -2.1883805592439765}, {156.3238581796968, -2.2806433949506424}, {156.43414710550752, -2.292633023156699}, {156.54443603131827, -2.304728943440201}, {156.76501388293974, -2.32924573131498}, {157.20616958618265, -2.3796232375377095}, {158.0884809926685, -2.48613374327569}, {158.19876991847923, -2.500022701413925}, {158.30905884428998, -2.5140459819491303}, {158.52963669591145, -2.5425038065434116}, {158.97079239915436, -2.6011250193931503}, {159.85310380564022, -2.7257135043708134}, {159.96339273145094, -2.7420251201868746}, {160.0736816572617, -2.7585098397860537}, {160.29425950888316, -2.7920102325716676}, {160.73541521212607, -2.8612200591911323}, {161.61772661861193, -3.0092190283090128}, {161.73730272930706, -3.0303372726700615}, {161.8568788400022, -3.0517243339086813}, {162.09603106139247, -3.0953264719969655}, {162.57433550417304, -3.186002050227955}, {163.53094438973415, -3.38265104007463}, {163.65052050042928, -3.408802797842999}, {163.77009661112442, -3.4353293178872124}, {164.0092488325147, -3.489540294195886}, {164.48755327529526, -3.6028440605481373}, {165.44416216085637, -3.8512258795127483}, {165.5637382715515, -3.8845348590123425}, {165.68331438224664, -3.918388326060506}, {165.9224666036369, -3.9877842424083383}, {166.40077104641747, -4.133747976609746}, {166.5203471571126, -4.171825866755129}, {166.63992326780777, -4.2105726385044555}, {166.87907548919804, -4.290145996479478}, {167.35737993197858, -4.458162910101678}, {167.47695604267372, -4.502138642627176}, {167.59653215336886, -4.546948602208842}, {167.83568437475913, -4.639169628966538}, {168.3139888175397, -4.834761494715289}, {169.2705977031008, -5.277504329787242}, {169.38224161092523, -5.3343083205040065}, {169.4938855187497, -5.392305578335912}, {169.71717333439858, -5.512035379927434}, {170.16374896569636, -5.767623344446368}, {170.2753928735208, -5.835150463839852}, {170.38703678134524, -5.904230826546256}, {170.61032459699413, -6.047272916403991}, {171.0569002282919, -6.354588935715884}, {171.16854413611634, -6.436232688451251}, {171.23822837014922, -6.488486300813005}}], LineBox[ {{188.87457016531894, 6.40907454714824}, {189.1201607759935, 6.2291724274434355}, {189.23889946175, 6.147737442787451}, {189.35763814750652, 6.068351394101301}, {189.59511551901957, 5.915421821179726}, {190.07007026204565, 5.631003707028588}, {190.18880894780216, 5.564001639007711}, {190.3075476335587, 5.498527125053149}, {190.54502500507175, 5.371954334482485}, {191.01997974809782, 5.134993280755992}, {191.13078623098363, 5.082585350175752}, {191.24159271386947, 5.031197669936251}, {191.46320567964113, 4.931364700878289}, {191.90643161118442, 4.742701493473737}, {192.01723809407025, 4.697679953962012}, {192.12804457695609, 4.653469093738367}, {192.34965754272773, 4.567392110517403}, {192.79288347427104, 4.404048331523044}, {192.90368995715687, 4.364937490217097}, {193.01449644004268, 4.326481432128244}, {193.23610940581432, 4.251467871640179}, {193.67933533735763, 4.108604258989374}, {194.56578720044422, 3.8484785143431677}, {194.67659368333005, 3.818127291220972}, {194.78740016621586, 3.7882210113391896}, {195.0090131319875, 3.7297038472429485}, {195.4522390635308, 3.6175908971907877}, {196.3386909266174, 3.411180609179042}, {196.44949740950324, 3.3869032010286215}, {196.56030389238907, 3.362941760656288}, {196.7819168581607, 3.3159417324243723}, {197.22514278970402, 3.2254667529718617}, {198.11159465279061, 3.05740853014723}, {198.23168832056086, 3.0358574200650255}, {198.35178198833108, 3.0145788462806573}, {198.59196932387152, 2.972818162100745}, {199.07234399495246, 2.8923420830402997}, {200.03309333711434, 2.7425476572565146}, {200.15318700488456, 2.72478825976097}, {200.2732806726548, 2.70723056685894}, {200.51346800819528, 2.672706103987741}, {200.99384267927618, 2.6059260781160307}, {201.95459202143803, 2.480745486330623}, {202.07468568920825, 2.4658278283173654}, {202.1947793569785, 2.4510635799448606}, {202.43496669251897, 2.4219854369072173}, {202.91534136359988, 2.3655643355802836}, {203.87609070576173, 2.2591729809646806}, {205.79758939008542, 2.0688214823862445}, {205.91549065090334, 2.0580024790595868}, {206.03339191172122, 2.0472747239246645}, {206.26919443335703, 2.026088023439429}, {206.74079947662864, 1.984756534979477}, {207.68400956317186, 1.9060116046771083}, {209.57042973625832, 1.762435612959027}, {209.6883309970762, 1.7540165813770512}, {209.80623225789412, 1.7456581058474758}, {210.04203477952996, 1.729119950103102}, {210.51363982280157, 1.6967393301436242}, {211.45684990934478, 1.6346136829676534}, {213.34327008243122, 1.5198519418979684}, {213.45323914037843, 1.5135175519144846}, {213.56320819832564, 1.5072198572691284}, {213.78314631422006, 1.4947331029402255}, {214.22302254600888, 1.4701842367980262}, {215.10277500958654, 1.4227096008135072}, {216.86227993674186, 1.3337027157758696}, {216.97224899468907, 1.3283829855050926}, {217.08221805263628, 1.3230903125962419}, {217.3021561685307, 1.3125851633115306}, {217.74203240031952, 1.2918889801140727}, {218.62178486389718, 1.2517019725706267}, {220.38128979105247, 1.1757737248815292}, {220.50054603388406, 1.1708269715840258}, {220.6198022767157, 1.1659042699436712}, {220.85831476237894, 1.156130154821424}, {221.33533973370538, 1.1368611480730637}, {222.28938967635827, 1.0993945797335634}, {224.1974895616641, 1.0284127181943217}, {228.01368933227573, 0.899971511239773}, {228.12501337223665, 0.8964609674862993}, {228.23633741219754, 0.89296263179823}, {228.45898549211938, 0.8860022260350922}, {228.90428165196306, 0.872224011371173}, {229.79487397165042, 0.8452188880789169}, {231.5760586110251, 0.7932708118115589}, {235.13842788977448, 0.6966130365528256}, {242.12285240232418, 0.5289621892436525}, {249.7016567474759, 0.3698783603044827}, {256.7728001089031, 0.23504878201621573}, {264.43832330293225, 0.09737560317499168}, {271.5961855132369, -0.027865902023266137}, {278.6137336785925, -0.15148097017275525}, {286.2256616765501, -0.2910126044751358}, {293.32992869078316, -0.43128741684588073}, {301.0285755376183, -0.6015396206130753}, {301.1466744876477, -0.6043501755910247}, {301.2647734376772, -0.607167741506373}, {301.50097133773613, -0.6128241077115157}, {301.97336713785404, -0.624223209648872}, {302.9181587380898, -0.6473786751532431}, {304.8077419385613, -0.6952185175229941}, {308.58690833950436, -0.7979154772627036}, {308.6970750866631, -0.8010672589368849}, {308.8072418338219, -0.8042287647908546}, {309.02757532813945, -0.8105812238392739}, {309.46824231677454, -0.8234058872147622}, {310.34957629404477, -0.8495503444835508}, {312.11224424858517, -0.9039575894819943}, {312.2224109957439, -0.9074576226744997}, {312.3325777429027, -0.9109698911882315}, {312.55291123722026, -0.9180314965058203}, {312.99357822585534, -0.9323055629561307}, {313.8749122031255, -0.9614785026844755}, {315.6375801576659, -1.0225071315180754}, {315.7570340897091, -1.0267808820478364}, {315.87648802175227, -1.0310729694843024}, {316.11539588583867, -1.039712780032611}, {316.59321161401135, -1.057219413248207}, {317.54884307035684, -1.0931779687183427}, {319.4601059830477, -1.169200103549943}, {319.57955991509084, -1.1741471039371372}, {319.69901384713404, -1.179118383689589}, {319.9379217112204, -1.1891346747884988}, {320.4157374393931, -1.2094685872993622}, {321.37136889573856, -1.2513953179894453}, {323.28263180842947, -1.3407545291798544}, {323.39415353760194, -1.346214136465197}, {323.50567526677446, -1.3517024305722674}, {323.7287187251194, -1.362766156964107}, {324.17480564180937, -1.385249893153348}, {325.0669794751892, -1.4317072885415874}, {326.851327141949, -1.5311521055061297}, {326.9628488711215, -1.537681236012467}, {327.07437060029395, -1.5442495669509013}, {327.29741405863894, -1.5575054528889716}, {327.74350097532886, -1.584505793370836}, {328.63567480870876, -1.6405590900129934}, {330.4200224754685, -1.7617515587348112}, {330.52935179768866, -1.7696086145428536}, {330.6386811199088, -1.7775189118860237}, {330.85733976434915, -1.7935016449847963}, {331.29465705322974, -1.826133075188745}, {332.169291630991, -1.8942072645509211}, {332.27862095321115, -1.9029936963328955}, {332.3879502754313, -1.9118441715065815}, {332.60660891987163, -1.92974033598547}, {333.0439262087522, -1.9663358084621059}, {333.91856078651347, -2.042928816559957}, {334.02789010873363, -2.0528394217331307}, {334.1372194309538, -2.0628279747731337}, {334.3558780753941, -2.083042928768177}, {334.7931953642747, -2.1244532300362464}, {335.66782994203595, -2.2114430375410516}, {337.4170990975585, -2.4043679391602986}, {337.5357156046631, -2.418476511766503}, {337.65433211176764, -2.432727074444072}, {337.89156512597674, -2.4616633323107555}, {338.366031154395, -2.521343325588333}, {339.3149632112315, -2.648514842976529}, {339.4335797183361, -2.665198623699891}, {339.55219622544064, -2.6820675358212833}, {339.78942923964973, -2.716373813154065}, {340.263895268068, -2.7873559857494508}, {341.2128273249045, -2.9396378039931}, {341.3314438320091, -2.959720290901271}, {341.45006033911363, -2.9800504005606667}, {341.68729335332273, -3.0214727553878893}, {342.161759381741, -3.107508050477934}, {343.1106914385775, -3.293597008965089}, {343.2293079456821, -3.3182932899503848}, {343.34792445278663, -3.343331230206848}, {343.5851574669957, -3.3944617352370536}, {344.059623495414, -3.501161122174472}, {345.00855555225047, -3.7342811679835717}, {345.11923985648434, -3.763361542515558}, {345.22992416071816, -3.7928678475816118}, {345.4512927691859, -3.8531971504253133}, {345.8940299861214, -3.979411926454008}, {346.00471429035525, -4.012187261738067}, {346.1153985945891, -4.04547463422033}, {346.33676720305687, -4.1136352823520035}, {346.77950441999235, -4.256672074707421}, {346.8901887242262, -4.293913042718377}, {347.0008730284601, -4.33177700729567}, {347.22224163692783, -4.409438700942281}, {347.66497885386326, -4.572983116869247}, {348.5504532877342, -4.937407548415411}, {348.66113759196804, -4.986905070892361}, {348.7718218962019, -5.037365563176613}, {348.99319050466966, -5.141291676499025}, {349.43592772160514, -5.36204614116395}, {349.546612025839, -5.420121975387647}, {349.6572963300729, -5.479426860239286}, {349.8786649385406, -5.601885084792601}, {350.32140215547605, -5.863427772356608}, {350.4320864597099, -5.9325577589693275}, {350.54277076394374, -6.003290652822593}, {350.7641393724115, -6.1497956927831865}, {351.20687658934696, -6.464738994870807}, {351.2382749756406, -6.488486300813005}}]}, Annotation[#1, "Charting`Private`Tag$28914#1"] & ], {}}, {{}, {}}, {{}, {}}}, {}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction -> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, GridLinesStyle -> Directive[GrayLevel[0.5, 0.4]], ImagePadding -> All, Method -> {"DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> {"Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> {"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> {"freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({(Identity[#1] & )[#1[[1]]], (Identity[#1] & )[#1[[2]]]} & ), "CopiedValueFunction" -> ({(Identity[#1] & )[#1[[1]]], (Identity[#1] & )[ #1[[2]]]} & )}}, PlotRange -> {{0, 360}, {-6.488486300813005, 6.40907454714824}}, PlotRangeClipping -> True, PlotRangePadding -> {{Scaled[0.02], Scaled[0.02]}, {Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}]], "Output", CellChangeTimes -> {3.7425674984935827*^9, 3.742912370679292*^9, 3.74291574919711*^9, 3.7499959692757645*^9, 3.749997389153738*^9}, CellLabel -> "Out[234]=", CellID -> 52292473]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Scope", "Subsection", CellID -> 267254639], Cell["Evaluate numerically:", "Text", CellChangeTimes -> {{3.742566273615699*^9, 3.7425663407516985*^9}, {3.7425674491305823*^9, 3.742567494534582*^9}, {3.7425676017175827*^9, 3.7425676115715823*^9}}, CellID -> 20808793], Cell[CellGroupData[{Cell[BoxData[RowBox[{InterpretationBox[ FrameBox[TemplateBox[{GraphicsBox[{RGBColor[0.9882352941176471, 0.4, 0.25098039215686274], Thickness[Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1], TemplateBox[{3}, "Spacer1"], StyleBox["\"CotDegree\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78*Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction -> (PaneBox[RowBox[ {TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center] & ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[ {"BaselinePosition", "\[Rule]", "Center"}]}], "]"}] & )], Selectable -> False, Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {0, -2}}, FrameStyle -> Directive[AbsoluteThickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False], ResourceFunction["CotDegree"], BoxID -> "CotDegree"], "[", "43.1", "]"}]], "Input", CellChangeTimes -> {3.70999648737139*^9, {3.7425675450285826*^9, 3.7425675450305824*^9}, {3.7425676155775824*^9, 3.7425676268715825*^9}, 3.742911295941829*^9, 3.742915475307724*^9}, CellLabel -> "In[235]:=", CellID -> 245535023], Cell[BoxData["1.0686233026146525`"], "Output", CellChangeTimes -> {3.7425676284245825*^9, 3.7429123831415386*^9, 3.742915737251916*^9, 3.7499959847083073*^9, 3.74999738917274*^9}, CellLabel -> "Out[235]=", CellID -> 195155]}, Open]], Cell["Evaluate to high precision:", "Text", CellChangeTimes -> {{3.742566273615699*^9, 3.7425663407516985*^9}, {3.7425674491305823*^9, 3.742567494534582*^9}, {3.7425676017175827*^9, 3.7425676115715823*^9}, {3.742567725781489*^9, 3.7425677335892696*^9}}, CellID -> 485732157], Cell[CellGroupData[{Cell[BoxData[RowBox[{"N", "[", RowBox[{RowBox[{InterpretationBox[FrameBox[TemplateBox[ {GraphicsBox[{RGBColor[0.9882352941176471, 0.4, 0.25098039215686274], Thickness[Dynamic[If[ CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1], TemplateBox[{3}, "Spacer1"], StyleBox["\"CotDegree\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78*Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction -> (PaneBox[RowBox[{TemplateSlotSequence[ 1, "\[InvisibleSpace]"]}], BaselinePosition -> Center] & ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[ {"BaselinePosition", "\[Rule]", "Center"}]}], "]"}] & )], Selectable -> False, Background -> RGBColor[0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {0, -2}}, FrameStyle -> Directive[AbsoluteThickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False], ResourceFunction["CotDegree"], BoxID -> "CotDegree"], "[", "26", "]"}], ",", " ", "50"}], "]"}]], "Input", CellChangeTimes -> {3.70999648737139*^9, {3.7425675450285826*^9, 3.7425675450305824*^9}, {3.7425676155775824*^9, 3.742567691536065*^9}, {3.742567749251836*^9, 3.742567763337244*^9}, 3.742911296913926*^9, 3.742915475918785*^9}, CellLabel -> "In[236]:=", CellID -> 140238344], Cell[BoxData["2.05030384157929621689901107054149414676751962274324242\ 347266609678548114056056`50."], "Output", CellChangeTimes -> {3.742567764525363*^9, 3.7429123854577703*^9, 3.7429157293371243*^9, 3.7499959865074873*^9, 3.749997389191742*^9}, CellLabel -> "Out[236]=", CellID -> 18287494]}, Open]]}, Open]]}, WindowSize -> Automatic, WindowMargins -> Automatic, Visible -> True, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (October 3, 2018)", StyleDefinitions -> "Default.nb"]