From bcfd2c44ab0f1c4de44990a3f4ad20cb20c1b14f Mon Sep 17 00:00:00 2001 From: Lukas Werner Date: Tue, 5 Apr 2022 12:08:17 -0700 Subject: [PATCH] law of sines mathematica --- pre-calc/LawOfCosines.nb | 1319 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 1319 insertions(+) create mode 100644 pre-calc/LawOfCosines.nb diff --git a/pre-calc/LawOfCosines.nb b/pre-calc/LawOfCosines.nb new file mode 100644 index 0000000..4d4b5b7 --- /dev/null +++ b/pre-calc/LawOfCosines.nb @@ -0,0 +1,1319 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 12.3' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 45503, 1311] +NotebookOptionsPosition[ 32626, 1070] +NotebookOutlinePosition[ 33018, 1086] +CellTagsIndexPosition[ 32975, 1083] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"10", "^", "2"}], "+", + RowBox[{"12", "^", "2"}], "-", + RowBox[{"2", "*", "10", "*", "12", + RowBox[{"Cos", "[", + RowBox[{"62", "Degree"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.858090136981884*^9, 3.8580901577810707`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"3e0012bc-484c-40e8-9c83-903632f74560"], + +Cell[BoxData[ + RowBox[{"244", "-", + RowBox[{"240", " ", + RowBox[{"Sin", "[", + RowBox[{"28", " ", "\[Degree]"}], "]"}]}]}]], "Output", + CellChangeTimes->{3.8580901582746162`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"4b58da65-d06e-4cf7-886c-bdc52a33a730"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + RowBox[{"244", "-", + RowBox[{"240", " ", + RowBox[{"Sin", "[", + RowBox[{"28", " ", "\[Degree]"}], "]"}]}]}], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[11]:=",ExpressionUUID->"2a24c1b6-53d4-49ac-a797-3d47c3d06165"], + +Cell[BoxData["131.32682493138623`"], "Output", + CellChangeTimes->{3.858090161562478*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"ec613603-7570-44ad-9dbe-4af2aabc7dbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Sqrt", "[", + RowBox[{ + RowBox[{"10", "^", "2"}], "+", + RowBox[{"12", "^", "2"}], "-", + RowBox[{"2", "*", "10", "*", "12", + RowBox[{"Cos", "[", + RowBox[{"62", "Degree"}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.8580901745009937`*^9, 3.858090176579502*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"534f5cbd-245b-416c-a9a1-5992e36665b7"], + +Cell[BoxData[ + SqrtBox[ + RowBox[{"244", "-", + RowBox[{"240", " ", + RowBox[{"Sin", "[", + RowBox[{"28", " ", "\[Degree]"}], "]"}]}]}]]], "Output", + CellChangeTimes->{3.8580901771670523`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"01dc065d-1063-4cd2-90b1-693f66a848c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + SqrtBox[ + RowBox[{"244", "-", + RowBox[{"240", " ", + RowBox[{"Sin", "[", + RowBox[{"28", " ", "\[Degree]"}], "]"}]}]}]], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[13]:=",ExpressionUUID->"4f0e463b-82d3-4532-ada1-b521f9d4d9ef"], + +Cell[BoxData["11.459791661779294`"], "Output", + CellChangeTimes->{3.858090179263216*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"7381b367-d7af-4b47-950c-3716f5a52c7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Sqrt", "[", + RowBox[{ + RowBox[{"8", "^", "2"}], "+", + RowBox[{"12", "^", "2"}], "-", + RowBox[{"2", "*", "8", "*", "12", + RowBox[{"Cos", "[", + RowBox[{"34", "Degree"}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.8580904243487167`*^9, 3.858090450797576*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"9885dc61-80e4-4122-ac54-951dcc15a6ee"], + +Cell[BoxData[ + SqrtBox[ + RowBox[{"208", "-", + RowBox[{"192", " ", + RowBox[{"Cos", "[", + RowBox[{"34", " ", "\[Degree]"}], "]"}]}]}]]], "Output", + CellChangeTimes->{3.858090451916285*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"5694346c-ac10-44d6-962b-cac08e412ece"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + SqrtBox[ + RowBox[{"208", "-", + RowBox[{"192", " ", + RowBox[{"Cos", "[", + RowBox[{"34", " ", "\[Degree]"}], "]"}]}]}]], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[15]:=",ExpressionUUID->"812ee415-fe78-4082-bf59-55e1be0223b3"], + +Cell[BoxData["6.987473511179274`"], "Output", + CellChangeTimes->{3.858090454370968*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"1aa29a96-5f30-4782-b859-24d9889ecc3c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"11", "^", "2"}], "+", + RowBox[{"10", "^", "2"}], "-", + RowBox[{"9", "^", "2"}]}], + RowBox[{"2", "*", "11", "*", "10"}]], "]"}]], "Input", + CellChangeTimes->{{3.858090576924014*^9, 3.8580906164390182`*^9}, { + 3.85809086944489*^9, 3.858090869987911*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"68560d09-0e31-4f53-9bdd-39d8802e3415"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["7", "11"], "]"}]], "Output", + CellChangeTimes->{3.8580906170994368`*^9, 3.858090871006152*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"d8b27107-1b22-4ff1-b3f7-f8cdc0b3a3b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["7", "11"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[21]:=",ExpressionUUID->"e925ab6b-75e0-4ffd-a1cb-1d38fb4a6191"], + +Cell[BoxData["50.47880364135783`"], "Output", + CellChangeTimes->{3.8580908733938513`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"13bbcd4f-671f-47ee-907c-1dc0e05a2778"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["163", "220"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[17]:=",ExpressionUUID->"0c65cad8-6205-4cd1-afbf-b23b0754ef01"], + +Cell[BoxData["42.1910861530405`"], "Output", + CellChangeTimes->{3.858090625047518*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"d5fc59bc-6d3b-407c-a8d8-2098d576f064"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"11", "^", "2"}], "+", + RowBox[{"20", "^", "2"}], "-", + RowBox[{"7", "^", "2"}]}], + RowBox[{"2", "*", "11", "*", "20"}]], "]"}]], "Input", + CellChangeTimes->{{3.858090685131418*^9, 3.858090727620473*^9}}, + CellLabel->"In[18]:=",ExpressionUUID->"8c5f374a-d1ce-4be4-8192-483b3b385d8d"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["59", "55"], "]"}]], "Output", + CellChangeTimes->{3.858090728457954*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"21a431b9-7030-412d-a318-d26112c2fef2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["59", "55"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[19]:=",ExpressionUUID->"1cbda346-6949-4b90-a3a7-74561ee3da2a"], + +Cell[BoxData[ + RowBox[{"0.`", "\[VeryThinSpace]", "+", + RowBox[{"21.721439388127784`", " ", "\[ImaginaryI]"}]}]], "Output", + CellChangeTimes->{3.8580907317609673`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"a6297b91-77c8-48cc-ab01-a922aada29d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"29", "^", "2"}], "+", + RowBox[{"50", "^", "2"}], "-", + RowBox[{"44", "^", "2"}]}], + RowBox[{"2", "*", "29", "*", "50"}]], "]"}]], "Input", + CellChangeTimes->{{3.858090978652596*^9, + 3.8580910065217457`*^9}},ExpressionUUID->"d55babfa-2f65-4c59-896c-\ +ced72bc3b832"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["281", "580"], "]"}]], "Output", + CellChangeTimes->{3.858091001677544*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"8c15aafd-c3b1-4c47-874d-46e69474d73d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"29", "^", "2"}], "+", + RowBox[{"50", "^", "2"}], "-", + RowBox[{"44", "^", "2"}]}], + RowBox[{"2", "*", "29", "*", "50"}]], "]"}], "Degree"], "]"}]], "Input", + CellChangeTimes->{{3.858091008450304*^9, 3.858091017877679*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"b7327f27-629b-471d-a1e6-dcbaae046a38"], + +Cell[BoxData["61.021410279845824`"], "Output", + CellChangeTimes->{3.8580910182870607`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"7c06440d-d162-40be-8f67-412ec3e28b41"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"29", "^", "2"}], "+", + RowBox[{"44", "^", "2"}], "-", + RowBox[{"50", "^", "2"}]}], + RowBox[{"2", "*", "29", "*", "44"}]], "]"}], "Degree"], "]"}]], "Input", + CellChangeTimes->{{3.85809106090598*^9, 3.85809106530221*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"ff239d30-8ec9-4201-be26-d8f104e87d1b"], + +Cell[BoxData["83.768706490539`"], "Output", + CellChangeTimes->{3.8580910669840307`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"1b29894f-df1e-4c59-a4b1-b01201e59304"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"44", "^", "2"}], "+", + RowBox[{"50", "^", "2"}], "-", + RowBox[{"29", "^", "2"}]}], + RowBox[{"2", "*", "44", "*", "50"}]], "]"}], "Degree"], "]"}]], "Input", + CellChangeTimes->{{3.858091141017171*^9, 3.858091146584461*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"c99ba440-b0a2-4de9-899d-db28055047b4"], + +Cell[BoxData["35.20988322961519`"], "Output", + CellChangeTimes->{3.858091148190857*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"faad8780-f86e-4aa0-9ebc-f1c2d64a273f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + FractionBox["1", "2"], "*", "400", "*", "357", "*", + RowBox[{"Sin", "[", + RowBox[{"35", "Degree"}], "]"}]}]], "Input", + CellChangeTimes->{{3.858091233587574*^9, 3.858091251613309*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"206b1e1f-8758-497a-8c87-2d1b69b28e4d"], + +Cell[BoxData[ + RowBox[{"71400", " ", + RowBox[{"Sin", "[", + RowBox[{"35", " ", "\[Degree]"}], "]"}]}]], "Output", + CellChangeTimes->{3.858091252300457*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"58ee9769-3419-4cd3-a28c-d64ac58ab17e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + RowBox[{"71400", " ", + RowBox[{"Sin", "[", + RowBox[{"35", " ", "\[Degree]"}], "]"}]}], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[27]:=",ExpressionUUID->"901d0fc8-bc49-4294-804a-775a257006ce"], + +Cell[BoxData["40953.35755546469`"], "Output", + CellChangeTimes->{3.858091259083362*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"1c802569-f9f2-4a21-9689-e34d272445ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Sqrt", "[", + RowBox[{ + FractionBox[ + RowBox[{"80", "+", "43", "+", "117"}], "2"], "*", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"80", "+", "43", "+", "117"}], "2"], "-", "80"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"80", "+", "43", "+", "117"}], "2"], "-", "43"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"80", "+", "43", "+", "117"}], "2"], "-", "117"}], ")"}]}], + "]"}]], "Input", + CellChangeTimes->{{3.858091323622397*^9, 3.8580913873421297`*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"f23c6227-f81c-43cd-84e8-80c85c4a9181"], + +Cell[BoxData[ + RowBox[{"120", " ", + SqrtBox["77"]}]], "Output", + CellChangeTimes->{3.8580913893065147`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"1c2a621f-2acd-46af-9e88-2f66ba3d02b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + RowBox[{"120", " ", + SqrtBox["77"]}], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[29]:=",ExpressionUUID->"48bb8197-bcd3-4733-be85-ee37cb58df76"], + +Cell[BoxData["1052.9957264870548`"], "Output", + CellChangeTimes->{3.858091403335595*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"78ff4ec1-8b51-4ed6-a593-9105c6eacee5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Sqrt", "[", + RowBox[{ + FractionBox[ + RowBox[{"80", "+", "80", "+", "80"}], "2"], "*", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"80", "+", "80", "+", "80"}], "2"], "-", "80"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"80", "+", "80", "+", "80"}], "2"], "-", "80"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"80", "+", "43", "+", "80"}], "2"], "-", "80"}], ")"}]}], + "]"}]], "Input", + CellChangeTimes->{{3.858091458182886*^9, 3.858091477260433*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"ef5f053f-b1e9-4e4b-a8d7-d76df6737103"], + +Cell[BoxData[ + RowBox[{"80", " ", + SqrtBox["645"]}]], "Output", + CellChangeTimes->{3.858091478605308*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"f0077cb6-a9d8-4a3a-97c6-8df878c647d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + RowBox[{"80", " ", + SqrtBox["645"]}], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[31]:=",ExpressionUUID->"eedda7c4-fdb4-4e3e-8fc2-b99cb0d1c8c3"], + +Cell[BoxData["2031.748015872047`"], "Output", + CellChangeTimes->{3.858091480773704*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"02de70c7-dde7-4cb3-be8c-602dff83f250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"19", "^", "2"}], "+", + RowBox[{"24", "^", "2"}], "-", + RowBox[{"27", "^", "2"}]}], + RowBox[{"2", "*", "19", "*", "24"}]], "]"}]], "Input", + CellChangeTimes->{{3.858110845165956*^9, 3.8581108695715723`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"781a4980-8190-4b93-8927-e2c81e4c3de7"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["13", "57"], "]"}]], "Output", + CellChangeTimes->{3.858110870338716*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"4e5d9359-33cf-4ba4-bf9c-83cb7dc38721"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["13", "57"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[2]:=",ExpressionUUID->"dc8f416e-bc87-4380-b71e-bf50dd5de9ba"], + +Cell[BoxData["76.81651851377968`"], "Output", + CellChangeTimes->{3.858110872099329*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"186f3802-f4ed-44d6-8387-10a38a6c15c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"27", "^", "2"}], "+", + RowBox[{"24", "^", "2"}], "-", + RowBox[{"19", "^", "2"}]}], + RowBox[{"2", "*", "27", "*", "24"}]], "]"}]], "Input", + CellChangeTimes->{{3.858110919608917*^9, 3.858110925258649*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"b1502f3c-4181-4079-af1c-288bbe84b435"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["59", "81"], "]"}]], "Output", + CellChangeTimes->{3.858111039984002*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"7a06377f-515b-4eb8-8169-34e39fcab69a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["59", "81"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[4]:=",ExpressionUUID->"e43918fe-67b3-4373-bc21-289ef3ba8744"], + +Cell[BoxData["43.24798537483548`"], "Output", + CellChangeTimes->{3.858111041172099*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"01550f4c-d519-42e3-b47d-262bb3e3b5f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"19", "^", "2"}], "+", + RowBox[{"27", "^", "2"}], "-", + RowBox[{"24", "^", "2"}]}], + RowBox[{"2", "*", "19", "*", "27"}]], "]"}]], "Input", + CellChangeTimes->{{3.858111098826696*^9, 3.858111103130219*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"d03197f6-b389-45c3-b4ce-8e8bd86dedc6"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["257", "513"], "]"}]], "Output", + CellChangeTimes->{3.858111105821973*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b877f878-9a1d-451b-ab42-5eb8e7d96ebd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["257", "513"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[6]:=",ExpressionUUID->"28e3df34-2b11-44d6-8537-ea25a7b38189"], + +Cell[BoxData["59.935496111384836`"], "Output", + CellChangeTimes->{3.8581111084816017`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"ed97e960-604e-487b-8161-3075ac41eec4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"22", "^", "2"}], "+", + RowBox[{"31", "^", "2"}]}], "==", + RowBox[{"x", "^", "2"}]}]], "Input", + CellChangeTimes->{{3.858111190153947*^9, 3.858111204266012*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"9a67ed90-4ed3-405a-bb3e-6ea48d56bbc7"], + +Cell[BoxData[ + RowBox[{"1445", "\[Equal]", + SuperscriptBox["x", "2"]}]], "Output", + CellChangeTimes->{3.858111205252594*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"4bcb8078-78ef-430d-90ab-2c61444faff1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Sqrt", "[", "1445", "]"}]], "Input", + CellChangeTimes->{{3.858111210317175*^9, 3.858111215052225*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"0bef9ee5-fe09-41c1-993a-ad3ad85e7532"], + +Cell[BoxData[ + RowBox[{"17", " ", + SqrtBox["5"]}]], "Output", + CellChangeTimes->{3.8581112154657993`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"12f83800-a700-4605-adc5-b99b500a50b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + RowBox[{"17", " ", + SqrtBox["5"]}], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[9]:=",ExpressionUUID->"ce86ff36-bd47-4009-a24f-b6a4351d3409"], + +Cell[BoxData["38.01315561749642`"], "Output", + CellChangeTimes->{3.858111221180932*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"ccc233c2-e491-480b-aec8-33fa9e5249f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"22", "^", "2"}], "+", + RowBox[{"31", "^", "2"}], "-", + RowBox[{"2", "*", "22", "*", "31", + RowBox[{"Cos", "[", + RowBox[{"82", "Degree"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.858111337155507*^9, 3.8581113564021597`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"4895f04e-f867-434e-bbc1-deedf8e35815"], + +Cell[BoxData[ + RowBox[{"1445", "-", + RowBox[{"1364", " ", + RowBox[{"Sin", "[", + RowBox[{"8", " ", "\[Degree]"}], "]"}]}]}]], "Output", + CellChangeTimes->{3.858111357211121*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"bc5e2390-0a20-4d0d-9f97-a632e7541c65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + RowBox[{"1445", "-", + RowBox[{"1364", " ", + RowBox[{"Sin", "[", + RowBox[{"8", " ", "\[Degree]"}], "]"}]}]}], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[11]:=",ExpressionUUID->"665871fc-7726-4092-b156-5056ac5e2df0"], + +Cell[BoxData["1255.1678902904707`"], "Output", + CellChangeTimes->{3.8581113595554934`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"ae68522e-ff01-4261-9102-5b2dce588279"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + RowBox[{ + RowBox[{"22", "^", "2"}], "+", + RowBox[{"31", "^", "2"}], "-", + RowBox[{"2", "*", "22", "*", "31", + RowBox[{"Cos", "[", + RowBox[{"82", "Degree"}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.858111446771941*^9, 3.858111448166809*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"d3998a55-11b4-4694-b6c2-f4b8d64d57e2"], + +Cell[BoxData["1255.1678902904707`"], "Output", + CellChangeTimes->{3.858111448518186*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"d8135497-c166-4b7a-8144-0a1c84de45bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Sqrt", "[", + RowBox[{ + RowBox[{"22", "^", "2"}], "+", + RowBox[{"31", "^", "2"}], "-", + RowBox[{"2", "*", "22", "*", "31", + RowBox[{"Cos", "[", + RowBox[{"82", "Degree"}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.858111503891095*^9, 3.8581115076218863`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"ab0727e7-af5a-4f4c-97b0-ff1827af9d82"], + +Cell[BoxData[ + SqrtBox[ + RowBox[{"1445", "-", + RowBox[{"1364", " ", + RowBox[{"Sin", "[", + RowBox[{"8", " ", "\[Degree]"}], "]"}]}]}]]], "Output", + CellChangeTimes->{3.858111508072508*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"dea98758-c3f8-4c71-a6ed-39a5653221b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + SqrtBox[ + RowBox[{"1445", "-", + RowBox[{"1364", " ", + RowBox[{"Sin", "[", + RowBox[{"8", " ", "\[Degree]"}], "]"}]}]}]], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[14]:=",ExpressionUUID->"ff4445f9-6db8-48cc-9da0-7b782852d9bd"], + +Cell[BoxData["35.428348681394546`"], "Output", + CellChangeTimes->{3.8581115110213223`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"4f0d4b23-b1c1-4321-836a-20c6ab6ea6e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcSin", "[", + FractionBox[ + RowBox[{"22", + RowBox[{"Sin", "[", + RowBox[{"82", "Degree"}], "]"}]}], "35.42"], "]"}]], "Input", + CellChangeTimes->{{3.858111639540501*^9, 3.858111659061742*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"93cbcc0d-67b5-46d7-9c26-545c4a8752ef"], + +Cell[BoxData["0.6624789719055788`"], "Output", + CellChangeTimes->{3.858111659522942*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"9517590a-5b59-4529-a2d6-e0dfe0fdacc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"82", "Degree"}], "]"}], "35.42"], "==", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"x", " ", "Degree"}], "]"}], "22"]}]], "Input", + CellChangeTimes->{{3.858111673440379*^9, 3.858111721001575*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"62d2e725-cc5a-4a21-8de9-e3141f0ed77a"], + +Cell[BoxData[ + RowBox[{"0.027957878846458787`", "\[Equal]", + RowBox[{ + FractionBox["1", "22"], " ", + RowBox[{"Sin", "[", + RowBox[{"\[Degree]", " ", "x"}], "]"}]}]}]], "Output", + CellChangeTimes->{3.858111725481679*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"8269e5a5-0334-4f4a-9b07-6f292f9c3f7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"12", "^", "2"}], "+", + RowBox[{"23", "^", "2"}], "-", + RowBox[{"9.8", "^", "2"}]}], + RowBox[{"2", "*", "12", "*", "23"}]], "]"}], "Degree"], "]"}]], "Input", + CellChangeTimes->{{3.858111869821528*^9, 3.858111903191125*^9}}, + CellLabel->"In[18]:=",ExpressionUUID->"f48bee69-7236-46ad-8352-602387dfb8a7"], + +Cell[BoxData[ + RowBox[{"0.`", "\[VeryThinSpace]", "+", + RowBox[{"17.165928901973462`", " ", "\[ImaginaryI]"}]}]], "Output", + CellChangeTimes->{3.858111904203109*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"b66b7ef9-754f-4c20-a9ce-4fc3bda7581f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcSin", "[", + FractionBox[ + RowBox[{"8.5", + RowBox[{"Sin", "[", + RowBox[{"75", "Degree"}], "]"}]}], "9.3"], "]"}]], "Input", + CellChangeTimes->{{3.858111980051104*^9, 3.858112009232244*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"cb691b12-224a-4a4c-97aa-a632146bd1fd"], + +Cell[BoxData["1.081865282485764`"], "Output", + CellChangeTimes->{3.858112023365707*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"d1db8ecb-a4d9-44ca-b949-3146170f2ede"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"180", "-", "71", "-", "1.08"}]], "Input", + CellChangeTimes->{{3.858112164609761*^9, 3.858112170091173*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"6b23efdc-9f9a-4c47-a7b7-f0cd00075068"], + +Cell[BoxData["107.92`"], "Output", + CellChangeTimes->{3.8581121707136717`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"8798e2f4-0b40-4932-b791-69f799f42776"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox[ + RowBox[{"9.3", + RowBox[{"Sin", "[", + RowBox[{"107.92", "Degree"}], "]"}]}], + RowBox[{"Sin", "[", + RowBox[{"71", "Degree"}], "]"}]]], "Input", + CellChangeTimes->{{3.858112855422649*^9, 3.858112875097616*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"72a86536-c069-4959-a018-855a19f4e090"], + +Cell[BoxData["9.358705232972921`"], "Output", + CellChangeTimes->{3.8581128756215763`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"e76f9d54-8fa3-44f3-bf30-54cdb574b141"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"14", "^", "2"}], "+", + RowBox[{"21", "^", "2"}], "-", + RowBox[{"2", "*", "14", "*", "21", + RowBox[{"Cos", "[", + RowBox[{"52", "Degree"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.8581133889083652`*^9, 3.858113412514578*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"6de994f0-e6ed-41e7-bbb3-6ad175151907"], + +Cell[BoxData[ + RowBox[{"637", "-", + RowBox[{"588", " ", + RowBox[{"Sin", "[", + RowBox[{"38", " ", "\[Degree]"}], "]"}]}]}]], "Output", + CellChangeTimes->{3.858113413854439*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"6b931bc6-14a3-4548-bd46-6956eb50cd6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + RowBox[{"637", "-", + RowBox[{"588", " ", + RowBox[{"Sin", "[", + RowBox[{"38", " ", "\[Degree]"}], "]"}]}]}], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[24]:=",ExpressionUUID->"eb9aa835-2d9a-438c-ad98-6e5a82359680"], + +Cell[BoxData["274.99105250851295`"], "Output", + CellChangeTimes->{3.858113438901539*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"a53646e7-9b99-4017-ad93-164fc5df8788"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Sqrt", "[", + RowBox[{ + RowBox[{"14", "^", "2"}], "+", + RowBox[{"21", "^", "2"}], "-", + RowBox[{"2", "*", "14", "*", "21", + RowBox[{"Cos", "[", + RowBox[{"52", "Degree"}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.858113452434039*^9, 3.858113455706664*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"ccdd54fb-5d04-4610-9655-58e95ce35f2b"], + +Cell[BoxData[ + SqrtBox[ + RowBox[{"637", "-", + RowBox[{"588", " ", + RowBox[{"Sin", "[", + RowBox[{"38", " ", "\[Degree]"}], "]"}]}]}]]], "Output", + CellChangeTimes->{3.8581134562141237`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"ea73d104-2379-4aa3-842d-e918cf43c292"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + SqrtBox[ + RowBox[{"637", "-", + RowBox[{"588", " ", + RowBox[{"Sin", "[", + RowBox[{"38", " ", "\[Degree]"}], "]"}]}]}]], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[26]:=",ExpressionUUID->"4d40c1c7-b26b-45be-a7da-a0b5047d32a3"], + +Cell[BoxData["16.58285417256369`"], "Output", + CellChangeTimes->{3.858113458753587*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"40ef9a71-462b-414a-88d0-1fba20cfc3f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"5", "^", "2"}], "+", + RowBox[{"3", "^", "2"}], "-", + RowBox[{"7", "^", "2"}]}], + RowBox[{"2", "*", "3", "*", "7"}]], "]"}]], "Input", + CellChangeTimes->{{3.8581139812079067`*^9, 3.858114012331716*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"d5b79459-d75e-46de-8a1e-859f8676df9c"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + RowBox[{"-", + FractionBox["5", "14"]}], "]"}]], "Output", + CellChangeTimes->{3.858114012994982*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"2a933cb4-905d-44eb-bf43-045c4628430c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + RowBox[{"-", + FractionBox["5", "14"]}], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[28]:=",ExpressionUUID->"42e8d218-34dc-4b49-b275-5749b133fcf8"], + +Cell[BoxData["110.92483242763832`"], "Output", + CellChangeTimes->{3.85811406080962*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"856153c8-3119-489f-adc4-7b8fa9ec3642"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"3", "^", "2"}], "+", + RowBox[{"5", "^", "2"}], "-", + RowBox[{"5", "^", "2"}]}], + RowBox[{"2", "*", "3", "*", "7"}]], "]"}]], "Input", + CellChangeTimes->{{3.858114127328188*^9, 3.858114144473805*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"77d81d9d-9e3d-4b39-b2dc-7a011a88c909"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["3", "14"], "]"}]], "Output", + CellChangeTimes->{3.858114146015956*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"e33aeee2-3e41-4688-808d-40bc51c76e43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["3", "14"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[30]:=",ExpressionUUID->"83910bc9-81ed-4421-9fa4-39b47d4c5666"], + +Cell[BoxData["77.62637488381145`"], "Output", + CellChangeTimes->{3.8581141473111763`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"436e1572-c312-407a-b5cb-58596db6c561"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"5", "^", "2"}], "+", + RowBox[{"7", "^", "2"}], "-", + RowBox[{"3", "^", "2"}]}], + RowBox[{"2", "*", "5", "*", "7"}]], "]"}]], "Input", + CellChangeTimes->{{3.858114168678945*^9, 3.858114179378572*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"3cce7a0b-f00d-4cf1-bb93-542dd9cd496f"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["13", "14"], "]"}]], "Output", + CellChangeTimes->{3.858114180645216*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"e363a144-810b-41ed-8f4e-6702ae6c7526"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["13", "14"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[32]:=",ExpressionUUID->"68c16cc5-ce47-4ac1-ac5c-934538e6e4b4"], + +Cell[BoxData["21.78678929826181`"], "Output", + CellChangeTimes->{3.858114181626195*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"60c1656a-703e-4d93-b46c-ebde6cdb6cab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"23", "^", "2"}], "+", + RowBox[{"19", "^", "2"}], "-", + RowBox[{"12", "^", "2"}]}], + RowBox[{"2", "*", "23", "*", "19"}]], "]"}]], "Input", + CellChangeTimes->{{3.858116623992415*^9, 3.858116649310433*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"e9346c45-d3f3-47c7-b57d-684086645b4c"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["373", "437"], "]"}]], "Output", + CellChangeTimes->{3.858116649820381*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"31745284-7386-4618-9dbc-9b79d2735f2f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["373", "437"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[34]:=",ExpressionUUID->"3122f56a-523e-43e5-af83-dbd7cdd3822b"], + +Cell[BoxData["31.400427400625578`"], "Output", + CellChangeTimes->{3.8581166515347633`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"9f9386de-d00e-43c0-bf0c-d55cec4494d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"12", "^", "2"}], "+", + RowBox[{"23", "^", "2"}], "-", + RowBox[{"19", "^", "2"}]}], + RowBox[{"2", "*", "12", "*", "23"}]], "]"}]], "Input", + CellChangeTimes->{{3.858116667955755*^9, 3.858116689599388*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"989e7975-cc7f-4649-a1e9-7b9636265ea5"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox["13", "23"], "]"}]], "Output", + CellChangeTimes->{3.858116690214079*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"007b08fb-3708-41dd-87ce-2d30fcc3b41e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + FractionBox["13", "23"], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[36]:=",ExpressionUUID->"ef4de106-e998-4765-ae40-9e10cc5b385d"], + +Cell[BoxData["55.582611289558436`"], "Output", + CellChangeTimes->{3.858116692110677*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"ae8e1856-0043-4c3e-9ae6-79f22c2c31f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + FractionBox[ + RowBox[{ + RowBox[{"19", "^", "2"}], "+", + RowBox[{"12", "^", "2"}], "-", + RowBox[{"23", "^", "2"}]}], + RowBox[{"2", "*", "19", "*", "12"}]], "]"}]], "Input", + CellChangeTimes->{{3.858116703839381*^9, 3.858116748776979*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"eb32315a-86ce-4a83-89ab-f66a142b50ab"], + +Cell[BoxData[ + RowBox[{"ArcCos", "[", + RowBox[{"-", + FractionBox["1", "19"]}], "]"}]], "Output", + CellChangeTimes->{3.85811674936271*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"2165f06b-e234-4f67-9dec-57f267a1bb21"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"N", "[", + FractionBox[ + RowBox[{"ArcCos", "[", + RowBox[{"-", + FractionBox["1", "19"]}], "]"}], "\[Degree]"], "]"}]], "Input", + NumberMarks->False, + CellLabel->"In[38]:=",ExpressionUUID->"de85be3a-09b4-49cf-bf41-1283999db20e"], + +Cell[BoxData["93.016961309816`"], "Output", + CellChangeTimes->{3.85811675080866*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"b511619c-cd5f-43e2-80dd-4107d50b2aee"] +}, Open ]] +}, +WindowSize->{755, 785}, +WindowMargins->{{182, Automatic}, {Automatic, 0}}, +FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (July 9, 2021)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"70d1bcb0-67a7-40c8-bae3-59ead67f30fb" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[580, 22, 351, 8, 30, "Input",ExpressionUUID->"3e0012bc-484c-40e8-9c83-903632f74560"], +Cell[934, 32, 265, 6, 34, "Output",ExpressionUUID->"4b58da65-d06e-4cf7-886c-bdc52a33a730"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1236, 43, 272, 7, 30, "Input",ExpressionUUID->"2a24c1b6-53d4-49ac-a797-3d47c3d06165"], +Cell[1511, 52, 167, 2, 34, "Output",ExpressionUUID->"ec613603-7570-44ad-9dbe-4af2aabc7dbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1715, 59, 387, 9, 30, "Input",ExpressionUUID->"534f5cbd-245b-416c-a9a1-5992e36665b7"], +Cell[2105, 70, 280, 7, 35, "Output",ExpressionUUID->"01dc065d-1063-4cd2-90b1-693f66a848c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2422, 82, 288, 8, 38, "Input",ExpressionUUID->"4f0e463b-82d3-4532-ada1-b521f9d4d9ef"], +Cell[2713, 92, 167, 2, 34, "Output",ExpressionUUID->"7381b367-d7af-4b47-950c-3716f5a52c7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2917, 99, 385, 9, 30, "Input",ExpressionUUID->"9885dc61-80e4-4122-ac54-951dcc15a6ee"], +Cell[3305, 110, 278, 7, 35, "Output",ExpressionUUID->"5694346c-ac10-44d6-962b-cac08e412ece"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3620, 122, 288, 8, 38, "Input",ExpressionUUID->"812ee415-fe78-4082-bf59-55e1be0223b3"], +Cell[3911, 132, 166, 2, 34, "Output",ExpressionUUID->"1aa29a96-5f30-4782-b859-24d9889ecc3c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4114, 139, 422, 10, 48, "Input",ExpressionUUID->"68560d09-0e31-4f53-9bdd-39d8802e3415"], +Cell[4539, 151, 227, 4, 50, "Output",ExpressionUUID->"d8b27107-1b22-4ff1-b3f7-f8cdc0b3a3b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4803, 160, 241, 6, 50, "Input",ExpressionUUID->"e925ab6b-75e0-4ffd-a1cb-1d38fb4a6191"], +Cell[5047, 168, 168, 2, 34, "Output",ExpressionUUID->"13bbcd4f-671f-47ee-907c-1dc0e05a2778"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5252, 175, 244, 6, 50, "Input",ExpressionUUID->"0c65cad8-6205-4cd1-afbf-b23b0754ef01"], +Cell[5499, 183, 165, 2, 34, "Output",ExpressionUUID->"d5fc59bc-6d3b-407c-a8d8-2098d576f064"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5701, 190, 372, 9, 48, "Input",ExpressionUUID->"8c5f374a-d1ce-4be4-8192-483b3b385d8d"], +Cell[6076, 201, 204, 4, 51, "Output",ExpressionUUID->"21a431b9-7030-412d-a318-d26112c2fef2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6317, 210, 242, 6, 50, "Input",ExpressionUUID->"1cbda346-6949-4b90-a3a7-74561ee3da2a"], +Cell[6562, 218, 248, 4, 34, "Output",ExpressionUUID->"a6297b91-77c8-48cc-ab01-a922aada29d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6847, 227, 356, 10, 48, "Input",ExpressionUUID->"d55babfa-2f65-4c59-896c-ced72bc3b832"], +Cell[7206, 239, 206, 4, 51, "Output",ExpressionUUID->"8c15aafd-c3b1-4c47-874d-46e69474d73d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7449, 248, 440, 11, 58, "Input",ExpressionUUID->"b7327f27-629b-471d-a1e6-dcbaae046a38"], +Cell[7892, 261, 169, 2, 34, "Output",ExpressionUUID->"7c06440d-d162-40be-8f67-412ec3e28b41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8098, 268, 438, 11, 58, "Input",ExpressionUUID->"ff239d30-8ec9-4201-be26-d8f104e87d1b"], +Cell[8539, 281, 166, 2, 34, "Output",ExpressionUUID->"1b29894f-df1e-4c59-a4b1-b01201e59304"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8742, 288, 440, 11, 58, "Input",ExpressionUUID->"c99ba440-b0a2-4de9-899d-db28055047b4"], +Cell[9185, 301, 166, 2, 34, "Output",ExpressionUUID->"faad8780-f86e-4aa0-9ebc-f1c2d64a273f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9388, 308, 294, 6, 47, "Input",ExpressionUUID->"206b1e1f-8758-497a-8c87-2d1b69b28e4d"], +Cell[9685, 316, 238, 5, 34, "Output",ExpressionUUID->"58ee9769-3419-4cd3-a28c-d64ac58ab17e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9960, 326, 246, 6, 30, "Input",ExpressionUUID->"901d0fc8-bc49-4294-804a-775a257006ce"], +Cell[10209, 334, 166, 2, 34, "Output",ExpressionUUID->"1c802569-f9f2-4a21-9689-e34d272445ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10412, 341, 657, 19, 47, "Input",ExpressionUUID->"f23c6227-f81c-43cd-84e8-80c85c4a9181"], +Cell[11072, 362, 188, 4, 35, "Output",ExpressionUUID->"1c2a621f-2acd-46af-9e88-2f66ba3d02b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11297, 371, 193, 5, 38, "Input",ExpressionUUID->"48bb8197-bcd3-4733-be85-ee37cb58df76"], +Cell[11493, 378, 167, 2, 34, "Output",ExpressionUUID->"78ff4ec1-8b51-4ed6-a593-9105c6eacee5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11697, 385, 650, 19, 47, "Input",ExpressionUUID->"ef5f053f-b1e9-4e4b-a8d7-d76df6737103"], +Cell[12350, 406, 186, 4, 35, "Output",ExpressionUUID->"f0077cb6-a9d8-4a3a-97c6-8df878c647d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12573, 415, 193, 5, 38, "Input",ExpressionUUID->"eedda7c4-fdb4-4e3e-8fc2-b99cb0d1c8c3"], +Cell[12769, 422, 166, 2, 34, "Output",ExpressionUUID->"02de70c7-dde7-4cb3-be8c-602dff83f250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12972, 429, 374, 9, 48, "Input",ExpressionUUID->"781a4980-8190-4b93-8927-e2c81e4c3de7"], +Cell[13349, 440, 203, 4, 51, "Output",ExpressionUUID->"4e5d9359-33cf-4ba4-bf9c-83cb7dc38721"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13589, 449, 241, 6, 50, "Input",ExpressionUUID->"dc8f416e-bc87-4380-b71e-bf50dd5de9ba"], +Cell[13833, 457, 165, 2, 34, "Output",ExpressionUUID->"186f3802-f4ed-44d6-8387-10a38a6c15c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14035, 464, 372, 9, 47, "Input",ExpressionUUID->"b1502f3c-4181-4079-af1c-288bbe84b435"], +Cell[14410, 475, 203, 4, 51, "Output",ExpressionUUID->"7a06377f-515b-4eb8-8169-34e39fcab69a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14650, 484, 241, 6, 50, "Input",ExpressionUUID->"e43918fe-67b3-4373-bc21-289ef3ba8744"], +Cell[14894, 492, 165, 2, 34, "Output",ExpressionUUID->"01550f4c-d519-42e3-b47d-262bb3e3b5f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15096, 499, 372, 9, 48, "Input",ExpressionUUID->"d03197f6-b389-45c3-b4ce-8e8bd86dedc6"], +Cell[15471, 510, 205, 4, 51, "Output",ExpressionUUID->"b877f878-9a1d-451b-ab42-5eb8e7d96ebd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15713, 519, 243, 6, 50, "Input",ExpressionUUID->"28e3df34-2b11-44d6-8537-ea25a7b38189"], +Cell[15959, 527, 168, 2, 34, "Output",ExpressionUUID->"ed97e960-604e-487b-8161-3075ac41eec4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16164, 534, 290, 7, 30, "Input",ExpressionUUID->"9a67ed90-4ed3-405a-bb3e-6ea48d56bbc7"], +Cell[16457, 543, 204, 4, 34, "Output",ExpressionUUID->"4bcb8078-78ef-430d-90ab-2c61444faff1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16698, 552, 204, 3, 30, "Input",ExpressionUUID->"0bef9ee5-fe09-41c1-993a-ad3ad85e7532"], +Cell[16905, 557, 185, 4, 35, "Output",ExpressionUUID->"12f83800-a700-4605-adc5-b99b500a50b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17127, 566, 190, 5, 38, "Input",ExpressionUUID->"ce86ff36-bd47-4009-a24f-b6a4351d3409"], +Cell[17320, 573, 165, 2, 34, "Output",ExpressionUUID->"ccc233c2-e491-480b-aec8-33fa9e5249f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17522, 580, 351, 8, 30, "Input",ExpressionUUID->"4895f04e-f867-434e-bbc1-deedf8e35815"], +Cell[17876, 590, 264, 6, 34, "Output",ExpressionUUID->"bc5e2390-0a20-4d0d-9f97-a632e7541c65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18177, 601, 273, 7, 30, "Input",ExpressionUUID->"665871fc-7726-4092-b156-5056ac5e2df0"], +Cell[18453, 610, 169, 2, 34, "Output",ExpressionUUID->"ae68522e-ff01-4261-9102-5b2dce588279"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18659, 617, 382, 9, 30, "Input",ExpressionUUID->"d3998a55-11b4-4694-b6c2-f4b8d64d57e2"], +Cell[19044, 628, 167, 2, 34, "Output",ExpressionUUID->"d8135497-c166-4b7a-8144-0a1c84de45bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19248, 635, 387, 9, 30, "Input",ExpressionUUID->"ab0727e7-af5a-4f4c-97b0-ff1827af9d82"], +Cell[19638, 646, 279, 7, 35, "Output",ExpressionUUID->"dea98758-c3f8-4c71-a6ed-39a5653221b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19954, 658, 289, 8, 38, "Input",ExpressionUUID->"ff4445f9-6db8-48cc-9da0-7b782852d9bd"], +Cell[20246, 668, 169, 2, 34, "Output",ExpressionUUID->"4f0d4b23-b1c1-4321-836a-20c6ab6ea6e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20452, 675, 308, 7, 49, "Input",ExpressionUUID->"93cbcc0d-67b5-46d7-9c26-545c4a8752ef"], +Cell[20763, 684, 167, 2, 34, "Output",ExpressionUUID->"9517590a-5b59-4529-a2d6-e0dfe0fdacc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20967, 691, 360, 9, 49, "Input",ExpressionUUID->"62d2e725-cc5a-4a21-8de9-e3141f0ed77a"], +Cell[21330, 702, 308, 7, 50, "Output",ExpressionUUID->"8269e5a5-0334-4f4a-9b07-6f292f9c3f7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21675, 714, 441, 11, 58, "Input",ExpressionUUID->"f48bee69-7236-46ad-8352-602387dfb8a7"], +Cell[22119, 727, 246, 4, 34, "Output",ExpressionUUID->"b66b7ef9-754f-4c20-a9ce-4fc3bda7581f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22402, 736, 307, 7, 49, "Input",ExpressionUUID->"cb691b12-224a-4a4c-97aa-a632146bd1fd"], +Cell[22712, 745, 166, 2, 34, "Output",ExpressionUUID->"d1db8ecb-a4d9-44ca-b949-3146170f2ede"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22915, 752, 210, 3, 30, "Input",ExpressionUUID->"6b23efdc-9f9a-4c47-a7b7-f0cd00075068"], +Cell[23128, 757, 157, 2, 34, "Output",ExpressionUUID->"8798e2f4-0b40-4932-b791-69f799f42776"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23322, 764, 328, 8, 51, "Input",ExpressionUUID->"72a86536-c069-4959-a018-855a19f4e090"], +Cell[23653, 774, 168, 2, 34, "Output",ExpressionUUID->"e76f9d54-8fa3-44f3-bf30-54cdb574b141"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23858, 781, 351, 8, 30, "Input",ExpressionUUID->"6de994f0-e6ed-41e7-bbb3-6ad175151907"], +Cell[24212, 791, 263, 6, 34, "Output",ExpressionUUID->"6b931bc6-14a3-4548-bd46-6956eb50cd6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24512, 802, 272, 7, 30, "Input",ExpressionUUID->"eb9aa835-2d9a-438c-ad98-6e5a82359680"], +Cell[24787, 811, 167, 2, 34, "Output",ExpressionUUID->"a53646e7-9b99-4017-ad93-164fc5df8788"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24991, 818, 385, 9, 30, "Input",ExpressionUUID->"ccdd54fb-5d04-4610-9655-58e95ce35f2b"], +Cell[25379, 829, 280, 7, 35, "Output",ExpressionUUID->"ea73d104-2379-4aa3-842d-e918cf43c292"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25696, 841, 288, 8, 38, "Input",ExpressionUUID->"4d40c1c7-b26b-45be-a7da-a0b5047d32a3"], +Cell[25987, 851, 166, 2, 34, "Output",ExpressionUUID->"40ef9a71-462b-414a-88d0-1fba20cfc3f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26190, 858, 370, 9, 48, "Input",ExpressionUUID->"d5b79459-d75e-46de-8a1e-859f8676df9c"], +Cell[26563, 869, 222, 5, 50, "Output",ExpressionUUID->"2a933cb4-905d-44eb-bf43-045c4628430c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26822, 879, 262, 7, 50, "Input",ExpressionUUID->"42e8d218-34dc-4b49-b275-5749b133fcf8"], +Cell[27087, 888, 166, 2, 34, "Output",ExpressionUUID->"856153c8-3119-489f-adc4-7b8fa9ec3642"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27290, 895, 368, 9, 48, "Input",ExpressionUUID->"77d81d9d-9e3d-4b39-b2dc-7a011a88c909"], +Cell[27661, 906, 203, 4, 50, "Output",ExpressionUUID->"e33aeee2-3e41-4688-808d-40bc51c76e43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27901, 915, 241, 6, 50, "Input",ExpressionUUID->"83910bc9-81ed-4421-9fa4-39b47d4c5666"], +Cell[28145, 923, 168, 2, 34, "Output",ExpressionUUID->"436e1572-c312-407a-b5cb-58596db6c561"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28350, 930, 368, 9, 48, "Input",ExpressionUUID->"3cce7a0b-f00d-4cf1-bb93-542dd9cd496f"], +Cell[28721, 941, 204, 4, 50, "Output",ExpressionUUID->"e363a144-810b-41ed-8f4e-6702ae6c7526"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28962, 950, 242, 6, 50, "Input",ExpressionUUID->"68c16cc5-ce47-4ac1-ac5c-934538e6e4b4"], +Cell[29207, 958, 166, 2, 34, "Output",ExpressionUUID->"60c1656a-703e-4d93-b46c-ebde6cdb6cab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29410, 965, 373, 9, 48, "Input",ExpressionUUID->"e9346c45-d3f3-47c7-b57d-684086645b4c"], +Cell[29786, 976, 206, 4, 51, "Output",ExpressionUUID->"31745284-7386-4618-9dbc-9b79d2735f2f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30029, 985, 244, 6, 50, "Input",ExpressionUUID->"3122f56a-523e-43e5-af83-dbd7cdd3822b"], +Cell[30276, 993, 169, 2, 34, "Output",ExpressionUUID->"9f9386de-d00e-43c0-bf0c-d55cec4494d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30482, 1000, 373, 9, 48, "Input",ExpressionUUID->"989e7975-cc7f-4649-a1e9-7b9636265ea5"], +Cell[30858, 1011, 204, 4, 51, "Output",ExpressionUUID->"007b08fb-3708-41dd-87ce-2d30fcc3b41e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31099, 1020, 242, 6, 50, "Input",ExpressionUUID->"ef4de106-e998-4765-ae40-9e10cc5b385d"], +Cell[31344, 1028, 167, 2, 34, "Output",ExpressionUUID->"ae8e1856-0043-4c3e-9ae6-79f22c2c31f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31548, 1035, 373, 9, 48, "Input",ExpressionUUID->"eb32315a-86ce-4a83-89ab-f66a142b50ab"], +Cell[31924, 1046, 221, 5, 51, "Output",ExpressionUUID->"2165f06b-e234-4f67-9dec-57f267a1bb21"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32182, 1056, 262, 7, 50, "Input",ExpressionUUID->"de85be3a-09b4-49cf-bf41-1283999db20e"], +Cell[32447, 1065, 163, 2, 57, "Output",ExpressionUUID->"b511619c-cd5f-43e2-80dd-4107d50b2aee"] +}, Open ]] +} +] +*) +