(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 62506, 1594] NotebookOptionsPosition[ 59800, 1495] NotebookOutlinePosition[ 60217, 1513] CellTagsIndexPosition[ 60174, 1510] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Plot evolution of unit square", "Section", CellChangeTimes->{{3.402138338553244*^9, 3.4021383478460817`*^9}}, FontSize->12], Cell[CellGroupData[{ Cell["Definitions", "Subsection", CellChangeTimes->{{3.402138389721756*^9, 3.40213839385496*^9}}, FontSize->12], Cell[BoxData[ RowBox[{ RowBox[{"expdata", "[", "a_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Print", "[", RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"MatrixForm", "[", RowBox[{"Transpose", "[", RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "]"}], "]"}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"MatrixForm", "[", RowBox[{"MatrixExp", "[", RowBox[{"t", " ", "a"}], "]"}], "]"}], "]"}]}], ")"}], "&"}], "[", RowBox[{"Eigensystem", "[", "a", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4021381100492687`*^9, 3.4021381606230164`*^9}, { 3.4021382010420637`*^9, 3.402138210941011*^9}, {3.402138253251851*^9, 3.402138312925321*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"mapsquare", "[", RowBox[{"a_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"Line", "[", RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "]"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "+", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "+", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", "Blue", ",", "Green", ",", "Orange"}], "}"}]}], "}"}], "]"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "&"}], "[", RowBox[{"Transpose", "[", RowBox[{"MatrixExp", "[", RowBox[{"\[Tau]", " ", "a"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4021373000266733`*^9, 3.4021373863307953`*^9}, { 3.402137567475347*^9, 3.4021375743386106`*^9}, {3.402137658899699*^9, 3.4021377658525457`*^9}, {3.402137833285492*^9, 3.402137834105961*^9}, { 3.4021379012080708`*^9, 3.402138079103486*^9}, {3.402138226325307*^9, 3.402138228454813*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"mapsquarebw", "[", RowBox[{"a_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Line", "/@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "+", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "+", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "&"}], "[", RowBox[{"Transpose", "[", RowBox[{"MatrixExp", "[", RowBox[{"t", " ", "a"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4021373000266733`*^9, 3.4021373863307953`*^9}, { 3.402137567475347*^9, 3.4021375743386106`*^9}, {3.402138423905768*^9, 3.4021384242658052`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsection", CellChangeTimes->{{3.402138389721756*^9, 3.40213839385496*^9}, { 3.4021384301616364`*^9, 3.4021384313367443`*^9}}, FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"expdata", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.402138237049984*^9, 3.402138244400388*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["6"]}]}], ",", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["6"]}]}]}], "}"}]], "Print", CellChangeTimes->{{3.402138245056439*^9, 3.402138316163904*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ FractionBox["1", "3"], "+", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["6"]}]}], ")"}]}]}], RowBox[{ FractionBox["1", "3"], "+", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["6"]}]}], ")"}]}]}]}, {"1", "1"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Print", CellChangeTimes->{{3.402138245056439*^9, 3.402138316227644*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"Cos", "[", RowBox[{ SqrtBox["6"], " ", "t"}], "]"}]}], RowBox[{ SqrtBox[ FractionBox["2", "3"]], " ", SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"Sin", "[", RowBox[{ SqrtBox["6"], " ", "t"}], "]"}]}]}, { RowBox[{ RowBox[{"-", SqrtBox[ FractionBox["3", "2"]]}], " ", SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"Sin", "[", RowBox[{ SqrtBox["6"], " ", "t"}], "]"}]}], RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"Cos", "[", RowBox[{ SqrtBox["6"], " ", "t"}], "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Print", CellChangeTimes->{{3.402138245056439*^9, 3.402138316348502*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1"}], "}"}]}], "}"}], ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.402137408281307*^9, 3.402137426285483*^9}, 3.402137814745644*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {0, 1}}]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[{{1, 0}, {1, 1}}]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[{{0, 1}, {1, 1}}]}}, AspectRatio->1, Axes->True]], "Output", CellChangeTimes->{ 3.402137427714134*^9, 3.402137578166717*^9, 3.402137771854272*^9, { 3.402137815390717*^9, 3.40213783815025*^9}, 3.402138476620668*^9, 3.4021385237751417`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1"}], "}"}]}], "}"}], ",", FractionBox["\[Pi]", RowBox[{"4", SqrtBox["6"]}]]}], "]"}]], "Input", CellChangeTimes->{{3.402137408281307*^9, 3.402137426285483*^9}, { 3.40213823170056*^9, 3.402138232735256*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}}, {{0, 0}, { 0.9743973197089371, -1.1933881200112313`}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { 3^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}}, {{0, 0}, {0.7955920800074876, 0.9743973197089371}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}, { 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi) + 3^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi) + Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}}, {{ 0.9743973197089371, -1.1933881200112313`}, { 1.7699893997164247`, -0.21899080030229423`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ 3^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}, { 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi) + 3^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi) + Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}}, {{0.7955920800074876, 0.9743973197089371}, {1.7699893997164247`, -0.21899080030229423`}}]]}}, AspectRatio->1, Axes->True]], "Output", CellChangeTimes->{ 3.402138005598104*^9, {3.402138070672818*^9, 3.40213808227579*^9}, 3.4021382333345137`*^9, 3.4021384789729767`*^9, 3.402138527496133*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1"}], "}"}]}], "}"}], ",", FractionBox["\[Pi]", RowBox[{"2", SqrtBox["6"]}]]}], "]"}]], "Input", CellChangeTimes->{{3.402137408281307*^9, 3.402137426285483*^9}, { 3.40213823170056*^9, 3.402138232735256*^9}, {3.402138457221437*^9, 3.402138458547235*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { 0, -Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi)}}, {{0, 0}, { 0, -2.325668371022862}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi), 0}}, {{0, 0}, {1.5504455806819082`, 0}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ 0, -Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi)}, { Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi), - Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi)}}, {{0, -2.325668371022862}, { 1.5504455806819082`, -2.325668371022862}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi), 0}, {Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi), - Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi)}}, {{ 1.5504455806819082`, 0}, { 1.5504455806819082`, -2.325668371022862}}]]}}, AspectRatio->1, Axes->True]], "Output", CellChangeTimes->{{3.402138459438896*^9, 3.402138481957399*^9}, 3.402138530303092*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"k", FractionBox["\[Pi]", RowBox[{"4", SqrtBox["6"]}]]}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.402138484566441*^9, 3.402138489565423*^9}, { 3.402138534715324*^9, 3.40213862815805*^9}, {3.402138679298355*^9, 3.4021386795444813`*^9}, {3.402138791317436*^9, 3.4021388126977997`*^9}}], Cell[BoxData[ GraphicsBox[{{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {0, 1}}]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[{{1, 0}, {1, 1}}]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[{{0, 1}, {1, 1}}]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}}, {{0, 0}, { 0.9743973197089371, -1.1933881200112313`}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { 3^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}}, {{0, 0}, {0.7955920800074876, 0.9743973197089371}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}, { 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi) + 3^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi) + Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}}, {{ 0.9743973197089371, -1.1933881200112313`}, { 1.7699893997164247`, -0.21899080030229423`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ 3^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}, { 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi) + 3^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi) + Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] 6^Rational[-1, 2] Pi)}}, {{0.7955920800074876, 0.9743973197089371}, { 1.7699893997164247`, -0.21899080030229423`}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { 0, -Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi)}}, {{0, 0}, { 0, -2.325668371022862}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi), 0}}, {{0, 0}, {1.5504455806819082`, 0}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ 0, -Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi)}, { Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi), - Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi)}}, {{ 0, -2.325668371022862}, { 1.5504455806819082`, -2.325668371022862}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi), 0}, {Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi), - Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] 6^Rational[-1, 2] Pi)}}, {{ 1.5504455806819082`, 0}, { 1.5504455806819082`, -2.325668371022862}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {-2^Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi), Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi)}}, {{0, 0}, {-1.8502833367097034`, -2.266125027256526}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { 3^Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi), -2^ Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi)}}, {{0, 0}, { 1.5107500181710176`, -1.8502833367097034`}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{-2^Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi), Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi)}, {-2^ Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi) + 3^Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi), -2^ Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi) + Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi)}}, {{-1.8502833367097034`, -2.266125027256526}, \ {-0.33953331853868574`, -4.1164083639662294`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ 3^Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi), -2^ Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi)}, {-2^ Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi) + 3^Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi), -2^ Rational[-1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi) + Rational[-1, 2] 3^Rational[1, 2] E^(Rational[1, 4] Rational[3, 2]^Rational[1, 2] Pi)}}, {{ 1.5107500181710176`, -1.8502833367097034`}, {-0.33953331853868574`, \ -4.1164083639662294`}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {-E^(6^Rational[-1, 2] Pi), 0}}, {{0, 0}, {-3.605822247984089, 0}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {0, -E^(6^Rational[-1, 2] Pi)}}, {{0, 0}, { 0, -3.605822247984089}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{-E^(6^Rational[-1, 2] Pi), 0}, {- E^(6^Rational[-1, 2] Pi), - E^(6^Rational[-1, 2] Pi)}}, {{-3.605822247984089, 0}, {-3.605822247984089, -3.605822247984089}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ 0, -E^(6^Rational[-1, 2] Pi)}, {-E^(6^Rational[-1, 2] Pi), - E^(6^Rational[-1, 2] Pi)}}, {{ 0, -3.605822247984089}, {-3.605822247984089, \ -3.605822247984089}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {-2^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi), Rational[1, 2] 3^Rational[1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi)}}, {{0, 0}, {-3.5135035337825498`, 4.303145433616403}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {-3^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi), -2^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi)}}, {{0, 0}, {-2.8687636224109356`, -3.5135035337825498`}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{-2^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi), Rational[1, 2] 3^Rational[1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi)}, {-2^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi) - 3^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi), -2^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi) + Rational[1, 2] 3^Rational[1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi)}}, {{-3.5135035337825498`, 4.303145433616403}, {-6.382267156193485, 0.7896418998338532}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{-3^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi), -2^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi)}, {-2^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi) - 3^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi), -2^Rational[-1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi) + Rational[1, 2] 3^Rational[1, 2] E^(Rational[5, 4] 6^Rational[-1, 2] Pi)}}, {{-2.8687636224109356`, -3.5135035337825498`}, \ {-6.382267156193485, 0.7896418998338532}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { 0, Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] Rational[3, 2]^Rational[1, 2] Pi)}}, {{0, 0}, { 0, 8.385946753667147}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {-Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] Rational[3, 2]^Rational[1, 2] Pi), 0}}, {{0, 0}, {-5.590631169111432, 0}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[ NCache[{{0, Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] Rational[3, 2]^Rational[1, 2] Pi)}, {- Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] Rational[3, 2]^Rational[1, 2] Pi), Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] Rational[3, 2]^Rational[1, 2] Pi)}}, {{ 0, 8.385946753667147}, {-5.590631169111432, 8.385946753667147}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{-Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] Rational[3, 2]^Rational[1, 2] Pi), 0}, {- Rational[2, 3]^Rational[1, 2] E^(Rational[1, 2] Rational[3, 2]^Rational[1, 2] Pi), Rational[3, 2]^Rational[1, 2] E^(Rational[1, 2] Rational[3, 2]^Rational[1, 2] Pi)}}, {{-5.590631169111432, 0}, {-5.590631169111432, 8.385946753667147}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { 2^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi), Rational[1, 2] 3^Rational[1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi)}}, {{0, 0}, { 6.671792820582087, 8.171244039995136}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {-3^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi)}}, {{0, 0}, {-5.4474960266634245`, 6.671792820582087}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ 2^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi), Rational[1, 2] 3^Rational[1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi)}, { 2^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi) - 3^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi) + Rational[1, 2] 3^Rational[1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi)}}, {{6.671792820582087, 8.171244039995136}, {1.2242967939186622`, 14.843036860577222`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{-3^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi)}, { 2^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi) - 3^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi), 2^Rational[-1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi) + Rational[1, 2] 3^Rational[1, 2] E^(Rational[7, 4] 6^Rational[-1, 2] Pi)}}, {{-5.4474960266634245`, 6.671792820582087}, {1.2242967939186622`, 14.843036860577222`}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {E^(Rational[2, 3]^Rational[1, 2] Pi), 0}}, {{0, 0}, {13.001954084057024`, 0}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {0, E^(Rational[2, 3]^Rational[1, 2] Pi)}}, {{0, 0}, {0, 13.001954084057024`}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{E^(Rational[2, 3]^Rational[1, 2] Pi), 0}, { E^(Rational[2, 3]^Rational[1, 2] Pi), E^(Rational[2, 3]^Rational[1, 2] Pi)}}, {{13.001954084057024`, 0}, { 13.001954084057024`, 13.001954084057024`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{0, E^(Rational[2, 3]^Rational[1, 2] Pi)}, { E^(Rational[2, 3]^Rational[1, 2] Pi), E^(Rational[2, 3]^Rational[1, 2] Pi)}}, {{0, 13.001954084057024`}, { 13.001954084057024`, 13.001954084057024`}}]]}}}, AspectRatio->1, Axes->True]], "Output", CellChangeTimes->{3.402138629568829*^9, 3.402138681064385*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.402161100670959*^9, 3.402161117239717*^9}, { 3.402161174203841*^9, 3.4021611961529627`*^9}, {3.402161311208314*^9, 3.4021613140879107`*^9}, {3.402161362271143*^9, 3.402161364708173*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {E^3, 0}}, {{0, 0}, { 20.085536923187668`, 0}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {E^3, E^3}}, {{0, 0}, {20.085536923187668`, 20.085536923187668`}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{E^3, 0}, {2 E^3, E^3}}, {{20.085536923187668`, 0}, { 40.171073846375336`, 20.085536923187668`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{E^3, E^3}, {2 E^3, E^3}}, {{20.085536923187668`, 20.085536923187668`}, {40.171073846375336`, 20.085536923187668`}}]]}}, AspectRatio->1, Axes->True]], "Output", CellChangeTimes->{3.4021613652456293`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.402161100670959*^9, 3.402161117239717*^9}, { 3.402161174203841*^9, 3.4021611961529627`*^9}, {3.402161311208314*^9, 3.4021613140879107`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {E^2, 0}}, {{0, 0}, {7.38905609893065, 0}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {E^2, E^2}}, {{0, 0}, {7.38905609893065, 7.38905609893065}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{E^2, 0}, {2 E^2, E^2}}, {{7.38905609893065, 0}, { 14.7781121978613, 7.38905609893065}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{E^2, E^2}, {2 E^2, E^2}}, {{7.38905609893065, 7.38905609893065}, {14.7781121978613, 7.38905609893065}}]]}}, AspectRatio->1, Axes->True]], "Output", CellChangeTimes->{{3.402161113371706*^9, 3.4021611189048567`*^9}, { 3.402161177938588*^9, 3.402161196807288*^9}, 3.4021613150559893`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"expdata", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.402138864119794*^9, 3.4021388802886353`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]], "Print", CellChangeTimes->{3.402138880838821*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Print", CellChangeTimes->{3.40213888094729*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"(", RowBox[{"1", "+", "t"}], ")"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", "t"]}], " ", "t"}]}, { RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", "t"}], RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", "t"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t"}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Print", CellChangeTimes->{3.402138880989718*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"k", "/", "4"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.402138484566441*^9, 3.402138489565423*^9}, { 3.402138534715324*^9, 3.40213862815805*^9}, {3.402138679298355*^9, 3.4021386795444813`*^9}, {3.402138791317436*^9, 3.4021388126977997`*^9}, { 3.4021389352618303`*^9, 3.4021390257564983`*^9}, 3.402139115158855*^9}], Cell[BoxData[ GraphicsBox[{{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {0, 1}}]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[{{1, 0}, {1, 1}}]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[{{0, 1}, {1, 1}}]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[5, 4] E^Rational[1, 4], Rational[1, 4] E^Rational[1, 4]}}, {{ 0, 0}, {1.6050317708596769`, 0.32100635417193535`}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[-1, 4] E^Rational[1, 4], Rational[3, 4] E^Rational[1, 4]}}, {{0, 0}, {-0.32100635417193535`, 0.963019062515806}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ Rational[5, 4] E^Rational[1, 4], Rational[1, 4] E^Rational[1, 4]}, { E^Rational[1, 4], E^Rational[1, 4]}}, {{1.6050317708596769`, 0.32100635417193535`}, {1.2840254166877414`, 1.2840254166877414`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ Rational[-1, 4] E^Rational[1, 4], Rational[3, 4] E^Rational[1, 4]}, { E^Rational[1, 4], E^Rational[1, 4]}}, {{-0.32100635417193535`, 0.963019062515806}, {1.2840254166877414`, 1.2840254166877414`}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[3, 2] E^Rational[1, 2], Rational[1, 2] E^Rational[1, 2]}}, {{ 0, 0}, {2.4730819060501923`, 0.8243606353500641}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[-1, 2] E^Rational[1, 2], Rational[1, 2] E^Rational[1, 2]}}, {{0, 0}, {-0.8243606353500641, 0.8243606353500641}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ Rational[3, 2] E^Rational[1, 2], Rational[1, 2] E^Rational[1, 2]}, { E^Rational[1, 2], E^Rational[1, 2]}}, {{2.4730819060501923`, 0.8243606353500641}, {1.6487212707001282`, 1.6487212707001282`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ Rational[-1, 2] E^Rational[1, 2], Rational[1, 2] E^Rational[1, 2]}, { E^Rational[1, 2], E^Rational[1, 2]}}, {{-0.8243606353500641, 0.8243606353500641}, {1.6487212707001282`, 1.6487212707001282`}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[7, 4] E^Rational[3, 4], Rational[3, 4] E^Rational[3, 4]}}, {{ 0, 0}, {3.704750029072181, 1.587750012459506}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[-3, 4] E^Rational[3, 4], Rational[1, 4] E^Rational[3, 4]}}, {{0, 0}, {-1.587750012459506, 0.5292500041531687}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ Rational[7, 4] E^Rational[3, 4], Rational[3, 4] E^Rational[3, 4]}, { E^Rational[3, 4], E^Rational[3, 4]}}, {{3.704750029072181, 1.587750012459506}, {2.117000016612675, 2.117000016612675}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ Rational[-3, 4] E^Rational[3, 4], Rational[1, 4] E^Rational[3, 4]}, { E^Rational[3, 4], E^Rational[3, 4]}}, {{-1.587750012459506, 0.5292500041531687}, {2.117000016612675, 2.117000016612675}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {2 E, E}}, {{0, 0}, {5.43656365691809, 2.718281828459045}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {-E, 0}}, {{0, 0}, {-2.718281828459045, 0}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{2 E, E}, {E, E}}, {{5.43656365691809, 2.718281828459045}, {2.718281828459045, 2.718281828459045}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{-E, 0}, {E, E}}, {{-2.718281828459045, 0}, { 2.718281828459045, 2.718281828459045}}]]}}}, AspectRatio->NCache[ Rational[1, 3], 0.3333333333333333], Axes->True]], "Output", CellChangeTimes->{ 3.402138944274785*^9, {3.402138975726309*^9, 3.402139027475226*^9}, 3.402139116306364*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"k", "/", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.402138484566441*^9, 3.402138489565423*^9}, { 3.402138534715324*^9, 3.40213862815805*^9}, {3.402138679298355*^9, 3.4021386795444813`*^9}, {3.402138791317436*^9, 3.4021388126977997`*^9}, { 3.4021389352618303`*^9, 3.4021390257564983`*^9}, {3.4021390867556143`*^9, 3.40213912198464*^9}}], Cell[BoxData[ GraphicsBox[{{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {0, 1}}]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[{{1, 0}, {1, 1}}]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[{{0, 1}, {1, 1}}]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[3, 2] E^Rational[1, 2], Rational[1, 2] E^Rational[1, 2]}}, {{ 0, 0}, {2.4730819060501923`, 0.8243606353500641}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[-1, 2] E^Rational[1, 2], Rational[1, 2] E^Rational[1, 2]}}, {{0, 0}, {-0.8243606353500641, 0.8243606353500641}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ Rational[3, 2] E^Rational[1, 2], Rational[1, 2] E^Rational[1, 2]}, { E^Rational[1, 2], E^Rational[1, 2]}}, {{2.4730819060501923`, 0.8243606353500641}, {1.6487212707001282`, 1.6487212707001282`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ Rational[-1, 2] E^Rational[1, 2], Rational[1, 2] E^Rational[1, 2]}, { E^Rational[1, 2], E^Rational[1, 2]}}, {{-0.8243606353500641, 0.8243606353500641}, {1.6487212707001282`, 1.6487212707001282`}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {2 E, E}}, {{0, 0}, {5.43656365691809, 2.718281828459045}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {-E, 0}}, {{0, 0}, {-2.718281828459045, 0}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{2 E, E}, {E, E}}, {{5.43656365691809, 2.718281828459045}, {2.718281828459045, 2.718281828459045}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{-E, 0}, {E, E}}, {{-2.718281828459045, 0}, { 2.718281828459045, 2.718281828459045}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[5, 2] E^Rational[3, 2], Rational[3, 2] E^Rational[3, 2]}}, {{ 0, 0}, {11.20422267584516, 6.722533605507097}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[-3, 2] E^Rational[3, 2], Rational[-1, 2] E^Rational[3, 2]}}, {{0, 0}, {-6.722533605507097, -2.2408445351690323`}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ Rational[5, 2] E^Rational[3, 2], Rational[3, 2] E^Rational[3, 2]}, { E^Rational[3, 2], E^Rational[3, 2]}}, {{11.20422267584516, 6.722533605507097}, {4.4816890703380645`, 4.4816890703380645`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ Rational[-3, 2] E^Rational[3, 2], Rational[-1, 2] E^Rational[3, 2]}, { E^Rational[3, 2], E^ Rational[3, 2]}}, {{-6.722533605507097, -2.2408445351690323`}, { 4.4816890703380645`, 4.4816890703380645`}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {3 E^2, 2 E^2}}, {{0, 0}, {22.16716829679195, 14.7781121978613}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {(-2) E^2, -E^2}}, {{0, 0}, {-14.7781121978613, -7.38905609893065}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{3 E^2, 2 E^2}, {E^2, E^2}}, {{22.16716829679195, 14.7781121978613}, {7.38905609893065, 7.38905609893065}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{(-2) E^2, -E^2}, { E^2, E^2}}, {{-14.7781121978613, -7.38905609893065}, { 7.38905609893065, 7.38905609893065}}]]}}}, AspectRatio->NCache[ Rational[1, 2], 0.5], Axes->True]], "Output", CellChangeTimes->{{3.4021390897045803`*^9, 3.4021391225889807`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"2", "/", "3"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.402138484566441*^9, 3.402138489565423*^9}, { 3.402138534715324*^9, 3.40213862815805*^9}, {3.402138679298355*^9, 3.4021386795444813`*^9}, {3.402138791317436*^9, 3.4021388126977997`*^9}, { 3.4021389352618303`*^9, 3.4021390257564983`*^9}, {3.4021390867556143`*^9, 3.40213912198464*^9}, 3.402139246982368*^9, {3.402139278090547*^9, 3.402139332004342*^9}, {3.40213941384417*^9, 3.4021394140361233`*^9}}], Cell[BoxData[ GraphicsBox[{{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {2 E, E}}, {{0, 0}, {5.43656365691809, 2.718281828459045}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {-E, 0}}, {{0, 0}, {-2.718281828459045, 0}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{2 E, E}, {E, E}}, {{5.43656365691809, 2.718281828459045}, {2.718281828459045, 2.718281828459045}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{-E, 0}, {E, E}}, {{-2.718281828459045, 0}, { 2.718281828459045, 2.718281828459045}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {3 E^2, 2 E^2}}, {{0, 0}, {22.16716829679195, 14.7781121978613}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {(-2) E^2, -E^2}}, {{0, 0}, {-14.7781121978613, -7.38905609893065}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{3 E^2, 2 E^2}, {E^2, E^2}}, {{22.16716829679195, 14.7781121978613}, {7.38905609893065, 7.38905609893065}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{(-2) E^2, -E^2}, { E^2, E^2}}, {{-14.7781121978613, -7.38905609893065}, { 7.38905609893065, 7.38905609893065}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {4 E^3, 3 E^3}}, {{0, 0}, {80.34214769275067, 60.256610769563004`}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {(-3) E^3, (-2) E^3}}, {{0, 0}, {-60.256610769563004`, -40.171073846375336`}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{4 E^3, 3 E^3}, {E^3, E^3}}, {{80.34214769275067, 60.256610769563004`}, {20.085536923187668`, 20.085536923187668`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{(-3) E^3, (-2) E^3}, { E^3, E^3}}, {{-60.256610769563004`, -40.171073846375336`}, { 20.085536923187668`, 20.085536923187668`}}]]}}, { {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {5 E^4, 4 E^4}}, {{0, 0}, {272.9907501657212, 218.39260013257694`}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {(-4) E^4, (-3) E^4}}, {{0, 0}, {-218.39260013257694`, -163.7944500994327}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{5 E^4, 4 E^4}, {E^4, E^4}}, {{272.9907501657212, 218.39260013257694`}, {54.598150033144236`, 54.598150033144236`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{(-4) E^4, (-3) E^4}, { E^4, E^4}}, {{-218.39260013257694`, -163.7944500994327}, { 54.598150033144236`, 54.598150033144236`}}]]}}}, AspectRatio->NCache[ Rational[2, 3], 0.6666666666666666], Axes->True]], "Output", CellChangeTimes->{ 3.4021392486387577`*^9, {3.4021392800858793`*^9, 3.402139332537524*^9}, 3.40213941700517*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"1", "/", "2"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"2", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}]}], "]"}]], "Input",\ CellChangeTimes->{{3.402145472875586*^9, 3.40214549502838*^9}, { 3.402145530795041*^9, 3.402145566212405*^9}, {3.402145693802875*^9, 3.402145702231353*^9}, {3.40214575758847*^9, 3.402145758222365*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {E^Rational[1, 2], 0}}, {{0, 0}, { 1.6487212707001282`, 0}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {0, E^Rational[-1, 2]}}, {{0, 0}, { 0, 0.6065306597126334}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{E^Rational[1, 2], 0}, { E^Rational[1, 2], E^Rational[-1, 2]}}, {{1.6487212707001282`, 0}, { 1.6487212707001282`, 0.6065306597126334}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{0, E^Rational[-1, 2]}, { E^Rational[1, 2], E^Rational[-1, 2]}}, {{0, 0.6065306597126334}, { 1.6487212707001282`, 0.6065306597126334}}]]}}, AspectRatio->1, Axes->True, PlotRange->{{-2, 2}, {-2, 2}}]], "Output", CellChangeTimes->{ 3.402145495760275*^9, {3.402145553558804*^9, 3.4021455672982616`*^9}, 3.402145702652096*^9, 3.4021457587159863`*^9, 3.402145803545521*^9, 3.402145856869519*^9, 3.402145982733075*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"1", "/", "2"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"2", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}]}], "]"}]], "Input",\ CellChangeTimes->{{3.402145472875586*^9, 3.40214549502838*^9}, { 3.402145530795041*^9, 3.4021456056354523`*^9}, {3.402145763749733*^9, 3.402145850995852*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { E^Rational[1, 2] Cos[Rational[3, 2]], E^Rational[1, 2] Sin[Rational[3, 2]]}}, {{0, 0}, {0.11662592901934636`, 1.644591201830844}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {-E^Rational[1, 2] Sin[Rational[3, 2]], E^Rational[1, 2] Cos[Rational[3, 2]]}}, {{0, 0}, {-1.644591201830844, 0.11662592901934636`}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ E^Rational[1, 2] Cos[Rational[3, 2]], E^Rational[1, 2] Sin[Rational[3, 2]]}, { E^Rational[1, 2] Cos[Rational[3, 2]] - E^Rational[1, 2] Sin[Rational[3, 2]], E^Rational[1, 2] Cos[Rational[3, 2]] + E^Rational[1, 2] Sin[Rational[3, 2]]}}, {{0.11662592901934636`, 1.644591201830844}, {-1.5279652728114976`, 1.7612171308501903`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{-E^Rational[1, 2] Sin[Rational[3, 2]], E^Rational[1, 2] Cos[Rational[3, 2]]}, { E^Rational[1, 2] Cos[Rational[3, 2]] - E^Rational[1, 2] Sin[Rational[3, 2]], E^Rational[1, 2] Cos[Rational[3, 2]] + E^Rational[1, 2] Sin[Rational[3, 2]]}}, {{-1.644591201830844, 0.11662592901934636`}, {-1.5279652728114976`, 1.7612171308501903`}}]]}}, AspectRatio->1, Axes->True, PlotRange->{{-2, 2}, {-2, 2}}]], "Output", CellChangeTimes->{{3.4021455841242113`*^9, 3.4021456066136436`*^9}, { 3.402145767018722*^9, 3.4021458603001213`*^9}, 3.40214598618848*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"1", "/", "2"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"2", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}]}], "]"}]], "Input",\ CellChangeTimes->{{3.402145472875586*^9, 3.40214549502838*^9}, { 3.402145530795041*^9, 3.4021456265054398`*^9}, {3.402145797338284*^9, 3.4021457999487762`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {0, 1}}]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[{{1, 0}, {1, 1}}]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[{{0, 1}, {1, 1}}]}}, AspectRatio->1, Axes->True, PlotRange->{{-2, 2}, {-2, 2}}]], "Output", CellChangeTimes->{3.4021456276058817`*^9, 3.402145865556931*^9, 3.402145991075705*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"mapsquare", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"1", "/", "2"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"2", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}]}], "]"}]], "Input",\ CellChangeTimes->{{3.402145472875586*^9, 3.40214549502838*^9}, { 3.402145530795041*^9, 3.402145679657082*^9}, {3.4021458757823353`*^9, 3.4021458779729967`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {E^Rational[-1, 2], 0}}, {{0, 0}, { 0.6065306597126334, 0}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[1, 2] E^Rational[-1, 2], E^Rational[-1, 2]}}, {{0, 0}, { 0.3032653298563167, 0.6065306597126334}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{E^Rational[-1, 2], 0}, { Rational[3, 2] E^Rational[-1, 2], E^Rational[-1, 2]}}, {{ 0.6065306597126334, 0}, {0.9097959895689501, 0.6065306597126334}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{Rational[1, 2] E^Rational[-1, 2], E^Rational[-1, 2]}, { Rational[3, 2] E^Rational[-1, 2], E^Rational[-1, 2]}}, {{ 0.3032653298563167, 0.6065306597126334}, {0.9097959895689501, 0.6065306597126334}}]]}}, AspectRatio->1, Axes->True, PlotRange->{{-2, 2}, {-2, 2}}]], "Output", CellChangeTimes->{{3.4021456533485317`*^9, 3.402145680271062*^9}, 3.40214587868323*^9, 3.4021459939702578`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"%%", ",", "%%%"}], "}"}], ",", RowBox[{"{", RowBox[{"%%%%", ",", "%%%%%"}], "}"}]}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.402145890089923*^9, 3.4021460315399227`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {E^Rational[-1, 2], 0}}, {{0, 0}, { 0.6065306597126334, 0}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, { Rational[1, 2] E^Rational[-1, 2], E^Rational[-1, 2]}}, {{0, 0}, { 0.3032653298563167, 0.6065306597126334}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{E^Rational[-1, 2], 0}, { Rational[3, 2] E^Rational[-1, 2], E^Rational[-1, 2]}}, {{ 0.6065306597126334, 0}, {0.9097959895689501, 0.6065306597126334}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{ Rational[1, 2] E^Rational[-1, 2], E^Rational[-1, 2]}, { Rational[3, 2] E^Rational[-1, 2], E^Rational[-1, 2]}}, {{ 0.3032653298563167, 0.6065306597126334}, {0.9097959895689501, 0.6065306597126334}}]]}}, AspectRatio->1, Axes->True, PlotRange->{{-2, 2}, {-2, 2}}], {192., -192.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {0, 1}}]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[{{1, 0}, {1, 1}}]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[{{0, 1}, {1, 1}}]}}, AspectRatio->1, Axes->True, PlotRange->{{-2, 2}, {-2, 2}}], {576., -192.}, ImageScaled[{0.5, 0.5}], {360., 360.}]}, {InsetBox[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, { E^Rational[1, 2] Cos[Rational[3, 2]], E^Rational[1, 2] Sin[Rational[3, 2]]}}, {{0, 0}, {0.11662592901934636`, 1.644591201830844}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {-E^Rational[1, 2] Sin[Rational[3, 2]], E^Rational[1, 2] Cos[Rational[3, 2]]}}, {{0, 0}, {-1.644591201830844, 0.11662592901934636`}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{ E^Rational[1, 2] Cos[Rational[3, 2]], E^Rational[1, 2] Sin[Rational[3, 2]]}, { E^Rational[1, 2] Cos[Rational[3, 2]] - E^Rational[1, 2] Sin[Rational[3, 2]], E^Rational[1, 2] Cos[Rational[3, 2]] + E^Rational[1, 2] Sin[Rational[3, 2]]}}, {{0.11662592901934636`, 1.644591201830844}, {-1.5279652728114976`, 1.7612171308501903`}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{-E^Rational[1, 2] Sin[Rational[3, 2]], E^Rational[1, 2] Cos[Rational[3, 2]]}, { E^Rational[1, 2] Cos[Rational[3, 2]] - E^Rational[1, 2] Sin[Rational[3, 2]], E^Rational[1, 2] Cos[Rational[3, 2]] + E^Rational[1, 2] Sin[Rational[3, 2]]}}, {{-1.644591201830844, 0.11662592901934636`}, {-1.5279652728114976`, 1.7612171308501903`}}]]}}, AspectRatio->1, Axes->True, PlotRange->{{-2, 2}, {-2, 2}}], {192., -576.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[{ {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{0, 0}, {E^Rational[1, 2], 0}}, {{0, 0}, { 1.6487212707001282`, 0}}]]}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[NCache[{{0, 0}, {0, E^Rational[-1, 2]}}, {{0, 0}, { 0, 0.6065306597126334}}]]}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[NCache[{{E^Rational[1, 2], 0}, { E^Rational[1, 2], E^Rational[-1, 2]}}, {{ 1.6487212707001282`, 0}, {1.6487212707001282`, 0.6065306597126334}}]]}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[NCache[{{0, E^Rational[-1, 2]}, { E^Rational[1, 2], E^Rational[-1, 2]}}, {{0, 0.6065306597126334}, { 1.6487212707001282`, 0.6065306597126334}}]]}}, AspectRatio->1, Axes->True, PlotRange->{{-2, 2}, {-2, 2}}], {576., -576.}, ImageScaled[{0.5, 0.5}], {360., 360.}]}}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.40214591959482*^9, 3.402145972378724*^9}, { 3.4021460130298557`*^9, 3.40214603339717*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{896, 637}, WindowMargins->{{-11, Automatic}, {11, Automatic}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 131, 2, 59, "Section"], Cell[CellGroupData[{ Cell[746, 29, 113, 2, 32, "Subsection"], Cell[862, 33, 872, 22, 43, "Input"], Cell[1737, 57, 2791, 74, 73, "Input"], Cell[4531, 133, 2017, 57, 58, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[6585, 195, 163, 3, 32, "Subsection"], Cell[CellGroupData[{ Cell[6773, 202, 297, 9, 27, "Input"], Cell[CellGroupData[{ Cell[7095, 215, 290, 9, 28, "Print"], Cell[7388, 226, 1162, 36, 49, "Print"], Cell[8553, 264, 1393, 43, 89, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9995, 313, 358, 12, 27, "Input"], Cell[10356, 327, 542, 11, 373, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10935, 343, 438, 14, 49, "Input"], Cell[11376, 359, 2043, 39, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13456, 403, 487, 15, 49, "Input"], Cell[13946, 420, 1420, 32, 359, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15403, 457, 745, 21, 49, "Input"], Cell[16151, 480, 12555, 242, 376, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28743, 727, 454, 11, 27, "Input"], Cell[29200, 740, 757, 16, 376, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29994, 761, 408, 11, 27, "Input"], Cell[30405, 774, 817, 16, 381, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31259, 795, 299, 9, 27, "Input"], Cell[CellGroupData[{ Cell[31583, 808, 114, 3, 20, "Print"], Cell[31700, 813, 623, 18, 38, "Print"], Cell[32326, 833, 1091, 33, 44, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33466, 872, 857, 22, 27, "Input"], Cell[34326, 896, 4221, 81, 143, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38584, 982, 882, 23, 27, "Input"], Cell[39469, 1007, 3830, 73, 194, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43336, 1085, 990, 23, 43, "Input"], Cell[44329, 1110, 2985, 57, 255, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47351, 1172, 845, 26, 27, "Input"], Cell[48199, 1200, 1036, 22, 378, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49272, 1227, 802, 26, 27, "Input"], Cell[50077, 1255, 1593, 32, 378, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51707, 1292, 779, 25, 27, "Input"], Cell[52489, 1319, 478, 10, 378, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53004, 1334, 829, 27, 27, "Input"], Cell[53836, 1363, 1080, 22, 378, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54953, 1390, 330, 9, 27, "Input"], Cell[55286, 1401, 4474, 89, 375, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)