(* 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[ 22448, 768] NotebookOptionsPosition[ 19588, 668] NotebookOutlinePosition[ 20047, 686] CellTagsIndexPosition[ 20004, 683] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Matrices and Matrix Arithmetic", "Title"], Cell["Objectives", "Subtitle"], Cell["\<\ In this lab, we will learn how to create matrices and do basic arithmetic \ with them.\ \>", "Text"], Cell[CellGroupData[{ Cell["Due Date", "Section"], Cell[TextData[{ "This lab is due on ", StyleBox["Wednesday, February 6, 2006", FontWeight->"Bold"], ". You may work with a partner if you wish to do so." }], "Text", CellChangeTimes->{{3.4106950572503824`*^9, 3.4106950609380474`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Instructions", "Section"], Cell[TextData[{ "Read through the text below and then work the exercises in the Exercise \ Section. Email me the notebook once you have completed the exercises. To \ open a cell, click on the blue triangle at the right side of each cell \ header.\n\n", StyleBox["IMPORTANT NOTE:", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Make sure to ", StyleBox["DELETE ALL OUTPUT", FontWeight->"Bold"], " (under Cell on the top menu) before saving and emailing to me. Graphics \ output take up a ton of room where the notebook with no output is quite \ small.\n" }], "Text", CellChangeTimes->{{3.4106950332336817`*^9, 3.410695036265067*^9}}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Creating Matrices in ", StyleBox["Mathematica", FontSlant->"Italic"], " " }], "Subtitle"], Cell[CellGroupData[{ Cell["Direct Definition", "Subsection"], Cell[TextData[{ "Creating matrices is quite simple in ", StyleBox["Mathematica", FontSlant->"Italic"], ". A matrix in ", StyleBox["Mathematica", FontSlant->"Italic"], " can be thought of as a ", StyleBox["list of ", FontWeight->"Bold"], StyleBox["lists", FontWeight->"Bold"], ". You can see some examples by executing the cell below." }], "Text"], Cell[BoxData[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"b", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"IdentityMatrix", "[", "4", "]"}]}]}], "Input", CellChangeTimes->{{3.44292842685693*^9, 3.442928439841222*^9}, 3.442928472606637*^9}] }, Open ]], Cell[CellGroupData[{ Cell["MatrixForm", "Subsection"], Cell[TextData[{ "The output of the matrices above is a bit cumbersome. The command ", StyleBox["MatrixForm", FontWeight->"Bold"], " can be used to display matrices in the more traditional way. You can also \ easily get the dimensions of a matrix using the ", StyleBox["Dimensions", FontWeight->"Bold"], " command." }], "Text"], Cell[BoxData[{ RowBox[{"MatrixForm", "[", "a", "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "b", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", "c", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Dimensions", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"rows", ",", "cols"}], "}"}], "=", RowBox[{"Dimensions", "[", "a", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "rows", ",", "\"\< and \>\"", ",", "cols", ",", "\"\< columns.\>\""}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.442928456794238*^9, 3.4429284600442176`*^9}, { 3.442928519200089*^9, 3.4429285342468677`*^9}}], Cell[BoxData[ RowBox[{"d", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.4429285423249407`*^9, 3.442928559684205*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["The Table Command", "Subsection"], Cell[TextData[{ "A really useful tool for creating matrices is the ", StyleBox["Table", FontWeight->"Bold"], " command. We usually have to use two Table commands to generate a matrix. \ Execute the cell below to see some examples:" }], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"A", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"j", "+", "k"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MatrixForm", "[", "A", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"top", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RotateRight", "[", RowBox[{"r", ",", RowBox[{"2", "*", "k"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", "r", "]"}], "/", "2"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bot", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RotateRight", "[", RowBox[{"r", ",", RowBox[{"2", "*", "k"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", "r", "]"}], "/", "2"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"W", "=", RowBox[{"Join", "[", RowBox[{"top", ",", "bot"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "top", "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "bot", "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "W", "]"}]}], "Input", CellChangeTimes->{{3.44292865583984*^9, 3.4429287159644547`*^9}, { 3.442928791807719*^9, 3.442928958291029*^9}, {3.442928992993932*^9, 3.442929062009115*^9}, {3.44292909643077*^9, 3.4429292022582173`*^9}, 3.442929289788907*^9, {3.4429293456635494`*^9, 3.442929381663319*^9}, { 3.442929430631756*^9, 3.4429294311473775`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MatrixW", "[", "n_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "k", ",", "top", ",", "bot", ",", "W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"top", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RotateRight", "[", RowBox[{"r", ",", RowBox[{"2", "*", "k"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", "r", "]"}], "/", "2"}], "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"bot", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RotateRight", "[", RowBox[{"r", ",", RowBox[{"2", "*", "k"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", "r", "]"}], "/", "2"}], "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"W", "=", RowBox[{"Join", "[", RowBox[{"top", ",", "bot"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "W", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4429294611471853`*^9, 3.4429296634271407`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"A", "=", RowBox[{"MatrixW", "[", "8", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "A", "]"}]}], "Input", CellChangeTimes->{{3.4429297344266863`*^9, 3.4429297447547455`*^9}, { 3.4429297820826316`*^9, 3.442929787832595*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Matrix Addition, Subtraction, and Scalar Multiplication", "Subtitle"], Cell["It is really easy to perform arithmetic with matrices. ", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"MatrixForm", "[", "a", "]"}], ",", "\"\<.\>\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"MatrixForm", "[", "b", "]"}], ",", "\"\<.\>\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"a", "+", "b"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "c", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", RowBox[{"a", "-", "b"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "d", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"e", "=", RowBox[{"5", "*", "a"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", "e", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ "Make", " ", "sure", " ", "you", " ", "have", " ", "executed", " ", "the", " ", "previous", " ", "cell", " ", "and", " ", "loaded", " ", "matrix", " ", "A", " ", "from", " ", "the", " ", RowBox[{"image", "."}]}], " ", "*)"}]}]}], "Input", CellChangeTimes->{ 3.4429298803476276`*^9, {3.4429299337535357`*^9, 3.442929935503525*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Matrix Multiplication and Transpose", "Subtitle"], Cell[CellGroupData[{ Cell["Matrix Multiplication", "Subsection"], Cell["\<\ Matrices are multiplied using the . (period) - just like inner products. Of \ course, dimensions must match up or the multiplication fails.\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "a", "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "b", "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"a", ".", "b"}], "]"}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Matrix Transpose", "Subsection"], Cell[TextData[{ "Computing matrix transposes is easy. The command is ", StyleBox["Transpose", FontWeight->"Bold"], "." }], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"b", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "b", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"Transpose", "[", "b", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "c", "]"}]}], "Input"], Cell[BoxData[{ RowBox[{"v", "=", RowBox[{"50", "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixW", "[", "6", "]"}], ".", "v"}]}], "Input", CellChangeTimes->{{3.4429299850188327`*^9, 3.4429300313310366`*^9}, { 3.4429300664870615`*^9, 3.4429300957056246`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "t_", "]"}], ":=", RowBox[{"Log", "[", RowBox[{"t", "+", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"k", "/", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", "v", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"MatrixW", "[", "n", "]"}], ".", "v"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", "w", "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"Take", "[", RowBox[{"w", ",", RowBox[{"{", RowBox[{"51", ",", "100"}], "}"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.442930129705407*^9, 3.442930193986245*^9}, { 3.4429302274860306`*^9, 3.4429303270947685`*^9}, {3.4429303818131685`*^9, 3.442930389391245*^9}, {3.442930424953517*^9, 3.442930582655633*^9}}], Cell[BoxData[{ RowBox[{"v", "=", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "4", ",", "3", ",", "2", ",", "1", ",", "0"}], "}"}]}], "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"MatrixW", "[", "10", "]"}], ".", "v"}]}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", "w", "]"}]}], "Input", CellChangeTimes->{{3.4429307014673724`*^9, 3.442930718561013*^9}, { 3.442930759154503*^9, 3.442930798107379*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercises", "Subtitle"], Cell[CellGroupData[{ Cell["Name(s)", "Section"], Cell["Remove this text and replace it with your name(s).", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Problems", "Section"], Cell[CellGroupData[{ Cell["Problem 1", "Subsection"], Cell[TextData[{ "For the matrices A and B in the cell below, compute and display via \ MatrixForm A+2B, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["B", "T"], "B"}], ",", " ", RowBox[{ RowBox[{"and", " ", "3", SuperscriptBox["A", RowBox[{"-", "1"}]]}], "-", "AB"}]}], TraditionalForm]]], ". Also, write code that extracts the 2nd column of A." }], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"B", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "2", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "Input", FontColor->RGBColor[0, 0, 1]] }, Open ]], Cell[CellGroupData[{ Cell["Problem 2", "Subsection"], Cell[TextData[{ "Define the 6 x 6 matrix A whose entries a_ij = 1/(i+j). Use ", StyleBox["Mathematica", FontSlant->"Italic"], " to produce the transpose and inverse of A." }], "Text", CellChangeTimes->{{3.410695268869238*^9, 3.410695300136263*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{3.4106953041833196`*^9}, FontColor->RGBColor[0, 0, 1]] }, Open ]], Cell[CellGroupData[{ Cell["Problem 3", "Subsection"], Cell[TextData[{ "In the cell below, create a 3 x 3 orthogonal matrix U (no identity matrices \ allowed!!) and then use ", StyleBox["Mathematica", FontSlant->"Italic"], " to show that the transpose and inverse of U are the same." }], "Text"], Cell[BoxData[""], "Input", FontColor->RGBColor[0, 0, 1]] }, Open ]], Cell[CellGroupData[{ Cell["Problem 4 (Challenge)", "Subsection"], Cell["\<\ Write code that will take the elements of vectors x and y below and create a \ 20 x 2 matrix whose first row is x1 y1, second row is x2 y2, and so on.\ \>", "Text", CellChangeTimes->{{3.4106953629203258`*^9, 3.410695417329013*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"2", "*", RowBox[{"RandomInteger", "[", "10", "]"}]}], ",", RowBox[{"{", "20", "}"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ "A", " ", "list", " ", "of", " ", "20", " ", "even", " ", "random", " ", "integers"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"2", "*", RowBox[{"RandomInteger", "[", "10", "]"}]}], ",", RowBox[{"{", "20", "}"}]}], "]"}], "+", "1", " ", RowBox[{"(*", " ", RowBox[{ "A", " ", "list", " ", "of", " ", "20", " ", "odd", " ", "random", " ", "integers"}], " ", "*)"}]}]}]}], "Input", CellChangeTimes->{{3.410695421547952*^9, 3.410695488816591*^9}}, FontColor->RGBColor[0, 0, 1]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1016, 665}, WindowMargins->{{3, Automatic}, {Automatic, 6}}, ShowSelection->True, Magnification->1.25, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->FrontEnd`FileName[{"Creative"}, "NaturalColor.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 47, 0, 91, "Title"], Cell[640, 25, 30, 0, 45, "Subtitle"], Cell[673, 27, 110, 3, 36, "Text"], Cell[CellGroupData[{ Cell[808, 34, 27, 0, 93, "Section"], Cell[838, 36, 241, 6, 87, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[1116, 47, 31, 0, 56, "Section"], Cell[1150, 49, 655, 15, 87, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[1842, 69, 111, 5, 45, "Subtitle"], Cell[CellGroupData[{ Cell[1978, 78, 39, 0, 47, "Subsection"], Cell[2020, 80, 366, 13, 56, "Text"], Cell[2389, 95, 605, 19, 93, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3031, 119, 32, 0, 47, "Subsection"], Cell[3066, 121, 337, 9, 57, "Text"], Cell[3406, 132, 793, 19, 181, "Input"], Cell[4202, 153, 145, 3, 48, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4384, 161, 39, 0, 47, "Subsection"], Cell[4426, 163, 251, 6, 56, "Text"], Cell[4680, 171, 2895, 89, 335, "Input"], Cell[7578, 262, 2318, 66, 203, "Input"], Cell[9899, 330, 289, 6, 71, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10237, 342, 75, 0, 43, "Subtitle"], Cell[10315, 344, 72, 0, 34, "Text"], Cell[10390, 346, 1776, 52, 313, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[12203, 403, 55, 0, 43, "Subtitle"], Cell[CellGroupData[{ Cell[12283, 407, 43, 0, 47, "Subsection"], Cell[12329, 409, 164, 3, 34, "Text"], Cell[12496, 414, 688, 22, 137, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[13221, 441, 38, 0, 47, "Subsection"], Cell[13262, 443, 136, 5, 35, "Text"], Cell[13401, 450, 480, 14, 115, "Input"], Cell[13884, 466, 376, 9, 71, "Input"], Cell[14263, 477, 1340, 39, 203, "Input"], Cell[15606, 518, 475, 11, 102, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16130, 535, 29, 0, 45, "Subtitle"], Cell[CellGroupData[{ Cell[16184, 539, 26, 0, 93, "Section"], Cell[16213, 541, 66, 0, 36, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[16316, 546, 27, 0, 93, "Section"], Cell[CellGroupData[{ Cell[16368, 550, 31, 0, 46, "Subsection"], Cell[16402, 552, 413, 13, 38, "Text"], Cell[16818, 567, 739, 25, 102, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[17594, 597, 31, 0, 46, "Subsection"], Cell[17628, 599, 255, 6, 36, "Text"], Cell[17886, 607, 101, 2, 51, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[18024, 614, 31, 0, 46, "Subsection"], Cell[18058, 616, 245, 6, 58, "Text"], Cell[18306, 624, 57, 1, 51, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[18400, 630, 43, 0, 46, "Subsection"], Cell[18446, 632, 242, 4, 36, "Text"], Cell[18691, 638, 845, 24, 77, "Input"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)