(* 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[      6858,        208]
NotebookOptionsPosition[      5253,        174]
NotebookOutlinePosition[      5645,        190]
CellTagsIndexPosition[      5602,        187]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8073028389648952`*^9, 
  3.807302841700089*^9}},ExpressionUUID->"a9f647bd-7f85-4bfa-afad-\
af80049175f9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         FractionBox[
          SuperscriptBox["t", "3"], "3"], "-", 
         FractionBox["4", "3"]}], ",", 
        RowBox[{
         FractionBox["5", "2"], "-", 
         FractionBox[
          SuperscriptBox["t", "2"], "2"]}], ",", 
        RowBox[{
         SuperscriptBox["t", "2"], "+", "2"}]}], "}"}], "]"}], "\[Equal]", 
     "10"}], ",", "t"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.8073027129249*^9, 3.8073027142033157`*^9}, {
  3.807302769012492*^9, 3.807302873121262*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"fc67cbd9-45be-47f1-9400-5927ca811c92"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "ifun", 
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"", 2, 2, 2, 33267578552801832133, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.80730286897539*^9, 3.8073028737324944`*^9}},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"7423de6a-7e8c-40cc-a479-35359fbb28d7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", "\[Rule]", 
     RowBox[{"-", "2.4293299338475354`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", "\[Rule]", "2.612684459004317`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.807302869025784*^9, 3.8073028737384567`*^9}},
 CellLabel->"Out[2]=",ExpressionUUID->"54a07c9f-b289-4d4a-884f-b5e695c9a4ef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"v", "[", "t_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox["t", "2"], ",", 
    RowBox[{"-", "t"}], ",", 
    RowBox[{"2", " ", "t"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.807302985685772*^9, 3.807303023469548*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"dcd09bc0-b3af-4331-8086-47706cd7d8dd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"v", "'"}], "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.807303026645472*^9, 3.8073030279599*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"cc275b6b-2f41-41de-8331-1430d4814663"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", " ", "t"}], ",", 
   RowBox[{"-", "1"}], ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.8073030311248417`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"228e4cc0-5bdc-4ea7-ac42-4983fe1e0c0e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"v", "[", "t", "]"}], 
   RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input",
 CellLabel->"In[5]:=",ExpressionUUID->"4670c8d8-cd80-4786-b399-54653de72e68"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    SuperscriptBox["t", "3"], "3"], ",", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["t", "2"], "2"]}], ",", 
   SuperscriptBox["t", "2"]}], "}"}]], "Output",
 CellChangeTimes->{3.807303089422194*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"8b6138da-d94f-4707-8522-522d09dd4eac"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"%5", "/.", 
  RowBox[{"t", "\[Rule]", "1"}]}]], "Input",
 CellChangeTimes->{{3.807303242732871*^9, 3.807303254449341*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"253ae7fe-3717-46b8-8247-b22c43d90452"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    FractionBox["1", "3"], "+", "a"}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], "+", "b"}], ",", 
   RowBox[{"1", "+", "b"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.807303265615068*^9, 
  3.807303272556068*^9}},ExpressionUUID->"a12cbcda-c4ba-4511-97c0-\
64751359e974"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       FractionBox["1", "3"], "+", "a"}], ",", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], "+", "b"}], ",", 
      RowBox[{"1", "+", "b"}]}], "}"}], "\[Equal]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "2", ",", "3"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.80730303579635*^9, 3.8073030651444387`*^9}, {
  3.807303282876306*^9, 3.807303301011818*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"89c0b10f-d736-4ac8-9a5f-2ed897c102ec"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.807303301710487*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"8631d994-e4e6-47a6-9dc3-087e88d4037c"]
}, Open  ]]
},
WindowSize->{808, 691},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"c087536d-1d49-4bd7-b9c4-88c479045bd1"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 154, 3, 30, "Input",ExpressionUUID->"a9f647bd-7f85-4bfa-afad-af80049175f9"],
Cell[CellGroupData[{
Cell[737, 27, 731, 21, 51, "Input",ExpressionUUID->"fc67cbd9-45be-47f1-9400-5927ca811c92"],
Cell[1471, 50, 474, 11, 42, "Message",ExpressionUUID->"7423de6a-7e8c-40cc-a479-35359fbb28d7"],
Cell[1948, 63, 387, 10, 34, "Output",ExpressionUUID->"54a07c9f-b289-4d4a-884f-b5e695c9a4ef"]
}, Open  ]],
Cell[2350, 76, 351, 9, 33, "Input",ExpressionUUID->"dcd09bc0-b3af-4331-8086-47706cd7d8dd"],
Cell[CellGroupData[{
Cell[2726, 89, 214, 4, 30, "Input",ExpressionUUID->"cc275b6b-2f41-41de-8331-1430d4814663"],
Cell[2943, 95, 248, 6, 34, "Output",ExpressionUUID->"228e4cc0-5bdc-4ea7-ac42-4983fe1e0c0e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3228, 106, 213, 5, 45, "Input",ExpressionUUID->"4670c8d8-cd80-4786-b399-54653de72e68"],
Cell[3444, 113, 345, 10, 54, "Output",ExpressionUUID->"8b6138da-d94f-4707-8522-522d09dd4eac"]
}, Open  ]],
Cell[3804, 126, 224, 4, 30, "Input",ExpressionUUID->"253ae7fe-3717-46b8-8247-b22c43d90452"],
Cell[4031, 132, 347, 11, 48, InheritFromParent,ExpressionUUID->"a12cbcda-c4ba-4511-97c0-64751359e974"],
Cell[CellGroupData[{
Cell[4403, 147, 666, 19, 48, "Input",ExpressionUUID->"89c0b10f-d736-4ac8-9a5f-2ed897c102ec"],
Cell[5072, 168, 165, 3, 57, "Output",ExpressionUUID->"8631d994-e4e6-47a6-9dc3-087e88d4037c"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)