(* 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[     22233,        596]
NotebookOptionsPosition[     20805,        543]
NotebookOutlinePosition[     21243,        560]
CellTagsIndexPosition[     21200,        557]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Quadratic Functions",
 FontColor->RGBColor[1, 0, 0]]], "Title",
 CellChangeTimes->{{3.36744381497962*^9, 3.36744381936024*^9}, {
  3.3985484211787663`*^9, 3.3985484244905643`*^9}, {3.398549321972816*^9, 
  3.3985493249851913`*^9}, {3.505609180047258*^9, 3.5056091813755283`*^9}, {
  3.6925554051386213`*^9, 3.69255541254068*^9}},
 TextAlignment->Center,
 FontSize->36,
 FontColor->RGBColor[1, 0, 1]],

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

Cell[CellGroupData[{

Cell["All together...", "Section",
 CellChangeTimes->{{3.398549340234913*^9, 3.3985493447257442`*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox["x", "2"]}], " ", "+", " ", 
      RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}], ",", " ", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"StringForm", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"y\",
FontSlant->\"Italic\"]\) = `` \!\(\*SuperscriptBox[\(x\), \(2\)]\) + `` \!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\) + ``\>\"", ",", " ", "a", ",", " ", "b", ",", " ", 
          "c"}], "]"}], ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "22"}]}], "]"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "6", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "4"}], "}"}], ",", " ", 
     RowBox[{"-", "10"}], ",", " ", "12", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "6"}], "}"}], ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "6", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.36744266821184*^9, 3.36744278904045*^9}, {
   3.36744283805008*^9, 3.36744283969096*^9}, {3.36744291783065*^9, 
   3.36744291955723*^9}, {3.36744302551189*^9, 3.3674430278361*^9}, {
   3.36744345189102*^9, 3.36744347608041*^9}, {3.3674436532699*^9, 
   3.36744369446559*^9}, 3.3674437457774*^9, {3.397775238125824*^9, 
   3.397775242088925*^9}, {3.398548138521337*^9, 3.398548245421455*^9}, {
   3.398548297970518*^9, 3.398548298226535*^9}, {3.398548391709251*^9, 
   3.398548397454818*^9}, {3.505432114842832*^9, 3.5054321175765944`*^9}, {
   3.505432275360156*^9, 3.50543228176799*^9}, {3.505432327908247*^9, 
   3.505432388057061*^9}, {3.505432426006777*^9, 3.505432449375935*^9}, 
   3.505432723752083*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["One at a time...", "Section",
 CellChangeTimes->{{3.398548453113966*^9, 3.39854845690728*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Changing ",
 StyleBox["c",
  FontSlant->"Italic"]
}], "Subsection",
 CellChangeTimes->{{3.398548569821271*^9, 3.398548572916684*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "2"], " ", "+", " ", 
      RowBox[{"4", " ", "x"}], " ", "+", " ", "c"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}], ",", " ", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"StringForm", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"y\",
FontSlant->\"Italic\"]\) = \!\(\*SuperscriptBox[\(x\), \(2\)]\) + 4\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\) + ``\>\"", ",", "  ", "c"}], "]"}], ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "22"}]}], "]"}]}], ",", " ", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", " ", 
          RowBox[{"PointSize", "[", "Medium", "]"}], ",", " ", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", " ", 
             RowBox[{"p", "-", "4"}]}], "}"}], "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"p", ",", " ", 
          RowBox[{"-", "5"}], ",", " ", "c", ",", ".5"}], "}"}]}], "]"}]}]}], 
    "]"}], ",", "  ", 
   RowBox[{"{", 
    RowBox[{"c", ",", " ", 
     RowBox[{"-", "5"}], ",", "6", " ", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.36744266821184*^9, 3.36744278904045*^9}, {
   3.36744283805008*^9, 3.36744283969096*^9}, {3.36744291783065*^9, 
   3.36744291955723*^9}, {3.36744302551189*^9, 3.3674430278361*^9}, {
   3.36744345189102*^9, 3.36744347608041*^9}, {3.3674436532699*^9, 
   3.36744369446559*^9}, 3.3674437457774*^9, {3.397775238125824*^9, 
   3.397775242088925*^9}, {3.398548138521337*^9, 3.398548245421455*^9}, {
   3.398548297970518*^9, 3.398548298226535*^9}, {3.398548391709251*^9, 
   3.398548397454818*^9}, {3.398548494025915*^9, 3.398548543745962*^9}, {
   3.398548934372658*^9, 3.398549006369505*^9}, {3.3985491409911957`*^9, 
   3.3985491660476923`*^9}, {3.398549265260787*^9, 3.3985492668248587`*^9}, {
   3.505432135128561*^9, 3.5054321366906424`*^9}, 3.5054322688617783`*^9, {
   3.505432517735125*^9, 3.505432548655658*^9}, 3.50543271609324*^9, {
   3.50560977248999*^9, 3.505609774105172*^9}, {3.537742855219653*^9, 
   3.537742858635717*^9}, {3.537742907865863*^9, 3.537742995302443*^9}, {
   3.537743053550652*^9, 3.537743076692667*^9}, {3.537743166897573*^9, 
   3.537743167593018*^9}, {3.537743201139526*^9, 3.537743214078103*^9}, {
   3.5377432805688057`*^9, 3.537743295344172*^9}, {3.537743823827745*^9, 
   3.537743861197307*^9}, {3.537744175194314*^9, 3.537744200333397*^9}, {
   3.5377443753206167`*^9, 3.537744375791975*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Changing ",
 StyleBox["b",
  FontSlant->"Italic"]
}], "Subsection",
 CellChangeTimes->{{3.39854857797945*^9, 3.3985485853059473`*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "2"], " ", "+", " ", 
      RowBox[{"b", " ", "x"}], " ", "+", " ", "6"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}], ",", " ", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"StringForm", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"y\",
FontSlant->\"Italic\"]\) = \!\(\*SuperscriptBox[\(x\), \(2\)]\) + `` \!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\) + 6\>\"", ",", " ", "b"}], "]"}], ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "22"}]}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", " ", 
          RowBox[{"PointSize", "[", "Medium", "]"}], ",", " ", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "p"}], "/", "2"}], ",", " ", 
             RowBox[{"6", "-", 
              RowBox[{
               SuperscriptBox["p", "2"], "/", "4"}]}]}], "}"}], "]"}]}], 
         "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"p", ",", " ", 
          RowBox[{"-", "10"}], ",", "b", ",", " ", ".2"}], "}"}]}], "]"}]}]}],
     "]"}], ",", "  ", 
   RowBox[{"{", 
    RowBox[{"b", ",", " ", 
     RowBox[{"-", "10"}], ",", " ", "12", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.36744266821184*^9, 3.36744278904045*^9}, {
   3.36744283805008*^9, 3.36744283969096*^9}, {3.36744291783065*^9, 
   3.36744291955723*^9}, {3.36744302551189*^9, 3.3674430278361*^9}, {
   3.36744345189102*^9, 3.36744347608041*^9}, {3.3674436532699*^9, 
   3.36744369446559*^9}, 3.3674437457774*^9, {3.397775238125824*^9, 
   3.397775242088925*^9}, {3.398548138521337*^9, 3.398548245421455*^9}, {
   3.398548297970518*^9, 3.398548298226535*^9}, {3.398548391709251*^9, 
   3.398548397454818*^9}, {3.398548774026565*^9, 3.39854880167986*^9}, {
   3.505432148724927*^9, 3.505432184842746*^9}, {3.505432218393177*^9, 
   3.505432221424361*^9}, {3.505432589145781*^9, 3.5054326257639313`*^9}, 
   3.505432708573757*^9, {3.5056098170681667`*^9, 3.505609821113699*^9}, {
   3.5377438965350723`*^9, 3.537743898833254*^9}, {3.537743959611664*^9, 
   3.5377439777157593`*^9}, {3.5377440759191513`*^9, 3.537744156591866*^9}, {
   3.53774436480311*^9, 3.537744366411693*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Changing ",
 StyleBox["a",
  FontSlant->"Italic"]
}], "Subsection",
 CellChangeTimes->{{3.3985486162693043`*^9, 3.398548619387024*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox["x", "2"]}], " ", "+", " ", 
      RowBox[{"4", " ", "x"}], " ", "+", " ", "6"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}], ",", " ", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", "  ", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"StringForm", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"y\",
FontSlant->\"Italic\"]\) = `` \!\(\*SuperscriptBox[\(x\), \(2\)]\) + 4\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\) + 6\>\"", ",", " ", "a"}], "]"}], ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "22"}]}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", " ", 
          RowBox[{"PointSize", "[", "Medium", "]"}], ",", " ", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], "/", "p"}], ",", " ", 
             RowBox[{"6", "-", 
              FractionBox["4", "p"]}]}], "}"}], "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"p", ",", " ", 
          RowBox[{"-", "5"}], ",", " ", "a", ",", ".1"}], "}"}]}], "]"}]}]}], 
    "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"a", ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "6", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.36744266821184*^9, 3.36744278904045*^9}, {
   3.36744283805008*^9, 3.36744283969096*^9}, {3.36744291783065*^9, 
   3.36744291955723*^9}, {3.36744302551189*^9, 3.3674430278361*^9}, {
   3.36744345189102*^9, 3.36744347608041*^9}, {3.3674436532699*^9, 
   3.36744369446559*^9}, 3.3674437457774*^9, {3.397775238125824*^9, 
   3.397775242088925*^9}, {3.398548138521337*^9, 3.398548245421455*^9}, {
   3.398548297970518*^9, 3.398548298226535*^9}, {3.398548391709251*^9, 
   3.398548397454818*^9}, {3.3985486464613953`*^9, 3.398548690765197*^9}, {
   3.398548834889392*^9, 3.398548871042344*^9}, 3.505432260233903*^9, {
   3.505432649111249*^9, 3.505432699157226*^9}, {3.50560984309984*^9, 
   3.505609846626213*^9}, {3.537744221616521*^9, 3.537744223970581*^9}, {
   3.537744292473199*^9, 3.537744349827694*^9}, {3.537744384757556*^9, 
   3.537744396587471*^9}, {3.5377446366473637`*^9, 3.537744637062387*^9}, {
   3.537744692730049*^9, 3.53774470530399*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Answers...?", "Section",
 CellChangeTimes->{{3.505609632109316*^9, 3.505609638026688*^9}, 
   3.5056096886998672`*^9}],

Cell["\<\
Here are the same animations as the three above with the graph of the path of \
the vertices.\
\>", "Text",
 CellChangeTimes->{{3.5056096508675623`*^9, 3.5056097037790833`*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Changing ",
 StyleBox["c",
  FontSlant->"Italic"]
}], "Subsection",
 CellChangeTimes->{{3.398548569821271*^9, 3.398548572916684*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "2"], " ", "+", " ", 
      RowBox[{"4", " ", "x"}], " ", "+", " ", "c"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}], ",", " ", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"StringForm", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"y\",
FontSlant->\"Italic\"]\) = \!\(\*SuperscriptBox[\(x\), \(2\)]\) + 4\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\) + ``\>\"", ",", "  ", "c"}], "]"}], ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "22"}]}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Magenta", ",", " ", "Thick", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", " ", 
             RowBox[{"-", "10"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", " ", "10"}], "}"}]}], "}"}], "]"}]}], 
       "}"}]}]}], "]"}], ",", "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "6"}], "}"}], ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "6", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.36744266821184*^9, 3.36744278904045*^9}, {
   3.36744283805008*^9, 3.36744283969096*^9}, {3.36744291783065*^9, 
   3.36744291955723*^9}, {3.36744302551189*^9, 3.3674430278361*^9}, {
   3.36744345189102*^9, 3.36744347608041*^9}, {3.3674436532699*^9, 
   3.36744369446559*^9}, 3.3674437457774*^9, {3.397775238125824*^9, 
   3.397775242088925*^9}, {3.398548138521337*^9, 3.398548245421455*^9}, {
   3.398548297970518*^9, 3.398548298226535*^9}, {3.398548391709251*^9, 
   3.398548397454818*^9}, {3.398548494025915*^9, 3.398548543745962*^9}, {
   3.398548934372658*^9, 3.398549006369505*^9}, {3.3985491409911957`*^9, 
   3.3985491660476923`*^9}, {3.398549265260787*^9, 3.3985492668248587`*^9}, {
   3.505432135128561*^9, 3.5054321366906424`*^9}, 3.5054322688617783`*^9, {
   3.505432517735125*^9, 3.505432548655658*^9}, 3.50543271609324*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Changing ",
 StyleBox["b",
  FontSlant->"Italic"]
}], "Subsection",
 CellChangeTimes->{{3.39854857797945*^9, 3.3985485853059473`*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SuperscriptBox["x", "2"], " ", "+", " ", 
        RowBox[{"b", " ", "x"}], " ", "+", " ", "6"}], ",", " ", 
       RowBox[{"6", "-", 
        SuperscriptBox["x", "2"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}], ",", " ", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"StringForm", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"y\",
FontSlant->\"Italic\"]\) = \!\(\*SuperscriptBox[\(x\), \(2\)]\) + `` \!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\) + 6\>\"", ",", " ", "b"}], "]"}], ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "22"}]}], "]"}]}]}], "]"}], ",", "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "4"}], "}"}], ",", " ", 
     RowBox[{"-", "10"}], ",", " ", "12", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.36744266821184*^9, 3.36744278904045*^9}, {
   3.36744283805008*^9, 3.36744283969096*^9}, {3.36744291783065*^9, 
   3.36744291955723*^9}, {3.36744302551189*^9, 3.3674430278361*^9}, {
   3.36744345189102*^9, 3.36744347608041*^9}, {3.3674436532699*^9, 
   3.36744369446559*^9}, 3.3674437457774*^9, {3.397775238125824*^9, 
   3.397775242088925*^9}, {3.398548138521337*^9, 3.398548245421455*^9}, {
   3.398548297970518*^9, 3.398548298226535*^9}, {3.398548391709251*^9, 
   3.398548397454818*^9}, {3.398548774026565*^9, 3.39854880167986*^9}, {
   3.505432148724927*^9, 3.505432184842746*^9}, {3.505432218393177*^9, 
   3.505432221424361*^9}, {3.505432589145781*^9, 3.5054326257639313`*^9}, 
   3.505432708573757*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Changing ",
 StyleBox["a",
  FontSlant->"Italic"]
}], "Subsection",
 CellChangeTimes->{{3.3985486162693043`*^9, 3.398548619387024*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"a", " ", 
         SuperscriptBox["x", "2"]}], " ", "+", " ", 
        RowBox[{"4", " ", "x"}], " ", "+", " ", "6"}], ",", 
       RowBox[{"6", "+", 
        RowBox[{"2", "x"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}], ",", " ", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", "  ", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"StringForm", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"y\",
FontSlant->\"Italic\"]\) = `` \!\(\*SuperscriptBox[\(x\), \(2\)]\) + 4\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\) + 6\>\"", ",", " ", "a"}], "]"}], ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "22"}]}], "]"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "6", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.36744266821184*^9, 3.36744278904045*^9}, {
   3.36744283805008*^9, 3.36744283969096*^9}, {3.36744291783065*^9, 
   3.36744291955723*^9}, {3.36744302551189*^9, 3.3674430278361*^9}, {
   3.36744345189102*^9, 3.36744347608041*^9}, {3.3674436532699*^9, 
   3.36744369446559*^9}, 3.3674437457774*^9, {3.397775238125824*^9, 
   3.397775242088925*^9}, {3.398548138521337*^9, 3.398548245421455*^9}, {
   3.398548297970518*^9, 3.398548298226535*^9}, {3.398548391709251*^9, 
   3.398548397454818*^9}, {3.3985486464613953`*^9, 3.398548690765197*^9}, {
   3.398548834889392*^9, 3.398548871042344*^9}, 3.505432260233903*^9, {
   3.505432649111249*^9, 3.505432699157226*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{775, 703},
WindowMargins->{{276, Automatic}, {Automatic, 44}},
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, 423, 8, 83, "Title"],
Cell[993, 32, 153, 4, 49, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1171, 40, 102, 1, 64, "Section"],
Cell[1276, 43, 2497, 58, 123, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3810, 106, 100, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[3935, 111, 151, 5, 44, "Subsection"],
Cell[4089, 118, 3061, 65, 125, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7187, 188, 152, 5, 44, "Subsection"],
Cell[7342, 195, 2818, 64, 125, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10197, 264, 153, 5, 44, "Subsection"],
Cell[10353, 271, 2789, 63, 154, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13191, 340, 124, 2, 64, "Section"],
Cell[13318, 344, 187, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[13530, 352, 151, 5, 44, "Subsection"],
Cell[13684, 359, 2550, 59, 125, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16271, 423, 152, 5, 44, "Subsection"],
Cell[16426, 430, 2086, 48, 102, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18549, 483, 153, 5, 44, "Subsection"],
Cell[18705, 490, 2060, 48, 102, "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)