(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     10729,        322]
NotebookOptionsPosition[      9525,        281]
NotebookOutlinePosition[      9960,        298]
CellTagsIndexPosition[      9917,        295]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Sequences and Series", "Title",
 CellChangeTimes->{{3.44193004827881*^9, 3.4419300539808683`*^9}},
 TextAlignment->Center],

Cell["\<\
by Ruth Dover
Illinois Mathematics and Science Academy\
\>", "Subsubtitle",
 CellChangeTimes->{{3.692639887716036*^9, 3.69263990205936*^9}}],

Cell[CellGroupData[{

Cell["Sequences", "Section",
 CellChangeTimes->{{3.441930113599506*^9, 3.441930117509397*^9}}],

Cell[TextData[{
 "For your sequence, enter ",
 StyleBox["kstart",
  FontSlant->"Italic"],
 " and ",
 StyleBox["kmax",
  FontSlant->"Italic"],
 ".  Then enter the formula for your sequence as a function.    An example is \
given, but these may be edited.  "
}], "Text",
 CellChangeTimes->{{3.44193020127006*^9, 3.44193021748499*^9}, {
  3.441930248148944*^9, 3.441930305132812*^9}, {3.441930427685493*^9, 
  3.441930452621368*^9}, {3.4419304963972807`*^9, 3.441930500653187*^9}, {
  3.441930663285474*^9, 3.441930673957308*^9}, {3.461362562861408*^9, 
  3.461362564215403*^9}, {3.461362791101318*^9, 3.4613627925252733`*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"a", ",", " ", "kstart", ",", " ", "kmax"}], "]"}]], "Input",
 CellChangeTimes->{{3.441931547752344*^9, 3.44193155663798*^9}, {
  3.461361524353569*^9, 3.461361527437861*^9}, {3.461362779958435*^9, 
  3.461362782350004*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"kstart", "=", "1"}], ";", "  ", 
  RowBox[{"kmax", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", "[", "k_", "]"}], ":=", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], 
    RowBox[{"k", "+", "1"}]], "k"]}]}], "Input",
 CellChangeTimes->{{3.441930318913352*^9, 3.441930336745954*^9}, {
  3.441930371853684*^9, 3.441930392678238*^9}, {3.441930468517988*^9, 
  3.4419305083180017`*^9}, {3.44193068279036*^9, 3.4419306851982307`*^9}, {
  3.441931807720071*^9, 3.441931813622445*^9}, {3.4419318911600637`*^9, 
  3.441931894750402*^9}, {3.441932044623913*^9, 3.441932046934786*^9}, {
  3.461361531918826*^9, 3.46136153548668*^9}, {3.461362785823105*^9, 
  3.46136278737457*^9}}],

Cell["Show the values of the terms.", "Text",
 CellChangeTimes->{{3.44193053043954*^9, 3.441930547796893*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", " ", 
       RowBox[{"N", "[", 
        RowBox[{"a", "[", "k", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"k", ",", "kstart", ",", " ", "kmax"}], "}"}]}], "]"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<\!\(\*
StyleBox[\"k\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)(\!\(\*
StyleBox[\"k\",
FontSlant->\"Italic\"]\))\>\""}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.441930550392768*^9, 3.441930597062119*^9}, {
   3.4419306903103724`*^9, 3.441930696926139*^9}, 3.4419311886466837`*^9, {
   3.441931817630926*^9, 3.44193182379843*^9}, {3.441931919640257*^9, 
   3.441931950638587*^9}, {3.461361545798759*^9, 3.461361547918614*^9}, {
   3.4613626352482862`*^9, 3.461362635751902*^9}, {3.461362772159792*^9, 
   3.4613627748233747`*^9}}],

Cell["Show the plot of the sequence.  (Watch the scale!)", "Text",
 CellChangeTimes->{{3.441930514444893*^9, 3.4419305225089073`*^9}, {
  3.461362727958398*^9, 3.461362737541127*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"a", "[", "k", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"k", ",", " ", "kstart", ",", " ", "kmax"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "Medium", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.441930609851344*^9, 3.441930653014057*^9}, {
  3.4419307001582413`*^9, 3.44193072385415*^9}, {3.4613625384799767`*^9, 
  3.461362549582762*^9}, {3.461362764639069*^9, 3.461362766966661*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"a", ",", " ", "kstart", ",", " ", "kmax"}], "]"}]], "Input",
 CellChangeTimes->{{3.441930762068211*^9, 3.441930763748275*^9}, {
  3.441930894805932*^9, 3.441930899621911*^9}, {3.4419320638952723`*^9, 
  3.441932066166038*^9}, {3.4613627430380173`*^9, 3.461362744918017*^9}, {
  3.692639989869495*^9, 3.692639991657372*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sequences and Series", "Section",
 CellChangeTimes->{{3.441930773573086*^9, 3.4419307776529493`*^9}}],

Cell[TextData[{
 "These commands allow you to enter the values for ",
 StyleBox["k ",
  FontSlant->"Italic"],
 "and  the sequence ",
 StyleBox["b",
  FontSlant->"Italic"],
 " of your choice.  The commands will show values of the sequence itself and \
the values of the sequence of partial sums.  Then ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will plot both."
}], "Text",
 CellChangeTimes->{{3.441930822437107*^9, 3.441930829700968*^9}, {
  3.441930874381027*^9, 3.44193102425307*^9}, {3.441931056453867*^9, 
  3.441931057623543*^9}, {3.441931245894719*^9, 3.44193124683749*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"b", ",", " ", "kstart", ",", " ", "kmax"}], "]"}]], "Input",
 CellChangeTimes->{{3.461362988595764*^9, 3.461362997822073*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"kstart", "=", "1"}], ";", " ", 
  RowBox[{"kmax", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b", "[", "k_", "]"}], ":=", 
  FractionBox["1", "k"]}]}], "Input",
 CellChangeTimes->{{3.441931073722641*^9, 3.4419311132462683`*^9}, {
  3.461362751406733*^9, 3.46136275963054*^9}}],

Cell["Show the values of the terms of the original sequence.", "Text",
 CellChangeTimes->{{3.441931126948987*^9, 3.441931172430167*^9}, {
  3.44193139275741*^9, 3.441931394149078*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", " ", 
       RowBox[{"N", "[", 
        RowBox[{"b", "[", "k", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"k", ",", " ", "kstart", ",", " ", "kmax"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<\!\(\*
StyleBox[\"k\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)(\!\(\*
StyleBox[\"k\",
FontSlant->\"Italic\"]\))\>\""}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4419312012797413`*^9, 3.441931202014765*^9}, 
   3.461363056849182*^9}],

Cell["\<\
Show the values of the terms of the sequence and the sequence of partial sums.\
\>", "Text"],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", 
       RowBox[{"N", "[", 
        RowBox[{"b", "[", "n", "]"}], "]"}], ",", " ", 
       RowBox[{"Total", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"N", "[", 
           RowBox[{"b", "[", "k", "]"}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"k", ",", " ", "kstart", ",", "n"}], "}"}]}], "]"}], 
        "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "kstart", ",", " ", "kmax"}], "}"}]}], "]"}], 
   ",", " ", "\n", " ", 
   RowBox[{"TableHeadings", " ", "->", " ", 
    RowBox[{"{", 
     RowBox[{"None", ",", 
      RowBox[{"{", 
       RowBox[{"\"\<\!\(\*
StyleBox[\"n\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "\"\<\!\(\*
StyleBox[\"b\",
FontSlant->\"Italic\"]\)(\!\(\*
StyleBox[\"n\",
FontSlant->\"Italic\"]\))\>\"", ",", " ", "\"\<\!\(\*
StyleBox[\"S\",
FontSlant->\"Italic\"]\)(\!\(\*
StyleBox[\"n\",
FontSlant->\"Italic\"]\))\>\""}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"TableSpacing", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "3"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.441931298592824*^9, 3.441931317727449*^9}, {
  3.4419313554717903`*^9, 3.441931377143841*^9}, {3.441932097449121*^9, 
  3.4419321108952837`*^9}}],

Cell["Now plot both together.", "Text",
 CellChangeTimes->{{3.441931430029068*^9, 3.441931438613061*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"b", "[", "n", "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"n", ",", " ", "kstart", ",", " ", "kmax"}], "}"}]}], "]"}], 
    ",", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Total", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"b", "[", "k", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"k", ",", " ", "kstart", ",", " ", "n"}], "}"}]}], "]"}], 
       "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"n", ",", " ", "kstart", ",", " ", "kmax"}], "}"}]}], "]"}]}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.4419321495976343`*^9, 3.441932332070854*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{830, 794},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 128, 2, 92, "Title"],
Cell[698, 26, 150, 4, 49, "Subsubtitle"],
Cell[CellGroupData[{
Cell[873, 34, 94, 1, 64, "Section"],
Cell[970, 37, 624, 14, 49, "Text"],
Cell[1597, 53, 272, 5, 32, "Input"],
Cell[1872, 60, 769, 17, 75, "Input"],
Cell[2644, 79, 110, 1, 30, "Text"],
Cell[2757, 82, 1058, 27, 32, "Input"],
Cell[3818, 111, 183, 2, 30, "Text"],
Cell[4004, 115, 557, 13, 32, "Input"],
Cell[4564, 130, 372, 6, 32, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4973, 141, 107, 1, 64, "Section"],
Cell[5083, 144, 592, 15, 68, "Text"],
Cell[5678, 161, 175, 3, 32, "Input"],
Cell[5856, 166, 333, 8, 70, "Input"],
Cell[6192, 176, 184, 2, 30, "Text"],
Cell[6379, 180, 770, 24, 32, "Input"],
Cell[7152, 206, 102, 2, 30, "Text"],
Cell[7257, 210, 1375, 40, 54, "Input"],
Cell[8635, 252, 105, 1, 30, "Text"],
Cell[8743, 255, 754, 22, 54, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)