(* 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[      3209,         92]
NotebookOptionsPosition[      2864,         75]
NotebookOutlinePosition[      3206,         90]
CellTagsIndexPosition[      3163,         87]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ExpandAll", "[", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", "+", " ", "b"}], ")"}], "n"], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "15", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4110688736214285`*^9, 3.411068927779304*^9}, {
   3.4110692086431665`*^9, 3.411069270221712*^9}, 3.4110693287658944`*^9, {
   3.4110693828736973`*^9, 3.411069388371603*^9}, {3.411069418685192*^9, 
   3.411069450460883*^9}, {3.4110696300591326`*^9, 3.4110697516039057`*^9}, {
   3.411069785793067*^9, 3.41106980628253*^9}},
 CellID->316073939],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 15, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 1, 15, 1}}, Typeset`size$$ = {
    367.125, {41., 12.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$2616$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$2616$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ExpandAll[($CellContext`a + $CellContext`b)^$CellContext`n$$], 
      "Specifications" :> {{$CellContext`n$$, 1, 15, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{412., {65., 70.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.411069671328475*^9, 3.411069752595331*^9}, {
  3.411069795356819*^9, 3.4110698067031345`*^9}}]
}, Open  ]]
},
WindowSize->{619, 750},
WindowMargins->{{294, Automatic}, {37, Automatic}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 647, 14, 31, "Input",
 CellID->316073939],
Cell[1240, 39, 1608, 33, 152, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)