(* 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_", "]"}], ":=", " ", "\"\\""}], ";"}]], "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"}], ",", "\"\\"", ",", RowBox[{"x", "\[GreaterEqual]", "80"}], ",", "\"\\"", ",", RowBox[{"x", "\[GreaterEqual]", "70"}], ",", "\"\\"", ",", RowBox[{"x", "\[GreaterEqual]", "60"}], ",", "\"\\"", ",", "True", ",", "\"\\""}], "]"}]}], ";"}], "\[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"}], "=", "\"\\""}]], "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 *)