(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 32906, 1440]*) (*NotebookOutlinePosition[ 37187, 1556]*) (* CellTagsIndexPosition[ 36195, 1529]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ \(2 + 2\)], "Input"], Cell[BoxData[ \(4\)], "Output"] }, Open ]], Cell[BoxData[ \(\(2 + 2;\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(x = 2\)], "Input"], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(2 \[Equal] 2\)], "Input"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(2 != 2\)], "Input"], Cell[BoxData[ \(False\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(x = 2;\)\), "\[IndentingNewLine]", \(x^5\)}], "Input"], Cell[BoxData[ \(32\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Out[5]\)], "Input"], Cell[BoxData[ \(False\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \({1, 2, 3, 4}\)], "Input"], Cell[BoxData[ \({1, 2, 3, 4}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(1, 2, 3, 4\)], "Input"], Cell[BoxData[ RowBox[{\(Syntax::"tsntxi"\), \(\(:\)\(\ \)\), "\<\"\\\"\\!\\(1, 2, 3, \ 4\\)\\\" is incomplete; more input is needed.\\!\\(\\\"\\\"\\) \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::tsntxi\\\"]\\)\"\>"}]], \ "Message"], Cell[BoxData[ StyleBox[ ErrorBox[\(1, 2, 3, 4\)], ShowStringCharacters->True]], "Message"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?FactorInteger\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"FactorInteger[n] gives a list of the prime factors of the \ integer n, together with their exponents.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"FactorInteger", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380270634-9803841"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FactorInteger[10000]\)], "Input"], Cell[BoxData[ \({{2, 4}, {5, 4}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?N\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"N[expr] gives the numerical value of expr. N[expr, n] \ attempts to give a result with n-digit precision.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"N", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380270695-9576436"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Pi]\)], "Input"], Cell[BoxData[ \(3.141592653589793`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Pi, 100]\)], "Input"], Cell[BoxData[ \(3.1415926535897932384626433832795028841971693993751058209749445923078164\ 062862089986280348253421170679821480865124059`100. \)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[E, 100]\)], "Input"], Cell[BoxData[ \(2.7182818284590452353602874713526624977572470936999595749669676277240766\ 303535475945713821785251664274274498344858402`100. \)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[{Pi, E}]\)], "Input"], Cell[BoxData[ \({3.141592653589793`, 2.718281828459045`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Table[i^2, {i, 1, 20}]\)], "Input"], Cell[BoxData[ \({1, 4, 9, 16, 25, 36, 49, 64, 81, 100, 121, 144, 169, 196, 225, 256, 289, 324, 361, 400}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Sum[i^2, {i, 1, 20}]\)], "Input"], Cell[BoxData[ \(2870\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Union[{a, c, a, c, b, c, a}]\)], "Input"], Cell[BoxData[ \({a, b, c}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Range\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Range[imax] generates the list {1, 2, ... , imax}. \ Range[imin, imax] generates the list {imin, ... , imax}. Range[imin, imax, \ di] uses step di.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Range", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380270936-6135363"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Range[20]\)], "Input"], Cell[BoxData[ \({1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Range[\(-5\), 20]\)], "Input"], Cell[BoxData[ \({\(-5\), \(-4\), \(-3\), \(-2\), \(-1\), 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Range[\(-5\), 20, 2]\)], "Input"], Cell[BoxData[ \({\(-5\), \(-3\), \(-1\), 1, 3, 5, 7, 9, 11, 13, 15, 17, 19}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Range[20]\^2\)], "Input"], Cell[BoxData[ \({1, 4, 9, 16, 25, 36, 49, 64, 81, 100, 121, 144, 169, 196, 225, 256, 289, 324, 361, 400}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\((2 Range[20] + 1)\)\^2\)], "Input"], Cell[BoxData[ \({9, 25, 49, 81, 121, 169, 225, 289, 361, 441, 529, 625, 729, 841, 961, 1089, 1225, 1369, 1521, 1681}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Join[{a, b, c}, {1, 2, 3}]\)], "Input"], Cell[BoxData[ \({a, b, c, 1, 2, 3}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Part\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"expr[[i]] or Part[expr, i] gives the ith part of expr. \ expr[[-i]] counts from the end. expr[[0]] gives the head of expr. expr[[i, j, \ ... ]] or Part[expr, i, j, ... ] is equivalent to expr[[i]] [[j]] ... . \ expr[[ {i1, i2, ... } ]] gives a list of the parts i1, i2, ... of expr.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Part", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380271079-4711084"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \({a, b, c, 1, 2, 3}[\([3]\)]\)], "Input"], Cell[BoxData[ \(c\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Part[{a, b, c, 1, 2, 3}, 3]\)], "Input"], Cell[BoxData[ \(c\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Length[{a, b, c, 1, 2, 3}]\)], "Input"], Cell[BoxData[ \(6\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(First[{a, b, c, 1, 2, 3}]\)], "Input"], Cell[BoxData[ \(a\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Rest[{a, b, c, 1, 2, 3}]\)], "Input"], Cell[BoxData[ \({b, c, 1, 2, 3}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(x = Range[5]\)], "Input"], Cell[BoxData[ \({1, 2, 3, 4, 5}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Table[x, {i, 1, 5}]\)], "Input"], Cell[BoxData[ \({{1, 2, 3, 4, 5}, {1, 2, 3, 4, 5}, {1, 2, 3, 4, 5}, {1, 2, 3, 4, 5}, {1, 2, 3, 4, 5}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Flatten[%]\)], "Input"], Cell[BoxData[ \({1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Transpose[%%]\)], "Input"], Cell[BoxData[ \({{1, 1, 1, 1, 1}, {2, 2, 2, 2, 2}, {3, 3, 3, 3, 3}, {4, 4, 4, 4, 4}, {5, 5, 5, 5, 5}}\)], "Output"] }, Open ]], Cell[BoxData[ \(f[x_] := x^2\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(f[9]\)], "Input"], Cell[BoxData[ \(81\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(f[x]\)], "Input"], Cell[BoxData[ \({1, 4, 9, 16, 25}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Rest\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Rest[expr] gives expr with the first element removed.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Rest", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380271570-2500681"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Most\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Most[expr] gives expr with the last element removed.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Most", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380271650-1719668"] }, Open ]], Cell["\<\ Differences[{e1, e2, ..., ek}] gives {e2 - e1, e3 - e2, ..., ek - e(k-1)}.\ \>", "Text"], Cell[BoxData[ \(Differences[list_] := Rest[list] - Most[list]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Differences[Range[10]]\)], "Input"], Cell[BoxData[ \({1, 1, 1, 1, 1, 1, 1, 1, 1}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Table[i^3 - 2 i^2 + i - 5, {i, 0, 20}]\)], "Input"], Cell[BoxData[ \({\(-5\), \(-5\), \(-3\), 7, 31, 75, 145, 247, 387, 571, 805, 1095, 1447, 1867, 2361, 2935, 3595, 4347, 5197, 6151, 7215}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Differences[%]\)], "Input"], Cell[BoxData[ \({0, 2, 10, 24, 44, 70, 102, 140, 184, 234, 290, 352, 420, 494, 574, 660, 752, 850, 954, 1064}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Differences[%]\)], "Input"], Cell[BoxData[ \({2, 8, 14, 20, 26, 32, 38, 44, 50, 56, 62, 68, 74, 80, 86, 92, 98, 104, 110}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Differences[%]\)], "Input"], Cell[BoxData[ \({6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?CoefficientList\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"CoefficientList[poly, var] gives a list of coefficients of \ powers of var in poly, starting with power 0. CoefficientList[poly, {var1, \ var2, ... }] gives an array of coefficients of the vari.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"CoefficientList", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380271777-3518760"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(CoefficientList[i^3 - 2 i^2 + i - 5, i]\)], "Input"], Cell[BoxData[ \({\(-5\), 1, \(-2\), 1}\)], "Output"] }, Open ]], Cell["\<\ FromCoefficientList reconstructs a polynomial from its list of \ coefficients.\ \>", "Text"], Cell[BoxData[ \(FromCoefficientListSlow[list_, var_] := Sum[list[\([j]\)] var^\((j - 1)\), {j, 1, Length[list]}]\)], "Input"], Cell[BoxData[ \(FromCoefficientListSlow[list_, var_] := \[Sum]\+\(j = 1\)\%\(Length[list]\)list\[LeftDoubleBracket] j\[RightDoubleBracket]\ var\^\(j - 1\)\)], "Input"], Cell[BoxData[ \(FromCoefficientList[list_, var_] := list . var\^Range[0, Length[list] - 1]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Timing[ Do[FromCoefficientList[{\(-5\), 1, \(-2\), 1, 3, 10, 44, \(-10\), 2, 4, 1, 2, 3}, i], {100000}]]\)], "Input"], Cell[BoxData[ \({4.`\ Second, Null}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Timing[ Do[FromCoefficientListSlow[{\(-5\), 1, \(-2\), 1, 3, 10, 44, \(-10\), 2, 4, 1, 2, 3}, i], {100000}]]\)], "Input"], Cell[BoxData[ \({4.936999999999999`\ Second, Null}\)], "Output"] }, Open ]], Cell[TextData[{ "Every expression in ", StyleBox["Mathematica", FontSlant->"Italic"], " looks like ", Cell[BoxData[ \(TraditionalForm\`f[a, b, c, ... , z]\)]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm[a + b]\)], "Input"], Cell[BoxData[ TagBox[ StyleBox[\(Plus[a, b]\), ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm[a\ b]\)], "Input"], Cell[BoxData[ TagBox[ StyleBox[\(Times[a, b]\), ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm[a^b]\)], "Input"], Cell[BoxData[ TagBox[ StyleBox[\(Power[a, b]\), ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm[{a, b, c}]\)], "Input"], Cell[BoxData[ TagBox[ StyleBox[\(List[a, b, c]\), ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Apply\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Apply[f, expr] or f @@ expr replaces the head of expr by f. \ Apply[f, expr, levelspec] replaces heads in parts of expr specified by \ levelspec.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Apply", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380272481-7604900"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?f\)\)], "Input"], Cell["Global`f", "Print", CellTags->"Info3380272494-2281682"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ {\(f[x_] := x\^2\)} }, GridBaseline->{Baseline, {1, 1}}, ColumnWidths->0.999, ColumnAlignments->{Left}]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], Definition[ "f"], Editable->False]], "Print", CellTags->"Info3380272494-2281682"] }, Open ]], Cell[BoxData[ \(Clear[f]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(?f\)\)], "Input"], Cell["Global`f", "Print", CellTags->"Info3380272506-6988623"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(f @@ g[a, b, c]\)], "Input"], Cell[BoxData[ \(f[a, b, c]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Times @@ {a, b, c}\)], "Input"], Cell[BoxData[ \(a\ b\ c\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Power @@ {a, b, c}\)], "Input"], Cell[BoxData[ \(a\^\(b\^c\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Power[a, b, c]\)], "Input"], Cell[BoxData[ \(a\^\(b\^c\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Total[{a, b, c, d}]\)], "Input"], Cell[BoxData[ \(a + b + c + d\)], "Output"] }, Open ]], Cell["MyTotal finds the sum of the elements in a list.", "Text"], Cell[BoxData[ \(MyTotal[list_] := Plus @@ list\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(MyTotal[Range[10]]\)], "Input"], Cell[BoxData[ \(55\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Head[a + b + c]\)], "Input"], Cell[BoxData[ \(Plus\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm[a + b + c]\)], "Input"], Cell[BoxData[ TagBox[ StyleBox[\(Plus[a, b, c]\), ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MyTotal[a + b + c]\)], "Input"], Cell[BoxData[ \(a + b + c\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MyTotal[a\ b\ c]\)], "Input"], Cell[BoxData[ \(a + b + c\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?FactorInteger\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"FactorInteger[n] gives a list of the prime factors of the \ integer n, together with their exponents.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"FactorInteger", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380272779-6956552"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FactorInteger[10000]\)], "Input"], Cell[BoxData[ \({{2, 4}, {5, 4}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Apply\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Apply[f, expr] or f @@ expr replaces the head of expr by f. \ Apply[f, expr, levelspec] replaces heads in parts of expr specified by \ levelspec.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Apply", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380279547-2868467"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Apply[Power, {{2, 4}, {5, 4}}, {1}]\)], "Input"], Cell[BoxData[ \({16, 625}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Times @@ %\)], "Input"], Cell[BoxData[ \(10000\)], "Output"] }, Open ]], Cell["\<\ ReassembleInteger re-constructs an integer from its FactorInteger output.\ \>", "Text"], Cell[BoxData[ \(ReassembleInteger[list_] := Times @@ Apply[Power, list, {1}]\)], "Input"], Cell[BoxData[ \(ReassembleInteger[list_] := Times @@ \(Power @@@ list\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(ReassembleInteger[{{2, 4}, {5, 4}}]\)], "Input"], Cell[BoxData[ \(10000\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Timing[ And @@ Table[ ReassembleInteger[FactorInteger[n]] \[Equal] n, {n, 1, 100000}]]\)], "Input"], Cell[BoxData[ \({2.141`\ Second, True}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Map\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Map[f, expr] or f /@ expr applies f to each element on the \ first level in expr. Map[f, expr, levelspec] applies f to parts of expr \ specified by levelspec.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Map", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380273294-1313677"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(f /@ {a, b, c, d}\)], "Input"], Cell[BoxData[ \({f[a], f[b], f[c], f[d]}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Map[f, {a, b, c, d}]\)], "Input"], Cell[BoxData[ \({f[a], f[b], f[c], f[d]}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(f[{a, b, c, d}]\)], "Input"], Cell[BoxData[ \(f[{a, b, c, d}]\)], "Output"] }, Open ]], Cell[BoxData[ \(SetAttributes[f, Listable]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(f[{a, b, c, d}]\)], "Input"], Cell[BoxData[ \({f[a], f[b], f[c], f[d]}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Attributes[Plus]\)], "Input"], Cell[BoxData[ \({Flat, Listable, NumericFunction, OneIdentity, Orderless, Protected}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Map\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Map[f, expr] or f /@ expr applies f to each element on the \ first level in expr. Map[f, expr, levelspec] applies f to parts of expr \ specified by levelspec.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Map", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380273419-1501828"] }, Open ]], Cell["Radical[n] gives the product of the prime divisors of n.", "Text"], Cell[BoxData[ \(Radical[n_] := Times @@ \(First /@ FactorInteger[n]\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm[Times @@ \(First /@ FactorInteger[n]\)]\)], "Input"], Cell[BoxData[ RowBox[{\(FactorInteger::"facn"\), \(\(:\)\(\ \)\), "\<\"Argument \\!\\(n\ \\) in \\!\\(FactorInteger[n]\\) is not an exact number. \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"FactorInteger::facn\\\"]\\)\"\>"}]], \ "Message"], Cell[BoxData[ RowBox[{\(First::"normal"\), \(\(:\)\(\ \)\), "\<\"Nonatomic expression \ expected at position \\!\\(1\\) in \\!\\(First[n]\\). \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::normal\\\"]\\)\"\>"}]], \ "Message"], Cell[BoxData[ RowBox[{\(FactorInteger::"facn"\), \(\(:\)\(\ \)\), "\<\"Argument \ \\!\\(First[n]\\) in \\!\\(FactorInteger[\\(\\(First[n]\\)\\)]\\) is not an \ exact number. \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"FactorInteger::facn\\\"]\\)\"\>"}]], "Message"], Cell[BoxData[ TagBox[ StyleBox[\(First[n]\), ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm[Hold[Times @@ \(First /@ FactorInteger[n]\)]]\)], "Input"], Cell[BoxData[ TagBox[ StyleBox[\(Hold[Apply[Times, Map[First, FactorInteger[n]]]]\), ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ContinuedFraction[N[Pi, 100]]\)], "Input"], Cell[BoxData[ \({3, 7, 15, 1, 292, 1, 1, 1, 2, 1, 3, 1, 14, 2, 1, 1, 2, 2, 2, 2, 1, 84, 2, 1, 1, 15, 3, 13, 1, 4, 2, 6, 6, 99, 1, 2, 2, 6, 3, 5, 1, 1, 6, 8, 1, 7, 1, 2, 3, 7, 1, 2, 1, 1, 12, 1, 1, 1, 3, 1, 1, 8, 1, 1, 2, 1, 6, 1, 1, 5, 2, 2, 3, 1, 2, 4, 4, 16, 1, 161, 45, 1, 22, 1, 2, 2, 1, 4, 1, 2, 24, 1, 2, 1, 3, 1}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ContinuedFraction[355/113]\)], "Input"], Cell[BoxData[ \({3, 7, 16}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ContinuedFraction[1\/3\ \((1 + \@2)\)]\)], "Input"], Cell[BoxData[ \({0, 1, {4, 8}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Nest\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Nest[f, expr, n] gives an expression with f applied n times \ to expr.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Nest", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380273892-6727358"] }, Open ]], Cell[BoxData[ \(ClearAttributes[f, Listable]\)], "Input"], Cell[BoxData[ \(Clear[x]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Nest[f, x, 5]\)], "Input"], Cell[BoxData[ \(f[f[f[f[f[x]]]]]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Fold[f, x, {a, b, c, d}]\)], "Input"], Cell[BoxData[ \(f[f[f[f[x, a], b], c], d]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\((#1^\(-#2\) &)\)[x, y]\)], "Input"], Cell[BoxData[ \(x\^\(-y\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ContinuedFraction[1\/3\ \((1 + \@2)\)]\)], "Input"], Cell[BoxData[ \({0, 1, {4, 8}}\)], "Output"] }, Open ]], Cell["\<\ MyFromContinuedFraction reconstructs a quadratic irrational from its periodic \ continued fraction representation.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(ContinuedFraction[Sqrt[23]]\)], "Input"], Cell[BoxData[ \({4, {1, 3, 1, 8}}\)], "Output"] }, Open ]], Cell[BoxData[ \(1\/\(1 + 1\/\(3 + 1\/\(1 + 1\/8\)\)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(?FoldList\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"FoldList[f, x, {a, b, ... }] gives {x, f[x, a], f[f[x, a], \ b], ... }.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"FoldList", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380274358-5389826"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(1/x == Fold[1\/\(#1 + #2\) &, 0, Reverse[{a, b, c, d, x}]]\)], "Input"], Cell[BoxData[ \(1\/x \[Equal] 1\/\(a + 1\/\(b + 1\/\(c + 1\/\(d + 1\/x\)\)\)\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[ 1\/x \[Equal] Fold[1\/\(#1 + #2\) &, 0, Reverse[{1, 3, 1, 8, x}]], x]\)], "Input"], Cell[BoxData[ \({{x \[Rule] 1\/7\ \((4 - \@23)\)}, {x \[Rule] 1\/7\ \((4 + \@23)\)}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?ReplaceAll\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"expr /. rules applies a rule or list of rules in an attempt \ to transform each subpart of an expression expr.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"ReplaceAll", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380274619-8086285"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(x /. {{x \[Rule] 1\/7\ \((4 - \@23)\)}, {x \[Rule] 1\/7\ \((4 + \@23)\)}}\)], "Input"], Cell[BoxData[ \({1\/7\ \((4 - \@23)\), 1\/7\ \((4 + \@23)\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ContinuedFraction[1\/3\ \((1 + \@2)\)]\)], "Input"], Cell[BoxData[ \({0, 1, {4, 8}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Fold[1\/\(#1 + #2\) &, 0, Reverse[{a, b, c, d, 1/periodicpart}]]\)], "Input"], Cell[BoxData[ \(1\/\(a + 1\/\(b + 1\/\(c + 1\/\(d + periodicpart\)\)\)\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Most\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Most[expr] gives expr with the last element removed.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Most", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380274988-4423410"] }, Open ]], Cell[BoxData[ \(MyFromContinuedFraction[ list_] := \[IndentingNewLine]Module[{x}, \ \[IndentingNewLine]FullSimplify[\[IndentingNewLine]1/ Fold[1\/\(#1 + #2\) &, 0, Reverse[Append[ Most[list], \[IndentingNewLine]Last[\((x /. Solve[\[IndentingNewLine]1\/x \[Equal] Fold[1\/\(#1 + #2\) &, 0, Reverse[ Append[Last[list], x]]]\[IndentingNewLine], x\[IndentingNewLine]])\)]\[IndentingNewLine]]]]\ \[IndentingNewLine]]\[IndentingNewLine]]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(MyFromContinuedFraction[ ContinuedFraction[1\/3\ \((1 + \@2)\)]]\)], "Input"], Cell[BoxData[ \(1\/3\ \((1 + \@2)\)\)], "Output"] }, Open ]], Cell[TextData[{ "Since the current version is sometimes off by ", Cell[BoxData[ \(TraditionalForm\`\(-1\)\)]], ", here is a version that uses ", StyleBox["both", FontSlant->"Italic"], " solutions from ", StyleBox["Solve", "Input"], ":" }], "Text"], Cell[BoxData[ \(MyFromContinuedFractionBoth[ list_] := \[IndentingNewLine]Module[{x}, \ \[IndentingNewLine]\((FullSimplify[ 1/Fold[1\/\(#1 + #2\) &, 0, Reverse[ Append[Most[ list], #]]]] &)\) /@ \[IndentingNewLine]\((x /. Solve[\[IndentingNewLine]1\/x \[Equal] Fold[1\/\(#1 + #2\) &, 0, Reverse[ Append[Last[list], x]]], \[IndentingNewLine]x\[IndentingNewLine]])\)\ \[IndentingNewLine]]\)], "Input"], Cell["At least we're never wrong!...", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(MyFromContinuedFractionBoth[ ContinuedFraction[1\/3\ \((1 + \@2)\)]]\)], "Input"], Cell[BoxData[ \({1\/3\ \((1 - \@2)\), 1\/3\ \((1 + \@2)\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MyFromContinuedFractionBoth[ContinuedFraction[\@23]]\)], "Input"], Cell[BoxData[ \({\(-\@23\), \@23}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MyFromContinuedFractionBoth[ContinuedFraction[\(-\@23\)]]\)], "Input"], Cell[BoxData[ \({\(-\@23\), \@23}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ContinuedFraction[{\(-\@23\), \@23}]\)], "Input"], Cell[BoxData[ \({{\(-4\), {\(-1\), \(-3\), \(-1\), \(-8\)}}, {4, {1, 3, 1, 8}}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?If\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"If[condition, t, f] gives t if condition evaluates to True, \ and f if it evaluates to False. If[condition, t, f, u] gives u if condition \ evaluates to neither True nor False.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"If", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380275161-4177018"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?For\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"For[start, test, incr, body] executes start, then repeatedly \ evaluates body and incr until test fails to give True.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"For", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380275148-1750117"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?While\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"While[test, body] evaluates test, then body, repetitively, \ until test first fails to give True.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"While", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380275151-8954702"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(?Do\)\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Do[expr, {imax}] evaluates expr imax times. Do[expr, {i, \ imax}] evaluates expr with the variable i successively taking on the values 1 \ through imax (in steps of 1). Do[expr, {i, imin, imax}] starts with i = imin. \ Do[expr, {i, imin, imax, di}] uses steps di. Do[expr, {i, imin, imax}, {j, \ jmin, jmax}, ... ] evaluates expr looping over different values of j, etc. \ for each i.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Do", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3380280387-5830401"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Cases[Range[100], _?EvenQ | _?PrimeQ]\)], "Input"], Cell[BoxData[ \({2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 22, 23, 24, 26, 28, 29, 30, 31, 32, 34, 36, 37, 38, 40, 41, 42, 43, 44, 46, 47, 48, 50, 52, 53, 54, 56, 58, 59, 60, 61, 62, 64, 66, 67, 68, 70, 71, 72, 73, 74, 76, 78, 79, 80, 82, 83, 84, 86, 88, 89, 90, 92, 94, 96, 97, 98, 100}\)], "Output"] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 715}}, WindowSize->{1016, 681}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, Magnification->1 ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{ "Info3380270634-9803841"->{ Cell[3263, 141, 361, 9, 25, "Print", CellTags->"Info3380270634-9803841"]}, "Info3380270695-9576436"->{ Cell[3846, 167, 353, 9, 25, "Print", CellTags->"Info3380270695-9576436"]}, "Info3380270936-6135363"->{ Cell[5551, 250, 399, 10, 44, "Print", CellTags->"Info3380270936-6135363"]}, "Info3380271079-4711084"->{ Cell[7261, 326, 541, 12, 63, "Print", CellTags->"Info3380271079-4711084"]}, "Info3380271570-2500681"->{ Cell[9623, 451, 311, 9, 25, "Print", CellTags->"Info3380271570-2500681"]}, "Info3380271650-1719668"->{ Cell[10016, 468, 310, 9, 25, "Print", CellTags->"Info3380271650-1719668"]}, "Info3380271777-3518760"->{ Cell[11630, 540, 456, 10, 44, "Print", CellTags->"Info3380271777-3518760"]}, "Info3380272481-7604900"->{ Cell[14712, 673, 397, 10, 44, "Print", CellTags->"Info3380272481-7604900"]}, "Info3380272494-2281682"->{ Cell[15188, 691, 63, 1, 25, "Print", CellTags->"Info3380272494-2281682"], Cell[15254, 694, 431, 13, 26, "Print", CellTags->"Info3380272494-2281682"]}, "Info3380272506-6988623"->{ Cell[15808, 718, 63, 1, 25, "Print", CellTags->"Info3380272506-6988623"]}, "Info3380272779-6956552"->{ Cell[17566, 827, 361, 9, 25, "Print", CellTags->"Info3380272779-6956552"]}, "Info3380279547-2868467"->{ Cell[18153, 853, 397, 10, 44, "Print", CellTags->"Info3380279547-2868467"]}, "Info3380273294-1313677"->{ Cell[19582, 920, 408, 10, 44, "Print", CellTags->"Info3380273294-1313677"]}, "Info3380273419-1501828"->{ Cell[20913, 987, 408, 10, 44, "Print", CellTags->"Info3380273419-1501828"]}, "Info3380273892-6727358"->{ Cell[23982, 1090, 321, 9, 25, "Print", CellTags->"Info3380273892-6727358"]}, "Info3380274358-5389826"->{ Cell[25453, 1166, 326, 9, 25, "Print", CellTags->"Info3380274358-5389826"]}, "Info3380274619-8086285"->{ Cell[26376, 1205, 367, 9, 25, "Print", CellTags->"Info3380274619-8086285"]}, "Info3380274988-4423410"->{ Cell[27455, 1251, 310, 9, 25, "Print", CellTags->"Info3380274988-4423410"]}, "Info3380275161-4177018"->{ Cell[30410, 1359, 425, 10, 44, "Print", CellTags->"Info3380275161-4177018"]}, "Info3380275148-1750117"->{ Cell[30916, 1377, 367, 9, 25, "Print", CellTags->"Info3380275148-1750117"]}, "Info3380275151-8954702"->{ Cell[31366, 1394, 349, 9, 25, "Print", CellTags->"Info3380275151-8954702"]}, "Info3380280387-5830401"->{ Cell[31795, 1411, 633, 13, 82, "Print", CellTags->"Info3380280387-5830401"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3380270634-9803841", 33552, 1457}, {"Info3380270695-9576436", 33667, 1460}, {"Info3380270936-6135363", 33782, 1463}, {"Info3380271079-4711084", 33898, 1466}, {"Info3380271570-2500681", 34014, 1469}, {"Info3380271650-1719668", 34129, 1472}, {"Info3380271777-3518760", 34245, 1475}, {"Info3380272481-7604900", 34362, 1478}, {"Info3380272494-2281682", 34479, 1481}, {"Info3380272506-6988623", 34680, 1486}, {"Info3380272779-6956552", 34795, 1489}, {"Info3380279547-2868467", 34911, 1492}, {"Info3380273294-1313677", 35028, 1495}, {"Info3380273419-1501828", 35145, 1498}, {"Info3380273892-6727358", 35262, 1501}, {"Info3380274358-5389826", 35379, 1504}, {"Info3380274619-8086285", 35496, 1507}, {"Info3380274988-4423410", 35613, 1510}, {"Info3380275161-4177018", 35730, 1513}, {"Info3380275148-1750117", 35848, 1516}, {"Info3380275151-8954702", 35965, 1519}, {"Info3380280387-5830401", 36082, 1522} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 38, 1, 30, "Input"], Cell[1817, 56, 35, 1, 29, "Output"] }, Open ]], Cell[1867, 60, 43, 1, 30, "Input"], Cell[CellGroupData[{ Cell[1935, 65, 38, 1, 30, "Input"], Cell[1976, 68, 35, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2048, 74, 45, 1, 30, "Input"], Cell[2096, 77, 38, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2171, 83, 39, 1, 30, "Input"], Cell[2213, 86, 39, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2289, 92, 82, 2, 50, "Input"], Cell[2374, 96, 36, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2447, 102, 39, 1, 30, "Input"], Cell[2489, 105, 39, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2565, 111, 45, 1, 30, "Input"], Cell[2613, 114, 46, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2696, 120, 43, 1, 30, "Input"], Cell[2742, 123, 321, 5, 22, "Message"], Cell[3066, 130, 106, 3, 22, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[3209, 138, 51, 1, 30, "Input"], Cell[3263, 141, 361, 9, 25, "Print", CellTags->"Info3380270634-9803841"] }, Open ]], Cell[CellGroupData[{ Cell[3661, 155, 53, 1, 30, "Input"], Cell[3717, 158, 50, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3804, 164, 39, 1, 30, "Input"], Cell[3846, 167, 353, 9, 25, "Print", CellTags->"Info3380270695-9576436"] }, Open ]], Cell[CellGroupData[{ Cell[4236, 181, 38, 1, 30, "Input"], Cell[4277, 184, 52, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4366, 190, 43, 1, 30, "Input"], Cell[4412, 193, 159, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4608, 200, 42, 1, 30, "Input"], Cell[4653, 203, 159, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4849, 210, 43, 1, 30, "Input"], Cell[4895, 213, 74, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5006, 219, 55, 1, 30, "Input"], Cell[5064, 222, 129, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5230, 229, 53, 1, 30, "Input"], Cell[5286, 232, 38, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5361, 238, 61, 1, 30, "Input"], Cell[5425, 241, 43, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5505, 247, 43, 1, 30, "Input"], Cell[5551, 250, 399, 10, 44, "Print", CellTags->"Info3380270936-6135363"] }, Open ]], Cell[CellGroupData[{ Cell[5987, 265, 42, 1, 30, "Input"], Cell[6032, 268, 112, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6181, 275, 50, 1, 30, "Input"], Cell[6234, 278, 155, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6426, 285, 53, 1, 30, "Input"], Cell[6482, 288, 93, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6612, 294, 45, 1, 30, "Input"], Cell[6660, 297, 129, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6826, 304, 58, 1, 30, "Input"], Cell[6887, 307, 141, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7065, 314, 59, 1, 30, "Input"], Cell[7127, 317, 52, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7216, 323, 42, 1, 30, "Input"], Cell[7261, 326, 541, 12, 63, "Print", CellTags->"Info3380271079-4711084"] }, Open ]], Cell[CellGroupData[{ Cell[7839, 343, 60, 1, 30, "Input"], Cell[7902, 346, 35, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7974, 352, 60, 1, 30, "Input"], Cell[8037, 355, 35, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8109, 361, 59, 1, 30, "Input"], Cell[8171, 364, 35, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8243, 370, 58, 1, 30, "Input"], Cell[8304, 373, 35, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8376, 379, 57, 1, 30, "Input"], Cell[8436, 382, 49, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8522, 388, 45, 1, 30, "Input"], Cell[8570, 391, 49, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8656, 397, 52, 1, 30, "Input"], Cell[8711, 400, 128, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8876, 407, 43, 1, 30, "Input"], Cell[8922, 410, 116, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9075, 417, 46, 1, 30, "Input"], Cell[9124, 420, 128, 2, 29, "Output"] }, Open ]], Cell[9267, 425, 45, 1, 30, "Input"], Cell[CellGroupData[{ Cell[9337, 430, 37, 1, 30, "Input"], Cell[9377, 433, 36, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9450, 439, 37, 1, 30, "Input"], Cell[9490, 442, 51, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9578, 448, 42, 1, 30, "Input"], Cell[9623, 451, 311, 9, 25, "Print", CellTags->"Info3380271570-2500681"] }, Open ]], Cell[CellGroupData[{ Cell[9971, 465, 42, 1, 30, "Input"], Cell[10016, 468, 310, 9, 25, "Print", CellTags->"Info3380271650-1719668"] }, Open ]], Cell[10341, 480, 98, 2, 33, "Text"], Cell[10442, 484, 78, 1, 30, "Input"], Cell[CellGroupData[{ Cell[10545, 489, 55, 1, 30, "Input"], Cell[10603, 492, 61, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10701, 498, 72, 1, 30, "Input"], Cell[10776, 501, 161, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10974, 508, 47, 1, 30, "Input"], Cell[11024, 511, 134, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11195, 518, 47, 1, 30, "Input"], Cell[11245, 521, 117, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11399, 528, 47, 1, 30, "Input"], Cell[11449, 531, 88, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11574, 537, 53, 1, 30, "Input"], Cell[11630, 540, 456, 10, 44, "Print", CellTags->"Info3380271777-3518760"] }, Open ]], Cell[CellGroupData[{ Cell[12123, 555, 73, 1, 30, "Input"], Cell[12199, 558, 56, 1, 29, "Output"] }, Open ]], Cell[12270, 562, 102, 3, 33, "Text"], Cell[12375, 567, 136, 2, 30, "Input"], Cell[12514, 571, 192, 3, 54, "Input"], Cell[12709, 576, 114, 2, 30, "Input"], Cell[CellGroupData[{ Cell[12848, 582, 156, 3, 30, "Input"], Cell[13007, 587, 53, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13097, 593, 160, 3, 30, "Input"], Cell[13260, 598, 68, 1, 29, "Output"] }, Open ]], Cell[13343, 602, 196, 8, 33, "Text"], Cell[CellGroupData[{ Cell[13564, 614, 48, 1, 30, "Input"], Cell[13615, 617, 186, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13838, 628, 47, 1, 30, "Input"], Cell[13888, 631, 187, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14112, 642, 46, 1, 30, "Input"], Cell[14161, 645, 187, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14385, 656, 52, 1, 30, "Input"], Cell[14440, 659, 189, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14666, 670, 43, 1, 30, "Input"], Cell[14712, 673, 397, 10, 44, "Print", CellTags->"Info3380272481-7604900"] }, Open ]], Cell[CellGroupData[{ Cell[15146, 688, 39, 1, 30, "Input"], Cell[15188, 691, 63, 1, 25, "Print", CellTags->"Info3380272494-2281682"], Cell[15254, 694, 431, 13, 26, "Print", CellTags->"Info3380272494-2281682"] }, Open ]], Cell[15700, 710, 41, 1, 30, "Input"], Cell[CellGroupData[{ Cell[15766, 715, 39, 1, 30, "Input"], Cell[15808, 718, 63, 1, 25, "Print", CellTags->"Info3380272506-6988623"] }, Open ]], Cell[CellGroupData[{ Cell[15908, 724, 48, 1, 30, "Input"], Cell[15959, 727, 44, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16040, 733, 51, 1, 30, "Input"], Cell[16094, 736, 41, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16172, 742, 51, 1, 30, "Input"], Cell[16226, 745, 45, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16308, 751, 47, 1, 30, "Input"], Cell[16358, 754, 45, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16440, 760, 52, 1, 30, "Input"], Cell[16495, 763, 47, 1, 29, "Output"] }, Open ]], Cell[16557, 767, 64, 0, 33, "Text"], Cell[16624, 769, 63, 1, 30, "Input"], Cell[CellGroupData[{ Cell[16712, 774, 51, 1, 30, "Input"], Cell[16766, 777, 36, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16839, 783, 48, 1, 30, "Input"], Cell[16890, 786, 38, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16965, 792, 52, 1, 30, "Input"], Cell[17020, 795, 189, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17246, 806, 51, 1, 30, "Input"], Cell[17300, 809, 43, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17380, 815, 49, 1, 30, "Input"], Cell[17432, 818, 43, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17512, 824, 51, 1, 30, "Input"], Cell[17566, 827, 361, 9, 25, "Print", CellTags->"Info3380272779-6956552"] }, Open ]], Cell[CellGroupData[{ Cell[17964, 841, 53, 1, 30, "Input"], Cell[18020, 844, 50, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18107, 850, 43, 1, 30, "Input"], Cell[18153, 853, 397, 10, 44, "Print", CellTags->"Info3380279547-2868467"] }, Open ]], Cell[CellGroupData[{ Cell[18587, 868, 68, 1, 30, "Input"], Cell[18658, 871, 43, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18738, 877, 43, 1, 30, "Input"], Cell[18784, 880, 39, 1, 29, "Output"] }, Open ]], Cell[18838, 884, 97, 2, 33, "Text"], Cell[18938, 888, 93, 1, 30, "Input"], Cell[19034, 891, 88, 1, 30, "Input"], Cell[CellGroupData[{ Cell[19147, 896, 68, 1, 30, "Input"], Cell[19218, 899, 39, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19294, 905, 148, 4, 30, "Input"], Cell[19445, 911, 56, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19538, 917, 41, 1, 30, "Input"], Cell[19582, 920, 408, 10, 44, "Print", CellTags->"Info3380273294-1313677"] }, Open ]], Cell[CellGroupData[{ Cell[20027, 935, 50, 1, 30, "Input"], Cell[20080, 938, 58, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20175, 944, 53, 1, 30, "Input"], Cell[20231, 947, 58, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20326, 953, 48, 1, 30, "Input"], Cell[20377, 956, 49, 1, 29, "Output"] }, Open ]], Cell[20441, 960, 59, 1, 30, "Input"], Cell[CellGroupData[{ Cell[20525, 965, 48, 1, 30, "Input"], Cell[20576, 968, 58, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20671, 974, 49, 1, 30, "Input"], Cell[20723, 977, 109, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20869, 984, 41, 1, 30, "Input"], Cell[20913, 987, 408, 10, 44, "Print", CellTags->"Info3380273419-1501828"] }, Open ]], Cell[21336, 1000, 72, 0, 33, "Text"], Cell[21411, 1002, 86, 1, 30, "Input"], Cell[CellGroupData[{ Cell[21522, 1007, 81, 1, 30, "Input"], Cell[21606, 1010, 321, 5, 22, "Message"], Cell[21930, 1017, 313, 5, 22, "Message"], Cell[22246, 1024, 347, 5, 22, "Message"], Cell[22596, 1031, 184, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22817, 1042, 87, 1, 30, "Input"], Cell[22907, 1045, 224, 6, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23168, 1056, 62, 1, 30, "Input"], Cell[23233, 1059, 365, 5, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23635, 1069, 59, 1, 30, "Input"], Cell[23697, 1072, 44, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23778, 1078, 71, 1, 42, "Input"], Cell[23852, 1081, 48, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23937, 1087, 42, 1, 30, "Input"], Cell[23982, 1090, 321, 9, 25, "Print", CellTags->"Info3380273892-6727358"] }, Open ]], Cell[24318, 1102, 61, 1, 30, "Input"], Cell[24382, 1105, 41, 1, 30, "Input"], Cell[CellGroupData[{ Cell[24448, 1110, 46, 1, 30, "Input"], Cell[24497, 1113, 50, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24584, 1119, 57, 1, 30, "Input"], Cell[24644, 1122, 59, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24740, 1128, 57, 1, 30, "Input"], Cell[24800, 1131, 43, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24880, 1137, 71, 1, 42, "Input"], Cell[24954, 1140, 48, 1, 29, "Output"] }, Open ]], Cell[25017, 1144, 138, 3, 33, "Text"], Cell[CellGroupData[{ Cell[25180, 1151, 60, 1, 30, "Input"], Cell[25243, 1154, 51, 1, 29, "Output"] }, Open ]], Cell[25309, 1158, 70, 1, 68, "Input"], Cell[CellGroupData[{ Cell[25404, 1163, 46, 1, 30, "Input"], Cell[25453, 1166, 326, 9, 25, "Print", CellTags->"Info3380274358-5389826"] }, Open ]], Cell[CellGroupData[{ Cell[25816, 1180, 91, 1, 43, "Input"], Cell[25910, 1183, 103, 2, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26050, 1190, 122, 3, 43, "Input"], Cell[26175, 1195, 113, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26325, 1202, 48, 1, 30, "Input"], Cell[26376, 1205, 367, 9, 25, "Print", CellTags->"Info3380274619-8086285"] }, Open ]], Cell[CellGroupData[{ Cell[26780, 1219, 119, 2, 42, "Input"], Cell[26902, 1223, 78, 1, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27017, 1229, 71, 1, 42, "Input"], Cell[27091, 1232, 48, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27176, 1238, 104, 2, 43, "Input"], Cell[27283, 1242, 90, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27410, 1248, 42, 1, 30, "Input"], Cell[27455, 1251, 310, 9, 25, "Print", CellTags->"Info3380274988-4423410"] }, Open ]], Cell[27780, 1263, 645, 12, 279, "Input"], Cell[CellGroupData[{ Cell[28450, 1279, 103, 2, 42, "Input"], Cell[28556, 1283, 53, 1, 42, "Output"] }, Open ]], Cell[28624, 1287, 271, 10, 34, "Text"], Cell[28898, 1299, 598, 13, 216, "Input"], Cell[29499, 1314, 46, 0, 33, "Text"], Cell[CellGroupData[{ Cell[29570, 1318, 107, 2, 42, "Input"], Cell[29680, 1322, 76, 1, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29793, 1328, 85, 1, 33, "Input"], Cell[29881, 1331, 51, 1, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29969, 1337, 90, 1, 33, "Input"], Cell[30062, 1340, 51, 1, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30150, 1346, 69, 1, 33, "Input"], Cell[30222, 1349, 108, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30367, 1356, 40, 1, 30, "Input"], Cell[30410, 1359, 425, 10, 44, "Print", CellTags->"Info3380275161-4177018"] }, Open ]], Cell[CellGroupData[{ Cell[30872, 1374, 41, 1, 30, "Input"], Cell[30916, 1377, 367, 9, 25, "Print", CellTags->"Info3380275148-1750117"] }, Open ]], Cell[CellGroupData[{ Cell[31320, 1391, 43, 1, 30, "Input"], Cell[31366, 1394, 349, 9, 25, "Print", CellTags->"Info3380275151-8954702"] }, Open ]], Cell[CellGroupData[{ Cell[31752, 1408, 40, 1, 30, "Input"], Cell[31795, 1411, 633, 13, 82, "Print", CellTags->"Info3380280387-5830401"] }, Open ]], Cell[CellGroupData[{ Cell[32465, 1429, 70, 1, 30, "Input"], Cell[32538, 1432, 352, 5, 67, "Output"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)