(* 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[     30183,        845]
NotebookOptionsPosition[     26477,        715]
NotebookOutlinePosition[     26987,        737]
CellTagsIndexPosition[     26902,        732]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Mathematica Class 1", "Subtitle",
 CellChangeTimes->{{3.419790292297749*^9, 3.419790297605962*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", " ", "+", " ", "2"}]], "Input",
 CellChangeTimes->{{3.419790271410898*^9, 3.419790289369101*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.41929122451381*^9, 3.419334147226943*^9, 
  3.451144531982065*^9, 3.482514584470433*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", " ", "=", " ", "10"}], ";"}]], "Input"],

Cell[CellGroupData[{

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

Cell[BoxData["30"], "Output",
 CellChangeTimes->{3.4192912246859617`*^9, 3.4193341474330263`*^9, 
  3.451144748648532*^9, 3.482514683884594*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData["1024"], "Output",
 CellChangeTimes->{3.419291224747827*^9, 3.4193341474978323`*^9, 
  3.451144755807102*^9, 3.4825148016688633`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "^", "1000"}]], "Input",
 CellChangeTimes->{{3.451144771247848*^9, 3.4511447874201508`*^9}}],

Cell[BoxData[\
"10715086071862673209484250490600018105614048117055336074437503883703510511249\
361224931983788156958581275946729175531468251871452856923140435984577574698574\
803934567774824230985421074605062371141877954182153046474983581941267398767559\
165543946077062914571196477686542167660429831652624386837205668069376"], \
"Output",
 CellChangeTimes->{
  3.41929122483195*^9, 3.4193341475650167`*^9, {3.451144766548954*^9, 
   3.451144788819991*^9}, 3.482514814223637*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tan", "[", "10.0", "]"}]], "Input",
 CellChangeTimes->{{3.451144865411503*^9, 3.4511448829183397`*^9}, {
  3.451144914874407*^9, 3.451144958742928*^9}}],

Cell[BoxData["0.6483608274590867`"], "Output",
 CellChangeTimes->{{3.451144870131658*^9, 3.451144884240746*^9}, 
   3.451144923819151*^9, 3.451144964705864*^9, 3.482515021709999*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tan", "[", 
  RowBox[{"Pi", "/", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.4825150272731867`*^9, 3.482515041039262*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.482515042936287*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"Plot\\\", \\\"[\\\", RowBox[{StyleBox[\\\"f\
\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"x\\\", \
\\\"TI\\\"], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"min\\\", \\\"TI\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"max\\\", \
\\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\) generates a plot of \
\!\(\*StyleBox[\\\"f\\\", \\\"TI\\\"]\) as a function of \!\(\*StyleBox[\\\"x\
\\\", \\\"TI\\\"]\) from \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"min\\\", \\\"TI\\\"]]\) to \
\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"max\\\", \
\\\"TI\\\"]]\). \\n\!\(\*RowBox[{\\\"Plot\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"f\\\", \
\\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\
\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \
\\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"min\\\", \\\"TI\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"max\\\", \
\\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\) plots several functions \
\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]]\). \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Plot"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.4825150822999763`*^9},
 CellTags->"Info3482489881-9118589"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "*Plot*"}]], "Input",
 CellChangeTimes->{{3.482515168879097*^9, 3.482515192661886*^9}}],

Cell[BoxData[
 DynamicModuleBox[{Typeset`open$$ = True}, 
  PaneSelectorBox[{False->
   RowBox[{
    OpenerBox[Dynamic[Typeset`open$$],
     ImageSize->Small], 
    StyleBox["System`", "InfoHeading"]}], True->GridBox[{
     {
      RowBox[{
       OpenerBox[Dynamic[Typeset`open$$],
        ImageSize->Small], 
       StyleBox["System`", "InfoHeading"]}]},
     {GridBox[{
        {
         ButtonBox["ArrayPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ArrayPlot"},
          ButtonNote->"System`"], 
         ButtonBox["ListLogLinearPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListLogLinearPlot"},
          ButtonNote->"System`"], 
         ButtonBox["MaxPlotPoints",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`MaxPlotPoints"},
          ButtonNote->"System`"], 
         ButtonBox["PlotRangeClipping",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotRangeClipping"},
          ButtonNote->"System`"]},
        {
         ButtonBox["ContourPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ContourPlot"},
          ButtonNote->"System`"], 
         ButtonBox["ListLogLogPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListLogLogPlot"},
          ButtonNote->"System`"], 
         ButtonBox["ParametricPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ParametricPlot"},
          ButtonNote->"System`"], 
         ButtonBox["PlotRangePadding",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotRangePadding"},
          ButtonNote->"System`"]},
        {
         ButtonBox["ContourPlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ContourPlot3D"},
          ButtonNote->"System`"], 
         ButtonBox["ListLogPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListLogPlot"},
          ButtonNote->"System`"], 
         ButtonBox["ParametricPlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ParametricPlot3D"},
          ButtonNote->"System`"], 
         ButtonBox["PlotRegion",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotRegion"},
          ButtonNote->"System`"]},
        {
         ButtonBox["DateListPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`DateListPlot"},
          ButtonNote->"System`"], 
         ButtonBox["ListPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListPlot"},
          ButtonNote->"System`"], 
         ButtonBox["Plot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`Plot"},
          ButtonNote->"System`"], 
         ButtonBox["PlotStyle",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotStyle"},
          ButtonNote->"System`"]},
        {
         ButtonBox["DensityPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`DensityPlot"},
          ButtonNote->"System`"], 
         ButtonBox["ListPlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListPlot3D"},
          ButtonNote->"System`"], 
         ButtonBox["Plot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`Plot3D"},
          ButtonNote->"System`"], 
         ButtonBox["PolarPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PolarPlot"},
          ButtonNote->"System`"]},
        {
         ButtonBox["GraphPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`GraphPlot"},
          ButtonNote->"System`"], 
         ButtonBox["ListPointPlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListPointPlot3D"},
          ButtonNote->"System`"], 
         ButtonBox["Plot3Matrix",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`Plot3Matrix"},
          ButtonNote->"System`"], 
         ButtonBox["RegionPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`RegionPlot"},
          ButtonNote->"System`"]},
        {
         ButtonBox["GraphPlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`GraphPlot3D"},
          ButtonNote->"System`"], 
         ButtonBox["ListPolarPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListPolarPlot"},
          ButtonNote->"System`"], 
         ButtonBox["PlotDivision",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotDivision"},
          ButtonNote->"System`"], 
         ButtonBox["RegionPlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`RegionPlot3D"},
          ButtonNote->"System`"]},
        {
         ButtonBox["LayeredGraphPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`LayeredGraphPlot"},
          ButtonNote->"System`"], 
         ButtonBox["ListSurfacePlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListSurfacePlot3D"},
          ButtonNote->"System`"], 
         ButtonBox["PlotJoined",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotJoined"},
          ButtonNote->"System`"], 
         ButtonBox["ReliefPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ReliefPlot"},
          ButtonNote->"System`"]},
        {
         ButtonBox["ListContourPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListContourPlot"},
          ButtonNote->"System`"], 
         ButtonBox["LogLinearPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`LogLinearPlot"},
          ButtonNote->"System`"], 
         ButtonBox["PlotLabel",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotLabel"},
          ButtonNote->"System`"], 
         ButtonBox["RevolutionPlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`RevolutionPlot3D"},
          ButtonNote->"System`"]},
        {
         ButtonBox["ListContourPlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListContourPlot3D"},
          ButtonNote->"System`"], 
         ButtonBox["LogLogPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`LogLogPlot"},
          ButtonNote->"System`"], 
         ButtonBox["PlotMarkers",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotMarkers"},
          ButtonNote->"System`"], 
         ButtonBox["SphericalPlot3D",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`SphericalPlot3D"},
          ButtonNote->"System`"]},
        {
         ButtonBox["ListDensityPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListDensityPlot"},
          ButtonNote->"System`"], 
         ButtonBox["LogPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`LogPlot"},
          ButtonNote->"System`"], 
         ButtonBox["PlotPoints",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotPoints"},
          ButtonNote->"System`"], 
         ButtonBox["TreePlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`TreePlot"},
          ButtonNote->"System`"]},
        {
         ButtonBox["ListLinePlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`ListLinePlot"},
          ButtonNote->"System`"], 
         ButtonBox["MatrixPlot",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`MatrixPlot"},
          ButtonNote->"System`"], 
         ButtonBox["PlotRange",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3482490010-5142459", "System`PlotRange"},
          ButtonNote->"System`"], ""}
       },
       DefaultBaseStyle->"InfoGrid",
       GridBoxItemSize->{"Columns" -> {{
            Scaled[0.2375]}}}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, 
   Dynamic[Typeset`open$$],
   ImageSize->Automatic]]], "Print", "InfoCell",
 CellChangeTimes->{3.482515211058029*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData["20"], "Output",
 CellChangeTimes->{3.419291226603668*^9, 3.41933414867507*^9, 
  3.451145103624415*^9, 3.482515216827573*^9, 3.482515250075631*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", " ", "*", " ", "5"}]], "Input"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.419291226684977*^9, 3.419334148740382*^9, 
  3.45114512971553*^9, 3.482515259693638*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%6", " ", "*", " ", "5"}]], "Input",
 CellChangeTimes->{{3.451145171210347*^9, 3.451145171707713*^9}, {
  3.482515297472611*^9, 3.48251532847771*^9}}],

Cell[BoxData["3.241804137295434`"], "Output",
 CellChangeTimes->{3.419291226750978*^9, 3.41933414881712*^9, 
  3.4511451732310057`*^9, 3.482515329473225*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"ilim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Invalid integration variable or limit(s) in \\!\\(20\\). \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Integrate/ilim\\\", \
ButtonNote -> \\\"Integrate::ilim\\\"]\\)\"\>"}]], "Message",
 CellChangeTimes->{
  3.419291227119424*^9, 3.419334148927717*^9, 3.45114524266546*^9, {
   3.482515372521317*^9, 3.482515376727944*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"400", 
   RowBox[{"\[DifferentialD]", "20"}]}]}]], "Output",
 CellChangeTimes->{
  3.419291227124703*^9, 3.4193341489307613`*^9, 3.451145242696858*^9, {
   3.482515372555203*^9, 3.482515376730345*^9}}]
}, Open  ]],

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

Cell[CellGroupData[{

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

Cell[BoxData[
 FractionBox[
  SuperscriptBox["x", "3"], "3"]], "Output",
 CellChangeTimes->{3.419291227356409*^9, 3.419334149038045*^9, 
  3.451145262305279*^9, 3.482515412430338*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.451145321784486*^9, 3.451145402545135*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"n", ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "20"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.482504126399715*^9, 3.48250415516083*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\

 CellChangeTimes->{{3.482504144629531*^9, 3.482504155798847*^9}, 
   3.482515794824296*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"n", ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", "10", ",", " ", "20"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.482504126399715*^9, 3.48250417428618*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",",
    "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",
 CellChangeTimes->{3.4825041750672827`*^9, 3.482515797291561*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"1", "/", "n"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "1", ",", " ", "10", ",", " ", "2"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4511455371866837`*^9, 3.451145537591791*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   FractionBox["1", "3"], ",", 
   FractionBox["1", "5"], ",", 
   FractionBox["1", "7"], ",", 
   FractionBox["1", "9"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4192912274435673`*^9, 3.419334149119351*^9, {3.4511455322332487`*^9, 
   3.45114553940704*^9}, 3.4825157997281227`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"RandomInteger", "[", "]"}], ",", " ", 
   RowBox[{"{", "12", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.451145616233638*^9, 3.451145645004262*^9}, {
  3.4511456963102427`*^9, 3.451145699522921*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", 
   ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.419291227543304*^9, 3.419334149202466*^9, {3.451145623003722*^9, 
   3.4511456467063923`*^9}, 3.451145700294737*^9, 3.482515803427425*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n", " ", "=", " ", "200"}]], "Input",
 CellChangeTimes->{{3.451158512141224*^9, 3.451158513425679*^9}}],

Cell[BoxData["200"], "Output",
 CellChangeTimes->{3.451158513806541*^9, 3.482515998076601*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"a", "[", "0", "]"}], " ", "=", " ", "1"}], ";", " ", 
  RowBox[{
   RowBox[{"a", "[", "1", "]"}], " ", "=", " ", "1"}], ";", " ", 
  RowBox[{"Do", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "[", "k", "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"k", "-", "1"}], "]"}], " ", "+", " ", 
      RowBox[{"a", "[", 
       RowBox[{"k", "-", "2"}], "]"}]}]}], ",", "  ", 
    RowBox[{"{", 
     RowBox[{"k", ",", " ", "2", ",", " ", "n"}], "}"}]}], "]"}], ";", " ", 
  RowBox[{"a", "[", "n", "]"}]}]], "Input",
 CellChangeTimes->{{3.451145941398467*^9, 3.4511459631744843`*^9}, {
  3.4511459977209463`*^9, 3.4511459990626097`*^9}, {3.451158531894405*^9, 
  3.451158535036807*^9}}],

Cell[BoxData["453973694165307953197296969697410619233826"], "Output",
 CellChangeTimes->{{3.451158523543964*^9, 3.451158536293806*^9}, 
   3.482516002128275*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", " ", "=", " ", "20"}], ";"}]], "Input",
 CellChangeTimes->{3.45115848369851*^9, 3.4825160983766527`*^9, 
  3.482516149278101*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"a", "[", "0", "]"}], " ", "=", " ", "1"}], ";", " ", 
  RowBox[{
   RowBox[{"a", "[", "1", "]"}], " ", "=", " ", "1"}], ";", " ", 
  RowBox[{"Print", "[", 
   RowBox[{"a", "[", "0", "]"}], "]"}], ";", " ", 
  RowBox[{"Print", "[", 
   RowBox[{"a", "[", "1", "]"}], "]"}], ";", " ", 
  RowBox[{"Do", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "k", "]"}], " ", "=", " ", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"k", "-", "1"}], "]"}], " ", "+", " ", 
       RowBox[{"a", "[", 
        RowBox[{"k", "-", "2"}], "]"}]}]}], ";", " ", 
     RowBox[{"Print", "[", 
      RowBox[{"a", "[", "k", "]"}], "]"}]}], ",", "  ", 
    RowBox[{"{", 
     RowBox[{"k", ",", " ", "2", ",", " ", "n"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.451145941398467*^9, 3.4511459631744843`*^9}, {
  3.4511459977209463`*^9, 3.4511459990626097`*^9}, {3.4511585464952374`*^9, 
  3.4511585875635557`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153438758*^9}],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153440269*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.4825161534701157`*^9}],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.4825161535036173`*^9}],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.4825161535370398`*^9}],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153574245*^9}],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153603298*^9}],

Cell[BoxData["21"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153637992*^9}],

Cell[BoxData["34"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153670882*^9}],

Cell[BoxData["55"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153704266*^9}],

Cell[BoxData["89"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153737521*^9}],

Cell[BoxData["144"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153770308*^9}],

Cell[BoxData["233"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153804*^9}],

Cell[BoxData["377"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153836151*^9}],

Cell[BoxData["610"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153875149*^9}],

Cell[BoxData["987"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153904119*^9}],

Cell[BoxData["1597"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516153937119*^9}],

Cell[BoxData["2584"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.4825161539706573`*^9}],

Cell[BoxData["4181"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516154003413*^9}],

Cell[BoxData["6765"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516154036933*^9}],

Cell[BoxData["10946"], "Print",
 CellChangeTimes->{{3.451145979397653*^9, 3.451146006981839*^9}, 
   3.4511584888849583`*^9, {3.451158588735435*^9, 3.451158605216625*^9}, 
   3.482516088258265*^9, 3.482516118604114*^9, 3.482516154070607*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{668, 552},
WindowMargins->{{136, Automatic}, {Automatic, 6}},
ShowSelection->True,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3482489881-9118589"->{
  Cell[2917, 106, 1724, 30, 58, "Print",
   CellTags->"Info3482489881-9118589"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3482489881-9118589", 26797, 726}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 105, 1, 46, "Subtitle"],
Cell[CellGroupData[{
Cell[720, 28, 125, 2, 27, "Input"],
Cell[848, 32, 138, 2, 27, "Output"]
}, Open  ]],
Cell[1001, 37, 78, 2, 27, "Input"],
Cell[CellGroupData[{
Cell[1104, 43, 49, 1, 27, "Input"],
Cell[1156, 46, 144, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1337, 53, 49, 1, 27, "Input"],
Cell[1389, 56, 146, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1572, 63, 120, 2, 27, "Input"],
Cell[1695, 67, 479, 8, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2211, 80, 176, 3, 27, "Input"],
Cell[2390, 85, 182, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2609, 92, 148, 3, 27, "Input"],
Cell[2760, 97, 70, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2867, 103, 47, 1, 27, "Input"],
Cell[2917, 106, 1724, 30, 58, "Print",
 CellTags->"Info3482489881-9118589"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4678, 141, 115, 2, 27, "Input"],
Cell[4796, 145, 9394, 221, 285, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14227, 371, 60, 1, 27, "Input"],
Cell[14290, 374, 161, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14488, 381, 59, 1, 27, "Input"],
Cell[14550, 384, 140, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14727, 391, 174, 3, 27, "Input"],
Cell[14904, 396, 157, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15098, 403, 114, 3, 27, "Input"],
Cell[15215, 408, 510, 10, 20, "Message"],
Cell[15728, 420, 251, 6, 44, "Output"]
}, Open  ]],
Cell[15994, 429, 58, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[16077, 434, 114, 3, 27, "Input"],
Cell[16194, 439, 183, 4, 48, "Output"]
}, Open  ]],
Cell[16392, 446, 139, 2, 27, "Input"],
Cell[CellGroupData[{
Cell[16556, 452, 206, 5, 27, "Input"],
Cell[16765, 459, 369, 8, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17171, 472, 217, 5, 27, "Input"],
Cell[17391, 479, 247, 5, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17675, 489, 266, 7, 27, "Input"],
Cell[17944, 498, 335, 9, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18316, 512, 264, 6, 27, "Input"],
Cell[18583, 520, 343, 7, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18963, 532, 127, 2, 27, "Input"],
Cell[19093, 536, 94, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19224, 542, 763, 20, 27, "Input"],
Cell[19990, 564, 161, 2, 27, "Output"]
}, Open  ]],
Cell[20166, 569, 168, 4, 27, "Input"],
Cell[CellGroupData[{
Cell[20359, 577, 980, 26, 43, "Input"],
Cell[CellGroupData[{
Cell[21364, 607, 237, 3, 20, "Print"],
Cell[21604, 612, 237, 3, 20, "Print"],
Cell[21844, 617, 239, 3, 20, "Print"],
Cell[22086, 622, 239, 3, 20, "Print"],
Cell[22328, 627, 239, 3, 20, "Print"],
Cell[22570, 632, 237, 3, 20, "Print"],
Cell[22810, 637, 238, 3, 20, "Print"],
Cell[23051, 642, 238, 3, 20, "Print"],
Cell[23292, 647, 238, 3, 20, "Print"],
Cell[23533, 652, 238, 3, 20, "Print"],
Cell[23774, 657, 238, 3, 20, "Print"],
Cell[24015, 662, 239, 3, 20, "Print"],
Cell[24257, 667, 236, 3, 20, "Print"],
Cell[24496, 672, 239, 3, 20, "Print"],
Cell[24738, 677, 239, 3, 20, "Print"],
Cell[24980, 682, 239, 3, 20, "Print"],
Cell[25222, 687, 240, 3, 20, "Print"],
Cell[25465, 692, 242, 3, 20, "Print"],
Cell[25710, 697, 240, 3, 20, "Print"],
Cell[25953, 702, 240, 3, 20, "Print"],
Cell[26196, 707, 241, 3, 20, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)