(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     36097,       1369]
NotebookOptionsPosition[     29083,       1118]
NotebookOutlinePosition[     29426,       1133]
CellTagsIndexPosition[     29383,       1130]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 StyleBox[
  RowBox[{"3", "+", "2"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{
  3.621651449961952*^9, {3.621652666381794*^9, 3.621652667052595*^9}}],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{{3.621659057363248*^9, 3.6216590815120897`*^9}, 
   3.6560569008814044`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.621652790902213*^9, 3.621652792150215*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"2", "+", " ", 
   RowBox[{"3", "*", "5"}]}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621652815799857*^9, 3.621652844535107*^9}}],

Cell[BoxData["17"], "Output",
 CellChangeTimes->{3.6216591538182173`*^9, 3.6560569221886234`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"17", "/", "3"}], "+", 
   RowBox[{"23", "/", "11"}]}]}]], "Input",
 CellChangeTimes->{{3.656056962202912*^9, 3.656056972555504*^9}}],

Cell[BoxData[
 FractionBox["256", "33"]], "Output",
 CellChangeTimes->{3.6560569800289316`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"13", "/", "3"}], "+", "8.3"}]], "Input",
 CellChangeTimes->{{3.656057012490788*^9, 3.6560570387212887`*^9}}],

Cell[BoxData["12.633333333333333`"], "Output",
 CellChangeTimes->{3.6560570610615664`*^9}]
}, Open  ]],

Cell[BoxData["12.633333333333333`"], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["1.5",
  FontSize->36]], "Input",
 CellChangeTimes->{{3.621652939302873*^9, 3.6216529424540787`*^9}}],

Cell[BoxData["1.5`"], "Output",
 CellChangeTimes->{3.621659290958058*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"3", "/", "2"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621652972842932*^9, 3.6216529743093348`*^9}, {
  3.621659322953714*^9, 3.621659324763317*^9}, {3.6216593882710285`*^9, 
  3.6216593887546296`*^9}}],

Cell[BoxData[
 FractionBox["3", "2"]], "Output",
 CellChangeTimes->{3.6216592818320417`*^9, 3.621659334185734*^9, 
  3.621659390143032*^9, 3.6560571595812016`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"N", "[", "%", "]"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.62165317086968*^9, 3.6216531865789075`*^9}, 
   3.6216532188553643`*^9}],

Cell[BoxData["1.5`"], "Output",
 CellChangeTimes->{3.6216594980806217`*^9, 3.6560572517024703`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"5", "!"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621653423012923*^9, 3.6216534251657267`*^9}}],

Cell[BoxData["120"], "Output",
 CellChangeTimes->{3.6216595855821753`*^9, 3.6560572928128214`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"12", "^", "3"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.62165347858022*^9, 3.6216534843834305`*^9}}],

Cell[BoxData["1728"], "Output",
 CellChangeTimes->{3.6216596018374043`*^9, 3.6560572681454105`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"12", "*", "12", "*", "12"}]], "Input",
 CellChangeTimes->{{3.6216596119462214`*^9, 3.6216596168446302`*^9}}],

Cell[BoxData["1728"], "Output",
 CellChangeTimes->{3.621659617858632*^9, 3.656057277330936*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Sqrt", "[", "121", "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621653577172394*^9, 3.6216535829444036`*^9}, {
  3.6216596914595613`*^9, 3.6216597134244003`*^9}}],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{3.6216596795567403`*^9, 3.6560573082577047`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"10", "/", "3"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621653621928872*^9, 3.621653623332875*^9}}],

Cell[BoxData[
 FractionBox["10", "3"]], "Output",
 CellChangeTimes->{3.621659773936906*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"N", "[", "%", "]"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input"],

Cell[BoxData["3.3333333333333335`"], "Output",
 CellChangeTimes->{3.6216597928753395`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"10", "/", "3"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216598493318386`*^9, 3.6216598619990606`*^9}}],

Cell[BoxData[
 FractionBox["10", "3"]], "Output",
 CellChangeTimes->{{3.621659851937043*^9, 3.621659863153463*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Quotient", "[", 
   RowBox[{"100", ",", "3"}], "]"}],
  FontSize->24]], "Input"],

Cell[BoxData["33"], "Output",
 CellChangeTimes->{3.621659950482416*^9, 3.656057363272852*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Mod", "[", 
   RowBox[{"100", ",", "3"}], "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621653767617528*^9, 3.6216537746999407`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Sqrt", "[", "2", "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621653881203328*^9, 3.6216538849629345`*^9}}],

Cell[BoxData[
 SqrtBox["2"]], "Output",
 CellChangeTimes->{3.6216599692804494`*^9, 3.6560573926235304`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"N", "[", 
   RowBox[{"%", ",", 
    StyleBox[
     RowBox[{"3", "0"}]]}], "]"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216539038545675`*^9, 3.6216539551942577`*^9}, {
  3.6216599851612773`*^9, 3.621660040198174*^9}, {3.6560574250933876`*^9, 
  3.656057436812058*^9}}],

Cell[BoxData["1.4142135623730950488016887242096980785696718753769480731767`30.\
"], "Output",
 CellChangeTimes->{{3.6216599947864943`*^9, 3.6216600028829083`*^9}, 
   3.6216600543473988`*^9, 3.656057442163364*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["Pi",
   FontFamily->"Courier New",
   FontSize->24], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6216549503141813`*^9, 3.6216549527321854`*^9}}],

Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{3.6216601047666874`*^9, 3.6560575035078726`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["E",
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{3.6216549702666163`*^9}],

Cell[BoxData["\[ExponentialE]"], "Output",
 CellChangeTimes->{3.6216601272463264`*^9, 3.6560575253801236`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["I",
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{3.6216549873018465`*^9}],

Cell[BoxData["\[ImaginaryI]"], "Output",
 CellChangeTimes->{3.6216601314895344`*^9, 3.6560575411250243`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Sqrt", "[", 
   RowBox[{"-", "2"}], "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{3.6216550483203535`*^9}],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", 
  SqrtBox["2"]}]], "Output",
 CellChangeTimes->{3.6216601468711615`*^9, 3.656057553069708*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"N", "[", 
   RowBox[{"%15", ",", "100"}], "]"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216550789900074`*^9, 3.6216551226388845`*^9}, {
  3.6216601698812017`*^9, 3.6216601893500357`*^9}, {3.6216602261349*^9, 
  3.6216602358069177`*^9}, {3.621660295437022*^9, 3.621660346495912*^9}, {
  3.656057586966646*^9, 3.656057610751007*^9}}],

Cell[BoxData["3.\
141592653589793238462643383279502884197169399375105820974944592307816406286208\
998628034825342117067982148086513282306647093844609550946`100."], "Output",
 CellChangeTimes->{{3.621660296841025*^9, 3.621660347026313*^9}, {
  3.656057602191517*^9, 3.6560576127561216`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"x", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", "2"}], ")"}], "^", "2"}]}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216553567358956`*^9, 3.6216554090281878`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", 
      RowBox[{"(", 
       RowBox[{"x", "+", "2"}], ")"}]}]}], ")"}], "^", "2"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216554501186595`*^9, 3.6216554612882795`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", 
      RowBox[{"y", " ", 
       RowBox[{"(", 
        RowBox[{"x", "+", "2"}], ")"}]}]}], ")"}], "^", "2"}], "]"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621655503158753*^9, 3.6216555142815723`*^9}, {
   3.6216605085177965`*^9, 3.6216605091417975`*^9}, 3.621660699415332*^9}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "2"], "+", 
  RowBox[{"4", " ", "x", " ", "y"}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["x", "2"], " ", "y"}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["y", "2"]}], "+", 
  RowBox[{"4", " ", "x", " ", 
   SuperscriptBox["y", "2"]}], "+", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", 
   SuperscriptBox["y", "2"]}]}]], "Output",
 CellChangeTimes->{3.6216605228074217`*^9, 3.621660706279344*^9, 
  3.6560577284537387`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Factor", "[", 
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"4", " ", "x", " ", "y"}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["x", "2"], " ", "y"}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["y", "2"]}], "+", 
    RowBox[{"4", " ", "x", " ", 
     SuperscriptBox["y", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["x", "2"], " ", 
     SuperscriptBox["y", "2"]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.656057838952059*^9, 3.6560578610063205`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{"a", "^", "3"}], "+", 
    RowBox[{"b", "^", "3"}], "+", 
    RowBox[{"c", "^", "3"}], "-", 
    RowBox[{"3", "a", " ", "b", " ", "c"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6560578971593885`*^9, 3.656057924482951*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"a", "+", "b", "+", "c"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    RowBox[{"a", " ", "b"}], "+", 
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"a", " ", "c"}], "-", 
    RowBox[{"b", " ", "c"}], "+", 
    SuperscriptBox["c", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.6560579775719876`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.656057999098219*^9, 3.656058004782544*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["a", "3"], "+", 
  SuperscriptBox["b", "3"], "-", 
  RowBox[{"3", " ", "a", " ", "b", " ", "c"}], "+", 
  SuperscriptBox["c", "3"]}]], "Output",
 CellChangeTimes->{3.6560580188173466`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Expand", "[", 
   RowBox[{"%22", "-", "%23"}], "]"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{
  3.6216555542800426`*^9, {3.621660513463005*^9, 3.6216605139934063`*^9}, {
   3.6216605477518654`*^9, 3.621660548563067*^9}, 3.6216606014315596`*^9, {
   3.6216607715498586`*^9, 3.621660785543083*^9}, {3.656057792254388*^9, 
   3.6560578066912136`*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.6216605501854696`*^9, 3.6216606030071626`*^9, 
  3.6216607867598853`*^9, 3.6560578183878827`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Sqrt", "[", 
   RowBox[{"66", "-", "2"}], "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621655701871902*^9, 3.621655702012302*^9}}],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{3.6216607267153797`*^9, 3.6560580926205683`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"ArcSin", "[", 
   RowBox[{"Sin", "[", 
    RowBox[{"Pi", "/", "2"}], "]"}], "]"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621655738001565*^9, 3.6216557660660143`*^9}}],

Cell[BoxData[
 FractionBox["\[Pi]", "2"]], "Output",
 CellChangeTimes->{3.6216608538712034`*^9, 3.6560581630435963`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Log", "[", "E", "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621655898510247*^9, 3.6216559021294537`*^9}}],

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

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], "  ", 
   RowBox[{
    StyleBox[
     RowBox[{"(", "*"}]], "\:0441\:043f\:0438\:0441\:044a\:043a", 
    StyleBox[
     RowBox[{"*", ")"}]]}]}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621655984871999*^9, 3.6216560277408743`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", 
      RowBox[{"(", 
       RowBox[{"x", "+", "2"}], ")"}]}]}], ")"}], "^", "2"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216560705317497`*^9, 3.6216560929957886`*^9}, {
  3.6560583956078978`*^9, 3.656058400499178*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"{", 
   RowBox[{"1", ",", "2"}], "}"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216561655515165`*^9, 3.6216561698103237`*^9}, {
  3.656058481613817*^9, 3.65605848568705*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Sin", 
   RowBox[{"(", "Pi", ")"}]}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216562397608466`*^9, 3.621656244518855*^9}, {
  3.621661363400298*^9, 3.6216613658651023`*^9}}],

Cell[BoxData[
 RowBox[{"\[Pi]", " ", "Sin"}]], "Output",
 CellChangeTimes->{3.621661293230375*^9, 3.6560585122175674`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Sin", "[", "Pi", "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621656279906517*^9, 3.621656282730122*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.621661379047126*^9, 3.6560585290125284`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 StyleBox[
  RowBox[{"123", "/", 
   RowBox[{"Sqrt", "[", "768", "]"}]}],
  FontFamily->"Courier New",
  FontSize->24], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"Cos", "[", 
   RowBox[{"Pi", "/", "12"}], "]"}],
  FontFamily->"Courier New",
  FontSize->24], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"Log", "[", "2", "]"}],
  FontFamily->"Courier New",
  FontSize->24]}], "Input",
 CellChangeTimes->{{3.6216563489990387`*^9, 3.6216564272663765`*^9}, 
   3.656058735401333*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"41", " ", 
   SqrtBox["3"]}], "16"]], "Output",
 CellChangeTimes->{3.621661479948103*^9, 3.6560585701548815`*^9, 
  3.6560587014613914`*^9, 3.656058737397447*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   SqrtBox["3"]}], 
  RowBox[{"2", " ", 
   SqrtBox["2"]}]]], "Output",
 CellChangeTimes->{3.621661479948103*^9, 3.6560585701548815`*^9, 
  3.6560587014613914`*^9, 3.656058737400447*^9}],

Cell[BoxData[
 RowBox[{"Log", "[", "2", "]"}]], "Output",
 CellChangeTimes->{3.621661479948103*^9, 3.6560585701548815`*^9, 
  3.6560587014613914`*^9, 3.6560587374024477`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{"123", "/", 
    RowBox[{"Sqrt", "[", "768", "]"}]}], " ", "//", "N"}],
  FontSize->24], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"Pi", "/", "12"}], "]"}], " ", "//", "N"}],
  FontSize->24], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"Log", "[", "2", "]"}], " ", "//", "N"}],
  FontSize->24]}], "Input",
 CellChangeTimes->{{3.6216565202747393`*^9, 3.62165654319118*^9}}],

Cell[BoxData["4.438380194395248`"], "Output",
 CellChangeTimes->{3.621661628647564*^9, 3.6560587981769238`*^9}],

Cell[BoxData["0.9659258262890682`"], "Output",
 CellChangeTimes->{3.621661628647564*^9, 3.6560587981809235`*^9}],

Cell[BoxData["0.6931471805599453`"], "Output",
 CellChangeTimes->{3.621661628647564*^9, 3.6560587981979246`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 StyleBox[
  RowBox[{"N", "[", 
   RowBox[{"123", "/", 
    RowBox[{"Sqrt", "[", "768", "]"}]}], "]"}],
  FontSize->24], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"Cos", "[", 
     RowBox[{"Pi", "/", "12"}], "]"}], "]"}], " "}],
  FontSize->24], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"N", "[", 
   RowBox[{"Log", "[", "2", "]"}], " ", "]"}],
  FontSize->24]}], "Input",
 CellChangeTimes->{{3.621656569446026*^9, 3.621656616636109*^9}}],

Cell[BoxData["4.438380194395248`"], "Output",
 CellChangeTimes->{3.621661636946779*^9, 3.6560588327218995`*^9}],

Cell[BoxData["0.9659258262890682`"], "Output",
 CellChangeTimes->{3.621661636946779*^9, 3.6560588327278996`*^9}],

Cell[BoxData["0.6931471805599453`"], "Output",
 CellChangeTimes->{3.621661636946779*^9, 3.6560588327328997`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 StyleBox[
  RowBox[{"123.", "/", 
   RowBox[{"Sqrt", "[", "768", "]"}]}],
  FontFamily->"Courier New",
  FontSize->24], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"Cos", "[", 
   RowBox[{"Pi", "/", "12."}], "]"}],
  FontFamily->"Courier New",
  FontSize->24], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"Log", "[", "2.", "]"}],
  FontFamily->"Courier New",
  FontSize->24]}], "Input",
 CellChangeTimes->{{3.621656659364584*^9, 3.621656669676202*^9}, 
   3.656058847541747*^9}],

Cell[BoxData["4.438380194395249`"], "Output",
 CellChangeTimes->{3.6216616812508564`*^9, 3.6560589629973507`*^9}],

Cell[BoxData["0.9659258262890683`"], "Output",
 CellChangeTimes->{3.6216616812508564`*^9, 3.656058963021352*^9}],

Cell[BoxData["0.6931471805599453`"], "Output",
 CellChangeTimes->{3.6216616812508564`*^9, 3.656058963023352*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "//", "Log"}]], "Input",
 CellChangeTimes->{{3.6216616894720707`*^9, 3.621661704869298*^9}}],

Cell[BoxData[
 RowBox[{"Log", "[", "2", "]"}]], "Output",
 CellChangeTimes->{3.6216617060236998`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "5"}], ")"}], "^", "3"}], "  ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "x"}], "-", "1"}], ")"}], "^", "2"}]}], "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216568091404467`*^9, 3.621656868841752*^9}}],

Cell[BoxData[
 RowBox[{"125", "-", 
  RowBox[{"425", " ", "x"}], "+", 
  RowBox[{"215", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"241", " ", 
   SuperscriptBox["x", "3"]}], "+", 
  RowBox[{"56", " ", 
   SuperscriptBox["x", "4"]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["x", "5"]}]}]], "Output",
 CellChangeTimes->{3.621661762495799*^9, 3.6560590160293837`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Factor", "[", "%", "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216569248302503`*^9, 3.621656941023079*^9}, 
   3.6560590389806967`*^9}],

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

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{"x", "^", "3"}], "+", 
    RowBox[{"2", 
     RowBox[{"x", "^", "2"}]}], "-", 
    RowBox[{"5", "x"}], "-", "6"}], "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216569905999656`*^9, 3.6216570114416027`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"3", "+", "x"}], ")"}]}]], "Output",
 CellChangeTimes->{3.6216618184218974`*^9, 3.656059071308546*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Together", " ", "[", 
   RowBox[{"x", "+", 
    RowBox[{"2", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", "1"}], ")"}]}]}], "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.62165704981767*^9, 3.621657098458555*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Simplify", " ", "[", 
   RowBox[{"x", "+", 
    RowBox[{"2", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", "1"}], ")"}]}]}], "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621657165569873*^9, 3.621657175990691*^9}}],

Cell[BoxData[
 RowBox[{"x", "+", 
  FractionBox["2", 
   RowBox[{"1", "+", 
    SuperscriptBox["x", "2"]}]]}]], "Output",
 CellChangeTimes->{3.6216618782646027`*^9, 3.6560591815228496`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Expand", " ", "[", 
   RowBox[{"x", "+", 
    RowBox[{"2", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", "1"}], ")"}]}]}], "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.62165720949955*^9, 3.621657211480754*^9}}],

Cell[BoxData[
 RowBox[{"x", "+", 
  FractionBox["2", 
   RowBox[{"1", "+", 
    SuperscriptBox["x", "2"]}]]}]], "Output",
 CellChangeTimes->{3.621661939853511*^9, 3.656059215027766*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Apart", "[", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "3"}], "-", "1"}], ")"}]}], "]"}],
  FontFamily->"Courier New",
  FontSize->24]], "Input",
 CellChangeTimes->{{3.621657328324959*^9, 3.621657360726216*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Together", "[", "%", "]"}]}]], "Input",
 CellChangeTimes->{{3.6560593068810196`*^9, 3.656059318909708*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Simplify", " ", "[", 
   RowBox[{
    RowBox[{"x", 
     RowBox[{"(", 
      RowBox[{"3", "-", "x"}], ")"}]}], "-", 
    RowBox[{"5", 
     RowBox[{"x", "^", "2"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "x"}], "+", "3"}], ")"}]}]}], "]"}],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.6216574153419113`*^9, 3.6216574634523964`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"x", 
    RowBox[{"(", 
     RowBox[{"3", "-", "x"}], ")"}]}], "-", 
   RowBox[{"5", 
    RowBox[{"x", "^", "2"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "1"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "x"}], "+", "3"}], ")"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.62166209307698*^9, 3.6216621013761945`*^9}}],

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

Cell[BoxData[
 RowBox[{"Factor", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.62166218998435*^9, 3.621662191887553*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"1", "+", "x"}], 
    RowBox[{"1", "+", 
     SuperscriptBox["x", "2"]}]], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
 CellChangeTimes->{{3.6560595440855875`*^9, 3.656059619975928*^9}, {
  3.6560596907439756`*^9, 3.656059696819323*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ArcTan", "[", "x", "]"}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "+", 
     SuperscriptBox["x", "2"]}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.6560596363128624`*^9, 3.6560596559879875`*^9}, 
   3.6560597010035625`*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox["\[Pi]\[Infinity]\[ImaginaryI]",
  FontFamily->"Courier New",
  FontSize->36]], "Input",
 CellChangeTimes->{{3.656059820967424*^9, 3.6560598233415594`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"n", "=", "1"}], "\[Infinity]"], 
  FractionBox["1", 
   SuperscriptBox["n", "2"]]}]], "Input",
 CellChangeTimes->{{3.656060017261651*^9, 3.6560600617591963`*^9}}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[Pi]", "2"], "6"]], "Output",
 CellChangeTimes->{3.656060095377119*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"n", "=", "1"}], "\[Infinity]"], 
  FractionBox["1", "n"]}]], "Input",
 CellChangeTimes->{{3.6560601278639774`*^9, 3.6560601285640173`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Sum", "::", "div"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Sum does not converge. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Sum/div\\\", ButtonNote -> \
\\\"Sum::div\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.656060156099592*^9}],

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"n", "=", "1"}], "\[Infinity]"], 
  FractionBox["1", "n"]}]], "Output",
 CellChangeTimes->{3.6560601561005926`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Limit", "[", 
   RowBox[{
    FractionBox[
     RowBox[{"Sin", "[", "x", "]"}], "x"], ",", 
    RowBox[{"x", "\[Rule]", "0"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.656060266153887*^9, 3.656060351158749*^9}}],

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

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "\:0442\:0435\:043a\:0441\:0442", " ", "-", " ", 
   "\:043a\:043e\:043c\:0435\:043d\:0442\:0430\:0440"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.6560606110936165`*^9, 3.6560606510189*^9}}]
},
WindowSize->{709, 629},
WindowMargins->{{10, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 198, 6, 42, "Input"],
Cell[780, 30, 124, 2, 30, "Output"]
}, Open  ]],
Cell[919, 35, 92, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[1036, 40, 202, 6, 42, "Input"],
Cell[1241, 48, 97, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1375, 54, 202, 5, 52, "Input"],
Cell[1580, 61, 95, 2, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1712, 68, 143, 3, 31, "Input"],
Cell[1858, 73, 90, 1, 30, "Output"]
}, Open  ]],
Cell[1963, 77, 45, 0, 31, "Input"],
Cell[CellGroupData[{
Cell[2033, 81, 125, 3, 56, "Input"],
Cell[2161, 86, 73, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2271, 92, 277, 7, 42, "Input"],
Cell[2551, 101, 163, 3, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2751, 109, 207, 6, 42, "Input"],
Cell[2961, 117, 99, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3097, 123, 170, 5, 42, "Input"],
Cell[3270, 130, 98, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3405, 136, 175, 5, 42, "Input"],
Cell[3583, 143, 99, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3719, 149, 132, 2, 31, "Input"],
Cell[3854, 153, 95, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3986, 159, 209, 5, 42, "Input"],
Cell[4198, 166, 97, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4332, 172, 174, 5, 42, "Input"],
Cell[4509, 179, 91, 2, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4637, 186, 112, 4, 42, "Input"],
Cell[4752, 192, 90, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4879, 198, 178, 5, 42, "Input"],
Cell[5060, 205, 115, 2, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5212, 212, 116, 4, 42, "Input"],
Cell[5331, 218, 93, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5461, 224, 179, 5, 42, "Input"],
Cell[5643, 231, 96, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5776, 237, 154, 4, 42, "Input"],
Cell[5933, 243, 107, 2, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6077, 250, 344, 10, 42, "Input"],
Cell[6424, 262, 213, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6674, 270, 193, 5, 57, "Input"],
Cell[6870, 277, 100, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7007, 283, 128, 4, 42, "Input"],
Cell[7138, 289, 110, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7285, 295, 128, 4, 42, "Input"],
Cell[7416, 301, 108, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7561, 307, 149, 5, 42, "Input"],
Cell[7713, 314, 140, 3, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7890, 322, 407, 9, 42, "Input"],
Cell[8300, 333, 290, 4, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8627, 342, 252, 8, 42, "Input"],
Cell[8882, 352, 188, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9107, 362, 307, 10, 42, "Input"],
Cell[9417, 374, 240, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9694, 386, 420, 12, 42, "Input"],
Cell[10117, 400, 477, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10631, 419, 543, 15, 54, "Input"],
Cell[11177, 436, 200, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11414, 447, 322, 8, 52, "Input"],
Cell[11739, 457, 391, 12, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12167, 474, 125, 2, 31, "Input"],
Cell[12295, 478, 229, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12561, 489, 420, 10, 42, "Input"],
Cell[12984, 501, 147, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13168, 508, 177, 5, 42, "Input"],
Cell[13348, 515, 96, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13481, 521, 242, 7, 42, "Input"],
Cell[13726, 530, 120, 2, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13883, 537, 153, 4, 42, "Input"],
Cell[14039, 543, 93, 1, 30, "Output"]
}, Open  ]],
Cell[14147, 547, 366, 12, 42, "Input"],
Cell[CellGroupData[{
Cell[14538, 563, 329, 10, 42, "Input"],
Cell[14870, 575, 220, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15127, 587, 249, 7, 42, "Input"],
Cell[15379, 596, 114, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15530, 604, 219, 6, 42, "Input"],
Cell[15752, 612, 122, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15911, 619, 152, 4, 42, "Input"],
Cell[16066, 625, 94, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16197, 631, 497, 16, 87, "Input"],
Cell[16697, 649, 201, 5, 50, "Output"],
Cell[16901, 656, 235, 7, 55, "Output"],
Cell[17139, 665, 174, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17350, 673, 473, 15, 87, "Input"],
Cell[17826, 690, 111, 1, 30, "Output"],
Cell[17940, 693, 112, 1, 30, "Output"],
Cell[18055, 696, 112, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18204, 702, 495, 16, 87, "Input"],
Cell[18702, 720, 111, 1, 30, "Output"],
Cell[18816, 723, 112, 1, 30, "Output"],
Cell[18931, 726, 112, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19080, 732, 496, 16, 87, "Input"],
Cell[19579, 750, 113, 1, 30, "Output"],
Cell[19695, 753, 112, 1, 30, "Output"],
Cell[19810, 756, 112, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19959, 762, 120, 2, 31, "Input"],
Cell[20082, 766, 101, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20220, 773, 365, 12, 42, "Input"],
Cell[20588, 787, 380, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21005, 803, 184, 5, 42, "Input"],
Cell[21192, 810, 308, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21537, 825, 293, 9, 42, "Input"],
Cell[21833, 836, 287, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22157, 850, 290, 9, 42, "Input"],
Cell[22450, 861, 222, 6, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22709, 872, 291, 9, 42, "Input"],
Cell[23003, 883, 189, 5, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23229, 893, 288, 9, 42, "Input"],
Cell[23520, 904, 185, 5, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23742, 914, 284, 9, 42, "Input"],
Cell[24029, 925, 414, 14, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24480, 944, 165, 3, 52, "Input"],
Cell[24648, 949, 271, 9, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24956, 963, 467, 16, 42, "Input"],
Cell[25426, 981, 193, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25656, 992, 416, 14, 31, "Input"],
Cell[26075, 1008, 193, 6, 30, "Output"]
}, Open  ]],
Cell[26283, 1017, 124, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[26432, 1023, 324, 9, 47, "Input"],
Cell[26759, 1034, 309, 9, 47, "Output"]
}, Open  ]],
Cell[27083, 1046, 180, 4, 56, "Input"],
Cell[CellGroupData[{
Cell[27288, 1054, 230, 6, 53, "Input"],
Cell[27521, 1062, 118, 3, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27676, 1070, 207, 5, 53, "Input"],
Cell[27886, 1077, 387, 9, 21, "Message"],
Cell[28276, 1088, 182, 5, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28495, 1098, 253, 7, 47, "Input"],
Cell[28751, 1107, 70, 1, 30, "Output"]
}, Open  ]],
Cell[28836, 1111, 243, 5, 31, "Input"]
}
]
*)

(* End of internal cache information *)