(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 12184, 396] NotebookOptionsPosition[ 8791, 326] NotebookOutlinePosition[ 9150, 342] CellTagsIndexPosition[ 9107, 339] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2", "*", RowBox[{"Cis", "[", RowBox[{ RowBox[{ SqrtBox["2"], "/", "2"}], "*", "\[Pi]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.782712288133544*^9, 3.782712334918593*^9}, { 3.782712383255028*^9, 3.782712413459569*^9}},ExpressionUUID->"b99f45cd-1485-4df8-9232-\ 7036c2847d77"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", SqrtBox["2"]], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", SqrtBox["2"]], "]"}]}]}]], "Output", CellChangeTimes->{{3.782712296695838*^9, 3.7827123354992657`*^9}, { 3.782712391433614*^9, 3.78271241404187*^9}},ExpressionUUID->"af988866-a65b-49af-866a-\ e1d3439b8a0b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Re", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", SqrtBox["2"]], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", SqrtBox["2"]], "]"}]}]}], "]"}]], "Input", NumberMarks->False,ExpressionUUID->"895855be-58a7-4da3-a69c-bb20f35ffa60"], Cell[BoxData[ RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", SqrtBox["2"]], "]"}]}]], "Output", CellChangeTimes->{ 3.78271242016599*^9},ExpressionUUID->"ec1d6f86-6785-4b1e-949d-0782ce13a1ae"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Re", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], "]"}]}]}], "]"}]], "Input", NumberMarks->False,ExpressionUUID->"f18b8550-fb2a-429d-911f-afb8f4c8550a"], Cell[BoxData[ RowBox[{"Re", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], "]"}]}]}], "]"}]], "Output", CellChangeTimes->{ 3.7827123430984097`*^9},ExpressionUUID->"e13e2a45-da1d-4fa8-b712-\ 9992e89b75d7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], "]"}]}]}], "]"}]], "Input", NumberMarks->False,ExpressionUUID->"c7d91450-0404-488f-aca6-43311c31e4f3"], Cell[BoxData[ RowBox[{"0.09559093573046074`", "\[VeryThinSpace]", "+", RowBox[{"0.14887406171360995`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{ 3.782712328008848*^9},ExpressionUUID->"bfc7cc65-f1ec-473c-8ab2-\ dc506447e883"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{"5", "+", RowBox[{"10", " ", "\[ImaginaryI]"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{"5", "+", RowBox[{"10", " ", "\[ImaginaryI]"}]}], "]"}]}]}], "]"}]], "Input", NumberMarks->False,ExpressionUUID->"16767aac-3ff8-4226-bf4d-2c05daf114e9"], Cell[BoxData[ RowBox[{"0.00001287824306928087`", "\[VeryThinSpace]", "-", RowBox[{"0.00004353509393695276`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{ 3.782712308297751*^9},ExpressionUUID->"7338e5e1-11b3-4425-8886-\ 61bbda711f04"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Conjugate", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{"5", "+", RowBox[{"10", " ", "\[ImaginaryI]"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{"5", "+", RowBox[{"10", " ", "\[ImaginaryI]"}]}], "]"}]}]}], "]"}]], "Input", NumberMarks->False,ExpressionUUID->"c4ec8a8a-d952-49fc-ba57-e9edd11175ad"], Cell[BoxData[ RowBox[{ RowBox[{"Cosh", "[", RowBox[{"10", "+", RowBox[{"5", " ", "\[ImaginaryI]"}]}], "]"}], "-", RowBox[{"Sinh", "[", RowBox[{"10", "+", RowBox[{"5", " ", "\[ImaginaryI]"}]}], "]"}]}]], "Output", CellChangeTimes->{ 3.7827123036772757`*^9},ExpressionUUID->"e5d2bcfa-62d2-4352-95c4-\ 2121c280e1c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", " ", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}]}]], "Input", CellChangeTimes->{{3.782716206544117*^9, 3.782716213200623*^9}},ExpressionUUID->"92269f78-7df9-4e66-94d8-\ 5a29804ee79b"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}]], "Output", CellChangeTimes->{ 3.782716213937394*^9},ExpressionUUID->"843105ff-2409-45ca-81c5-\ 2ff0215c02a0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}]}]], "Input", CellChangeTimes->{{3.782716220200424*^9, 3.782716225923292*^9}},ExpressionUUID->"edf355e4-c79f-44ac-ac66-\ a9e6ac75ebcd"], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}]], "Output", CellChangeTimes->{ 3.7827162266315928`*^9},ExpressionUUID->"a77b3156-51c1-411e-a7ca-\ f4ab38993979"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Norm", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.782716227752852*^9, 3.782716231422391*^9}, { 3.782716263450605*^9, 3.782716266899146*^9}},ExpressionUUID->"fa4e3189-037b-482e-afc0-\ 91bf84d6afd4"], Cell[BoxData[ SqrtBox["6"]], "Output", CellChangeTimes->{ 3.782716268299901*^9},ExpressionUUID->"9ed160ae-22af-4ff2-9252-\ 789e4ec5a603"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Normalize", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.782716277762125*^9, 3.782716282085897*^9}},ExpressionUUID->"ceb2f853-67df-4f55-8867-\ 77ab7fbc7aa8"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", SqrtBox["6"]], ",", SqrtBox[ FractionBox["2", "3"]], ",", FractionBox["1", SqrtBox["6"]]}], "}"}]], "Output", CellChangeTimes->{ 3.782716283022562*^9},ExpressionUUID->"5fb311a8-d8a5-479f-8726-\ e90ff3804f1c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "*", "b"}]], "Input", CellChangeTimes->{{3.782716290048085*^9, 3.782716291066764*^9}},ExpressionUUID->"7ab85adf-5f9f-470d-ae0b-\ 948a07b43b5f"], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}]], "Output", CellChangeTimes->{ 3.7827162918688297`*^9},ExpressionUUID->"1113bc5a-2eab-45b6-8a53-\ c5d22a5f238e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", ".", "b"}]], "Input", CellChangeTimes->{{3.782716300011767*^9, 3.782716300308137*^9}},ExpressionUUID->"bb416228-b116-4a76-8ce8-\ 41b7bdfe65ab"], Cell[BoxData["6"], "Output", CellChangeTimes->{ 3.782716301117763*^9},ExpressionUUID->"2db283d5-3f8b-44a2-8d04-\ b525039f0777"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToDeg", "[", RowBox[{"VectorAngle", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.782716307920712*^9, 3.782716365266444*^9}},ExpressionUUID->"28652de7-b923-4294-b96e-\ 49a9fb5b533f"], Cell[BoxData["35.264389682754654`"], "Output", CellChangeTimes->{{3.78271631498067*^9, 3.782716365723452*^9}},ExpressionUUID->"49bcce0a-4a9f-48b1-9727-\ c3618dab9010"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Projection", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.7827164114144278`*^9, 3.782716417088456*^9}},ExpressionUUID->"3136fd7c-bfba-4acf-9952-\ f43b41749da7"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["4", "3"], ",", FractionBox["2", "3"], ",", FractionBox["4", "3"]}], "}"}]], "Output", CellChangeTimes->{ 3.782716417750421*^9},ExpressionUUID->"042a4670-4eb8-4e07-89ee-\ ff3454578d86"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.782712627676511*^9, 3.782712658220271*^9}},ExpressionUUID->"ec3a7f2d-4eb6-4bd9-a779-\ e93df8e72159"] }, WindowSize->{808, 691}, WindowMargins->{{Automatic, -20}, {Automatic, 0}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 360, 11, 38, "Input",ExpressionUUID->"b99f45cd-1485-4df8-9232-7036c2847d77"], Cell[943, 35, 440, 13, 51, "Output",ExpressionUUID->"af988866-a65b-49af-866a-e1d3439b8a0b"] }, Open ]], Cell[CellGroupData[{ Cell[1420, 53, 376, 11, 49, "Input",ExpressionUUID->"895855be-58a7-4da3-a69c-bb20f35ffa60"], Cell[1799, 66, 219, 6, 51, "Output",ExpressionUUID->"ec1d6f86-6785-4b1e-949d-0782ce13a1ae"] }, Open ]], Cell[CellGroupData[{ Cell[2055, 77, 414, 12, 38, "Input",ExpressionUUID->"f18b8550-fb2a-429d-911f-afb8f4c8550a"], Cell[2472, 91, 443, 14, 38, "Output",ExpressionUUID->"e13e2a45-da1d-4fa8-b712-9992e89b75d7"] }, Open ]], Cell[CellGroupData[{ Cell[2952, 110, 413, 12, 38, "Input",ExpressionUUID->"c7d91450-0404-488f-aca6-43311c31e4f3"], Cell[3368, 124, 245, 5, 34, "Output",ExpressionUUID->"bfc7cc65-f1ec-473c-8ab2-dc506447e883"] }, Open ]], Cell[CellGroupData[{ Cell[3650, 134, 382, 10, 30, "Input",ExpressionUUID->"16767aac-3ff8-4226-bf4d-2c05daf114e9"], Cell[4035, 146, 251, 5, 34, "Output",ExpressionUUID->"7338e5e1-11b3-4425-8886-61bbda711f04"] }, Open ]], Cell[CellGroupData[{ Cell[4323, 156, 390, 10, 30, "Input",ExpressionUUID->"c4ec8a8a-d952-49fc-ba57-e9edd11175ad"], Cell[4716, 168, 340, 10, 34, "Output",ExpressionUUID->"e5d2bcfa-62d2-4352-95c4-2121c280e1c2"] }, Open ]], Cell[CellGroupData[{ Cell[5093, 183, 237, 6, 30, "Input",ExpressionUUID->"92269f78-7df9-4e66-94d8-5a29804ee79b"], Cell[5333, 191, 185, 5, 34, "Output",ExpressionUUID->"843105ff-2409-45ca-81c5-2ff0215c02a0"] }, Open ]], Cell[CellGroupData[{ Cell[5555, 201, 232, 6, 30, "Input",ExpressionUUID->"edf355e4-c79f-44ac-ac66-a9e6ac75ebcd"], Cell[5790, 209, 187, 5, 34, "Output",ExpressionUUID->"a77b3156-51c1-411e-a7ca-f4ab38993979"] }, Open ]], Cell[CellGroupData[{ Cell[6014, 219, 232, 5, 30, "Input",ExpressionUUID->"fa4e3189-037b-482e-afc0-91bf84d6afd4"], Cell[6249, 226, 141, 4, 36, "Output",ExpressionUUID->"9ed160ae-22af-4ff2-9252-789e4ec5a603"] }, Open ]], Cell[CellGroupData[{ Cell[6427, 235, 188, 4, 30, "Input",ExpressionUUID->"ceb2f853-67df-4f55-8867-77ab7fbc7aa8"], Cell[6618, 241, 293, 11, 60, "Output",ExpressionUUID->"5fb311a8-d8a5-479f-8726-e90ff3804f1c"] }, Open ]], Cell[CellGroupData[{ Cell[6948, 257, 175, 4, 30, "Input",ExpressionUUID->"7ab85adf-5f9f-470d-ae0b-948a07b43b5f"], Cell[7126, 263, 187, 5, 34, "Output",ExpressionUUID->"1113bc5a-2eab-45b6-8a53-c5d22a5f238e"] }, Open ]], Cell[CellGroupData[{ Cell[7350, 273, 175, 4, 30, "Input",ExpressionUUID->"bb416228-b116-4a76-8ce8-41b7bdfe65ab"], Cell[7528, 279, 130, 3, 34, "Output",ExpressionUUID->"2db283d5-3f8b-44a2-8d04-b525039f0777"] }, Open ]], Cell[CellGroupData[{ Cell[7695, 287, 246, 6, 30, "Input",ExpressionUUID->"28652de7-b923-4294-b96e-49a9fb5b533f"], Cell[7944, 295, 171, 3, 34, "Output",ExpressionUUID->"49bcce0a-4a9f-48b1-9727-c3618dab9010"] }, Open ]], Cell[CellGroupData[{ Cell[8152, 303, 214, 5, 30, "Input",ExpressionUUID->"3136fd7c-bfba-4acf-9952-f43b41749da7"], Cell[8369, 310, 251, 8, 85, "Output",ExpressionUUID->"042a4670-4eb8-4e07-89ee-ff3454578d86"] }, Open ]], Cell[8635, 321, 152, 3, 30, "Input",ExpressionUUID->"ec3a7f2d-4eb6-4bd9-a779-e93df8e72159"] } ] *) (* End of internal cache information *)