(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 26135, 728] NotebookOptionsPosition[ 20369, 622] NotebookOutlinePosition[ 20763, 638] CellTagsIndexPosition[ 20720, 635] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "3"}], ",", "1"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", RowBox[{"-", "2"}]}], "}"}]}], RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", RowBox[{"-", "2"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", RowBox[{"-", "2"}]}], "}"}]}]], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", RowBox[{"-", "2"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.808351626031466*^9, 3.808351660210792*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"2a435ec7-253b-4115-b6ae-8e4109ea6629"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["10", "9"], ",", RowBox[{"-", FractionBox["20", "9"]}], ",", FractionBox["20", "9"]}], "}"}]], "Output", CellChangeTimes->{3.8083516616892567`*^9}, CellLabel->"Out[1]=",ExpressionUUID->"ccd6b1af-6751-4a92-803d-b803890b5bce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "3"}], ",", "1"}], "}"}], "-", "%"}]], "Input", CellChangeTimes->{{3.80835168380208*^9, 3.8083516853634577`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"6bdb466f-cdad-44f0-b2ae-5b111715304e"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["8", "9"], ",", RowBox[{"-", FractionBox["7", "9"]}], ",", RowBox[{"-", FractionBox["11", "9"]}]}], "}"}]], "Output", CellChangeTimes->{3.808351686483302*^9}, CellLabel->"Out[2]=",ExpressionUUID->"0e8d58ca-2c0a-4928-8fdc-45aa0a61d1f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Norm", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"4", "+", "t"}]}], "}"}], "-", RowBox[{"{", RowBox[{ RowBox[{"t", "+", "2"}], ",", RowBox[{"3", "-", "t"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.808351766848958*^9, 3.8083517949338083`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"ffb1f89b-56ed-4376-b9b4-7c12dfd0615c"], Cell[BoxData[ SqrtBox[ RowBox[{"4", "+", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"1", "+", RowBox[{"2", " ", "t"}]}], "]"}], "2"]}]]], "Output", CellChangeTimes->{3.808351797417273*^9}, CellLabel->"Out[3]=",ExpressionUUID->"2f2f25e4-f50a-4825-8656-feabaf388cb8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ SqrtBox[ RowBox[{"4", "+", SuperscriptBox[ RowBox[{"RealAbs", "[", RowBox[{"1", "+", RowBox[{"2", " ", "t"}]}], "]"}], "2"]}]], "<", "2.5"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.808351820899692*^9, 3.808351874194826*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"ecf9cea6-07bd-4aa9-a678-afde1364e9aa"], Cell[BoxData[ TemplateBox[{ "Reduce", "ratnz", "\"Reduce was unable to solve the system with inexact coefficients. The \ answer was obtained by solving a corresponding exact system and numericizing \ the result.\"", 2, 5, 2, 33274452688541036703, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.808351869445993*^9, 3.80835187496908*^9}}, CellLabel-> "During evaluation of \ In[5]:=",ExpressionUUID->"91447f68-9c44-4157-8688-5cdea3ec554a"], Cell[BoxData[ RowBox[{ RowBox[{"-", "1.25`"}], "<", "t", "<", "0.25`"}]], "Output", CellChangeTimes->{{3.808351869488563*^9, 3.808351874975669*^9}}, CellLabel->"Out[5]=",ExpressionUUID->"e49d997e-2a6a-42b2-93a5-b0007576b44d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", " ", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{"3", RowBox[{"Cos", "[", "t", "]"}]}]}], "}"}], ",", "t"}], "]"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"\[Pi]", "/", "2"}]}]}]], "Input", CellChangeTimes->{{3.8083519573732977`*^9, 3.808351980446554*^9}, { 3.808352562194415*^9, 3.8083525723202267`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"96fbdb4f-2bb6-48e4-a8a2-99fae38e3fc6"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "3"}]}], "}"}]], "Output", CellChangeTimes->{3.80835198087886*^9, 3.8083525731887283`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"c33247f7-0f16-413d-a06c-394496c5c7fb"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", RowBox[{"t_", ",", "a_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"15", " ", "t", " ", RowBox[{"Cos", "[", "a", "]"}]}], ",", RowBox[{ RowBox[{"15", " ", "t", " ", RowBox[{"Sin", "[", "a", "]"}]}], "-", RowBox[{"4.9", " ", SuperscriptBox["t", "2"]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.808352110301075*^9, 3.808352117508545*^9}, { 3.808352437967642*^9, 3.808352441054326*^9}, {3.808352687620324*^9, 3.8083527157935133`*^9}, {3.808353692042897*^9, 3.808353693511051*^9}, { 3.808354585500142*^9, 3.808354586079218*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"01e62cb3-b3d3-4fe6-8fa0-242181bd031d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"15", " ", "t", " ", RowBox[{"Cos", "[", RowBox[{"\[Pi]", "/", "3"}], "]"}]}], "\[Equal]", "6"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.808352719403578*^9, 3.808352770353435*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"6adb8df6-6a9a-463c-9480-dc0477ab7b83"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"t", "\[Rule]", FractionBox["4", "5"]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.808352770842325*^9}, CellLabel->"Out[9]=",ExpressionUUID->"ea0a016e-5afa-4490-8ebe-c739da94aca9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "[", RowBox[{ RowBox[{"4", "/", "5"}], ",", RowBox[{"\[Pi]", "/", "3"}]}], "]"}]], "Input", CellChangeTimes->{{3.808352896187736*^9, 3.8083529025007133`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"4e12b5dc-d776-47d0-8f33-c932e2266305"], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", "7.256304845413264`"}], "}"}]], "Output", CellChangeTimes->{3.808352903076193*^9}, CellLabel->"Out[10]=",ExpressionUUID->"b814c5c9-39b6-43bf-88e3-f105778ae9c6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"7.256304845413264", "-", "2.5"}]], "Input", CellChangeTimes->{{3.808353055411004*^9, 3.8083530566355553`*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"e1cb8894-da9f-474e-86c3-065b4de48ba0"], Cell[BoxData["4.756304845413264`"], "Output", CellChangeTimes->{3.808353058204184*^9}, CellLabel->"Out[11]=",ExpressionUUID->"8bb6a0b4-d503-4d42-be96-488036fcbc17"] }, Open ]], Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"t", ",", RowBox[{"\[Pi]", "/", "3"}]}], "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.808353099011509*^9, 3.808353107103517*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"a3cba150-08ff-457d-8c32-ca85c6052225"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Norm", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["15", "2"], ",", RowBox[{ FractionBox[ RowBox[{"15", " ", SqrtBox["3"]}], "2"], "-", RowBox[{"9.8`", " ", "t"}]}]}], "}"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"4", "/", "5"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.808353110208056*^9, 3.808353130892129*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"384f57be-5da2-4c7c-b3bf-8b36bbf3b525"], Cell[BoxData["9.09815503439571`"], "Output", CellChangeTimes->{{3.808353115879363*^9, 3.8083531313776627`*^9}}, CellLabel->"Out[14]=",ExpressionUUID->"21e5a062-aa71-4bfd-a732-55168c8b763a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", "\[Equal]", RowBox[{"15", " ", "t", " ", RowBox[{"Cos", "[", "a", "]"}]}]}], ",", RowBox[{ FractionBox["25", "10"], "\[Equal]", RowBox[{ RowBox[{"15", " ", "t", " ", RowBox[{"Sin", "[", "a", "]"}]}], "-", RowBox[{ FractionBox["49", "10"], " ", SuperscriptBox["t", "2"]}]}]}], ",", RowBox[{"t", ">", "0"}], ",", RowBox[{"0", "<", "a", "<", RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "t"}], "}"}]}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.808353295113393*^9, 3.8083533121715937`*^9}, { 3.80835343182893*^9, 3.8083534822117434`*^9}, {3.808353560581332*^9, 3.808353583064777*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"490ce9e0-9801-4803-81a2-9c5556fd5482"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "0.5355035340172511`"}], ",", RowBox[{"t", "\[Rule]", "0.46510989845431966`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "1.430083912477407`"}], ",", RowBox[{"t", "\[Rule]", "2.852079942081005`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.808353482948093*^9, {3.808353578843479*^9, 3.808353583751877*^9}}, CellLabel->"Out[19]=",ExpressionUUID->"8793e914-15fa-45a0-9c64-74e1c1ae42db"] }, Open ]], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{"r", "[", "]"}]}]], "Input", CellChangeTimes->{{3.808354108912571*^9, 3.808354123210217*^9}},ExpressionUUID->"89d9c84d-b5a7-4586-bcdc-\ 9e41f5833d1c"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"0.5355035340172511", "/", "Degree"}], "//", "N"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"1.430083912477407", "/", "Degree"}], "//", "N"}]}], "Input", CellChangeTimes->{{3.808353507145722*^9, 3.8083535223628187`*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"3a4e5744-f2e8-4d66-b10d-5118c119cf78"], Cell[BoxData["30.6820924135288`"], "Output", CellChangeTimes->{3.808353522992114*^9}, CellLabel->"Out[16]=",ExpressionUUID->"1c132e6d-0b10-4df9-9ac5-1e9d3d032032"], Cell[BoxData["81.93777253451162`"], "Output", CellChangeTimes->{3.808353522994424*^9}, CellLabel->"Out[17]=",ExpressionUUID->"87a97bf7-59ac-4e3c-8aa7-8ccc6c023368"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"15", " ", "t", " ", RowBox[{"Sin", "[", "a", "]"}]}], "-", RowBox[{"4.9", " ", SuperscriptBox["t", "2"]}], "+", "1.5"}], "\[Equal]", "0"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.808353717261784*^9, 3.8083537826398163`*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"220fafa8-8717-4654-a3a7-5e6210d3d5e0"], Cell[BoxData[ TemplateBox[{ "Solve", "ratnz", "\"Solve was unable to solve the system with inexact coefficients. The \ answer was obtained by solving a corresponding exact system and numericizing \ the result.\"", 2, 24, 8, 33274452688541036703, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.808353751429471*^9, 3.808353783218864*^9}}, CellLabel-> "During evaluation of \ In[24]:=",ExpressionUUID->"a34afa12-f4ed-4b39-95ad-1ce8d6311ff5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"0.10204081632653061`", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "0.5477225575051661`"}], " ", SqrtBox[ RowBox[{"473.`", "\[VeryThinSpace]", "-", RowBox[{"375.`", " ", RowBox[{"Cos", "[", RowBox[{"2.`", " ", "a"}], "]"}]}]}]]}], "+", RowBox[{"15.`", " ", RowBox[{"Sin", "[", "a", "]"}]}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"0.10204081632653061`", " ", RowBox[{"(", RowBox[{ RowBox[{"0.5477225575051661`", " ", SqrtBox[ RowBox[{"473.`", "\[VeryThinSpace]", "-", RowBox[{"375.`", " ", RowBox[{"Cos", "[", RowBox[{"2.`", " ", "a"}], "]"}]}]}]]}], "+", RowBox[{"15.`", " ", RowBox[{"Sin", "[", "a", "]"}]}]}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8083537514382887`*^9, 3.808353783227675*^9}}, CellLabel->"Out[24]=",ExpressionUUID->"b2527db1-96ce-45cd-ae7a-80bb607453d9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"15", " ", "t", " ", RowBox[{"Cos", "[", "a", "]"}]}], "\[Equal]", "16.4228"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.808353794671701*^9, 3.808353824051447*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"b74d15e4-4b02-4567-9133-a7183971cb1c"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"1.0948533333333332`", " ", RowBox[{"Sec", "[", "a", "]"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.808353826450468*^9}, CellLabel->"Out[25]=",ExpressionUUID->"6fdf5da7-dda0-40be-ba10-879d336474b6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"0.10204081632653061`", " ", RowBox[{"(", RowBox[{ RowBox[{"0.5477225575051661`", " ", SqrtBox[ RowBox[{"473.`", "\[VeryThinSpace]", "-", RowBox[{"375.`", " ", RowBox[{"Cos", "[", RowBox[{"2.`", " ", "a"}], "]"}]}]}]]}], "+", RowBox[{"15.`", " ", RowBox[{"Sin", "[", "a", "]"}]}]}], ")"}]}], "\[Equal]", " ", RowBox[{"1.0948533333333332`", " ", RowBox[{"Sec", "[", "a", "]"}]}]}], "&&", RowBox[{"0", "\[LessEqual]", "a", "\[LessEqual]", RowBox[{"\[Pi]", "/", "2"}]}]}], ",", "a"}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.8083538349283533`*^9, 3.808353926208561*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"be18b08b-7163-451b-9433-ad09494c706d"], Cell[BoxData[ TemplateBox[{ "Solve", "ratnz", "\"Solve was unable to solve the system with inexact coefficients. The \ answer was obtained by solving a corresponding exact system and numericizing \ the result.\"", 2, 29, 11, 33274452688541036703, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.8083538797851477`*^9, 3.8083539267017603`*^9}}, CellLabel-> "During evaluation of \ In[29]:=",ExpressionUUID->"19c54bc8-069c-4bab-8051-6f3bb32e1fe6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "\[Rule]", "0.28971032522755474`"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "\[Rule]", "1.190002289736798`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{{3.808353879793046*^9, 3.808353926708556*^9}}, CellLabel->"Out[29]=",ExpressionUUID->"ab89b30f-0768-45e3-bb9d-8f2f059648de"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"1.190002289736798", "/", "Degree"}], "//", "N"}]], "Input", CellChangeTimes->{{3.808353918849938*^9, 3.808353921765993*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"2830a9e8-8a90-4885-a193-5cb5c8357dac"], Cell[BoxData["68.18210881282268`"], "Output", CellChangeTimes->{3.8083539221673737`*^9}, CellLabel->"Out[28]=",ExpressionUUID->"66f72230-6f9c-43db-9eca-aea830e6a2e5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"0.28971032522755474", "/", "Degree"}], "//", "N"}]], "Input", CellChangeTimes->{{3.8083539348227386`*^9, 3.808353937565908*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"f0c884c2-4077-4966-9c9f-797d63901d60"], Cell[BoxData["16.599178916901348`"], "Output", CellChangeTimes->{3.808353937963093*^9}, CellLabel->"Out[30]=",ExpressionUUID->"362bc022-1d0d-4583-8dba-fb969e9d010b"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "0.5355035340172511`"}], ",", RowBox[{"t", "\[Rule]", "0.46510989845431966`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "1.430083912477407`"}], ",", RowBox[{"t", "\[Rule]", "2.852079942081005`"}]}], "}"}]}], "}"}]], "Input",ExpressionUUID->"7f460456-626d-4900-85d8-bae1d9203168"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"0.5355035340172511", "/", "Degree"}], "//", "N"}]], "Input", CellChangeTimes->{{3.808355143524428*^9, 3.808355150703787*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"c8c469a4-bf47-4840-af1a-662b5540692a"], Cell[BoxData["30.6820924135288`"], "Output", CellChangeTimes->{3.808355151339514*^9}, CellLabel->"Out[46]=",ExpressionUUID->"aec58a8a-e380-462d-b523-789d6d69786d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "[", RowBox[{"t", ",", "0.5355035340172511"}], "]"}]], "Input", CellChangeTimes->{{3.8083542323525667`*^9, 3.808354242179022*^9}, 3.808354316945343*^9, 3.808354397620171*^9, 3.808354682221871*^9, 3.8083551595608*^9}, CellLabel->"In[47]:=",ExpressionUUID->"19a40f00-1b67-4c76-b30a-a47e5078ad5c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"12.90017696879716`", " ", "t"}], ",", RowBox[{ RowBox[{"7.6541122394249825`", " ", "t"}], "-", RowBox[{"4.9`", " ", SuperscriptBox["t", "2"]}]}]}], "}"}]], "Output", CellChangeTimes->{3.808354245003818*^9, 3.808354318235548*^9, 3.808354401822221*^9, 3.808354593484701*^9, 3.808354683279755*^9, 3.8083551607790813`*^9}, CellLabel->"Out[47]=",ExpressionUUID->"e70f552a-5d64-4439-8e4f-ebbd7ed80005"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"12.90017696879716`", " ", "t"}], "\[Equal]", RowBox[{"16.4228", "+", "6"}]}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.808354251788835*^9, 3.808354265117977*^9}, 3.8083543286368437`*^9, 3.80835441128439*^9, 3.8083546901527853`*^9, 3.808355166702771*^9, {3.808355416137471*^9, 3.808355416725651*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"73c1b24f-7fa3-42cd-929c-799f75af1fed"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"t", "\[Rule]", "1.7381777051769196`"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.80835426558648*^9, 3.808354330033366*^9, 3.808354414689732*^9, 3.8083546914599333`*^9, 3.808355169759898*^9, 3.808355418093547*^9}, CellLabel->"Out[50]=",ExpressionUUID->"1180dfd0-97e7-4acc-b90f-e5894b7841c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"7.6541122394249825`", " ", "t"}], "-", RowBox[{"4.9`", " ", SuperscriptBox["t", "2"]}]}], "/.", RowBox[{"t", "\[Rule]", "1.7381777051769196`"}]}]], "Input", CellChangeTimes->{{3.8083542765920277`*^9, 3.8083542796355124`*^9}, { 3.8083543412733*^9, 3.80835436052826*^9}, {3.80835442272756*^9, 3.808354431500832*^9}, {3.808354633952711*^9, 3.808354643827785*^9}, { 3.808355177831273*^9, 3.808355185149571*^9}, 3.808355426390048*^9}, CellLabel->"In[51]:=",ExpressionUUID->"d025ce4e-e791-4b1e-8a81-5f6804862586"], Cell[BoxData[ RowBox[{"-", "1.4999752529028143`"}]], "Output", CellChangeTimes->{ 3.808354281518223*^9, {3.808354343034175*^9, 3.808354361467813*^9}, 3.808354433392989*^9, 3.80835464556896*^9, 3.8083551889215117`*^9, 3.808355427514007*^9}, CellLabel->"Out[51]=",ExpressionUUID->"bc09ab06-9762-492a-9ee4-18778fed7aa2"] }, Open ]], Cell[BoxData["Solve"], "Input", CellChangeTimes->{{3.80835461352262*^9, 3.808354614265903*^9}},ExpressionUUID->"a9d13188-5c7a-4b25-b7eb-\ 90b8a7a916b3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Norm", "[", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.8083557422672253`*^9, 3.8083557469256783`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"83dc7abd-8169-43db-a1b7-d549b9b1d608"], Cell[BoxData[ SqrtBox["2"]], "Output", CellChangeTimes->{3.808355747630413*^9}, CellLabel->"Out[52]=",ExpressionUUID->"45134617-d499-4f08-be51-7e169587d61c"] }, Open ]] }, WindowSize->{Full, Full}, WindowMargins->{{4, Automatic}, {Automatic, 4}}, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 18, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"fc782f2d-caf5-4428-925d-c7b94035e070" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 757, 25, 50, "Input",ExpressionUUID->"2a435ec7-253b-4115-b6ae-8e4109ea6629"], Cell[1340, 49, 294, 8, 51, "Output",ExpressionUUID->"ccd6b1af-6751-4a92-803d-b803890b5bce"] }, Open ]], Cell[CellGroupData[{ Cell[1671, 62, 271, 6, 30, "Input",ExpressionUUID->"6bdb466f-cdad-44f0-b2ae-5b111715304e"], Cell[1945, 70, 310, 9, 51, "Output",ExpressionUUID->"0e8d58ca-2c0a-4928-8fdc-45aa0a61d1f7"] }, Open ]], Cell[CellGroupData[{ Cell[2292, 84, 402, 11, 30, "Input",ExpressionUUID->"ffb1f89b-56ed-4376-b9b4-7c12dfd0615c"], Cell[2697, 97, 292, 8, 37, "Output",ExpressionUUID->"2f2f25e4-f50a-4825-8656-feabaf388cb8"] }, Open ]], Cell[CellGroupData[{ Cell[3026, 110, 421, 12, 40, "Input",ExpressionUUID->"ecf9cea6-07bd-4aa9-a678-afde1364e9aa"], Cell[3450, 124, 473, 10, 42, "Message",ExpressionUUID->"91447f68-9c44-4157-8688-5cdea3ec554a"], Cell[3926, 136, 230, 4, 34, "Output",ExpressionUUID->"e49d997e-2a6a-42b2-93a5-b0007576b44d"] }, Open ]], Cell[CellGroupData[{ Cell[4193, 145, 526, 14, 30, "Input",ExpressionUUID->"96fbdb4f-2bb6-48e4-a8a2-99fae38e3fc6"], Cell[4722, 161, 235, 5, 34, "Output",ExpressionUUID->"c33247f7-0f16-413d-a06c-394496c5c7fb"] }, Open ]], Cell[4972, 169, 712, 17, 33, "Input",ExpressionUUID->"01e62cb3-b3d3-4fe6-8fa0-242181bd031d"], Cell[CellGroupData[{ Cell[5709, 190, 359, 9, 30, "Input",ExpressionUUID->"6adb8df6-6a9a-463c-9480-dc0477ab7b83"], Cell[6071, 201, 246, 6, 51, "Output",ExpressionUUID->"ea0a016e-5afa-4490-8ebe-c739da94aca9"] }, Open ]], Cell[CellGroupData[{ Cell[6354, 212, 276, 6, 30, "Input",ExpressionUUID->"4e12b5dc-d776-47d0-8f33-c932e2266305"], Cell[6633, 220, 211, 4, 34, "Output",ExpressionUUID->"b814c5c9-39b6-43bf-88e3-f105778ae9c6"] }, Open ]], Cell[CellGroupData[{ Cell[6881, 229, 214, 3, 30, "Input",ExpressionUUID->"e1cb8894-da9f-474e-86c3-065b4de48ba0"], Cell[7098, 234, 166, 2, 34, "Output",ExpressionUUID->"8bb6a0b4-d503-4d42-be96-488036fcbc17"] }, Open ]], Cell[7279, 239, 306, 7, 30, "Input",ExpressionUUID->"a3cba150-08ff-457d-8c32-ca85c6052225"], Cell[CellGroupData[{ Cell[7610, 250, 483, 14, 52, InheritFromParent,ExpressionUUID->"384f57be-5da2-4c7c-b3bf-8b36bbf3b525"], Cell[8096, 266, 191, 2, 34, "Output",ExpressionUUID->"21e5a062-aa71-4bfd-a732-55168c8b763a"] }, Open ]], Cell[CellGroupData[{ Cell[8324, 273, 936, 25, 71, "Input",ExpressionUUID->"490ce9e0-9801-4803-81a2-9c5556fd5482"], Cell[9263, 300, 543, 14, 34, "Output",ExpressionUUID->"8793e914-15fa-45a0-9c64-74e1c1ae42db"] }, Open ]], Cell[9821, 317, 202, 5, 30, "Input",ExpressionUUID->"89d9c84d-b5a7-4586-bcdc-9e41f5833d1c"], Cell[CellGroupData[{ Cell[10048, 326, 342, 7, 52, "Input",ExpressionUUID->"3a4e5744-f2e8-4d66-b10d-5118c119cf78"], Cell[10393, 335, 165, 2, 34, "Output",ExpressionUUID->"1c132e6d-0b10-4df9-9ac5-1e9d3d032032"], Cell[10561, 339, 166, 2, 34, "Output",ExpressionUUID->"87a97bf7-59ac-4e3c-8aa7-8ccc6c023368"] }, Open ]], Cell[CellGroupData[{ Cell[10764, 346, 426, 11, 33, "Input",ExpressionUUID->"220fafa8-8717-4654-a3a7-5e6210d3d5e0"], Cell[11193, 359, 474, 10, 42, "Message",ExpressionUUID->"a34afa12-f4ed-4b39-95ad-1ce8d6311ff5"], Cell[11670, 371, 1162, 32, 62, "Output",ExpressionUUID->"b2527db1-96ce-45cd-ae7a-80bb607453d9"] }, Open ]], Cell[CellGroupData[{ Cell[12869, 408, 335, 8, 30, "Input",ExpressionUUID->"b74d15e4-4b02-4567-9133-a7183971cb1c"], Cell[13207, 418, 300, 7, 34, "Output",ExpressionUUID->"6fdf5da7-dda0-40be-ba10-879d336474b6"] }, Open ]], Cell[CellGroupData[{ Cell[13544, 430, 902, 23, 114, "Input",ExpressionUUID->"be18b08b-7163-451b-9433-ad09494c706d"], Cell[14449, 455, 479, 10, 42, "Message",ExpressionUUID->"19c54bc8-069c-4bab-8051-6f3bb32e1fe6"], Cell[14931, 467, 366, 9, 34, "Output",ExpressionUUID->"ab89b30f-0768-45e3-bb9d-8f2f059648de"] }, Open ]], Cell[CellGroupData[{ Cell[15334, 481, 239, 4, 30, "Input",ExpressionUUID->"2830a9e8-8a90-4885-a193-5cb5c8357dac"], Cell[15576, 487, 168, 2, 34, "Output",ExpressionUUID->"66f72230-6f9c-43db-9eca-aea830e6a2e5"] }, Open ]], Cell[CellGroupData[{ Cell[15781, 494, 243, 4, 30, "Input",ExpressionUUID->"f0c884c2-4077-4966-9c9f-797d63901d60"], Cell[16027, 500, 167, 2, 34, "Output",ExpressionUUID->"362bc022-1d0d-4583-8dba-fb969e9d010b"] }, Open ]], Cell[16209, 505, 427, 11, 52, "Input",ExpressionUUID->"7f460456-626d-4900-85d8-bae1d9203168"], Cell[CellGroupData[{ Cell[16661, 520, 240, 4, 30, "Input",ExpressionUUID->"c8c469a4-bf47-4840-af1a-662b5540692a"], Cell[16904, 526, 165, 2, 34, "Output",ExpressionUUID->"aec58a8a-e380-462d-b523-789d6d69786d"] }, Open ]], Cell[CellGroupData[{ Cell[17106, 533, 335, 6, 30, "Input",ExpressionUUID->"19a40f00-1b67-4c76-b30a-a47e5078ad5c"], Cell[17444, 541, 475, 11, 37, "Output",ExpressionUUID->"e70f552a-5d64-4439-8e4f-ebbd7ed80005"] }, Open ]], Cell[CellGroupData[{ Cell[17956, 557, 475, 9, 30, "Input",ExpressionUUID->"73c1b24f-7fa3-42cd-929c-799f75af1fed"], Cell[18434, 568, 359, 7, 34, "Output",ExpressionUUID->"1180dfd0-97e7-4acc-b90f-e5894b7841c4"] }, Open ]], Cell[CellGroupData[{ Cell[18830, 580, 578, 11, 30, "Input",ExpressionUUID->"d025ce4e-e791-4b1e-8a81-5f6804862586"], Cell[19411, 593, 330, 6, 34, "Output",ExpressionUUID->"bc09ab06-9762-492a-9ee4-18778fed7aa2"] }, Open ]], Cell[19756, 602, 156, 3, 30, "Input",ExpressionUUID->"a9d13188-5c7a-4b25-b7eb-90b8a7a916b3"], Cell[CellGroupData[{ Cell[19937, 609, 253, 5, 30, "Input",ExpressionUUID->"83dc7abd-8169-43db-a1b7-d549b9b1d608"], Cell[20193, 616, 160, 3, 58, "Output",ExpressionUUID->"45134617-d499-4f08-be51-7e169587d61c"] }, Open ]] } ] *) (* End of internal cache information *)