(* 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[      4571,        173]
NotebookOptionsPosition[      3668,        137]
NotebookOutlinePosition[      4007,        152]
CellTagsIndexPosition[      3964,        149]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["QUIZ 0 ", "Section",
 CellChangeTimes->{
  3.448022271871222*^9, {3.463229520668041*^9, 3.463229523351799*^9}}],

Cell[CellGroupData[{

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

Cell[TextData[{
 "1) What is the 10th decimal place of ",
 Cell[BoxData[
  FormBox[
   SqrtBox["3"], TraditionalForm]]],
 "?"
}], "Text",
 CellChangeTimes->{3.448193116955512*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", "3", "]"}], ",", "30"}], "]"}]], "Input",
 FontSlant->"Italic"],

Cell[BoxData[
 FormBox["1.7320508075688772935274463415058723669428052`30", 
  TraditionalForm]], "Output",
 FontSlant->"Italic"]
}, Open  ]],

Cell["The 10th decimal place is 5.", "Text",
 FontSlant->"Italic"],

Cell[TextData[{
 "2) Which number is larger: ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["123", "122"], TraditionalForm]]],
 " or ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["122", "123"], TraditionalForm]]],
 "?"
}], "Text",
 CellChangeTimes->{{3.4632295479180393`*^9, 3.463229585144356*^9}, {
   3.4632297417477293`*^9, 3.463229760762732*^9}, 3.463229945180925*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"N", "[", 
  RowBox[{"123", "^", "122"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"122", "^", "123"}], "]"}]}], "Input",
 CellChangeTimes->{{3.463229765016199*^9, 3.463229781003418*^9}},
 FontSlant->"Italic"],

Cell[BoxData["9.298729100375381`*^254"], "Output",
 CellChangeTimes->{3.4632297838790216`*^9},
 FontSlant->"Italic"],

Cell[BoxData["4.190435622505269`*^256"], "Output",
 CellChangeTimes->{3.463229783880101*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "So  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["122", "123"], TraditionalForm]]],
 " is the larger number (about 45 times larger!). Much later we will learn \
about inequalities in ",
 StyleBox["Mathematica,",
  FontSlant->"Italic"],
 " and then we would input"
}], "Text",
 CellChangeTimes->{{3.46322979221551*^9, 3.463229819786735*^9}, {
  3.4632298571091003`*^9, 3.463229868003498*^9}, {3.463229924212571*^9, 
  3.463229931428467*^9}, {3.463230025621606*^9, 3.463230057181888*^9}, {
  3.463230096031147*^9, 3.4632301070227547`*^9}, {3.46323015198359*^9, 
  3.463230163503681*^9}, {3.463230505350829*^9, 3.4632305172204657`*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"123", "^", "122"}], " ", "<", " ", 
  RowBox[{"122", "^", "123"}]}]], "Input",
 CellChangeTimes->{{3.463230064504815*^9, 3.463230072174679*^9}},
 FontSlant->"Italic"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.463230073979246*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "to show that  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["122", "123"], TraditionalForm]]],
 " is the larger number."
}], "Text",
 CellChangeTimes->{{3.463230082788512*^9, 3.4632301154229927`*^9}, {
  3.463230166855741*^9, 3.463230188744103*^9}, {3.463230520573118*^9, 
  3.463230520820773*^9}},
 FontSlant->"Italic"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{606, 485},
WindowMargins->{{217, Automatic}, {Automatic, 133}},
FrontEndVersion->"6.0 for Mac OS X x86 (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, 117, 2, 67, "Section"],
Cell[CellGroupData[{
Cell[732, 29, 99, 1, 25, "Subsubsection"],
Cell[834, 32, 179, 7, 31, "Text"],
Cell[CellGroupData[{
Cell[1038, 43, 132, 4, 27, "Input"],
Cell[1173, 49, 128, 3, 27, "Output"]
}, Open  ]],
Cell[1316, 55, 66, 1, 26, "Text"],
Cell[1385, 58, 373, 12, 29, "Text"],
Cell[CellGroupData[{
Cell[1783, 74, 253, 6, 43, "Input"],
Cell[2039, 82, 116, 2, 30, "Output"],
Cell[2158, 86, 114, 2, 30, "Output"]
}, Open  ]],
Cell[2287, 91, 675, 16, 45, "Text"],
Cell[CellGroupData[{
Cell[2987, 111, 201, 5, 27, "Input"],
Cell[3191, 118, 95, 2, 27, "Output"]
}, Open  ]],
Cell[3301, 123, 339, 10, 30, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)