(* 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[ 64482, 1662] NotebookOptionsPosition[ 61132, 1537] NotebookOutlinePosition[ 61472, 1552] CellTagsIndexPosition[ 61429, 1549] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Transformations Using ", StyleBox["Mathematica", FontSlant->"Italic"], "'s Built - In Functions and Graphics" }], "Title", CellChangeTimes->{{3.43416819021875*^9, 3.434168223953125*^9}, 3.4341683415*^9, {3.43416837903125*^9, 3.4341683795625*^9}, 3.4341689365*^9, 3.434173628828125*^9, 3.434173659984375*^9, { 3.43422313078125*^9, 3.43422313609375*^9}, 3.434225500890625*^9, { 3.434249518796875*^9, 3.434249519109375*^9}}, FontColor->RGBColor[1, 0, 1], Background->RGBColor[0, 1, 1]], Cell["\<\ Based on Mathematical Concepts from \[OpenCurlyDoubleQuote]Transformations \ and Projections in Computer Graphics,\[CloseCurlyDoubleQuote] 2006, by David \ Salomon.\ \>", "Section", CellChangeTimes->{{3.434168242796875*^9, 3.4341683201875*^9}, { 3.434249523671875*^9, 3.434249524*^9}}, Background->RGBColor[1, 1, 0]], Cell[CellGroupData[{ Cell["Examples:", "Section", CellChangeTimes->{{3.43416840346875*^9, 3.434168406703125*^9}, 3.434168437390625*^9}], Cell[CellGroupData[{ Cell["\<\ Rotate a 2D graphic by 15 degrees counterclockwise: \ \>", "Subsection", CellChangeTimes->{{3.434225530046875*^9, 3.434225596453125*^9}, 3.4342288260625*^9, {3.43424926759375*^9, 3.434249277375*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"graf1", ",", "graf2", ",", "lst", ",", "ang", ",", "anglelabel"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"graf1", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0.535", "]"}], ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", RowBox[{"RotationTransform", "[", RowBox[{"15", "Degree"}], "]"}]}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<+y\>\""}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Background", "\[Rule]", "LightCyan"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lst", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "ang", "]"}], ",", RowBox[{"Sin", "[", "ang", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ang", ",", "0", ",", RowBox[{"15", "Degree"}], ",", RowBox[{"15", "Degree"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"graf2", "=", RowBox[{"Graphics", "[", RowBox[{"Arrow", "[", "lst", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"anglelabel", "=", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"15\", FontSize->14]\)\!\(\* StyleBox[\" \", FontSize->14]\)\!\(\* StyleBox[\"Degrees\", FontSize->14]\)\>\"", ",", RowBox[{"{", RowBox[{".87", ",", ".07"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"graf1", ",", "graf2", ",", "anglelabel"}], "]"}]}], "Input", CellChangeTimes->{{3.43422562021875*^9, 3.4342258396875*^9}, { 3.434225956046875*^9, 3.434225957671875*^9}, {3.434226012171875*^9, 3.43422602384375*^9}, {3.434226058453125*^9, 3.4342261106875*^9}, { 3.434227761734375*^9, 3.434227768765625*^9}, {3.434237876294839*^9, 3.434237880686222*^9}, {3.4342380087708516`*^9, 3.4342380493091054`*^9}, { 3.43424377078125*^9, 3.4342438315625*^9}, {3.434249342625*^9, 3.4342493753125*^9}, {3.4342496205*^9, 3.434249622921875*^9}, { 3.43424966034375*^9, 3.43424973853125*^9}}], Cell[BoxData[ GraphicsBox[{GeometricTransformationBox[ {Hue[0.535], RectangleBox[{0, 0}]}, NCache[{{{ Rational[1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2]), Rational[-1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2])}, { Rational[1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2]), Rational[1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2])}}, {0, 0}}, {{{0.9659258262890682, -0.2588190451025207}, {0.2588190451025207, 0.9659258262890682}}, {0, 0}}]], ArrowBox[NCache[{{1, 0}, { Rational[1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2]), Rational[1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2])}}, {{1, 0}, { 0.9659258262890682, 0.2588190451025207}}]], InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"15\\\",\\nFontSize->14]\\)\\!\\(\\*\ \\nStyleBox[\\\" \ \\\",\\nFontSize->14]\\)\\!\\(\\*\\nStyleBox[\\\"Degrees\\\",\\nFontSize->14]\ \\)\"\>", {0.87, 0.07}]}, Axes->True, AxesLabel->{ FormBox["\"\"", TraditionalForm], FormBox["\"+y\"", TraditionalForm]}, Background->RGBColor[0.9, 1, 1], Frame->True, ImageSize->500]], "Output", CellChangeTimes->{ 3.434225679109375*^9, {3.43422571040625*^9, 3.434225751296875*^9}, { 3.434225785234375*^9, 3.434225809140625*^9}, 3.4342258404375*^9, 3.434226026921875*^9, {3.4342260673125*^9, 3.43422611259375*^9}, 3.43422730965625*^9, {3.4342277633125*^9, 3.434227769421875*^9}, 3.43423772422169*^9, 3.4342378817645335`*^9, {3.4342380099116735`*^9, 3.4342380498248196`*^9}, {3.43424377621875*^9, 3.434243782953125*^9}, { 3.43424382184375*^9, 3.43424383240625*^9}, 3.43424937878125*^9, 3.434249636078125*^9, {3.434249706078125*^9, 3.43424972765625*^9}, 3.43425060184375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Translate a 2D rectangle by 0.65 in x, and 0.40 in y: Show a before and \ after position for the rectangle. \ \>", "Subsection", CellChangeTimes->{{3.4342274285625*^9, 3.434227437375*^9}, { 3.434227492421875*^9, 3.4342275019375*^9}, {3.43422796378125*^9, 3.434228145828125*^9}, {3.4342281776875*^9, 3.434228180234375*^9}, 3.43422883140625*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".35", "]"}], ",", "Gray", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".85", "]"}], ",", "Orange", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", RowBox[{"TranslationTransform", "[", RowBox[{"{", RowBox[{"0.65", ",", "0.40"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightYellow"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.43422755159375*^9, 3.434227586078125*^9}, { 3.434227618234375*^9, 3.43422774809375*^9}, {3.4342278015625*^9, 3.43422793071875*^9}, {3.434228154140625*^9, 3.43422815821875*^9}, { 3.43424332325*^9, 3.43424335109375*^9}}], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.5], Opacity[0.35], RectangleBox[{0, 0}]}, GeometricTransformationBox[ {RGBColor[1, 0.5, 0], Opacity[0.85], RectangleBox[{0, 0}]}, {{{1, 0}, {0, 1}}, {0.65, 0.4}}]}, AspectRatio->1, Axes->True, Background->RGBColor[1, 1, 0.85], Frame->True, FrameLabel->{ FormBox["X", TraditionalForm], FormBox["Y", TraditionalForm]}, ImageSize->500]], "Output", CellChangeTimes->{ 3.4342275345*^9, 3.4342275685625*^9, {3.43422760403125*^9, 3.434227619671875*^9}, {3.434227661546875*^9, 3.43422767975*^9}, { 3.4342277230625*^9, 3.43422774875*^9}, {3.434227818328125*^9, 3.434227830734375*^9}, {3.4342278615625*^9, 3.434227876140625*^9}, 3.434227913984375*^9, 3.4342377242685733`*^9, 3.434243354953125*^9, 3.43425060190625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Using Scale: Streach the 2D rectangle in the +x direction by 1/2 unit. Show \ the rectangle before the scaling and the scaled addition in the same plot. \ \>", "Subsection", CellChangeTimes->{{3.434224633359375*^9, 3.4342246595*^9}, { 3.43422475771875*^9, 3.434224920703125*^9}, {3.434225034328125*^9, 3.434225041359375*^9}, {3.434228373296875*^9, 3.434228426890625*^9}, { 3.434228494421875*^9, 3.434228495625*^9}, 3.434228836609375*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", ".1", "]"}], ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", RowBox[{"Scale", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".1", "]"}], ",", "Red", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"1", "/", "2"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1.5"}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<+x\>\"", ",", "\"\<+y\>\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightBrown"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"ImageSize", "->", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.4342283290625*^9, 3.434228334359375*^9}, { 3.434228385359375*^9, 3.434228389875*^9}, {3.434228519859375*^9, 3.434228596578125*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], Opacity[0.1], RectangleBox[{0, 0}]}, GeometricTransformationBox[ {RGBColor[1, 0, 0], Opacity[0.1], RectangleBox[{0, 0}]}, {{{1.5, 0}, {0, 1}}, {0, 0}}]}, AspectRatio->1, Axes->True, AxesLabel->{ FormBox["\"+x\"", TraditionalForm], FormBox["\"+y\"", TraditionalForm]}, Background->RGBColor[0.94, 0.91, 0.88], ImageSize->500, PlotRange->{0, 1.5}]], "Output", CellChangeTimes->{{3.4342283106875*^9, 3.434228336703125*^9}, 3.434228390765625*^9, {3.43422852559375*^9, 3.434228554234375*^9}, 3.43422859925*^9, 3.4342377243154564`*^9, 3.434250601953125*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Apply a 30\[Degree] shearing along the x axis to a rectangle. Show the \ rectangle before and after the shearing in the same plot. \ \>", "Subsection", CellChangeTimes->{{3.434230641109375*^9, 3.43423067053125*^9}, { 3.43423119959375*^9, 3.4342312285625*^9}, {3.434234794484375*^9, 3.43423480540625*^9}, {3.4342348391875*^9, 3.434234893015625*^9}, { 3.434250674046875*^9, 3.434250674765625*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"pic1", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", ".1", "]"}], ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pic2", "=", RowBox[{"Graphics", "[", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Opacity", "[", ".1", "]"}], ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", RowBox[{"ShearingTransform", "[", RowBox[{ RowBox[{"30", "Degree"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"pic1", ",", "pic2", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Background", "\[Rule]", "LightGray"}]}], "]"}]}], "Input", CellChangeTimes->{{3.43422982640625*^9, 3.4342300318125*^9}, 3.434230100078125*^9, {3.434230131046875*^9, 3.43423017490625*^9}, { 3.434230212265625*^9, 3.434230350953125*^9}, {3.434230414578125*^9, 3.43423043875*^9}, 3.43423047253125*^9, 3.434230508140625*^9, { 3.434230543015625*^9, 3.434230565390625*^9}, {3.434231089234375*^9, 3.434231188765625*^9}, {3.434234416890625*^9, 3.43423444978125*^9}, { 3.4342344815625*^9, 3.434234491734375*^9}, {3.4342345364375*^9, 3.4342345858125*^9}, {3.434234684875*^9, 3.4342346956875*^9}, { 3.434234944484375*^9, 3.434234967*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], Opacity[0.1], RectangleBox[{0, 0}]}, GeometricTransformationBox[ {RGBColor[1, 0, 0], Opacity[0.1], RectangleBox[{0, 0}]}, NCache[{{{1, 3^Rational[-1, 2]}, {0, 1}}, {0, 0}}, {{{1, 0.5773502691896258}, {0, 1}}, {0, 0}}]]}, AspectRatio->1, Background->GrayLevel[0.85], Frame->True, FrameLabel->{ FormBox["X", TraditionalForm], FormBox["Y", TraditionalForm]}, ImageSize->500]], "Output", CellChangeTimes->{{3.43423041909375*^9, 3.434230473484375*^9}, 3.434230566515625*^9, {3.434231094421875*^9, 3.434231122390625*^9}, 3.434231158265625*^9, 3.434231189578125*^9, 3.43423441996875*^9, 3.434234451171875*^9, 3.43423449621875*^9, 3.434234550484375*^9, 3.4342345876875*^9, {3.43423468684375*^9, 3.434234707875*^9}, { 3.434234948375*^9, 3.434234969640625*^9}, 3.4342377243467116`*^9, 3.434250601984375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Rotate the 3D cuboid at standard position, 30 degrees CCW about the x axis. \ Show a before and after position for the cuboid: \ \>", "Subsection", CellChangeTimes->{{3.434167616765625*^9, 3.434167717359375*^9}, 3.4341677801875*^9, {3.434171206453125*^9, 3.434171263625*^9}, { 3.434225560296875*^9, 3.434225561390625*^9}, 3.43422884475*^9}, FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Cuboid", "[", "]"}], ",", "Blue"}], "}"}], ",", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".6", "]"}], ",", RowBox[{"Glow", "[", "Red", "]"}], ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{"30", "Degree"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightRed"}], ",", RowBox[{"ImageSize", "->", "500"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"0.8", ",", "0.6", ",", "0.5"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.434171130984375*^9, 3.434171161671875*^9}, { 3.43417146465625*^9, 3.43417155909375*^9}, {3.43424406646875*^9, 3.43424407603125*^9}, {3.434244130328125*^9, 3.434244132*^9}}], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.2], CuboidBox[{0, 0, 0}], {RGBColor[0, 0, 1]}}, InterpretationBox[ {Opacity[0.6], Glow[ RGBColor[1., 0., 0.]], GraphicsComplex3DBox[{{0., 0., 0.}, {0., -0.49999999999999994`, 0.8660254037844387}, {0., 0.8660254037844387, 0.49999999999999994`}, { 0., 0.36602540378443876`, 1.3660254037844386`}, {1., 0., 0.}, { 1., -0.49999999999999994`, 0.8660254037844387}, {1., 0.8660254037844387, 0.49999999999999994`}, {1., 0.36602540378443876`, 1.3660254037844386`}}, Polygon3DBox[{{1, 3, 7, 5}, {1, 5, 6, 2}, {2, 6, 8, 4}, {3, 4, 8, 7}, { 1, 2, 4, 3}, {5, 7, 8, 6}}], VertexColors->Automatic, VertexNormals->Automatic]}, Rotate[{ Opacity[0.6], Glow[ RGBColor[1, 0, 0]], Cuboid[{0, 0, 0}]}, 30 Degree, {1, 0, 0}]]}, Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->RGBColor[1, 0.85, 0.85], ImageSize->500, ViewPoint->{0.8, 0.6, 0.5}]], "Output", CellChangeTimes->{{3.434171122703125*^9, 3.43417116253125*^9}, { 3.43417147471875*^9, 3.43417149090625*^9}, {3.434171538296875*^9, 3.434171559625*^9}, 3.43417199315625*^9, 3.434173733375*^9, 3.4342273098125*^9, 3.4342377243935947`*^9, 3.43424407790625*^9, 3.434244135546875*^9, 3.43425060215625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Rotate the cuboid at standard position, 45 degrees CCW about the y axis. Show \ a before and after position for the cuboid: \ \>", "Subsection", CellChangeTimes->{{3.434167616765625*^9, 3.434167717359375*^9}, { 3.43416776478125*^9, 3.4341677843125*^9}, {3.434222803125*^9, 3.434222807734375*^9}, {3.43422284334375*^9, 3.434222860859375*^9}, 3.434228850390625*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Cuboid", "[", "]"}], ",", "Blue"}], "}"}], ",", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".7", "]"}], ",", "Green", ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{"45", "Degree"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightGreen"}], ",", RowBox[{"ImageSize", "->", "500"}], ",", RowBox[{"ViewPoint", "\[Rule]", "Back"}]}], "]"}]], "Input", CellChangeTimes->{{3.434171317765625*^9, 3.434171381265625*^9}, { 3.43417141771875*^9, 3.434171425984375*^9}, {3.434171690046875*^9, 3.43417169084375*^9}}], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.2], CuboidBox[{0, 0, 0}], {RGBColor[0, 0, 1]}}, InterpretationBox[ {RGBColor[0., 1., 0.], Opacity[0.7], GraphicsComplex3DBox[{{0., 0., 0.}, {0.7071067811865475, 0., 0.7071067811865476}, {0., 1., 0.}, {0.7071067811865475, 1., 0.7071067811865476}, {0.7071067811865476, 0., -0.7071067811865475}, { 1.414213562373095, 0., 1.1102230246251565`*^-16}, {0.7071067811865476, 1., -0.7071067811865475}, {1.414213562373095, 1., 1.1102230246251565`*^-16}}, Polygon3DBox[{{1, 3, 7, 5}, {1, 5, 6, 2}, {2, 6, 8, 4}, {3, 4, 8, 7}, { 1, 2, 4, 3}, {5, 7, 8, 6}}], VertexColors->Automatic, VertexNormals->Automatic]}, Rotate[{ Opacity[0.7], RGBColor[0, 1, 0], Cuboid[{0, 0, 0}]}, 45 Degree, {0, 1, 0}]]}, Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->RGBColor[0.88, 1, 0.88], ImageSize->500, ViewPoint->Back]], "Output", CellChangeTimes->{{3.434171361578125*^9, 3.434171381921875*^9}, 3.4341714270625*^9, 3.434171691703125*^9, 3.434171993234375*^9, 3.434173733625*^9, 3.43422730984375*^9, 3.43423772442485*^9, 3.434250602203125*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Rotate the Cuboid at standard position, 60 degrees CCW about the z axis. Show \ a before and after position for the cuboid: \ \>", "Subsection", CellChangeTimes->{{3.434167616765625*^9, 3.434167717359375*^9}, { 3.43416776478125*^9, 3.43416781678125*^9}, 3.434222911203125*^9, 3.434228854859375*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Cuboid", "[", "]"}], ",", "Blue"}], "}"}], ",", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".7", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{"60", "Degree"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightBlue"}], ",", RowBox[{"ImageSize", "->", "500"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"0.8", ",", "0.8", ",", "1.0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4341717469375*^9, 3.434171755765625*^9}, { 3.43417181121875*^9, 3.434171875515625*^9}, {3.434171908125*^9, 3.434171935421875*^9}}], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.2], CuboidBox[{0, 0, 0}], {RGBColor[0, 0, 1]}}, InterpretationBox[ {RGBColor[0.3333333333333333, 1., 1.], Opacity[0.7], GraphicsComplex3DBox[{{0., 0., 0.}, {0., 0., 1.}, {-0.8660254037844386, 0.5000000000000001, 0.}, {-0.8660254037844386, 0.5000000000000001, 1.}, {0.5000000000000001, 0.8660254037844386, 0.}, {0.5000000000000001, 0.8660254037844386, 1.}, {-0.3660254037844385, 1.3660254037844388`, 0.}, {-0.3660254037844385, 1.3660254037844388`, 1.}}, Polygon3DBox[{{1, 3, 7, 5}, {1, 5, 6, 2}, {2, 6, 8, 4}, {3, 4, 8, 7}, { 1, 2, 4, 3}, {5, 7, 8, 6}}], VertexColors->Automatic, VertexNormals->Automatic]}, Rotate[{ Opacity[0.7], RGBColor[ Rational[1, 3], 1, 1], Cuboid[{0, 0, 0}]}, 60 Degree, {0, 0, 1}]]}, Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->RGBColor[0.87, 0.94, 1], ImageSize->500, ViewPoint->{0.8, 0.8, 1.}]], "Output", CellChangeTimes->{{3.43417184140625*^9, 3.434171876890625*^9}, { 3.43417191575*^9, 3.434171936125*^9}, 3.43417199353125*^9, 3.4341737338125*^9, 3.434227309890625*^9, 3.434237724471733*^9, 3.43425060225*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Rotate the Cuboid at standard position, -60 degrees ", StyleBox["CW", FontVariations->{"Underline"->True}], " about the z axis. Show a before and after position for the cuboid.\n" }], "Subsection", CellChangeTimes->{{3.434167616765625*^9, 3.434167717359375*^9}, { 3.43416776478125*^9, 3.434167860171875*^9}, {3.43422254934375*^9, 3.43422261446875*^9}, {3.43422266721875*^9, 3.43422270746875*^9}, { 3.434222937953125*^9, 3.4342229988125*^9}, 3.43422886328125*^9, { 3.435189228671875*^9, 3.435189247109375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Cuboid", "[", "]"}], ",", "Blue"}], "}"}], ",", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".4", "]"}], ",", RowBox[{"Hue", "[", ".655", "]"}], ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{ RowBox[{"-", "60"}], "Degree"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightGray"}], ",", RowBox[{"ImageSize", "->", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.434167220609375*^9, 3.434167224953125*^9}, { 3.434167275984375*^9, 3.434167278578125*^9}, 3.4341673909375*^9, { 3.43416746359375*^9, 3.434167472109375*^9}, 3.43416753865625*^9, { 3.43416758028125*^9, 3.43416758096875*^9}, 3.43416788359375*^9, { 3.434167932671875*^9, 3.434167933578125*^9}, 3.434170808703125*^9, { 3.43417084615625*^9, 3.43417090715625*^9}, {3.434226336046875*^9, 3.434226414703125*^9}}], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.2], CuboidBox[{0, 0, 0}], {RGBColor[0, 0, 1]}}, InterpretationBox[ {Hue[0.655], Opacity[0.4], GraphicsComplex3DBox[{{0., 0., 0.}, {0., 0., 1.}, {0.8660254037844386, 0.5000000000000001, 0.}, {0.8660254037844386, 0.5000000000000001, 1.}, { 0.5000000000000001, -0.8660254037844386, 0.}, { 0.5000000000000001, -0.8660254037844386, 1.}, { 1.3660254037844388`, -0.3660254037844385, 0.}, { 1.3660254037844388`, -0.3660254037844385, 1.}}, Polygon3DBox[{{1, 3, 7, 5}, {1, 5, 6, 2}, {2, 6, 8, 4}, {3, 4, 8, 7}, { 1, 2, 4, 3}, {5, 7, 8, 6}}], VertexColors->Automatic, VertexNormals->Automatic]}, Rotate[{ Opacity[0.4], Hue[0.655], Cuboid[{0, 0, 0}]}, (-60) Degree, {0, 0, 1}]]}, Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->GrayLevel[0.85], ImageSize->500]], "Output", CellChangeTimes->{ 3.434167892921875*^9, 3.43416793475*^9, 3.434170809890625*^9, { 3.43417086071875*^9, 3.434170929875*^9}, 3.434171993703125*^9, 3.434173734015625*^9, {3.434226343859375*^9, 3.43422641540625*^9}, 3.434227309921875*^9, 3.434237724502989*^9, 3.434250602296875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Rotate the Cuboid 165.12905554773627 Degrees CCW about the axis \ {0.4870584738481486`, -0.8436100229619508`, 0.22604462437945558`}: \ \>", "Subsection", CellChangeTimes->{{3.4341709914375*^9, 3.434171077453125*^9}, 3.434228872984375*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Cuboid", "[", "]"}], ",", "Blue"}], "}"}], ",", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"Cuboid", "[", "]"}], ",", RowBox[{"165.12905554773627`", "Degree"}], ",", RowBox[{"{", RowBox[{"0.4870584738481486`", ",", RowBox[{"-", "0.8436100229619508`"}], ",", "0.22604462437945558`"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightYellow"}], ",", RowBox[{"ImageSize", "->", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.434172768734375*^9, 3.43417278821875*^9}}], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.2], CuboidBox[{0, 0, 0}], {RGBColor[0, 0, 1]}}, InterpretationBox[ GraphicsComplex3DBox[{{0., 0., 0.}, {-2.7755575615628914`*^-16, -0.5000000000000002, \ -0.8660254037844385}, {-0.8660254037844386, 0.4330127018922195, -0.25}, {-0.8660254037844388, -0.0669872981077807, \ -1.1160254037844384`}, {-0.5000000000000002, -0.7499999999999998, 0.4330127018922194}, {-0.5000000000000004, -1.25, -0.4330127018922191}, \ {-1.3660254037844388`, -0.31698729810778026`, 0.1830127018922194}, {-1.366025403784439, -0.8169872981077805, \ -0.6830127018922191}}, Polygon3DBox[{{1, 3, 7, 5}, {1, 5, 6, 2}, {2, 6, 8, 4}, {3, 4, 8, 7}, {1, 2, 4, 3}, {5, 7, 8, 6}}], VertexColors->Automatic, VertexNormals->Automatic], Rotate[ Cuboid[{0, 0, 0}], 2.8820457100166066`, { 0.4870584738481486, -0.8436100229619508, 0.22604462437945558`}]]}, Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->RGBColor[1, 1, 0.85], ImageSize->500]], "Output", CellChangeTimes->{3.4341730750625*^9, 3.434173734203125*^9, 3.434227309953125*^9, 3.4342377245498714`*^9, 3.434250602328125*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Notebook Note: Right-Hand Coordinate System used. CW=Clockwise and \ CCW=Counterclockwise=Anticlockwise. Translate the cuboid by {0.5,0.5,0.5} in x,y,z respectively. Show a before \ and after position for the cuboid: \ \>", "Subsubsection", CellChangeTimes->{{3.4341685870625*^9, 3.434168641375*^9}, { 3.434168679109375*^9, 3.434168695765625*^9}, {3.434168735140625*^9, 3.434168766703125*^9}, {3.43417161796875*^9, 3.434171637859375*^9}, { 3.434172364765625*^9, 3.434172462484375*^9}, 3.434228883140625*^9, { 3.4342509075625*^9, 3.4342509669375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{"0.6", ",", "0.5", ",", "0.4"}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", RowBox[{"Lighter", "[", RowBox[{"Lighter", "[", "Orange", "]"}], "]"}], "]"}]}], ",", RowBox[{"ImageSize", "->", "500"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4341722250625*^9, 3.434172341109375*^9}, { 3.434172547265625*^9, 3.43417256803125*^9}, {3.434172981453125*^9, 3.4341730005625*^9}, {3.434173203359375*^9, 3.43417322790625*^9}, { 3.434226504265625*^9, 3.434226593390625*^9}, {3.434226628171875*^9, 3.43422663990625*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[1, 0.5, 0], CuboidBox[{0.6, 0.5, 0.4}]}, {RGBColor[0, 0, 1], Opacity[0.2], CuboidBox[{0, 0, 0}]}}, Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->RGBColor[1, 0.8518518518518519, Rational[19, 27]], ImageSize->500]], "Output", CellChangeTimes->{3.434226640890625*^9, 3.43422731*^9, 3.434237724581127*^9, 3.434250602359375*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Using Scale: Streach the one unit cuboid in the +x direction by 1/2 unit. \ Show the cuboid before the scaling and the scaled addition in the same plot. \ \>", "Subsection", CellChangeTimes->{{3.434224633359375*^9, 3.4342246595*^9}, { 3.43422475771875*^9, 3.434224920703125*^9}, {3.434225034328125*^9, 3.434225041359375*^9}, {3.4342284604375*^9, 3.434228461015625*^9}, 3.434228894328125*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", ".1", "]"}], ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{"Scale", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".1", "]"}], ",", "Red", ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"1", "/", "2"}]}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightMagenta"}], ",", RowBox[{"ImageSize", "->", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.43422369390625*^9, 3.434223711796875*^9}, { 3.43422375646875*^9, 3.43422378*^9}, {3.434223818609375*^9, 3.4342238220625*^9}, {3.43422386696875*^9, 3.434223886765625*^9}, { 3.434223948625*^9, 3.43422404484375*^9}, {3.4342241005625*^9, 3.43422411465625*^9}, {3.434224188140625*^9, 3.434224191921875*^9}, { 3.434224228875*^9, 3.43422432978125*^9}, {3.43422446321875*^9, 3.434224497265625*^9}, {3.434224561515625*^9, 3.434224583296875*^9}, { 3.43422473178125*^9, 3.43422474125*^9}, {3.4342251254375*^9, 3.4342251301875*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0, 0, 1], Opacity[0.1], CuboidBox[{0, 0, 0}]}, InterpretationBox[ {RGBColor[1., 0., 0.], Opacity[0.1], CuboidBox[{0., 0., 0.}, {1.5, 1., 1.}]}, Scale[{ Opacity[0.1], RGBColor[1, 0, 0], Cuboid[{0, 0, 0}]}, { Rational[3, 2], 1, 1}, {0, 0, 0}]]}, Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->RGBColor[1, 0.9, 1], ImageSize->500]], "Output", CellChangeTimes->{ 3.434223712640625*^9, 3.43422383771875*^9, 3.43422388815625*^9, 3.43422395003125*^9, {3.434223988453125*^9, 3.434224046640625*^9}, { 3.43422416834375*^9, 3.434224194453125*^9}, {3.434224270046875*^9, 3.434224332046875*^9}, {3.434224566890625*^9, 3.434224585328125*^9}, { 3.434224733296875*^9, 3.43422474353125*^9}, 3.434225131734375*^9, 3.43422731003125*^9, 3.4342377246280103`*^9, 3.434250602390625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Using Scale on a 3D graphic: Shrink the one unit cuboid by 1/2 unit in x,y,z \ respectively. Show the cuboid before and after the scaling down in the same \ plot. \ \>", "Subsection", CellChangeTimes->{{3.434224633359375*^9, 3.4342246595*^9}, { 3.43422475771875*^9, 3.434224920703125*^9}, {3.434225034328125*^9, 3.434225041359375*^9}, {3.4342252431875*^9, 3.43422533365625*^9}, { 3.434228472390625*^9, 3.434228473109375*^9}, 3.434228901234375*^9, { 3.434236802244542*^9, 3.4342368094335604`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", ".1", "]"}], ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{"Scale", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".1", "]"}], ",", "Red", ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightPurple"}], ",", RowBox[{"ImageSize", "->", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.434225173828125*^9, 3.434225205515625*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0, 0, 1], Opacity[0.1], CuboidBox[{0, 0, 0}]}, InterpretationBox[ {RGBColor[1., 0., 0.], Opacity[0.1], CuboidBox[{0., 0., 0.}, {0.5, 0.5, 0.5}]}, Scale[{ Opacity[0.1], RGBColor[1, 0, 0], Cuboid[{0, 0, 0}]}, { Rational[1, 2], Rational[1, 2], Rational[1, 2]}, {0, 0, 0}]]}, Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->RGBColor[0.94, 0.88, 0.94], ImageSize->500]], "Output", CellChangeTimes->{{3.434225189296875*^9, 3.434225206484375*^9}, 3.4342273100625*^9, 3.4342377246592655`*^9, 3.434250602421875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Shearing a 3D graphic, plot 1 of 2: Show the cuboid before the shearing and \ the sheared cuboid image in the same plot. \ \>", "Subsection", CellChangeTimes->{{3.4342291590625*^9, 3.4342291866875*^9}, { 3.434236595997867*^9, 3.4342365994360933`*^9}, {3.434250244625*^9, 3.434250290765625*^9}, {3.434250352875*^9, 3.434250364984375*^9}, { 3.434250458234375*^9, 3.434250469859375*^9}, {3.434250524921875*^9, 3.4342505254375*^9}, {3.434251159140625*^9, 3.434251161140625*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"cube", "=", RowBox[{"{", RowBox[{ RowBox[{"Cuboid", "[", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".1", "]"}], ",", "Blue", ",", "cube"}], "}"}], ",", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".1", "]"}], ",", "Red", ",", "cube"}], "}"}], ",", RowBox[{"ShearingTransform", "[", RowBox[{ RowBox[{"45", "Degree"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightPurple"}], ",", RowBox[{"ImageSize", "->", "500"}]}], "]"}]}], "Input", CellChangeTimes->{{3.434235512493141*^9, 3.434235540516117*^9}, { 3.434236476175691*^9, 3.4342364771915307`*^9}, {3.4342365699454913`*^9, 3.4342365796506653`*^9}, 3.434236624722683*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0, 0, 1], Opacity[0.1], CuboidBox[{0, 0, 0}], {Opacity[1]}}, InterpretationBox[ {RGBColor[1., 0., 0.], Opacity[0.1], GraphicsComplex3DBox[{{-1., 0., 0.}, {0., 0., 1.}, {-1., 1., 0.}, {0., 1., 1.}, {0., 0., 0.}, {1., 0., 1.}, {0., 1., 0.}, {1., 1., 1.}}, Polygon3DBox[{{1, 3, 7, 5}, {1, 5, 6, 2}, {2, 6, 8, 4}, {3, 4, 8, 7}, { 1, 2, 4, 3}, {5, 7, 8, 6}}], VertexColors->Automatic, VertexNormals->Automatic], {Opacity[1.]}}, GeometricTransformation[{ Opacity[0.1], RGBColor[1, 0, 0], { Cuboid[{0, 0, 0}], Opacity[1]}}, {{{1, 0, 1}, {0, 1, 0}, {0, 0, 1}}, {-1, 0, 0}}]]}, Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->RGBColor[0.94, 0.88, 0.94], ImageSize->500]], "Output", CellChangeTimes->{{3.4342355266062183`*^9, 3.4342355414694924`*^9}, 3.4342364780510874`*^9, 3.4342365834170856`*^9, {3.4342366264261675`*^9, 3.434236631755418*^9}, 3.434237724956192*^9, 3.43425060246875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Shearing a 3D graphic, plot 2 of 2: For clarity, show only the sheared \ cuboid in this plot. \ \>", "Subsection", CellChangeTimes->{{3.4342291590625*^9, 3.4342291866875*^9}, { 3.434236595997867*^9, 3.4342365994360933`*^9}, {3.434250244625*^9, 3.434250290765625*^9}, {3.43425032684375*^9, 3.434250336203125*^9}, { 3.434250373296875*^9, 3.43425038378125*^9}, {3.434250443796875*^9, 3.434250450109375*^9}, {3.434250482796875*^9, 3.434250517546875*^9}, { 3.434251131640625*^9, 3.4342511325*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"cube", "=", RowBox[{"{", RowBox[{ RowBox[{"Cuboid", "[", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".1", "]"}], ",", "Red", ",", "cube"}], "}"}], ",", RowBox[{"ShearingTransform", "[", RowBox[{ RowBox[{"45", "Degree"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "]"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "LightPurple"}], ",", RowBox[{"ImageSize", "->", "500"}]}], "]"}]}], "Input"], Cell[BoxData[ Graphics3DBox[ InterpretationBox[ {RGBColor[1., 0., 0.], Opacity[0.1], GraphicsComplex3DBox[{{-1., 0., 0.}, {0., 0., 1.}, {-1., 1., 0.}, {0., 1., 1.}, {0., 0., 0.}, {1., 0., 1.}, {0., 1., 0.}, {1., 1., 1.}}, Polygon3DBox[{{1, 3, 7, 5}, {1, 5, 6, 2}, {2, 6, 8, 4}, {3, 4, 8, 7}, {1, 2, 4, 3}, {5, 7, 8, 6}}], VertexColors->Automatic, VertexNormals->Automatic], {Opacity[1.]}}, GeometricTransformation[{ Opacity[0.1], RGBColor[1, 0, 0], { Cuboid[{0, 0, 0}], Opacity[1]}}, {{{1, 0, 1}, {0, 1, 0}, {0, 0, 1}}, {-1, 0, 0}}]], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, Background->RGBColor[0.94, 0.88, 0.94], ImageSize->500]], "Output", CellChangeTimes->{3.4342504129375*^9, 3.4342506025*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "An example using ", StyleBox["Mathematica", FontSlant->"Italic"], "'s Magnification function:\n" }], "Subsection", CellChangeTimes->{{3.43417325996875*^9, 3.434173280859375*^9}, { 3.4342371562255373`*^9, 3.434237219457639*^9}, {3.434249945140625*^9, 3.434249964046875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Green", ",", ".1"}], "]"}], ",", RowBox[{"Cuboid", "[", "]"}]}], "}"}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "100"}]}], "]"}], ",", RowBox[{"Magnification", "\[Rule]", "magPowers"}]}], "]"}], ",", RowBox[{"{", RowBox[{"magPowers", ",", RowBox[{"{", RowBox[{"0.5", ",", "1.0", ",", "2.0", ",", "3.0", ",", "4.0"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.43423699237844*^9, 3.434237064018567*^9}, { 3.434237267389635*^9, 3.4342372847995615`*^9}, {3.4342373888043647`*^9, 3.43423741479323*^9}, {3.434237467255419*^9, 3.4342377104849415`*^9}, { 3.434243878515625*^9, 3.43424399296875*^9}, {3.434251310078125*^9, 3.4342513210625*^9}, {3.4342513745625*^9, 3.43425137634375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox[ Graphics3DBox[ {RGBColor[0.1, 1., 0.1], CuboidBox[{0, 0, 0}]}, ImageSize->100, Lighting->"Neutral", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzVlstum0AUho9hwDjYsZNYQa6DxKKNuu6ij9Cs+hBWVCtZVK3S9KX7EpRz YTgDhzi2mkVtGcPw/9+5cJn5unt++PZ99/x4v6vunnY/Hx7vf1Vffjw1Q/EE AD41v88V4H7d7MqmqptPVO/3+xXuAZT4F+MAxCjBPTpa8vmtN4CreYhQdf47 p2HRbbwuwtMOzwNxWyqcs/LaRyRlSkpHyuJPQTGa/QWL1x5L2WU9saBFfBGS cxInXqwMMGfHsqsu1tXBwvDiT3kXYcUrcqQDh0TM2XQWpnip2iQGiGjbXQz0 zdidhd1Yi7tVso+34iRfxu40TLh4wa1ji9uF7o3hdkbsqXKr+wHN715A6ASO RCQGIj0OkRqFJKchdBaCiBUCP2jeGoipgXBDRJvFjXEvTY1C4tMQOosjEZmR RXQaQmfxNojGeAoiMrIoDcTM6MXkf0Hou/MfInQ7DUR7RfqPGb6L6YV0Ns6R 13o7upH5QyH4bVrWZS8561oPoThXXCOU5qTpGGeCh+S2EVeIoGrnghg8gocQ S7u0lcFLX8Ob27y1wUtew5v5LhVGlw4ieHJtu3RjIBwjmqGOQwh9G8YeURmI +BAC2qP3Rhsi002aj+NyFcfpexUH2GavQvSD0q5gMMWSv/BBvKq+vlfPZRIR bsnmAluXYjIWrd8PaLsAMn13PfTJSe2dMjPyISVH5FWQFb1iEQCIMjdIWxTF 3GdaxdD4fIy5DuWygjg3iln56Am/jerB0lKDsxAs6+cLA+xC5RUrL+nP6dp8 7IIHSCkPCismfwFA/Zhy\ \>"]], StripOnInput->False, Magnification->0.5], ",", StyleBox[ Graphics3DBox[ {RGBColor[0.1, 1., 0.1], CuboidBox[{0, 0, 0}]}, ImageSize->100, Lighting->"Neutral", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzVmYtO2zAUhtM6vdMrLQVKodwvgsFgY9x206QxDdjYI1QIBNKmTYy99F6i i+0T9yT88ZpKiK1S7vm/8/vYjhvnrHt3ffmte3dz0e0c33Z/XN9c/Oy8/37r nRIJx3EuveVrx5H7PW+XVm973k/0rq6uZuWe47yWm6Q8kTR7HX3pyNxLlzwA v35gBMJcd1K9wq+C3JPn5Wm5dWa0Yg8ohBQ4blhCiudBD6Lnh/DWvkJu/UDT WrYDAmWVLG1kzd9NLm1r5RYImAdKuQSVT0DMolJm7im55SktXwfyCuWGS71F OXOESZc8mtCUVWC/RiZClICJlpYvAxMNJRdc7jUDuRYBxKRGLAAHTYAQtCY5 L8QccDFJCJZJg+AuCNEBiCmAcAFiXCPaoCDTAJECBWlqRAu4mLUguAtCTBhE 38U8QKSBizGNGAsWRLlYsiC4C0LUQUFWACIDEA2NqIJ0rgFEFhSkrhFl4GLD guAuCFEE6dwEiBxAjGpEHqRzOx4ipzYu78AG9Qyg8gBVYygqkHd5F6gLIKNV bkSYx6gUv7AguAFCZBlCn3GcfdDfEaISDzECClIeDsFdDIDguSgyhO+iNDzC dxETUQKIohZkAOIAIMognSPDIbiLmIgKQBTiIaqgIPnhENxFTEQNtIvc8Ajf BSHSAHEIEKMAkY2HqOv/GN7hMMJQBjL/O8JPIiFSAPESPGhQPQyAQC54s04/ GoKn859CuGoTHEwHoPiVEqAEjbx6GEQDVErq0RA8ow+LCPc0mTp1h4UjAGc/ 9MZIi+i1e+0BastC3sXkDCCj/m0h72ByAZDRIGAhb0myav1lC4w3FDcato5t 1gEZDboW8iomNy1k3hyInKSDUF9fwvAWgFf+Bg/aXsDkGUAuxyN3QG9Qg+48 YKN/exZ2G7teAWT0V9RCnsTkdSLzEbAIGoiIJjcxedPiGZB1Twm3D6+3RiR7 B+DRa4aPdwN4R77WQtt7gFsADSSSW8LcI8DNx+EWMPcNqED0AhvJzZrH0Dtg MRbKxRY/AC560/e56TDXn5lUpTy10HjFJ0kcnG1TR+cAkYlGiL47JZHiLwCR BtXZd+GDdQvWXoimWOegIlPRRJ2sew9U5AtNUhFFPzBSAQqRHJQlNOtGKNV/ +xM0odJ9AjA0C0iwjMXXZwuK115CC7JWX2cg68loWL7fiIwlNX1zBkxZOAWr qRO1vj9tTceUoyJuAdpJKiCmfT+7JUt2T0NyXjlkvj+bh8x/VGs3LCZtNSqB J6wiQvFq1njHct3/xEGaOk6OesS55uGVYIqGNcphUOiyemjiUGogEUahsk3v G+NRSXgKotCUSmg6OWRvDQhpdqyF7S0bhTD2aJJzyhpqGoSiifdpHKoFFPTt ZCYqEw1gj75e9b8QIHtFEGxRC+eiguWAZlVr5q3BksDlhhYugmAiGGJb37kk N3yM8UcJdW5X37RifBxSVhN/AKgDEv4=\ \>"]], StripOnInput->False, Magnification->1.], ",", StyleBox[ Graphics3DBox[ {RGBColor[0.1, 1., 0.1], CuboidBox[{0, 0, 0}]}, ImageSize->100, Lighting->"Neutral", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztm3lTFEcYxoc9uJYbZHFxYTnkEESCIhIUDyIaDR6RilqehICgiVioeMSY slJJ5Y+kKpVKKiZGy0Qr3yUfIV8hX2LD9NvbOz379LuzvWWVScTCHWa6f8/z vm9P75wzc7eWFj6Zu7U8P5c6tDp3Y2l5/mZqemV1fVW4xHGcP9d//0o57nJ6 fVH+92V6/SeUXlxcPOAuOc4XaoUTdhfdJfHXftr+SG0PqyW56aH7EXZXRMUK sZhhOPuo0QPVq1ysiKhGsuFeandfbxcSdk2N7yhlrXHsdiwtI3W3hXyu3L92 E+C2rhZ2u4Td/gbdSeq2CnRL3W6OIKTjf8ezmfQpTxDiBlAuF4iIF0GGcilv E+U6oFQWTLkGwqkWlKhGcT8dA2qcUMvAUC2DigDULkJdASOhASQ55C5JvPfH 3SYD/EgFWKZcNcF6mVEywA9BgM12qEsg7QkPSuaJRclcXQCuNgFUhEGNEeoc SHu7HeoMSHsHQEUZ1E5CfQAC7LJDzYIAewCqlEGNEuokCLAPoMoY1A5CHQeu BsC4CoB6D7jaClDlDGo7oY6AtG8zoUKmaWaYYIdBiCMAVsH4GiHUQRDiDoCq ZFBvEWoKuBqzQ+1XqKyrcYCKMSiZq0kQ4ARAVTGobYTaDQKctEONA1f7AKqa QQ0Ragy4mrJDjYK0T4O9kENtJdQICPAwQNUwqEFCDYMAj9qhhkCAMwBVy6AG CDWgByhcnQCoOga1hVD9wNX7dqgekPZZMBjqGVQ/obpB2k/boTpBgGcBqoFB 9RGqHaT9PEA1MqheQiWBq4t2qFaAugxQTQyqh1AtIMB5gNogjx28qPX1ktIM DC0YKdjQZkI1AkNLANXMoLoJ1SA+9K+0qPJ3tQioCDWiUB8DVJxBdXn9Zc9V 5KcIeQUgW3ANDDRau37Kk7tnc946qV+9zJaXJokQ2cIgO4pAimSgE8F2O+hG xmfKDplgkJrLnNrcfGW0zJBpZWht1K+OCRchN+FRWBQNG0zaIZMMclMRSONQ TNhB2xifrV5kTqVvAVo7LosE1TLezDTsLWGHTDHIjXbIDhxzUTRssMUO2ckg 416kPqDESLsNJocOdhxuIGINY3INQDmTzXbILlyYomjYoGXM3QyyqTBkptab ccxF0bDBRi8yZ3K4A2g92JsEVTPejDTjKKyzg/YyAdfbIftw1EXRsEHLmPsZ ZK0dcosn5kW6E+D+SloVQ7ubh+Yx94bmp9Fth3BmfhGwfoysyY+8B2Ysg0FJ izG0+/8SWp5S/AdpA5hW/SpolQzt0ze015qGvyFoBnEqxEfEjxQzEkIOYoMa DRt88L+hfQYmOUNhXwmNbrX7TwpondvDvVHuMgsYgBoZ+3wYPIexN7TXhyYu lAYYLQXsIxqZ2ePELCPmnkFmpqrMT7unaCKOUDqZTgazGgC+psNLAdyw1wSA +y/iubQQ9c2VMRw/BJBZ0WOoBXDDAaeEl8oRkW+UXNWFGlwhdHjbG0ANh+JT aDYpGM5aAyhc0RUSIFnc+WZFfoV5ffS3mRTQbfWy/PjLegBdAG/ITgDvF3R4 jyn/3ayC/5mxtGE8ndHVtpjUDNeMClSb1esyBBIXJCycuFk9lO0AHiQKDD+p w8cAvNMafkyHT3jgmSMS7vJneX4F/y1yNQ1OmgqewtFILfSAGSr4QT2yKZOa 4fp4gWoHdLVDoEhBwsJH6/t1+FEADxIFrs9eU32OA5k2a5kJPYZTpnIY7iIF UNilK5w2KXC3vsryy4zqMudAlpKmCZ72EwdtQoNqWJe6BKQM6SorTGhQnxzn gVBrACGcsEE9iiUwxSSs4f06/Jqp6IZb5AEUenSFFZCbjdZw/xOPaue7CWS4 W+n0tQ6vu6OCJ/Wg7gI17lmAAtUSutoDMALiOIUFCsV1oc9No8Hw0IqmhgsW NxXsC5NWk7VWox7N16BI9oHU6fBvAJx37mTfKqBC5JYjpmt8B+reWKxGuakg PwA17sGuaGDJiB7WY1Pl601fA2EohQZ0SJf6FVSpAWcQh0MaEaXhfmbgzwG8 3ha+mL3F9BJw64Jy3cbyxH99/R+gprWFWMycLbiNk/TPeWGqXzVLRnOSOG4Q qJcmKPdQLh12ONn3cTKn5l67v4N0cg/CSig6T8rafWGCmo8g4HUDTMyUqgon VDosY8N+bkpoJQutYE3+ZoJWsNBK5TSqo3wZ5K1VsdbQ3sg9Ry/nlOrA0ExR uJcGJLSGrcwzExSNnRIi1rE2n5nKUooTKm3Wg7IYUVEW1cj6ewpqw1trAtae grzxrppNrnwVeQLI3Ns9coeOs0E/MWWSe11LkltA+B5e1MsTv05m5i5xN5XQ kkAlWJO/gMqE1VjMgbUCXwgRwmWR0SUDlkUcKMhEeQN2gw1Bf23A38+CEtEo RkAKWAsr1GN/CXzxZcrXweb8J5hzzY330fuo3tHwXqbs1h0wtT/6UusNQqI2 Awffu90i0oFs73PQy2bwWwUoVXjZsS+g9a8UIuZPWvaFjKzlR25zEaj4/oh4 mg8EVLyvFKsVQh7UDALFNdBcXlkcYpNzQ7cqhpi83b1N1/EZXAYx0lPs8sUs k+KCsppVlM8WjgRMzkUdIbTls7LbQXLOAqvt1HyUtToLrMoH9neyyZkBBuVL KbtYxcPAqnwfaVwpZnfrKWBQvss2wersAQbl65W72Y5jwKB8s3YPm5Jh1TGm rO6hjntZxUFgVb4+vw+kpAfoTFPzA6xOSu8odI5Sxym2YysweJw6vsOmpEmf VYTVU9RxmlWsBVbPUMdDICWVwOB5av4uqxMBBi9TxyO6js/MAjUS78SCaxuL mdvKYtMyNZ4RHzlfMqUKep3aHXM/wuqrXWxapU0n1KY1WuGU/AOHVtPV\ \>"]], StripOnInput->False, Magnification->2.], ",", StyleBox[ Graphics3DBox[ {RGBColor[0.1, 1., 0.1], CuboidBox[{0, 0, 0}]}, ImageSize->100, Lighting->"Neutral", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnWtwlNUZx98kmxtJCCEJgUBMwiUJlwQCgRDCNTRcFJCLIBe5BHAFFMrV orXUyihTZGSQ0dIqQ8vQKqKAIKWA1c44zjjth06nM53OtB86tlZbO/Z++0Sz 55w9Z8+b//O8Z7NvCLTVEeLueX+//3Oes+9esnt2YcfeLQ9u79i7dVNH1dzd HTu3bN20p2rO53d3XpSR5nlp9Z3/zanyYj/f9Lz4H+KfhtgfnvdB7K+Mm9Fo dKO84H19QXrsp/TYTx3yqvf0BZn+q36gj8oWF4gfhafzb2+DHPSOPqoPPeht PShfXBDRg9TA9XLcNW3sKy7ItMbFoevk4KsaWiAPi81DRnyUGJPuixT7vwfk 0Vfso7PU0Ykj0dFr5NGXdFBRUOSmODhvX156cpyLdgrByYxxPFHOzbLfl4mS MwFitUS8oaOYacgRiEgiQpK7UlZJyjkQpE/SlLOAkg/KSac4KyXnO2B6C0Ga zr9J1P0SdQZEKhKoLI1KwAXQTts0UVVJYt8TUHSVKyTsFKhygIFlWrlUNo53 EpQ6kA4X+1O2Jc7JAOzlkv0NkHUwyyarv08ST4C0FRQxwzGtYr8I2lTFssm0 yyTxOKh/KEWMaGKEJh4D9Q+niJmO9S+V7KOabdLWsmyy/iWSeATUP5IiZjmm VezDIG09OGvkOGIXS+whEHkshSXrv1fCngbdagSwXMeMCnsQlN5EYcmMiyTs SVDwJADr45hRYQ+AjC0Am+eIXSixTwBsq+8cr9B92OoXSN5joPppmOeaVJG/ AJLOZMhk0nskby9I2kbdlgwRnUsUcTdI2E4R8x2rv1uydwL2XJZN1j9fEreD +udTxALHtIr9MEi7gGL3dWTPk+wtIPcilk3OxFxJjIK0SyhioWNaxd4M2MtY Npl2jiR2gPqXU8R+7LpVxPUg4ypwaunvWHq7xK4F2DUUlqz6cxK2Wledp2Hr AKzYMaPCrgQZNwBsiSN2tsQuBz3aSGHJ9ijYMpDxQXzic43ZJslLAPkhhkw2 aZbkLQJN2oZ5pWzlircA5HsE8wY4Vj5Tku8G5B3UjYjPqohzQe27KKJr2hmS 3Q7S7mHZZKemS2IbSPsoRSxj61fEmSDjfoo40LH+aZI9HbAfZ9lk/VMlsRXU /yWKOIitXxFbQMYvU8Ryx/pbJbtZs03ap1g2mVYRm0D9T4MT1BDHoFMkdjyY hEMUluxRi4SNBRkPA1gFW7CC1YNkRwDsLseCJ0vsaNCZoxSWzKhgdaDgY/h0 x/OaJa8G1Hwc8yody54kycNB2S8yZDKp4lWDyk9gXpVj0omSXAmSvkTddCrZ ZdkkiUNA1pMUsYqtXhEHg6v6aPYpil3tOBMTEixiJnI0+zTLJnMnEhOuisZf IhXsMxR7KMsen8i2X3lWP8s18UowHjWxUeLLwVWJLxB76gX9s5RlGFsEY4l3 KGboZItF/iplGe7Y4nEBVQn2a6yFrMWJfQ6c82pY7NjuYmsd56QhJQGZW2EH Obb2NSCoYwX13RF0OU3WsreCMaE4+DoYh5n/1zF5pGOPR6fqINOnQh7FkkdJ 8kDHuT9H3WpHOc7RyDB9ZFVhWUazljraYrryRm+wx7Ds2pTY9Y6drpGWMqoH DhaygiC2r7+vU5YG1jIiJMtYMGPo97+h+siqhtMW0/0L4I6ikcUO63VslzMf Tx4qyQOo2ebI4x1vA9UBDl9HzzM2so5wHBNYR1XvOkynL2JyE0uuTIE8kSXf Jcml7Bq6SN1O+dRBbN+cX6AsfAUVIVkmOZ7jQvWRVQ2hLabjb1LsZpY9uOfZ Jex6ItmTWXZ5SuwWlj0ogO3rKnmLCNXyJrizaWUFA7sj6HLKaHW8KTA2s5Au Mw6yjrIUyFNZsjyHesXsIuoRsm/uL2HHNNZRGopjunagu/ywHZ5592JUvEsu Gvv1Eukw/X0Lk2ew6Uucyejmy8+MYvdn1w7JFrm9zMRbVXxi4munF8i+bl7m HcHnhOI72Ud2nrGYVXUlJXYR2/s7kO2b+Sv41jyTWbuld5QheK32v11sZs1e ZRxk5xW5H1XHnUj2zf13e88xi1mvJd0woFu26xoqon1mDX0vJEsh2/XbwUJ2 vjfZvp5f7V0Lt3qLQ3UEd1wuW68v25Vr2hL/8IDSJPUwxEl1nbvB3wIH2fwg sq8x1/7vgA5zSryByW3MjUPdeRSw3WW5wSuo8H/E4evzdfZEQnb6v9CSz3bl bYrNrduiEMjBHe97W1h8vbhxW/nI3nfbgu4Q+UcRSpUHrorcOpVZEe8w55ke Ic927HyBi+P77PS4PmwIUqE7RVFXJMyCPPDMRH3AOCre51bR+W9sRHxCY5e6 3o6SlF+25cKd/CNmJfV/QNxuoXh1NEPPZo5WoY7yrz46+c7bpRVQpfEv7Tip ztmqIkoVQlWv2qpSVuWwXvIDpL71csZu4iBKP61n9N+0q69g15Dr725Uhlxw FTpTn7QzVLMZprAdZ8ym4y/bvhHUlLemrvq63d2RlCqEql6wq2qgVC0pqXyt O2ZLx8ekXe+4pjium7zk5M/Z8onsumlOLkMOuAqt3WftDC3UrE9OXW9a/VX7 bnQaJQ2hZiN9xq60jZJOYteXk+qgrZpDqSamrnrSVs1n19CElHy+lfOEfWpY yBbp0ER5xvf8G8/cJBbufrvwpZS+qWf0+2z9Cko/IXW9afZeW7qakqI3sHVb usvu81p2hY0L07zdLncjVW4ju6yDVL7GbrWlUUo6Lkxp1JZuo6RjXaRZ4Cq0 hDfZjd3BSh16mpucfr1d8x5K35C63iypdbb00VsiXWNLH6ek6L3X3ZautLt7 gJKOYZdUkMrX0/u0VIw9SElHu0jRh0nQQlpsT+8hSjoqTOlCW3qYPSuij5ig xubQGUxjF9jm59hyw5LOt1fT85Q01Erb7Uq/RknrwpS22dKXKCn6aBgjRW9Y Q+tquq0/hZ+Q1LJLOUllq93b01TFNWFKm+06X6GkI7QUkbNpqenoJFt1jlU5 dNRJOsGWXqCk6FOX3ZaOszt5mZIOC0nq6+kY++x/NSQ9Wm1oSdXZU36D0g9l 13GS0hG29F1KWt1dqenucLu771GqqtRV1XYnP2BVDp3McpFW2FP5o1siLbel P6akaNMCRoquQstngN3Tn1J6tFVECPpiu88/p/QVPaMvtCf/l5R+CLuiGanp c19b9StKNTh1VZ6t+nWwCp1gM11UOfby+ZhVOfRPSaUhfo1+wJTYuoi9cv5A mdHuM6ma49I/UdJBqUuN5W+UBW0slLSl83//2TMCMVIMVFd48heI3r8pXxm7 9rtaovFPLGRKVeeV/6LYA9jFHoEViKdk6cFYhylSArMXdq6OTE5/aXJs8vGp sSiYkiQbHj1vydFT9A+qDLRPG2PJAlP0d4qNdsBj2OilZVMBaenPrkvFzgW5 yZtuEbsapQX+xjwbs6MJT/b5bRAVG73fxMzEX9ncDvOtLAVgTv5Csfslx0Zv VDUVkBa0pSVj6Qcq+DPFRpt7Mmz0gZXsYAvanpSxFNsVCCJ5x1XArnRFRJ9N Nbn/SLHz2XUpK4CfojZd5dkOc6IsZWBOSDbaupdho11UzOx8RlnQDsmMpRxU 8Bl1RkA7RDPsIWwF5COtJC0VoAKSncOuS0WspHLz7Gx2XaZJdhU7J59S7CwX djWYiU+pXmY5zrJiD2Nz/47N7W4xW+TlBLPRxvIMu4btKmmJJGepZefpE8qS kZylDnT6E6rT6fbaSYtdmSZ/ErBRbOSPweO9jACi2eDRtPG3VOno2xzSIbae 7WCCAH/9BM7aALJ+ZFARC0VSxrHRPkK105Ea2Yb8xt9nNXHyjNYFZnYXNfXB Z/Je/KTYBdHEFidgGQl5iCZ6cndJX5QPzdH4G3PUsc1shg8Te6+ORJTJIMEv YsdmBx87BSTI0pSfaUqWb1wCopUt4icxhPhml3wdUx04FeT+oTYW+Sd6Out5 Xx9Y4vfMAJ53dSwxXHRJPYCbxU7JdfvAiMaqnZTJgG/ZAcWB6u1ws0HA83p4 sQ6oPr/TznrOgoDqs8JzgOc08Ki9PuaxE3HSPlB41LY5822PiHUCxFK7QN3D eo6BgPJeT30dBDURR0BAtZffQhDwEAiodqa8lw34FX2gCai2RV0MPF8EsdSu v0tZzz59YH/tUTtOm33hzRl1px1LeNRm6sspjwi4DQRU+/ivYANuBgHVt0Dc DyZiPQiovuFkFetZCQKq79lZDSZiGYilvqDpAXYiFoGA6mvC1rIB54ED18sD 14GJaAMBN8nhG1jPVPtA4dkiD+wAE9GsYxnPI3L4JnYiGoFnlzxwM/CMBsP3 yeFR1lMDAj4mD3yInYhKYDwgD9wCApaD4U/J4dvYgKUg4DPywIeBp9AeLjzP yuHbWU8uCHhUHrgDeDLsO00R67gcvhN4xAMCH/2EHL4LDPc/N/Msz8vyIvOF N+ipXIH2fEsO36uCoMdGeXrwt+XgfZrtgRfpBeSsHGm+GChdQ87Lq/bL2eq8 4JIqIu0/e1ZC5A==\ \>"]], StripOnInput->False, Magnification->3.], ",", StyleBox[ Graphics3DBox[ {RGBColor[0.1, 1., 0.1], CuboidBox[{0, 0, 0}]}, ImageSize->100, Lighting->"Neutral", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnQlwVdUZxy/ZCEkgQNgChIQlgKxh35dAIGxhR0BRjCkRVARZFFArWHEp SoVKXRnUOtaqTC1WO3TBlnEZl1HrMjrU6mDrvlSplaq1ae79Ts555/F9/3vI vQoyMJOF9875//7f9z/33rx333u3onLN0iXLK9csq6osKl9VuXLpsqrVRRNX rKq9KbWB5zXYVvu1p8jzf6/xvLpvwb/G/reUmurq6h/5v6mbs/WtXmpwQ+1v wf+uSBiU6X9L9W9O1cMT78/Qtwa/ecHQOjVvU8LIND0y0PTS9Eg1emPC4AYa mwUH/0+LBjV66da4OhuX0+CvtWhu+OAvtXIeGPxDGnxYD26Z1AX/fynMbZfQ xM+1pWbUo9rMuOFA4pBmN/d/axjkbgKl7h05ewPN/lTPDgxkqNnZa7Nr6tZQ irotcTanuJ4UP7ZLSvdnp/mCaUen86FdV6CT4evU+Wn9QevAo59DQ0ZnHem8 x/hpVA+ddxg/2VonxZdRE9V25yVvEf7/LiaxfzBtbyyK+T45ZxeR2EGmwmam wrSgwgQtIPUmU2RecrP8eb7BFElsLYn9zS4yEGvF+fJ/1n6lUMSi3gGmzjZh epy/NaT3GhNCW7lYpLiaFF9hHBZEUnyJCaRQUkyFiqtI8S9MKp3YpafamGCU C0fJPseU3sVRlnN7Ick+y2TUFcriJqwk2aeZJpwCZdPUbfqgGhwTRMCTTDt6 hgNE3ytI9nHGdx8omw5lLyDZ/Yzbkuiyf2LC6w9lM6DscpLdxzRhEJRtCFew kv0904QhjrKc2/NJdi/jdjiUzYSy55HsI4zbkdFlf8NENkba32RBxXNJcQ9T /zhJMRsGpRR/xZReFq7IeVxGirsZj+WSYg5UXEqK9zOKkyXFxrBqpXivrrqp TmYqDByXfg7J3sMYnQ5lcf30F6f3cyajmdFl72TczoGyjaHsEpLdxcjOg7JN YGRK9nYmsvmOspzbH5DsrYzb06BsLpStItmbGdlFULYpbIKS3WE3IZBd7CjL uT2bZH/KuK2Ess2gWyV7AxNZlaMs57aSZLcybquhbHMoexbJXsfILoWyebAJ SvZaJrLzpZ1XC2h0MSlezRi9QFJsCRXPJMXNWtEEtVJSbAWrVopXMFWvDlfk PJ5BihuZqtdKivghkFK8jPG4DgaOm7mIZC9hjG6Asrj+00l2PZPRpVAWN0HJ XsQ04XJHWc7taSS7hmnCJijbBrpVsqvsJgSyV4bLpkqyC0l2BdOEq6BsPmzC ApJdzkR2DZRtC5ugZM9l3G5xlOXczifZpYzb66FsO+hWyVYzkd0AZdtD2VNJ toppwnZHWa4J80i2kmnCjVC2ALpVsouZJtws7bw6wCU7lxQX6fpztdFbJcVC WPocUjyN8bhTUiyCVSvF+UxGu8IVOY+zSXEeE8+dMJ5CaFTJzmFKvxvK4vpn kexMJqN7HGW5Jswk2emM219C2Y7QrZKdyqR1f7isuFBnkOxkJrLdULYTdKtk y5kmPAhlO0PZ6SRbxkS2x1GWi6yCZMcxbh+Gsl2gWyU7lpH9bbisGNk0kh3F NGEvlC2GTZhKsiMYt3+Asl1hE5TsUMbtvnBZsQlTSHYw4/bPULYbdKtkBzKy j0n7xFOg4mRS7MfU/0S4IhfUJFLsy3h8SlLsAT0qxd5a0Xh8BjazO8yonGR7 2KUHRp+DsrijSrY7U/8LUBY3YSLJFjNuXwqXFZswgWS7MHc10YBXIKAn9J0I CNqRo8N7Fcr2grJlvO/an14j7fuAI4BbxuMTAUec7c7QjNchozcsQjE6M3dx 55cD3pvhPDHscTIvNeE2L/E880HI6wPrA7zgPHNg9C0I6AsBpSGAYOLfwwFi x8ZGB5TACmIA9IOAMQToxK6nbxlgKnjbB3jBCw7qZP2RA6HyaGdl7pgyAAY7 6ui0ubb0h+ZjAAyAgJExAcQWjYgOwPkqQEcIeCccIFYwPDpgEKwgBsBgCBgW E0Bs0dDogCGwghgAQyFgCAGKmLvSv22AqeBdCBgGAYNjAoghD4oOGA4riAEw AgIGxgQIWsS9SkQBCuEqeo8/io2G1geEKHv0Ehb/BX6+Oi5iJET1l1GmS+8f W8AoCOgXE0DcFEqiA3DcCtABLiQMGAMBfWMCiJsCAJgWfQABY2EFfWICiCH3 jg4ohRXEABgHAb1iAoghK0ABXEUYMB5W0DM6oAwCesgA06IPwwFii2IATIAV nBITQNwOursAPuIPapOgdaXcHqb7EbQ+EQK6xQQQ0wUA05uPIaAcVtA1OgBn UBwTQGxRDIDJsAJ6cs1rB0N2AIgVxACYAivoHB0wFQI6yQCTwSfhALFFMQCm wQo6RgdUQEBRTACxRQrQFoaMAdNhBYUxAcQKAMC06J8QMANW0CE6YCYEFBwd IFWqQGyRE+DTCBXQbtTLhyFjwCwN4CqIC5BK99b4736rvbMguuxs7Ts4A5TK SLWTKab9n4VTAvPcm9hiAMzRZRxLQBsYxHED4FZo2xMZYEI+dGwBc2HI3xWg NczguAFwGeQfHYA71uCQAcBk8K9vG/B58MAvOKlcJxt81Y725sUkj7cCcWet AK1gAhiA19BJQOhW0EYGmJD//T0AcJ8AkH68AObBkE9ogAn5C0cAl0HrEwXQ AmbwBTwa4GX6fQDgVeQEOAyOZ/PrK28i/k+EiFt9R4A82KCTgIiAU+EqOpYA s4q+dARwLaJ9nNccVnAScMICzCr6CgLw3lQBmsEKvoJHA7wdxArgWtTiuAB8 DY5nC2KSr+caOpYAs0j/G2GRKkBTWMFxA+BalHcSEAFgVtE30QG5sIJjDFgA l2msAK6C5scZgNtZ4wycAMEyTY0EaAIBweEmg2KsHbEwuuJhrRiMqOee2gkV PA+Vrs2n1hTUFKRCnmd/sBd3ysiJ/JkmByMyNdmz3y2Ad+ZOqI/tfub4qHo+ VmnmwvvA5jWFPPwA3on3rh1iHgwRPz+teI0h7207ujaQNzs676Ddz/aQh0/F OvHesHlFML8YeH+1eV0cedz24MR7zV4v3WA/Z8L6mrrwXrbr6wV5M1x4OZD3 os0rgbzp0XnP27yB0q4shtKetaMbCpdKRXTeU/amPgrypkXnPW63ciyMbprj 8ciJvN8ml0HyVFgp/UHiZTN3ZWjeo3aSk6RFg5sKUKa0P9ohVsAQp0Tn7bVb OQvyJkfnPWLz5sLoJkXnPWRHtwDyyqPzHrTzO0NaKjGU9oDdykoYnSmNOxQp Xhbk3WfzlkDeRFhfExfeL+zolkHehOi8u+3olsOlUhadd4fdzwshb3x03k6b t1ZamjGUdquNWg+jG+fCa8TcZXbQN9lL5bJwnsOhCJBNpTvsRbMJhlgKK23s wttmd3Yz5I2Nzttq866VFk0MpW2xQ7wehjgmOu8aO7rtkDfahZcJF+mVdit3 wOhGReJ59tshN9rkWyB5ZH3JprOX20nulBbNaGZL5A5POS7QS+0475KguLNO qHV2P++BK2dEdN5am3cf5A134XEf1mJW6io7v91wvQyLzlthR7dHiq7epZlW LrdRj0ioeldlUMvs1H4HUxvqeFByIlfb+e2D5CGw0mwXXpXd1P1wvQyOzjvL 5j0BeYNceBnMXWZ9LrKTfFpaNE6lYdRCG/UcjG5gfXmmlfPtpfIi5A2Izptr R/cq5PWPzptp9/MAXCr9HY9HWS7kCpv8hrRocFMVirvLLJopdohvSSjcTydU uZ3fuzC/kvryTBcn2LwPIa9vdF6pndoncL30ic4bbUd3SIouhtJG2K08DFEO WwH9dc3eZdbLUBv6NcyvNyzSiTfQzq8G8npF5/Wz8wt4aRDas75Qk2Rfu6kB VDwpV+8iDa8Xw8uReDHU150JsanE6xGdV8yE2AKG2N0Fyv39ZlZOJ6ap+eFQ hw0z0wVfyODx2bpusOYwqGc/JG3H4IukiHG3AdlEnM8sqS4Sr96VGl4rZkl1 h+kWR4fmMU3tDaFdXKDcx2iahdSUgeLTeJ2jQ3OYOMVzecWO201DF3IjJtih ErlLdLJJtyHTaHySrxNstBM0jYGWQmjHSNBMGzUBoopcUJ591dDg1jQ7P/GE nlMtHEB9FIx/W92Xz6iQQPWpJBgZDCQYBOBP389gASkaoFAWRUylg+OiPxJa +0Vvbm+kQwp40yCvAPaOp+TYgKlS2zq4aHM75Wy7YyLAyTzXvWy7gikSoL0L QG3v1eqCw6m2rNj5ti7a3FM52UdDyXehZOoKkqKdHK7tsFaJzJ71SqpF3Je0 PTqUuY51UkHlEgD3Sclyr/5JqkAEtHEBcC9/4wBiJK1cKLlSdyZC7ZYu2tzr 5ZMqmCC1yMl8c8l8mSRrfHN7b1pF7BvjknxjgMPiVCjufZwcSgwiD/ZJUVpJ fRoPtZu7aHMf3ZBUwTipWU7m8yXzpZKsk2/uA5qSfIuAZi6A9rZvB1l8vUQ6 OLIfwphlN2YsTDXXcYUqXmF4nwyPK8gdVSQlPVrqWC4MQslyHxmeVIEIaOIC 6CwlLco2dpEtDk8aP2rJdqF0lcxj7SwX7e7hFYyQWoQv9UsPe9RnVsJoMcBh cSpUD6lPIiDr6AC9wps1HEaSCSNRFHPZmqQysHZDF+2+4RUMk3YVTuZLwgHi MwhOFfSTuiPKZsBl2oBkB4T7HgIBDqtIoczFmJIqGALz5S5fDyiDpYI4XlJB 6TAIBRiiy0h6eDZI6lOai+ywcN8iINUFMDw8afHZtRQXgLniWFK+A2G+ZoU2 8G9vQL8FiqPCe2K0qc2J0kB5tBRif9OC9GS94FZeb2y40wRl26koWiqZ7MdJ eXQxonRWany4v35c+J6oWOaomLidefR0maA4QSq3JNHZEcfyI3TKw5319b+l hSt6dEk1zlSfRFP+PyVzpMSUcD+9tB/a26cnDq5Tr9vOpobrdfW/Naqp8+Yd cVkuJTVNqq5ICzSEAtPDvbTTUslv+EioaYZkpIWebR5Rqzmzwtm5enZrPduj 65AamBmepYe3Sxg+l+EkPXkZnA0OntZuT3dU+28TDVzOgy6/sYlB7urZrlOZ lhy2h6fpez11uWKJc0gbNBz1hoCFTDc+Yjjqffqnw268w0xUn2y1iOEc1MPb alvq01nPhJwDDEd9fvJiOPEVZiI9mqFLyCcZfIExqD6N/mzIedpueMBRl3Oo YjiPMbbUNUSWSJxg4qOMQXWZnGppYmBwL2NQXWfqHMbgQwxnDA1fBjm77YkB h44ddGntJM69zHB1WcvzYSPuYgyqK6yaK4Obv3duZzjqQsIrIOcmZqK67vRK 2IhtuuHGoLoi+oVMI7YwHNomvNXQ4FV6Yr7m0FpNuE68acRG21bAOYeGXwQ5 GxiD59HEixnOGsYWddpbDzkr7IkBZw1N3AAnLmMMrqOJlzAGqxiDl9LwyyDn TMbgJpr4Q4azgGn4Zhq+EXJmMwavpYmb4MQKxuBWmngFY7BcGzSc7TT8Ssgp ZTg30cTNDGcEM/w2Gn415AzWE9tog7to4jU2JxhewnDupuE/ZjiZ2mAPZuK9 NHELNFjMGHyAJl7HNKLQbnjA+TUN3wo5+YzBh2niT5hGtGBs7aXh22AjmjAG 99HE7Qwnk+Hsp+E3Spzg5Qde8HkXNeqRTO2fnnUSAfFJktghSWTZw5+h4T/T BukVW2l1j2vqvozH52nGzQyAewalpUa9TBNv0ShueDM9/DUafhszSHw7QGDw dZp4OzOIe7FFpiYepIk7tUFueJoe/jYN35XQMP+f+hlYeZ+G3OH/CGQ+oRu8 Bv8H7rBMxQ==\ \>"]], StripOnInput->False, Magnification->4.]}], "}"}]], "Output", CellChangeTimes->{ 3.4342376189066195`*^9, {3.434237686840232*^9, 3.4342377251124687`*^9}, { 3.434243911328125*^9, 3.4342439408125*^9}, 3.434243994*^9, 3.434250602609375*^9, 3.43425132528125*^9, 3.434251377546875*^9}] }, Open ]] }, Open ]], Cell["Mathematica 6.0.1. 10-28-2008 and typos, 11-08-2008.", "Subsection", CellChangeTimes->{{3.4342372228958654`*^9, 3.4342372357735844`*^9}, { 3.43518942978125*^9, 3.435189447625*^9}}] }, Open ]] }, Open ]] }, WindowSize->{1272, 907}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 521, 12, 153, "Title"], Cell[1114, 37, 331, 7, 75, "Section"], Cell[CellGroupData[{ Cell[1470, 48, 119, 2, 41, "Section"], Cell[CellGroupData[{ Cell[1614, 54, 214, 5, 53, "Subsection"], Cell[CellGroupData[{ Cell[1853, 63, 2425, 65, 152, "Input"], Cell[4281, 130, 1728, 34, 519, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6058, 170, 366, 8, 53, "Subsection"], Cell[CellGroupData[{ Cell[6449, 182, 1216, 29, 52, "Input"], Cell[7668, 213, 810, 20, 514, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8527, 239, 458, 8, 53, "Subsection"], Cell[CellGroupData[{ Cell[9010, 251, 1237, 33, 52, "Input"], Cell[10250, 286, 646, 16, 524, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10945, 308, 413, 8, 53, "Subsection"], Cell[CellGroupData[{ Cell[11383, 320, 1825, 44, 72, "Input"], Cell[13211, 366, 912, 20, 514, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14172, 392, 411, 9, 53, "Subsection"], Cell[CellGroupData[{ Cell[14608, 405, 1216, 31, 52, "Input"], Cell[15827, 438, 1427, 34, 509, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17303, 478, 385, 8, 53, "Subsection"], Cell[CellGroupData[{ Cell[17713, 490, 1080, 28, 52, "Input"], Cell[18796, 520, 1294, 31, 617, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20139, 557, 316, 7, 53, "Subsection"], Cell[CellGroupData[{ Cell[20480, 568, 1179, 31, 52, "Input"], Cell[21662, 601, 1322, 31, 461, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23033, 638, 545, 10, 53, "Subsection"], Cell[CellGroupData[{ Cell[23603, 652, 1371, 33, 52, "Input"], Cell[24977, 687, 1316, 31, 493, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26342, 724, 253, 6, 53, "Subsection"], Cell[CellGroupData[{ Cell[26620, 734, 924, 24, 52, "Input"], Cell[27547, 760, 1280, 29, 548, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28864, 794, 576, 12, 79, "Subsubsection"], Cell[CellGroupData[{ Cell[29465, 810, 1097, 27, 72, "Input"], Cell[30565, 839, 499, 13, 538, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31125, 859, 413, 8, 53, "Subsection"], Cell[CellGroupData[{ Cell[31563, 871, 1528, 36, 52, "Input"], Cell[33094, 909, 990, 24, 488, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34133, 939, 520, 10, 53, "Subsection"], Cell[CellGroupData[{ Cell[34678, 953, 1059, 29, 52, "Input"], Cell[35740, 984, 730, 21, 570, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36519, 1011, 496, 9, 53, "Subsection"], Cell[CellGroupData[{ Cell[37040, 1024, 1463, 41, 72, "Input"], Cell[38506, 1067, 1140, 27, 416, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39695, 1100, 516, 10, 53, "Subsection"], Cell[CellGroupData[{ Cell[40236, 1114, 1113, 33, 72, "Input"], Cell[41352, 1149, 884, 23, 416, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42285, 1178, 301, 8, 53, "Subsection"], Cell[CellGroupData[{ Cell[42611, 1190, 1045, 24, 31, "Input"], Cell[43659, 1216, 17228, 311, 451, "Output"] }, Open ]] }, Open ]], Cell[60914, 1531, 190, 2, 36, "Subsection"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)