(* 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[     37224,       1338]
NotebookOptionsPosition[     32068,       1183]
NotebookOutlinePosition[     32487,       1201]
CellTagsIndexPosition[     32444,       1198]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["2301520 Fundmentals of AMCS\nAssignments, Rules, \
Functions",
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0, 1]]], "Title",
 CellChangeTimes->{{3.488197862671875*^9, 3.48819787875*^9}, {
  3.514152368078125*^9, 3.514152388265625*^9}, {3.546812032140625*^9, 
  3.546812034796875*^9}, {3.7409982873849745`*^9, 3.740998304016073*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["Section 6 : Assignments and Rules", "Section"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["6.1 Assignments: Immediate Versus Delayed",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[TextData[{
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["=", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs\t", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["evaluates ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" and assigns the result to be the value of ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[". From then on, ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" is replaced by ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" whenever it appears\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[":=", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs\t", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["assigns ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" to be the delayed value of ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[". ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" is maintained in an unevaluated form.\n\t\tWhen ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" appears, it is replaced by ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[", evaluated afresh each time",
  FontColor->RGBColor[1, 0, 0]]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{"random1", "=", 
  RowBox[{"RandomReal", "[", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"random2", ":=", 
  RowBox[{"RandomReal", "[", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"random1", ",", 
   RowBox[{"{", "5", "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"random2", ",", 
   RowBox[{"{", "5", "}"}]}], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["6.2 Multiple Assignments",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"y", "=", "3"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", ",", "y"}], "}"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"x", ",", "y"}], "}"}], "=", 
  RowBox[{"{", 
   RowBox[{"11", ",", "23"}], "}"}]}]], "Input"],

Cell[BoxData["x"], "Input"],

Cell[BoxData["y"], "Input"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x", ",", "y"}], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["6.3 Rules: Immediate Versus Delayed",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[TextData[{
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["->", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" or ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox["\[Rule]", TraditionalForm]], "InlineFormula",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs\t", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["represents a rule that transforms ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" to ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs. rhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" is evaluated when the rule is given.(Rule)\n ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lhs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" :",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[">", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs\t\t\t", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["rhs is evaluated when the rule is used.(RuleDelayed)",
  FontColor->RGBColor[1, 0, 0]]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"2", "b"}]}], "/.", 
  RowBox[{"a", "\[Rule]", "3"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"2", "b"}]}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", "3"}], ",", 
    RowBox[{"b", "\[Rule]", "4"}]}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", "1"}], ";", " ", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{"x", ",", 
     RowBox[{"{", "5", "}"}]}], "]"}], "/.", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{"n", "++"}]}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", "1"}], ";", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{"x", ",", 
     RowBox[{"{", "5", "}"}]}], "]"}], "/.", 
   RowBox[{"x", ":>", 
    RowBox[{"n", "++"}]}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x", ",", "y", ",", "n"}], "]"}]], "Input"],

Cell[TextData[{
 StyleBox["Pattern Naming",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" _",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["       \t\t\tany expession\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" x_",
  FontFamily->"Times New Roman",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["     \t\t\tany expression, to be named ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["x\n x:pattern\t\t      ",
  FontFamily->"Times New Roman",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["an expression to be named ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["x",
  FontFamily->"Times New Roman",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[", matching ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["pattern",
  FontFamily->"Times New Roman",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "2"}], "}"}], "/.", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
   RowBox[{"{", 
    RowBox[{"y", ",", "x"}], "}"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "6"}], "}"}]}], "}"}], "/.", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
   RowBox[{"x", "+", "y"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"a", "^", "b"}], "]"}], "/.", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ":", 
     RowBox[{"_", "^", "n_"}]}], "]"}], "\[Rule]", 
   RowBox[{"p", "[", 
    RowBox[{"x", ",", "n"}], "]"}]}]}]], "Input"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Section 7 : Functions", "Section"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.1 A Simple Function",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"square", "[", "x_", "]"}], ":=", 
  SuperscriptBox["x", "2"]}]], "Input"],

Cell[BoxData[
 RowBox[{"square", "[", "3", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"square", "[", 
  RowBox[{"1", "+", 
   RowBox[{"2", "x"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["x", "2"], "+", 
   SuperscriptBox["y", "2"]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"a", ",", "3"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"polarTransform", "[", 
   RowBox[{"r_", ",", "\[Theta]_"}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "=", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ";", 
    RowBox[{"y", "=", 
     RowBox[{"r", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ";", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], ")"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"polarTransform", "[", 
  RowBox[{"10", ",", 
   FractionBox["\[Pi]", "6"]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"polarTransform", "[", 
  RowBox[{"{", 
   RowBox[{"10", ",", 
    FractionBox["\[Pi]", "6"]}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"polarTransform", "[", 
   RowBox[{"{", 
    RowBox[{"r_", ",", "\[Theta]_"}], "}"}], "]"}], ":=", 
  RowBox[{"polarTransform", "[", 
   RowBox[{"r", ",", "\[Theta]"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"polarTransform", "[", "r_", "]"}], ":=", " ", 
   "\"\<Only one argument! Sorry, can't do. I need two.\>\""}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"polarTransform", "[", 
  RowBox[{"10", ",", 
   FractionBox["\[Pi]", "6"]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"polarTransform", "[", 
  RowBox[{"{", 
   RowBox[{"10", ",", 
    FractionBox["\[Pi]", "6"]}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"polarTransform", "[", "2", "]"}]], "Input"],

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

Cell[BoxData[{
 RowBox[{
  RowBox[{"Remove", "[", "f", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"Element", "[", 
     RowBox[{"x", ",", "Rationals"}], "]"}], ",", "1", ",", "0"}], 
   "]"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"f", "[", "1", "]"}], ",", 
   RowBox[{"f", "[", "\[Pi]", "]"}], ",", 
   RowBox[{"f", "[", 
    FractionBox["1", "2"], "]"}], ",", 
   RowBox[{"f", "[", 
    SqrtBox["2"], "]"}]}], "}"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.2 Type Checking",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[TextData[{
 StyleBox["f",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["[",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["arg_type",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\tis used to specify the function to work only when ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["arg",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" is of the specified ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["type",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[".",
  FontColor->RGBColor[1, 0, 0]]
}], "DisplayText"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fac", "[", "n_Integer", "]"}], ":=", 
  RowBox[{
   UnderoverscriptBox["\[Product]", 
    RowBox[{"k", "=", "1"}], "n"], "k"}]}], "\[IndentingNewLine]", 
 RowBox[{"fac", "[", "10", "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"fac", "[", "1.5", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Clear", "[", "fac", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fac", "[", 
   RowBox[{"n_Integer", "/;", 
    RowBox[{"n", "\[GreaterEqual]", "0"}]}], "]"}], ":=", 
  RowBox[{
   UnderoverscriptBox["\[Product]", 
    RowBox[{"k", "=", "1"}], "n"], "k"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"fac", "[", 
  RowBox[{"-", "1"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"fac", "[", "0", "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.3 Conditional Evaluation",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"1", "/;", 
   RowBox[{
    RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", 
    "1"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"0", "/;", 
   RowBox[{
    RowBox[{"Abs", "[", "x", "]"}], "\[GreaterEqual]", "1"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Hue", "[", "0", "]"}], ",", 
      RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", "/;", 
    RowBox[{
     RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", "1"}]}], "]"}], 
  ":=", "1"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", "/;", 
    RowBox[{
     RowBox[{"Abs", "[", "x", "]"}], "\[GreaterEqual]", "1"}]}], "]"}], ":=", 
  "0"}]], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Hue", "[", "0", "]"}], ",", 
      RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Which", "[", 
    RowBox[{
     RowBox[{"x", ">", "0"}], ",", " ", 
     SuperscriptBox["x", "2"], ",", " ", 
     RowBox[{"x", "\[LessEqual]", "0"}], ",", " ", 
     RowBox[{"-", "x"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"grade", "[", "x_", "]"}], ":=", 
   RowBox[{"Which", "[", 
    RowBox[{
     RowBox[{"x", "\[GreaterEqual]", "90"}], ",", "\"\<A\>\"", ",", 
     RowBox[{"x", "\[GreaterEqual]", "80"}], ",", "\"\<B\>\"", ",", 
     RowBox[{"x", "\[GreaterEqual]", "70"}], ",", "\"\<C\>\"", ",", 
     RowBox[{"x", "\[GreaterEqual]", "60"}], ",", "\"\<D\>\"", ",", "True", 
     ",", "\"\<F\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"grade", "[", "50", "]"}]}], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.4 Default Values",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell["Range[10,15]", "Input"],

Cell[BoxData[
 RowBox[{"Range", "[", "10", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"myRange", "[", 
   RowBox[{
    RowBox[{"first_:", "0"}], ",", "last_"}], "]"}], ":=", 
  RowBox[{"Range", "[", 
   RowBox[{"first", ",", "last"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"myRange", "[", 
  RowBox[{"10", ",", "15"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"myRange", "[", "10", "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.5 Documenting Functions",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[TextData[{
 StyleBox["function::usage = \"text\"",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\tspecify usage statement for ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["function.",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{"?", "myRange"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"myRange", "::", "usage"}], "=", 
  "\"\<myRange[n] generates the list {0,1,2,...,n}.myRange[m,n] generats the \
list {m,m+1,m+2,...,n}.\>\""}]], "Input"],

Cell[BoxData[
 RowBox[{"?", "myRange"}]], "Input"],

Cell[BoxData[
 RowBox[{"??", "myRange"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.6 Pure Functions",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[TextData[Cell[BoxData[
 FormBox[GridBox[{
    {Cell[BoxData[
      FormBox[
       RowBox[{
        StyleBox["Function", "MR"], 
        StyleBox["[", "MR"], 
        RowBox[{
         StyleBox["x", "TI"], 
         StyleBox[",", "MR"], " ", 
         StyleBox["body", "TI"]}], 
        StyleBox["]", "MR"]}], TraditionalForm]]], Cell[BoxData[
      FormBox[
       RowBox[{
       "a", " ", "pure", " ", "function", " ", "in", " ", "which", " ", 
        StyleBox["x", "TI"], " ", "is", " ", "replaced", " ", "by", " ", 
        "any", " ", "argument", " ", "you", " ", "provide", " "}], 
       TraditionalForm]]]},
    {Cell[BoxData[
      FormBox[
       RowBox[{
        StyleBox["Function", "MR"], 
        StyleBox["[", "MR"], 
        RowBox[{
         RowBox[{Cell[BoxData[
           FormBox["{", TraditionalForm]], "InlineFormula"], Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["x", "TI"], "1"], TraditionalForm]], "InlineFormula"]}], 
         StyleBox[",", "MR"], " ", Cell[BoxData[
          FormBox[
           SubscriptBox[
            StyleBox["x", "TI"], "2"], TraditionalForm]], "InlineFormula"], 
         StyleBox[",", "MR"], " ", 
         RowBox[{"\[Ellipsis]", " ", Cell[BoxData[
           FormBox["}", TraditionalForm]], "InlineFormula"]}], 
         StyleBox[",", "MR"], 
         StyleBox["body", "TI"]}], 
        StyleBox["]", "MR"]}], TraditionalForm]]], Cell[BoxData[
      FormBox[
       RowBox[{
       "a", " ", "pure", " ", "function", " ", "that", " ", "takes", " ", 
        "several", " ", "arguments", " "}], TraditionalForm]]]},
    {Cell[BoxData[
      FormBox[
       RowBox[{
        StyleBox["body", "TI"], 
        StyleBox[" ", "TI"], 
        StyleBox["&", "MR"]}], TraditionalForm]]], Cell[BoxData[
      FormBox[
       RowBox[{
        RowBox[{
        "a", " ", "pure", " ", "function", " ", "in", " ", "which", " ", 
         "arguments", " ", "are", " ", "specified", " ", "as", " ", 
         StyleBox["#", "MR"], " ", "or", " ", 
         StyleBox["#1", "MR"]}], ",", " ", 
        StyleBox["#2", "MR"], ",", " ", 
        StyleBox["#3", "MR"], ",", " ", 
        RowBox[{"etc", ".", " "}]}], TraditionalForm]]]}
   },
   GridBoxAlignment->{
    "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
     "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]],
 FontColor->RGBColor[1, 0, 0],
 GridBoxOptions->{
 GridBoxDividers->{
  "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
   "RowsIndexed" -> {}},
 GridBoxSpacings->{"Columns" -> {
     Offset[0.27999999999999997`], {
      Offset[0.5599999999999999]}, 
     Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
     Offset[0.2], {
      Offset[0.16]}, 
     Offset[0.2]}, "RowsIndexed" -> {}}}]], "DisplayText",
 CellChangeTimes->{{3.4881983771875*^9, 3.488198511421875*^9}, {
  3.48819857921875*^9, 3.488198612125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Function", "[", 
   RowBox[{"x", ",", 
    SuperscriptBox["x", "2"]}], "]"}], "[", "3", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], ",", 
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     SuperscriptBox["y", "2"]}]}], "]"}], "[", 
  RowBox[{"a", ",", "b"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["#", "2"], "&"}], "[", "3", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["#1", "2"], "+", 
    SuperscriptBox["#2", "2"]}], "&"}], "[", 
  RowBox[{"a", ",", "b"}], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.7 Attributes",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[TextData[{
 StyleBox["Attributes[", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["symbol", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]\t\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["gives the list of attributes for a symbol.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["SetAttributes[", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["s", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["attr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]\t\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["adds ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["attr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" to the list of attributes of the symbol ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["s", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[". \n ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["ClearAttributes[", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["s", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["attr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["removes ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["attr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" from the list of attributes of the symbol ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["s", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[".\n \n", "TI",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" Attributes",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["\n", "TI",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Constant\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Indicates zero derivative of a symbol with respect to all \
parameters.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Flat\t\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["All expressions involving nested functions should be flattened \
out.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["HoldAll\t\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["All arguments to a function are to be maintained in an unevaluated \
form.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["HoldFirst\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["The first argument to a function is to be maintained in an \
unevaluated form.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["HoldRest\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["All but the first argument to a function are to be maintained in \
an unevaluated form.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Listable\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["The function should automatically be threaded over a list that \
appears as its argument.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Locked\t\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Prevents modification of any attribute of a symbol.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Orderless\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["the elements ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    StyleBox["\<\"e\"\>", "TI"], 
    StyleBox["i", "TI"]], TraditionalForm]], "InlineFormula",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" in expressions of the form ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["f", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["[", "MR",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    StyleBox["\<\"e\"\>", "TI"], "1"], TraditionalForm]], "InlineFormula",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    StyleBox["\<\"e\"\>", "TI"], "2"], TraditionalForm]], "InlineFormula",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" \[Ellipsis] ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" should automatically be sorted into canonical order.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Protected\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Protects a symbol so that it cannot be changed unless it is \
unprotected.\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["ReadProtected\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Prevents any values associated with a symbol from being printed.",
  FontColor->RGBColor[1, 0, 0]]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{"Attributes", "[", "Plot", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "f", "]"}], ";", 
  RowBox[{"Attributes", "[", "f", "]"}]}]], "Input"],

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

Cell[BoxData[
 RowBox[{"SetAttributes", "[", 
  RowBox[{"f", ",", "Listable"}], "]"}]], "Input"],

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

Cell[BoxData[
 RowBox[{"Attributes", "[", "Table", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"RandomReal", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", "5"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"RandomReal", "[", "]"}], "]"}], ",", 
   RowBox[{"{", "5", "}"}]}], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.8 Listable and Map",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[TextData[{
 StyleBox["Map[", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["f", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["expr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" or ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["f", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["/@", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["expr\t    ", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["applies ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["f", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" to each element on the first level in ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["expr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[".\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Map[", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["f", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["expr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["levelspec", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]\t\t", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["applies ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["f", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" to parts of ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["expr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" specified by ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["levelspec", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[".",
  FontColor->RGBColor[1, 0, 0]]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{"Remove", "[", "f", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"f", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"f", "/@", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"f", ",", " ", 
   RowBox[{
    SuperscriptBox["x", "2"], " ", "+", " ", 
    RowBox[{"2", " ", "x"}], "+", " ", "1"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"f", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}]}], "}"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"SetAttributes", "[", 
  RowBox[{"f", ",", "Listable"}], "]"}]], "Input"],

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

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.9 Recurrence Relations",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[BoxData[
 RowBox[{"Remove", "[", "f", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{"f", "[", "2", "]"}], "=", "1"}]}], ";", 
  RowBox[{
   RowBox[{"f", "[", "n_", "]"}], ":=", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"n", "-", "1"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"n", "-", "2"}], "]"}], "  ", 
    StyleBox[
     RowBox[{"(*", " ", 
      RowBox[{"Fibonacci", " ", "Sequence"}], " ", "*)"}],
     FontColor->RGBColor[0, 0, 1]]}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["7.10 Periodic Functions",
 FontColor->RGBColor[0, 0, 1]]], "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Remove", "[", "f", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", "/;", 
     RowBox[{"0", "\[LessEqual]", "x", "<", "1"}]}], "]"}], ":=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", "/;", 
     RowBox[{"1", "\[LessEqual]", "x", "<", "2"}]}], "]"}], ":=", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", "/;", 
     RowBox[{"x", "\[GreaterEqual]", "2"}]}], "]"}], ":=", 
   RowBox[{"f", "[", 
    RowBox[{"x", "-", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", "/;", 
     RowBox[{"x", "<", "2"}]}], "]"}], ":=", 
   RowBox[{"f", "[", 
    RowBox[{"x", "+", "2"}], "]"}]}], ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Hue", "[", "0", "]"}], ",", 
      RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]], "Input"]
}, Open  ]]
}, Closed]]
},
ScreenStyleEnvironment->"Working",
WindowSize->{1019, 578},
WindowMargins->{{19, Automatic}, {Automatic, 55}},
ShowSelection->True,
Magnification->1.25,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Demo.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 381, 7, 122, "Title"],
Cell[CellGroupData[{
Cell[951, 31, 52, 0, 92, "Section"],
Cell[CellGroupData[{
Cell[1028, 35, 114, 1, 57, "Subsection"],
Cell[1145, 38, 1833, 61, 152, "DisplayText"],
Cell[2981, 101, 87, 2, 46, "Input"],
Cell[3071, 105, 88, 2, 46, "Input"],
Cell[3162, 109, 111, 3, 46, "Input"],
Cell[3276, 114, 111, 3, 46, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3424, 122, 97, 1, 57, "Subsection"],
Cell[3524, 125, 72, 2, 46, "Input"],
Cell[3599, 129, 72, 2, 46, "Input"],
Cell[3674, 133, 145, 5, 46, "Input"],
Cell[3822, 140, 27, 0, 46, "Input"],
Cell[3852, 142, 27, 0, 46, "Input"],
Cell[3882, 144, 81, 2, 46, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4000, 151, 108, 1, 57, "Subsection"],
Cell[4111, 154, 1420, 48, 107, "DisplayText"],
Cell[5534, 204, 121, 4, 46, "Input"],
Cell[5658, 210, 201, 7, 46, "Input"],
Cell[5862, 219, 236, 8, 46, "Input"],
Cell[6101, 229, 226, 8, 46, "Input"],
Cell[6330, 239, 91, 2, 46, "Input"],
Cell[6424, 243, 1107, 38, 160, "DisplayText"],
Cell[7534, 283, 226, 8, 46, "Input"],
Cell[7763, 293, 364, 13, 46, "Input"],
Cell[8130, 308, 266, 9, 46, "Input"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[8445, 323, 40, 0, 52, "Section"],
Cell[CellGroupData[{
Cell[8510, 327, 94, 1, 46, "Subsection"],
Cell[8607, 330, 108, 3, 39, "Input"],
Cell[8718, 335, 59, 1, 37, "Input"],
Cell[8780, 338, 101, 3, 37, "Input"],
Cell[8884, 343, 177, 6, 39, "Input"],
Cell[9064, 351, 77, 2, 37, "Input"],
Cell[9144, 355, 416, 13, 37, "Input"],
Cell[9563, 370, 117, 3, 52, "Input"],
Cell[9683, 375, 142, 4, 52, "Input"],
Cell[9828, 381, 221, 6, 37, "Input"],
Cell[10052, 389, 177, 5, 37, "Input"],
Cell[10232, 396, 117, 3, 52, "Input"],
Cell[10352, 401, 142, 4, 52, "Input"],
Cell[10497, 407, 67, 1, 37, "Input"],
Cell[10567, 410, 100, 2, 37, "Input"],
Cell[10670, 414, 279, 9, 60, "Input"],
Cell[10952, 425, 249, 8, 55, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11238, 438, 90, 1, 46, "Subsection"],
Cell[11331, 441, 778, 29, 64, "DisplayText"],
Cell[12112, 472, 234, 6, 92, "Input"],
Cell[12349, 480, 58, 1, 37, "Input"],
Cell[12410, 483, 60, 1, 37, "Input"],
Cell[12473, 486, 238, 7, 67, "Input"],
Cell[12714, 495, 74, 2, 37, "Input"],
Cell[12791, 499, 56, 1, 37, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12884, 505, 99, 1, 46, "Subsection"],
Cell[12986, 508, 58, 1, 37, "Input"],
Cell[13047, 511, 184, 6, 37, "Input"],
Cell[13234, 519, 173, 5, 37, "Input"],
Cell[13410, 526, 365, 11, 37, "Input"],
Cell[13778, 539, 58, 1, 37, "Input"],
Cell[13839, 542, 185, 6, 37, "Input"],
Cell[14027, 550, 179, 6, 37, "Input"],
Cell[14209, 558, 365, 11, 37, "Input"],
Cell[14577, 571, 364, 11, 41, "Input"],
Cell[14944, 584, 515, 11, 60, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15496, 600, 91, 1, 46, "Subsection"],
Cell[15590, 603, 29, 0, 37, "Input"],
Cell[15622, 605, 59, 1, 37, "Input"],
Cell[15684, 608, 201, 6, 37, "Input"],
Cell[15888, 616, 85, 2, 37, "Input"],
Cell[15976, 620, 61, 1, 37, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16074, 626, 98, 1, 46, "Subsection"],
Cell[16175, 629, 331, 11, 64, "DisplayText"],
Cell[16509, 642, 50, 1, 37, "Input"],
Cell[16562, 645, 188, 4, 82, "Input"],
Cell[16753, 651, 50, 1, 37, "Input"],
Cell[16806, 654, 51, 1, 37, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16894, 660, 91, 1, 57, "Subsection"],
Cell[16988, 663, 2926, 76, 137, "DisplayText"],
Cell[19917, 741, 139, 4, 51, "Input"],
Cell[20059, 747, 266, 9, 51, "Input"],
Cell[20328, 758, 97, 3, 48, "Input"],
Cell[20428, 763, 173, 6, 48, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20638, 774, 87, 1, 57, "Subsection"],
Cell[20728, 777, 4600, 141, 470, "DisplayText"],
Cell[25331, 920, 66, 1, 46, "Input"],
Cell[25400, 923, 118, 3, 46, "Input"],
Cell[25521, 928, 111, 3, 46, "Input"],
Cell[25635, 933, 96, 2, 46, "Input"],
Cell[25734, 937, 111, 3, 46, "Input"],
Cell[25848, 942, 67, 1, 46, "Input"],
Cell[25918, 945, 135, 4, 46, "Input"],
Cell[26056, 951, 175, 5, 46, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26268, 961, 93, 1, 57, "Subsection"],
Cell[26364, 964, 1867, 67, 106, "DisplayText"],
Cell[28234, 1033, 59, 1, 46, "Input"],
Cell[28296, 1036, 121, 3, 46, "Input"],
Cell[28420, 1041, 148, 4, 37, "Input"],
Cell[28571, 1047, 117, 3, 37, "Input"],
Cell[28691, 1052, 184, 5, 41, "Input"],
Cell[28878, 1059, 348, 12, 37, "Input"],
Cell[29229, 1073, 195, 6, 37, "Input"],
Cell[29427, 1081, 96, 2, 37, "Input"],
Cell[29526, 1085, 111, 3, 37, "Input"],
Cell[29640, 1090, 195, 6, 37, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29872, 1101, 97, 1, 46, "Subsection"],
Cell[29972, 1104, 59, 1, 37, "Input"],
Cell[30034, 1107, 486, 16, 37, "Input"],
Cell[30523, 1125, 160, 5, 37, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30720, 1135, 96, 1, 46, "Subsection"],
Cell[30819, 1138, 853, 28, 126, "Input"],
Cell[31675, 1168, 365, 11, 37, "Input"]
}, Open  ]]
}, Closed]]
}
]
*)

(* End of internal cache information *)