(* 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[      7014,        261]
NotebookOptionsPosition[      5984,        221]
NotebookOutlinePosition[      6327,        236]
CellTagsIndexPosition[      6284,        233]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["QUIZ 2 ", "Section",
 CellChangeTimes->{
  3.448022271871222*^9, {3.463229520668041*^9, 3.463229523351799*^9}, 
   3.4638488703072443`*^9, 3.464482093640944*^9}],

Cell[CellGroupData[{

Cell["NAME :", "Subsubsection",
 CellChangeTimes->{{3.4632305368071833`*^9, 3.463230541003278*^9}, 
   3.4638488589540462`*^9}],

Cell[TextData[{
 "1) What is the coefficient of ",
 StyleBox[Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "15"], TraditionalForm]], "Input"], "Input"],
 "in the polynomial ",
 StyleBox[Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "-", 
       RowBox[{"3", "y"}]}], ")"}], "11"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "-", "y"}], ")"}], "5"]}], TraditionalForm]],
   "Input"], "Input"],
 "?"
}], "Text",
 CellChangeTimes->{{3.464481588406781*^9, 3.464481589225068*^9}, {
  3.464481634950992*^9, 3.464481759025457*^9}, {3.46448185219349*^9, 
  3.464481853673367*^9}, {3.464481936147793*^9, 3.46448194107285*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", 
       RowBox[{"3", "y"}]}], ")"}], "^", "11"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "-", "y"}], ")"}], "^", "5"}]}], ",", "x", 
   ",", "15"}], "]"}]], "Input",
 CellChangeTimes->{{3.464481762398058*^9, 3.464481794541965*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "10"}], " ", 
   SuperscriptBox["y", "3"]}], "+", 
  RowBox[{"4950", " ", 
   SuperscriptBox["y", "4"]}], "-", 
  RowBox[{"133650", " ", 
   SuperscriptBox["y", "5"]}], "+", 
  RowBox[{"336798", " ", 
   SuperscriptBox["y", "6"]}]}]], "Output",
 CellChangeTimes->{3.46448179695182*^9}]
}, Open  ]],

Cell[TextData[{
 "2) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to expand ",
 StyleBox["exp=", "Input"],
 StyleBox[Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", "x", "+", "1"}], ")"}], "2"], 
   TraditionalForm]], "Input"], "Input"],
 ". "
}], "Text",
 CellChangeTimes->{{3.464481839421587*^9, 3.464481840391436*^9}, {
   3.464481993974324*^9, 3.4644820317288513`*^9}, 3.4644823889708347`*^9, {
   3.4644824336072598`*^9, 3.464482555213382*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"exp", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", "x", "+", "1"}], ")"}], "^", 
   "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"Expand", "[", "exp", "]"}]}], "Input",
 CellChangeTimes->{{3.4644825170437813`*^9, 3.464482527736408*^9}, {
  3.464482592093968*^9, 3.4644826110883408`*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"1", "+", "x", "+", 
    SuperscriptBox["x", "2"]}], ")"}], "2"]], "Output",
 CellChangeTimes->{3.464482528848694*^9, 3.464482612687462*^9}],

Cell[BoxData[
 RowBox[{"1", "+", 
  RowBox[{"2", " ", "x"}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["x", "3"]}], "+", 
  SuperscriptBox["x", "4"]}]], "Output",
 CellChangeTimes->{3.464482528848694*^9, 3.4644826127744293`*^9}]
}, Open  ]],

Cell[TextData[{
 "3) Factor the polynomial ",
 StyleBox[Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", "x", "+", "1"}], ")"}], "2"], 
   TraditionalForm]], "Input"], "Input"],
 StyleBox["+1", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.4644825585521603`*^9, 3.464482580655738*^9}, {
  3.464482618345348*^9, 3.4644826760718937`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{"exp", "+", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.464482679667939*^9, 3.464482684204236*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["x", "2"]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", 
    RowBox[{"2", " ", "x"}], "+", 
    SuperscriptBox["x", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.4644826856309*^9}]
}, Open  ]],

Cell["4) Express the sum below as a quotient of two polynomials.", "Text",
 CellChangeTimes->{{3.464482731063304*^9, 3.464482731978163*^9}, {
  3.4644830245245237`*^9, 3.464483164419574*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["x", 
   RowBox[{
    SuperscriptBox["x", "3"], "+", 
    RowBox[{"5", "x"}], "+", "6"}]], "+", 
  FractionBox["3", 
   RowBox[{"x", "+", "1"}]]}]], "Input",
 CellChangeTimes->{{3.46448279335128*^9, 3.464482827597316*^9}, 
   3.46448300481888*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Together", "[", 
  RowBox[{
   RowBox[{"x", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "3"}], "+", 
      RowBox[{"5", "x"}], "+", "6"}], ")"}]}], "+", 
   RowBox[{"3", "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.464482835064136*^9, 3.464482887293069*^9}, 
   3.46448300674408*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"18", "-", 
   RowBox[{"2", " ", "x"}], "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["x", "2"]}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "x"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"6", "-", "x", "+", 
     SuperscriptBox["x", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.4644828900274982`*^9, 3.464483008591387*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{848, 527},
WindowMargins->{{Automatic, 256}, {Automatic, 204}},
FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 167, 3, 67, "Section"],
Cell[CellGroupData[{
Cell[782, 30, 127, 2, 25, "Subsubsection"],
Cell[912, 34, 713, 22, 33, "Text"],
Cell[CellGroupData[{
Cell[1650, 60, 395, 13, 27, "Input"],
Cell[2048, 75, 336, 11, 30, "Output"]
}, Open  ]],
Cell[2399, 89, 528, 17, 33, "Text"],
Cell[CellGroupData[{
Cell[2952, 110, 346, 9, 43, "Input"],
Cell[3301, 121, 198, 5, 35, "Output"],
Cell[3502, 128, 289, 8, 30, "Output"]
}, Open  ]],
Cell[3806, 139, 403, 13, 33, "Text"],
Cell[CellGroupData[{
Cell[4234, 156, 150, 3, 27, "Input"],
Cell[4387, 161, 271, 9, 33, "Output"]
}, Open  ]],
Cell[4673, 173, 191, 2, 26, "Text"],
Cell[4867, 177, 285, 9, 48, "Input"],
Cell[CellGroupData[{
Cell[5177, 190, 384, 12, 27, "Input"],
Cell[5564, 204, 380, 12, 54, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)