(* 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[     22419,        723]
NotebookOptionsPosition[     18457,        599]
NotebookOutlinePosition[     18952,        618]
CellTagsIndexPosition[     18909,        615]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["261 ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Session 1",
  FontColor->RGBColor[0, 0, 1]]
}], "Subtitle",
 TextAlignment->Center,
 TextJustification->0],

Cell["\<\
Congratulations, you successfully loaded the first notebook.
\
\>", "Text"],

Cell[TextData[StyleBox["Be sure to switch control of the keyboard and mouse \
regularly, so that you and your partner can be equally frustrated",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.494782337724*^9, 3.4947823504639997`*^9}}],

Cell[CellGroupData[{

Cell["Overview", "Section"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 1, 0]],
 StyleBox[" Short Cuts",
  FontColor->RGBColor[0, 1, 0]]
}], "Subsection"],

Cell["\<\
Your job will be to create and evaluate a few \"cells\".  There are different \
kinds of cells, e.g. this one is a text cell.
There are also input cells and output cells.  The basic interaction is to \
submit an input cell and wait for an output cell.
To create an input cell, move the cursor until it goes horizontal and click; \
then type.  Feel free to edit this notebook.
To evaluate, type \"Shift+Enter\".  Note: the cursor can be anywhere in the \
cell; no need to move to the end of the expression.
Or .. use the Enter key at the far right (on the numeric keypad) to evaluate \
an expression -- no need to hold down Shift for that one.
Here are a few expressions you can evaluate; create more of your own!\
\>", "Text",
 CellChangeTimes->{{3.4947825390150003`*^9, 3.494782730495*^9}, {
  3.494841881417*^9, 3.494842028553*^9}}],

Cell[BoxData[
 RowBox[{"2", "+", "5"}]], "Input",
 CellChangeTimes->{{3.494782495949*^9, 3.494782509983*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"5", "/", "7"}], " ", "+", " ", 
  RowBox[{"11", "/", "13"}]}]], "Input",
 CellChangeTimes->{{3.494782778717*^9, 3.494782781321*^9}}],

Cell[TextData[{
 "Note how ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " does not use decimals unless you use them first:"
}], "Text",
 CellChangeTimes->{{3.494782757021*^9, 3.4947827627869997`*^9}, {
  3.494805019051*^9, 3.4948050391940002`*^9}}],

Cell[BoxData[
 RowBox[{"Sin", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.494782742744*^9, 3.494782765042*^9}}],

Cell[BoxData[
 RowBox[{"Sqrt", "[", "2.0", "]"}]], "Input",
 CellChangeTimes->{{3.4947827691549997`*^9, 3.4947827704370003`*^9}, {
  3.494805714012*^9, 3.494805719693*^9}}],

Cell["And note it is happy to work with symbolic expressions:", "Text",
 CellChangeTimes->{{3.494805060299*^9, 3.494805071127*^9}}],

Cell[BoxData[
 RowBox[{"4", "+", "x", " ", "-", " ", 
  RowBox[{"3", " ", "x"}]}]], "Input",
 CellChangeTimes->{{3.4948051806359997`*^9, 3.494805207347*^9}}],

Cell["\<\
There are functions which operate on symbolic expressions, e.g.\
\>", "Text",
 CellChangeTimes->{{3.4948418421099997`*^9, 3.494841843877*^9}, {
  3.4948420393900003`*^9, 3.494842051127*^9}}],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "x"}], ")"}], "^", "10"}], "]"}]], "Input"],

Cell["Or", "Text",
 CellChangeTimes->{{3.494842056178*^9, 3.494842056309*^9}}],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{"1", "+", 
   RowBox[{"2", "x"}], " ", "+", 
   RowBox[{"x", "^", "2"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.494842057851*^9, 3.4948420663269997`*^9}}],

Cell[TextData[{
 StyleBox["\nK", "Text"],
 "eyboard Copy and Paste.  Whenever possible, use the Copy and Paste \
functions to save time but also to cut down on errors (for example, when \
using a function found in the Help Browser).  Ctrl-c and Ctrl-v are a \
convenient shortcut to using\nthe menu versions of Copy and Paste.  (Ctrl-x \
is Cut.)\n\n",
 StyleBox["Command completion!",
  FontColor->RGBColor[1, 0, 0]],
 " This is activated by Ctrl-k (under Windows; alt-K under Linux). If you \
start typing a function and then press Ctrl-k, a pop-up menu will show all of \
the (loaded) ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " commands that start with the letters you've typed.  You can select among \
the choices to avoiding typing (and misspelling) the function name. \nTry \
seeing how many functions start with \"Sin\", i.e. type Sin ctrl-K",
 StyleBox["\n",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.494782407426*^9, 3.49478240763*^9}, 3.494782478226*^9, {
   3.494782522469*^9, 3.4947825255810003`*^9}, {3.494805559946*^9, 
   3.4948056479519997`*^9}}],

Cell["\<\
Referring to previous results :  Use % to refer to the last result and %10 to \
refer to the result Out[10].  For example :\
\>", "Text"],

Cell[BoxData[
 RowBox[{"5", "^", "2"}]], "Input"],

Cell[BoxData[
 RowBox[{"Sqrt", "[", "%", "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Many kinds of brackets",
 FontSlant->"Italic",
 FontColor->RGBColor[0, 1, 0]]], "Subsection",
 CellChangeTimes->{{3.494805849525*^9, 3.494805868099*^9}, {3.494806009033*^9,
   3.4948060144969997`*^9}}],

Cell["\<\
There are three kinds of brackets we will use all the time.  Round brackets \
are used to group terms together:\
\>", "Text",
 CellChangeTimes->{{3.494806048566*^9, 3.494806120197*^9}}],

Cell[BoxData[
 RowBox[{"3", "*", 
  RowBox[{"(", 
   RowBox[{"1", "-", "9"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.494806122417*^9, 3.494806138983*^9}}],

Cell["\<\
Square brackets are the syntatic clue that we are using a function:\
\>", "Text",
 CellChangeTimes->{{3.4948061548199997`*^9, 3.494806198466*^9}, {
  3.494806269142*^9, 3.494806295454*^9}}],

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"\[Pi]", "/", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.49484175433*^9, 3.494841789008*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.494806298193*^9, 3.494806302799*^9}, 3.494841813751*^9}],

Cell["\<\
\"Squiggly\" braces {} are used to make lists of things.  More on that below.\
\>", "Text",
 CellChangeTimes->{{3.494806313308*^9, 3.494806335203*^9}}],

Cell[BoxData[
 RowBox[{"mylist", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"a", ",", " ", "b", ",", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<qwerty\>\"", ",", "\"\<dvorak\>\""}], "}"}], ",", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Pi]", "/", "6"}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.49480633894*^9, 3.4948063753640003`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["The Many faces of equality",
 FontSlant->"Italic",
 FontColor->RGBColor[0, 1, 0]]], "Subsection",
 CellChangeTimes->{{3.494805849525*^9, 3.494805868099*^9}}],

Cell["\<\
There are at least three kinds of \"equals\" signs.
The single kind is used to assign a value to a symbol, which can then be used \
in other expressions.\
\>", "Text",
 CellChangeTimes->{{3.494805913671*^9, 3.494805916639*^9}, {
  3.4948059664969997`*^9, 3.494805990159*^9}, {3.49480639656*^9, 
  3.49480654821*^9}}],

Cell[BoxData[
 RowBox[{"q", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", " ", "+", " ", 
     RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}], "/", "2"}]}]], "Input",
 CellChangeTimes->{{3.4948065501029997`*^9, 3.494806563428*^9}, {
  3.494806606151*^9, 3.494806609204*^9}, {3.494806667699*^9, 
  3.494806679082*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"q", "^", "2"}], " ", "-", "q", "-", "1"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.4948065909119997`*^9, 3.4948066325880003`*^9}, {
  3.4948067016540003`*^9, 3.494806707705*^9}, {3.494806801913*^9, 
  3.494806806052*^9}, {3.494806924565*^9, 3.494806924891*^9}}],

Cell["\<\
The double equals is the relational operator used to make logical \
propositions, e.g.\
\>", "Text",
 CellChangeTimes->{{3.4948068325629997`*^9, 3.494806871742*^9}}],

Cell[BoxData[
 RowBox[{"a", "\[Equal]", "a"}]], "Input",
 CellChangeTimes->{{3.49480687527*^9, 3.494806875697*^9}}],

Cell[BoxData[
 RowBox[{"1", "\[Equal]", "2"}]], "Input",
 CellChangeTimes->{{3.4948068796879997`*^9, 3.494806880651*^9}}],

Cell[BoxData[
 RowBox[{"myeqn", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], "-", "x", "-", "1"}], "\[Equal]", 
   "0"}]}]], "Input",
 CellChangeTimes->{{3.494806893167*^9, 3.494806932917*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", "myeqn", "]"}]], "Input",
 CellChangeTimes->{{3.494806908605*^9, 3.494806913226*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox[" Palettes",
 FontColor->RGBColor[0, 1, 0]]], "Subsection",
 CellChangeTimes->{{3.494795699074*^9, 3.494795703238*^9}}],

Cell[TextData[{
 "Under the \"Palettes\" menu you will find the \"Basic Math Assistant\" \
which lets you type at ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " using calculator buttons,\n and provides templates for how to use various \
useful functions.\n   1. Try calculating ",
 Cell[BoxData[
  FormBox[
   RadicalBox["27", "3"], TraditionalForm]]],
 " using the Basic calculator.\n   2. Use the \"Documentation\" function to \
learn about the \"N\" function, and then find the first 1000 digits of \[Pi]\n\
   3. Using the calculator's Advanced tab, compute the indefinite integral of \
ArcSin[x]\n   4. How about the definite integral of ArcSin[x] between 0 and \
1?\n   5. Under the Basic Commands section choose the \"y=x\" tab and use \
Solve[] to solve the quadratic x^2 -3x -4==0.\n   6. Use the \"2D\" to find \
Plot[] and then plot the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"sin", "(", "x", ")"}], "/", "x"}], TraditionalForm]]],
 " from -10 to 10.\n          "
}], "Text",
 CellChangeTimes->{{3.494795716229*^9, 3.494795718171*^9}, {
   3.4947957657939997`*^9, 3.494795819185*^9}, {3.494796004399*^9, 
   3.494796022658*^9}, 3.494803672888*^9, {3.494803907699*^9, 
   3.494804131637*^9}, {3.494804212612*^9, 3.494804287552*^9}, {
   3.494804332737*^9, 3.494804334451*^9}, {3.494804373887*^9, 
   3.494804553512*^9}, {3.4948045966280003`*^9, 3.49480462687*^9}, {
   3.494804838692*^9, 3.494804906109*^9}, {3.494804940843*^9, 
   3.494804982972*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Some Homework Related ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Stuff"
}], "Section",
 CellChangeTimes->{{3.4319388213710003`*^9, 3.431938823582*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Vectors with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " "
}], "Subsection"],

Cell[TextData[{
 "In ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "a vector is just a list of its components.  Let's define two specific \
vectors by evaluating the following cells.  Note that the use of curly \
brackets"
}], "Text"],

Cell[BoxData[
 RowBox[{"v1", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"v2", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"2", ",", "3", ",", "4"}], "}"}]}]], "Input"],

Cell["Here are some of the things you can now compute:", "Text"],

Cell[BoxData[
 RowBox[{"v1", " ", "+", " ", "v2"}]], "Input"],

Cell[BoxData[
 RowBox[{"Dot", "[", 
  RowBox[{"v1", ",", "v2"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Cross", "[", 
  RowBox[{"v1", ",", "v2"}], "]"}]], "Input"],

Cell[TextData[{
 "\nNote that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is quite content to work with symbols in place of actual numbers:"
}], "Text",
 CellChangeTimes->{3.431938689527*^9}],

Cell[BoxData[
 RowBox[{"a", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"Ax", ",", "Ay", ",", "Az"}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"b", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"Bx", ",", "By", ",", "Bz"}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Dot", "[", 
  RowBox[{"a", ",", "b"}], "]"}]], "Input"],

Cell[TextData[{
 "Here is how we can show that ",
 StyleBox["A \[SmallCircle] (A \[Times] B)",
  FontWeight->"Bold"],
 " = 0 :"
}], "Text"],

Cell[BoxData[
 RowBox[{"V", " ", "=", " ", 
  RowBox[{"Dot", "[", 
   RowBox[{"a", ",", 
    RowBox[{"Cross", "[", 
     RowBox[{"a", ",", "b"}], "]"}]}], "]"}]}]], "Input"],

Cell[TextData[{
 "This may not immediately look like zero, but it is.  We just have to tell ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to simplify:"
}], "Text"],

Cell[BoxData[
 RowBox[{"Simplify", "[", "V", "]"}]], "Input"],

Cell[TextData[{
 "Here is an exercise you can try: use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to prove the vector identity\n    ",
 StyleBox["a \[Times] (b \[Times] c) =  b (a \[SmallCircle] c) - c (a \
\[SmallCircle] b).   \n",
  FontWeight->"Bold"],
 "Try it first on your own before opening up the solution cell below."
}], "Text"],

Cell[CellGroupData[{

Cell["Solution", "Subsubsection"],

Cell[BoxData[
 RowBox[{"c", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"Cx", ",", "Cy", ",", "Cz"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.431938702947*^9, 3.431938705333*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cross", "[", 
   RowBox[{"a", ",", 
    RowBox[{"Cross", "[", 
     RowBox[{"b", ",", "c"}], "]"}]}], "]"}], " ", "-", " ", 
  RowBox[{
   RowBox[{"Dot", "[", 
    RowBox[{"a", ",", "c"}], "]"}], "*", "b"}], "+", 
  RowBox[{
   RowBox[{"Dot", "[", 
    RowBox[{"a", ",", "b"}], "]"}], "*", "c"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Plotting Functions", "Subsection"],

Cell["\<\
Time and time again we will want to plot functions. As you've seen above \
using the palette, the syntax is:\
\>", "Text",
 CellChangeTimes->{{3.494807001288*^9, 3.4948070227390003`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"6", " ", "Pi"}]}], "}"}]}], "]"}]], "Input"],

Cell["\<\
Your job: plot Sinh[x] and Cosh[x] together, as in BTM figure 1.3\
\>", "Text",
 CellChangeTimes->{{3.431938879774*^9, 3.43193888385*^9}, {3.431939008425*^9, 
  3.43193903738*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[" HOMEWORK PROBLEM", "Subsection",
 CellChangeTimes->{{3.526290326473933*^9, 3.52629033672952*^9}}],

Cell["\<\
BTM 1.5.2 asks you to \[OpenCurlyDoubleQuote]analyze\[CloseCurlyDoubleQuote] \
this function: \
\>", "Text",
 CellChangeTimes->{{3.4319391294560003`*^9, 3.431939149401*^9}, {
  3.526290429066801*^9, 3.526290464921852*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "x", "-", "6"}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"4", "+", 
    RowBox[{"Cosh", "[", "x", "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.4319391549639997`*^9, 3.43193917658*^9}, 
   3.49478286556*^9}],

Cell["\<\
By \[OpenCurlyDoubleQuote]analyze\[CloseCurlyDoubleQuote] we mean: find any \
zeroes, find any poles, decide what the behavior is as |x| becomes large, and 
then make a sketch of the function incorporating these features.  Usually we \
do this \[OpenCurlyDoubleQuote]by hand\[CloseCurlyDoubleQuote]. But here ...
(a) Factor[] the numerator to find any zeroes.  (b) Given the plot of Cosh \
above, decide if there is any value
of x for which Cosh[x] is -4 (which would give a singularity).  (You might \
also ask for the ArcCosh of -4.0)
(c) Again consulting the plot of Cosh, decide how the function behaves at \
plus and minus infinity, and (d) make
a Plot[] along the lines of BTM figure 1.7.  For the homework, you may choose \
to print this plot, but a hand-drawn
sketch is just fine too.\
\>", "Text",
 CellChangeTimes->{{3.5262904782716155`*^9, 3.5262906993522606`*^9}, {
  3.5262907661260796`*^9, 3.5262907854611855`*^9}, {3.526290840664343*^9, 
  3.5262910248878803`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Printing", "Subsection",
 CellChangeTimes->{{3.4947829103310003`*^9, 3.494782910999*^9}}],

Cell["\<\
If you want to print something out, you'll need to set up your printer.  From \
the Windows \"Start\" menu, navigate through
the control panel to the printers section, and choose \"Add a Printer\".  The \
one you want is under Physics, and is called Smith1011S.\
\>", "Text",
 CellChangeTimes->{{3.49478291356*^9, 3.494782970991*^9}, {
  3.4947954395889997`*^9, 3.4947954675620003`*^9}, {3.494795498708*^9, 
  3.4947955295690002`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Calculus", "Subsection"],

Cell["To take a derivative:", "Text"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"Sinh", "[", "x", "]"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{3.431939049164*^9}],

Cell["\<\
Now think of an ugly one and try it.  In particular, you can cross-check the \
BTM homework, which asks for the derivatives of, e.g.\
\>", "Text",
 CellChangeTimes->{{3.4319388355220003`*^9, 3.43193886348*^9}}],

Cell[BoxData[{
 RowBox[{"Sin", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], "+", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tan", "[", "x", "]"}], "^", "3"}], "\[IndentingNewLine]", 
 RowBox[{"ArcTanh", "[", "x", "]"}]}], "Input",
 CellChangeTimes->{{3.431939071678*^9, 3.431939105908*^9}}],

Cell["Or to integrate (indefinite):", "Text"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", "x"}], "]"}]], "Input"],

Cell["With definite limits:", "Text"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"-", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[TextData[{
 "Try it with limits from 0 to Infinity.\nAnd finally, here is a game--- \
invent a truly horrible integrand, and either be impressed that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " can find the integral, or be impressed with yourself for stumping the \
computer.\n"
}], "Text",
 CellChangeTimes->{{3.431938738873*^9, 3.431938739568*^9}, {
  3.4319392377469997`*^9, 3.43193932376*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1008, 586},
WindowMargins->{{16, Automatic}, {14, Automatic}},
ShowSelection->True,
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 266, 10, 62, "Subtitle"],
Cell[836, 34, 85, 3, 55, "Text"],
Cell[924, 39, 272, 4, 34, "Text"],
Cell[CellGroupData[{
Cell[1221, 47, 27, 0, 88, "Section"],
Cell[CellGroupData[{
Cell[1273, 51, 171, 6, 46, "Subsection"],
Cell[1447, 59, 844, 14, 138, "Text"],
Cell[2294, 75, 109, 2, 35, "Input"],
Cell[2406, 79, 167, 4, 35, "Input"],
Cell[2576, 85, 256, 7, 34, "Text"],
Cell[2835, 94, 116, 2, 35, "Input"],
Cell[2954, 98, 172, 3, 35, "Input"],
Cell[3129, 103, 131, 1, 34, "Text"],
Cell[3263, 106, 157, 3, 35, "Input"],
Cell[3423, 111, 200, 4, 34, "Text"],
Cell[3626, 117, 132, 4, 35, "Input"],
Cell[3761, 123, 78, 1, 34, "Text"],
Cell[3842, 126, 205, 5, 35, "Input"],
Cell[4050, 133, 1098, 22, 221, "Text"],
Cell[5151, 157, 147, 3, 34, "Text"],
Cell[5301, 162, 49, 1, 35, "Input"],
Cell[5353, 165, 57, 1, 35, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5447, 171, 225, 4, 46, "Subsection"],
Cell[5675, 177, 195, 4, 34, "Text"],
Cell[5873, 183, 156, 4, 35, "Input"],
Cell[6032, 189, 199, 4, 34, "Text"],
Cell[6234, 195, 142, 3, 35, "Input"],
Cell[6379, 200, 105, 1, 35, "Input"],
Cell[6487, 203, 161, 3, 34, "Text"],
Cell[6651, 208, 344, 8, 35, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7032, 221, 181, 3, 46, "Subsection"],
Cell[7216, 226, 326, 7, 55, "Text"],
Cell[7545, 235, 326, 8, 35, "Input"],
Cell[7874, 245, 323, 7, 35, "Input"],
Cell[8200, 254, 175, 4, 34, "Text"],
Cell[8378, 260, 115, 2, 35, "Input"],
Cell[8496, 264, 121, 2, 35, "Input"],
Cell[8620, 268, 216, 6, 35, "Input"],
Cell[8839, 276, 122, 2, 35, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8998, 283, 142, 2, 46, "Subsection"],
Cell[9143, 287, 1493, 30, 208, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10685, 323, 181, 6, 88, "Section"],
Cell[CellGroupData[{
Cell[10891, 333, 105, 5, 46, "Subsection"],
Cell[10999, 340, 242, 7, 55, "Text"],
Cell[11244, 349, 117, 3, 35, "Input"],
Cell[11364, 354, 117, 3, 35, "Input"],
Cell[11484, 359, 64, 0, 34, "Text"],
Cell[11551, 361, 61, 1, 35, "Input"],
Cell[11615, 364, 81, 2, 35, "Input"],
Cell[11699, 368, 83, 2, 35, "Input"],
Cell[11785, 372, 202, 6, 55, "Text"],
Cell[11990, 380, 119, 3, 35, "Input"],
Cell[12112, 385, 119, 3, 35, "Input"],
Cell[12234, 390, 79, 2, 35, "Input"],
Cell[12316, 394, 139, 5, 35, "Text"],
Cell[12458, 401, 173, 5, 35, "Input"],
Cell[12634, 408, 172, 5, 34, "Text"],
Cell[12809, 415, 61, 1, 35, "Input"],
Cell[12873, 418, 350, 9, 77, "Text"],
Cell[CellGroupData[{
Cell[13248, 431, 33, 0, 32, "Subsubsection"],
Cell[13284, 433, 179, 4, 58, "Input"],
Cell[13466, 439, 343, 11, 58, "Input"],
Cell[13812, 452, 61, 1, 58, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13922, 459, 41, 0, 46, "Subsection"],
Cell[13966, 461, 197, 4, 34, "Text"],
Cell[14166, 467, 197, 6, 35, "Input"],
Cell[14366, 475, 190, 4, 34, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14593, 484, 104, 1, 46, "Subsection"],
Cell[14700, 487, 232, 5, 34, "Text"],
Cell[14935, 494, 297, 9, 35, "Input"],
Cell[15235, 505, 990, 17, 159, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16262, 527, 95, 1, 46, "Subsection"],
Cell[16360, 530, 445, 8, 55, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16842, 543, 31, 0, 46, "Subsection"],
Cell[16876, 545, 37, 0, 34, "Text"],
Cell[16916, 547, 148, 4, 35, "Input"],
Cell[17067, 553, 220, 4, 34, "Text"],
Cell[17290, 559, 306, 7, 80, "Input"],
Cell[17599, 568, 45, 0, 34, "Text"],
Cell[17647, 570, 116, 3, 35, "Input"],
Cell[17766, 575, 37, 0, 34, "Text"],
Cell[17806, 577, 195, 6, 35, "Input"],
Cell[18004, 585, 413, 9, 97, "Text"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)