(* 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[    133117,       2929]
NotebookOptionsPosition[    129228,       2819]
NotebookOutlinePosition[    129826,       2841]
CellTagsIndexPosition[    129783,       2838]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Exercices - Logarithmes et exponentielles", "Section"],

Cell[CellGroupData[{

Cell["R\[EAcute]soudre", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "1", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Log", "[", "x", "]"}], "^", "2"}], "-", 
      RowBox[{"Log", "[", "x", "]"}], "-", "2"}], "\[Equal]", "0"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "2", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Log", "[", "x", "]"}], "^", "4"}], "-", 
      RowBox[{"3", 
       RowBox[{
        RowBox[{"Log", "[", "x", "]"}], "^", "2"}]}], "+", "2"}], "\[Equal]", 
     "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "3", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"2", "x"}], "-", "3"}], "]"}], "+", 
      RowBox[{"Log", "[", 
       RowBox[{"x", "-", "4"}], "]"}]}], "\[Equal]", 
     RowBox[{"2", 
      RowBox[{"Log", "[", "5", "]"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "4", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"2", "x"}], "-", "3"}], "]"}], "-", 
      RowBox[{"Log", "[", 
       RowBox[{"x", "-", "4"}], "]"}]}], "\[Equal]", 
     RowBox[{"2", 
      RowBox[{"Log", "[", "5", "]"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "5", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"x", "-", "3"}], "]"}]}], "+", 
      RowBox[{"Log", "[", 
       RowBox[{"x", "-", "1"}], "]"}]}], "\[Equal]", 
     RowBox[{"Log", "[", 
      RowBox[{
       RowBox[{"2", "x"}], "-", "2"}], "]"}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "6", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"20", 
       RowBox[{
        RowBox[{"Log", "[", "x", "]"}], "^", "2"}]}], "-", 
      RowBox[{"16", 
       RowBox[{"Log", "[", "x", "]"}]}], "+", "3"}], "\[Equal]", "0"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "7", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{"HoldForm", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"4", "^", "x"}], "-", 
       RowBox[{"2", "^", 
        RowBox[{"(", 
         RowBox[{"x", "+", "3"}], ")"}]}], "-", "128"}], "\[Equal]", "0"}], 
     "]"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "8", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"3", "^", "x"}], "+", 
      RowBox[{"3", "^", 
       RowBox[{"(", 
        RowBox[{"3", "-", "x"}], ")"}]}]}], "\[Equal]", "12"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "9", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"x", ",", 
        RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}], "]"}], "\[Equal]", "3"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "10", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"HoldForm", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"6", ",", "x"}], "]"}], "]"}], "+", 
      RowBox[{"HoldForm", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"x", ",", "6"}], "]"}], "]"}]}], "\[Equal]", 
     RowBox[{"13", "/", "6"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "11", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"HoldForm", "[", 
        RowBox[{"Log", "[", 
         RowBox[{"4", ",", 
          RowBox[{"x", "+", "1"}]}], "]"}], "]"}]}], "+", 
      RowBox[{"HoldForm", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"4", ",", 
         RowBox[{"x", "+", "3"}]}], "]"}], "]"}]}], "\[Equal]", 
     RowBox[{
      RowBox[{"1", "/", "2"}], "+", 
      RowBox[{"HoldForm", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"4", ",", 
         RowBox[{
          RowBox[{"6", "x"}], "+", "2"}]}], "]"}], "]"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "12", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"2", ",", 
        RowBox[{"x", "-", "1"}]}], "]"}], "]"}], "\[Equal]", 
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"4", ",", "3"}], "]"}], "]"}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "13", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"7", ",", 
        RowBox[{
         RowBox[{"3", "x"}], "-", "1"}]}], "]"}], "]"}], "\[Equal]", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "14", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"3", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"4", ",", "x"}], "]"}]}], "]"}], "]"}], "\[Equal]", 
     RowBox[{"-", "1"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "15", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"2", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"x", ",", "81"}], "]"}]}], "]"}], "]"}], "\[Equal]", "2"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "16", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{
       RowBox[{"\[ExponentialE]", "^", "x"}], "-", 
       RowBox[{"4", 
        RowBox[{"\[ExponentialE]", "^", 
         RowBox[{"(", 
          RowBox[{"-", "x"}], ")"}]}]}], "-", "3"}], "]"}], "\[Equal]", "0"}],
     ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "17", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"x", "-", "1"}], ",", 
        RowBox[{"5", "x"}]}], "]"}], "]"}], "\[Equal]", "2"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "18", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"2", "x"}], ")"}]}], "-", 
      RowBox[{"10", "^", "x"}]}], "\[Equal]", "5"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "19", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"81", "^", "x"}], "+", 
      RowBox[{"81", "^", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}]}]}], "\[Equal]", "30"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"equation", "[", "20", "]"}], "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"HoldForm", "[", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"x", "+", "1"}]}], "]"}], "]"}], "-", "2"}], "==", 
      RowBox[{"HoldForm", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"5", ",", "0.2"}], "]"}], "]"}]}], ")"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{
  "(*", " ", "in\[EAcute]quations", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "21", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"1", "/", "3"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"x", "^", "2"}]}], ")"}], "/", "x"}]}], "]"}], "]"}], "<", 
     
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"3", ",", "x"}], "]"}], "]"}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "22", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", "-", 
      RowBox[{
       RowBox[{"Log", "[", "x", "]"}], "^", "2"}]}], "\[LessEqual]", "0"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "23", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", "x", "]"}], "-", 
      RowBox[{"Log", "[", "2", "]"}]}], "\[LessEqual]", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       RowBox[{"3", "x"}]}], "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "24", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", "x", "]"}], "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Log", "[", "x", "]"}]}], ")"}]}], "\[LessEqual]", "0"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "25", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"2", 
       RowBox[{
        RowBox[{"Log", "[", "x", "]"}], "^", "2"}]}], "-", 
      RowBox[{"Log", "[", "x", "]"}], "-", "1"}], "\[GreaterEqual]", "0"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "26", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], "+", 
      RowBox[{"2", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", "x"}], "]"}]}], "-", "3"}], ">", "0"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "27", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"2", "x"}], "+", "1"}], "]"}], "+", 
      RowBox[{"1", "/", 
       RowBox[{"Exp", "[", "1", "]"}]}]}], ">", "0"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "28", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"HoldForm", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "E"}], ")"}], "^", "x"}], "]"}], "-", 
      RowBox[{
       RowBox[{"Exp", "[", "1", "]"}], "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", "x"}], "-", "1"}], ")"}]}]}], "\[LessEqual]", "0"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "29", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", "1"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"x", "+", "1"}], ")"}]}], "]"}], "+", 
      RowBox[{"Log", "[", "x", "]"}]}], "<", "0"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"equation", "[", "30", "]"}], "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"Exp", "[", "x", "]"}], "+", "2"}], "]"}], "\[GreaterEqual]", 
      
      RowBox[{"Log", "[", 
       RowBox[{"4", "-", 
        RowBox[{"Exp", "[", "x", "]"}]}], "]"}]}], ")"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "31", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"1", "/", "5"}], ",", 
        RowBox[{
         RowBox[{"3", "x"}], "-", "1"}]}], "]"}], "]"}], "\[LessEqual]", 
     "5"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"equation", "[", "32", "]"}], "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"HoldForm", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"7", ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "x"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", "x"}], ")"}]}]}], "]"}], "]"}], 
      "\[GreaterEqual]", "0"}], ")"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "33", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"1", "/", "5"}], ",", "5"}], "]"}], "]"}], "\[Equal]", "x"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"equation", "[", "34", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"HoldForm", "[", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"x", "-", "4"}], ",", 
        RowBox[{"4", "x"}]}], "]"}], "]"}], "\[Equal]", "2"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"equation", "[", "35", "]"}], "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"5", "^", "x"}], "]"}], "+", 
       RowBox[{"2", "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"5", "^", "x"}], "]"}]}]}], "\[Equal]", "3"}], ")"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"solution", "[", "i", "]"}], "=", 
     RowBox[{"Equalogexp", "[", 
      RowBox[{
       RowBox[{"equation", "[", "i", "]"}], ",", "x"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "35"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"i", ",", "\"\<) \>\"", ",", 
      RowBox[{"equation", "[", "i", "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "35"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.400996094909513*^9, 3.400996227040826*^9}, {
   3.40099625989989*^9, 3.400996375295587*^9}, {3.400996493778323*^9, 
   3.4009966000553303`*^9}, {3.400996659849041*^9, 3.400996844069242*^9}, {
   3.401001340247322*^9, 3.40100140912451*^9}, {3.401003957047418*^9, 
   3.40100420607705*^9}, {3.401004268090128*^9, 3.401004274911681*^9}, {
   3.4010043654252033`*^9, 3.401004550160302*^9}, {3.4010048694983*^9, 
   3.401004870063387*^9}, {3.401004916855474*^9, 3.401004944938087*^9}, {
   3.401456275888104*^9, 3.401456284399152*^9}, {3.401456336610272*^9, 
   3.4014563414063396`*^9}, {3.401457139072253*^9, 3.401457143294979*^9}, {
   3.4014582272241783`*^9, 3.401458261133471*^9}, {3.401460182664299*^9, 
   3.401460187334437*^9}, {3.401461569337195*^9, 3.4014615750866137`*^9}, {
   3.401461941034811*^9, 3.401461941647331*^9}, {3.401461973257268*^9, 
   3.401461980927698*^9}, {3.4014620425282*^9, 3.401462049918765*^9}, {
   3.401462088823434*^9, 3.40146209497114*^9}, {3.4014622669652433`*^9, 
   3.401462269814796*^9}, 3.401462304216469*^9, {3.401613884885683*^9, 
   3.401613887337717*^9}, {3.430909485132495*^9, 3.430909503821406*^9}, {
   3.430909688822587*^9, 3.430909691060569*^9}, {3.4947372303148117`*^9, 
   3.49473724170243*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      FormBox[
       RowBox[{
        TemplateBox[{"ln","2"},
         "Superscript"], "\[InvisibleApplication]", 
        RowBox[{"(", "x", ")"}]}],
       TraditionalForm], "-", 
      FormBox[
       RowBox[{"ln", "(", "x", ")"}],
       TraditionalForm], "-", "2"}], "\[LongEqual]", "0"}]}],
   SequenceForm[
   1, ") ", -2 - Log[$CellContext`x] + Log[$CellContext`x]^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244582389*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      FormBox[
       RowBox[{
        TemplateBox[{"ln","4"},
         "Superscript"], "\[InvisibleApplication]", 
        RowBox[{"(", "x", ")"}]}],
       TraditionalForm], "-", 
      RowBox[{"3", " ", 
       FormBox[
        RowBox[{
         TemplateBox[{"ln","2"},
          "Superscript"], "\[InvisibleApplication]", 
         RowBox[{"(", "x", ")"}]}],
        TraditionalForm]}], "+", "2"}], "\[LongEqual]", "0"}]}],
   SequenceForm[
   2, ") ", 2 - 3 Log[$CellContext`x]^2 + Log[$CellContext`x]^4 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244605205*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      FormBox[
       RowBox[{"ln", "(", 
        RowBox[{"x", "-", "4"}], ")"}],
       TraditionalForm], "+", 
      FormBox[
       RowBox[{"ln", "(", 
        RowBox[{
         RowBox[{"2", " ", "x"}], "-", "3"}], ")"}],
       TraditionalForm]}], "\[LongEqual]", 
     RowBox[{"2", " ", 
      FormBox[
       RowBox[{"ln", "(", "5", ")"}],
       TraditionalForm]}]}]}],
   SequenceForm[
   3, ") ", Log[-4 + $CellContext`x] + Log[-3 + 2 $CellContext`x] == 2 Log[5]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244644415*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      FormBox[
       RowBox[{"ln", "(", 
        RowBox[{
         RowBox[{"2", " ", "x"}], "-", "3"}], ")"}],
       TraditionalForm], "-", 
      FormBox[
       RowBox[{"ln", "(", 
        RowBox[{"x", "-", "4"}], ")"}],
       TraditionalForm]}], "\[LongEqual]", 
     RowBox[{"2", " ", 
      FormBox[
       RowBox[{"ln", "(", "5", ")"}],
       TraditionalForm]}]}]}],
   SequenceForm[
   4, ") ", -Log[-4 + $CellContext`x] + Log[-3 + 2 $CellContext`x] == 
    2 Log[5]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244676207*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       FormBox[
        RowBox[{"ln", "(", 
         RowBox[{"x", "-", "3"}], ")"}],
        TraditionalForm]}], "+", 
      FormBox[
       RowBox[{"ln", "(", 
        RowBox[{"x", "-", "1"}], ")"}],
       TraditionalForm]}], "\[LongEqual]", 
     FormBox[
      RowBox[{"ln", "(", 
       RowBox[{
        RowBox[{"2", " ", "x"}], "-", "2"}], ")"}],
      TraditionalForm]}]}],
   SequenceForm[
   5, ") ", 2 Log[-3 + $CellContext`x] + Log[-1 + $CellContext`x] == 
    Log[-2 + 2 $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244710164*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"20", " ", 
       FormBox[
        RowBox[{
         TemplateBox[{"ln","2"},
          "Superscript"], "\[InvisibleApplication]", 
         RowBox[{"(", "x", ")"}]}],
        TraditionalForm]}], "-", 
      RowBox[{"16", " ", 
       FormBox[
        RowBox[{"ln", "(", "x", ")"}],
        TraditionalForm]}], "+", "3"}], "\[LongEqual]", "0"}]}],
   SequenceForm[
   6, ") ", 3 - 16 Log[$CellContext`x] + 20 Log[$CellContext`x]^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372447436943`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    TagBox[
     RowBox[{
      RowBox[{
       SuperscriptBox["4", "x"], "-", 
       SuperscriptBox["2", 
        RowBox[{"x", "+", "3"}]], "-", "128"}], "\[LongEqual]", "0"}],
     HoldForm]}],
   SequenceForm[7, ") ", 
    HoldForm[4^$CellContext`x - 2^($CellContext`x + 3) - 128 == 0]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372447767677`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      SuperscriptBox["3", 
       RowBox[{"3", "-", "x"}]], "+", 
      SuperscriptBox["3", "x"]}], "\[LongEqual]", "12"}]}],
   SequenceForm[8, ") ", 3^(3 - $CellContext`x) + 3^$CellContext`x == 12],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244810133*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", "x"], "(", 
       SqrtBox["2"], ")"}],
      HoldForm], "\[LongEqual]", "3"}]}],
   SequenceForm[9, ") ", HoldForm[
      Log[$CellContext`x, 
       Sqrt[2]]] == 3],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244843151*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      TagBox[
       RowBox[{
        SubscriptBox["log", "6"], "(", "x", ")"}],
       HoldForm], "+", 
      TagBox[
       RowBox[{
        SubscriptBox["log", "x"], "(", "6", ")"}],
       HoldForm]}], "\[LongEqual]", 
     FractionBox["13", "6"]}]}],
   SequenceForm[10, ") ", HoldForm[
       Log[6, $CellContext`x]] + HoldForm[
       Log[$CellContext`x, 6]] == Rational[13, 6]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244876308*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"11", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       TagBox[
        RowBox[{
         SubscriptBox["log", "4"], "(", 
         RowBox[{"x", "+", "1"}], ")"}],
        HoldForm]}], "+", 
      TagBox[
       RowBox[{
        SubscriptBox["log", "4"], "(", 
        RowBox[{"x", "+", "3"}], ")"}],
       HoldForm]}], "\[LongEqual]", 
     RowBox[{
      TagBox[
       RowBox[{
        SubscriptBox["log", "4"], "(", 
        RowBox[{
         RowBox[{"6", " ", "x"}], "+", "2"}], ")"}],
       HoldForm], "+", 
      FractionBox["1", "2"]}]}]}],
   SequenceForm[11, ") ", 2 HoldForm[
        Log[4, $CellContext`x + 1]] + HoldForm[
       Log[4, $CellContext`x + 3]] == Rational[1, 2] + HoldForm[
       Log[4, 6 $CellContext`x + 2]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244909596*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"12", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", "2"], "(", 
       RowBox[{"x", "-", "1"}], ")"}],
      HoldForm], "\[LongEqual]", 
     TagBox[
      RowBox[{
       SubscriptBox["log", "4"], "(", "3", ")"}],
      HoldForm]}]}],
   SequenceForm[12, ") ", HoldForm[
      Log[2, $CellContext`x - 1]] == HoldForm[
      Log[4, 3]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244942626*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"13", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", "7"], "(", 
       RowBox[{
        RowBox[{"3", " ", "x"}], "-", "1"}], ")"}],
      HoldForm], "\[LongEqual]", 
     RowBox[{"-", 
      FractionBox["1", "2"]}]}]}],
   SequenceForm[13, ") ", HoldForm[
      Log[7, 3 $CellContext`x - 1]] == Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737244976021*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"14", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", "3"], "(", 
       RowBox[{
        SubscriptBox["log", "4"], "(", "x", ")"}], ")"}],
      HoldForm], "\[LongEqual]", 
     RowBox[{"-", "1"}]}]}],
   SequenceForm[14, ") ", HoldForm[
      Log[3, 
       Log[4, $CellContext`x]]] == -1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245009349*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"15", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", "2"], "(", 
       RowBox[{
        SubscriptBox["log", "x"], "(", "81", ")"}], ")"}],
      HoldForm], "\[LongEqual]", "2"}]}],
   SequenceForm[15, ") ", HoldForm[
      Log[2, 
       Log[$CellContext`x, 81]]] == 2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245057377*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"16", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "x"], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "x"}]]}], "-", "3"}],
      HoldForm], "\[LongEqual]", "0"}]}],
   SequenceForm[
   16, ") ", HoldForm[E^$CellContext`x - 4 E^(-$CellContext`x) - 3] == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245095207*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"17", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", 
        RowBox[{"x", "-", "1"}]], "(", 
       RowBox[{"5", " ", "x"}], ")"}],
      HoldForm], "\[LongEqual]", "2"}]}],
   SequenceForm[17, ") ", HoldForm[
      Log[$CellContext`x - 1, 5 $CellContext`x]] == 2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372451256647`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"18", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["10", "x"]}], "+", 
      SuperscriptBox["10", 
       RowBox[{"2", " ", "x"}]]}], "\[LongEqual]", "5"}]}],
   SequenceForm[18, ") ", -10^$CellContext`x + 10^(2 $CellContext`x) == 5],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245159214*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"19", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      SuperscriptBox["81", 
       RowBox[{"1", "-", "x"}]], "+", 
      SuperscriptBox["81", "x"]}], "\[LongEqual]", "30"}]}],
   SequenceForm[19, ") ", 81^(1 - $CellContext`x) + 81^$CellContext`x == 30],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245192553*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"20", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      TagBox[
       RowBox[{
        SubscriptBox["log", "10"], "(", 
        RowBox[{"x", "+", "1"}], ")"}],
       HoldForm], "-", "2"}], "\[LongEqual]", 
     TagBox[
      RowBox[{
       SubscriptBox["log", "5"], "(", "0.2`", ")"}],
      HoldForm]}]}],
   SequenceForm[20, ") ", -2 + HoldForm[
       Log[10, $CellContext`x + 1]] == HoldForm[
      Log[5, 0.2]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245226489*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"21", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", 
        FractionBox["1", "3"]], "(", 
       FractionBox[
        RowBox[{"1", "-", 
         SuperscriptBox["x", "2"]}], "x"], ")"}],
      HoldForm], "<", 
     TagBox[
      RowBox[{
       SubscriptBox["log", "3"], "(", "x", ")"}],
      HoldForm]}]}],
   SequenceForm[21, ") ", HoldForm[
      Log[1/3, (1 - $CellContext`x^2)/$CellContext`x]] < HoldForm[
      Log[3, $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372452597113`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"22", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"4", "-", 
      FormBox[
       RowBox[{
        TemplateBox[{"ln","2"},
         "Superscript"], "\[InvisibleApplication]", 
        RowBox[{"(", "x", ")"}]}],
       TraditionalForm]}], "\[LessEqual]", "0"}]}],
   SequenceForm[22, ") ", 4 - Log[$CellContext`x]^2 <= 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245293222*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"23", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      FormBox[
       RowBox[{"ln", "(", "x", ")"}],
       TraditionalForm], "-", 
      FormBox[
       RowBox[{"ln", "(", "2", ")"}],
       TraditionalForm]}], "\[LessEqual]", 
     FormBox[
      RowBox[{"ln", "(", 
       RowBox[{"1", "-", 
        RowBox[{"3", " ", "x"}]}], ")"}],
      TraditionalForm]}]}],
   SequenceForm[
   23, ") ", -Log[2] + Log[$CellContext`x] <= Log[1 - 3 $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372453269777`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"24", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     FractionBox[
      RowBox[{
       FormBox[
        RowBox[{"ln", "(", "x", ")"}],
        TraditionalForm], "+", "1"}], 
      RowBox[{"1", "-", 
       FormBox[
        RowBox[{"ln", "(", "x", ")"}],
        TraditionalForm]}]], "\[LessEqual]", "0"}]}],
   SequenceForm[
   24, ") ", (1 - Log[$CellContext`x])^(-1) (1 + Log[$CellContext`x]) <= 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372453599358`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"25", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       FormBox[
        RowBox[{
         TemplateBox[{"ln","2"},
          "Superscript"], "\[InvisibleApplication]", 
         RowBox[{"(", "x", ")"}]}],
        TraditionalForm]}], "-", 
      FormBox[
       RowBox[{"ln", "(", "x", ")"}],
       TraditionalForm], "-", "1"}], "\[GreaterEqual]", "0"}]}],
   SequenceForm[
   25, ") ", -1 - Log[$CellContext`x] + 2 Log[$CellContext`x]^2 >= 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.49473724539264*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"26", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "x"}]]}], "+", 
      SuperscriptBox["\[ExponentialE]", "x"]}], ">", "0"}]}],
   SequenceForm[26, ") ", -3 + 2 E^(-$CellContext`x) + E^$CellContext`x > 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372454307747`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"27", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "\[ExponentialE]"], "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"2", " ", "x"}], "+", "1"}]]}], ">", "0"}]}],
   SequenceForm[27, ") ", E^(-1) + E^(1 + 2 $CellContext`x) > 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372454803543`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"28", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      TagBox[
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["1", "\[ExponentialE]"], ")"}], "x"],
       HoldForm], "-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"3", " ", "x"}], "-", "1"}]]}], "\[LessEqual]", "0"}]}],
   SequenceForm[
   28, ") ", -E^(-1 + 3 $CellContext`x) + HoldForm[(1/E)^$CellContext`x] <= 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372455406847`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"29", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      FormBox[
       RowBox[{"ln", "(", "x", ")"}],
       TraditionalForm], "+", 
      FormBox[
       RowBox[{"ln", "(", 
        FractionBox[
         RowBox[{"x", "-", "1"}], 
         RowBox[{"x", "+", "1"}]], ")"}],
       TraditionalForm]}], "<", "0"}]}],
   SequenceForm[
   29, ") ", 
    Log[$CellContext`x] + Log[(-1 + $CellContext`x)/(1 + $CellContext`x)] < 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.4947372455810843`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"30", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     FormBox[
      RowBox[{"ln", "(", 
       RowBox[{"2", "+", 
        SuperscriptBox["\[ExponentialE]", "x"]}], ")"}],
      TraditionalForm], "\[GreaterEqual]", 
     FormBox[
      RowBox[{"ln", "(", 
       RowBox[{"4", "-", 
        SuperscriptBox["\[ExponentialE]", "x"]}], ")"}],
      TraditionalForm]}]}],
   SequenceForm[
   30, ") ", Log[2 + E^$CellContext`x] >= Log[4 - E^$CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245613841*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"31", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", 
        FractionBox["1", "5"]], "(", 
       RowBox[{
        RowBox[{"3", " ", "x"}], "-", "1"}], ")"}],
      HoldForm], "\[LessEqual]", "5"}]}],
   SequenceForm[31, ") ", HoldForm[
      Log[1/5, 3 $CellContext`x - 1]] <= 5],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245647934*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"32", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", "7"], "(", 
       FractionBox[
        RowBox[{"1", "-", "x"}], 
        RowBox[{"1", "+", "x"}]], ")"}],
      HoldForm], "\[GreaterEqual]", "0"}]}],
   SequenceForm[32, ") ", HoldForm[
      Log[7, (1 - $CellContext`x)/(1 + $CellContext`x)]] >= 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245680833*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"33", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", 
        FractionBox["1", "5"]], "(", "5", ")"}],
      HoldForm], "\[LongEqual]", "x"}]}],
   SequenceForm[33, ") ", HoldForm[
      Log[1/5, 5]] == $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245713743*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"34", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     TagBox[
      RowBox[{
       SubscriptBox["log", 
        RowBox[{"x", "-", "4"}]], "(", 
       RowBox[{"4", " ", "x"}], ")"}],
      HoldForm], "\[LongEqual]", "2"}]}],
   SequenceForm[34, ") ", HoldForm[
      Log[$CellContext`x - 4, 4 $CellContext`x]] == 2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245747617*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"35", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      SqrtBox[
       SuperscriptBox["5", "x"]], "+", 
      FractionBox["2", 
       SqrtBox[
        SuperscriptBox["5", "x"]]]}], "\[LongEqual]", "3"}]}],
   SequenceForm[
   35, ") ", 
    2 (5^$CellContext`x)^Rational[-1, 2] + (5^$CellContext`x)^Rational[1, 2] == 
    3],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4009963177496653`*^9, 3.400996335993166*^9}, 
   3.400996377180154*^9, 3.400996601006536*^9, 3.400996715236648*^9, 
   3.4009968474421577`*^9, 3.401004082875668*^9, 3.401004278873543*^9, 
   3.401004367497459*^9, 3.401004554069868*^9, 3.4010048710127068`*^9, 
   3.4010049462036963`*^9, 3.401456209282723*^9, 3.401456285533023*^9, 
   3.4014563425014153`*^9, 3.4014566868706713`*^9, 3.401457144458503*^9, 
   3.401458228978239*^9, 3.401458262092742*^9, 3.401458816605568*^9, 
   3.4014593609964657`*^9, 3.401460188290532*^9, 3.401461576365603*^9, 
   3.401461910037243*^9, 3.401461942542728*^9, 3.401461985094409*^9, 
   3.4014620508654613`*^9, 3.401462096096344*^9, 3.40146227104532*^9, 
   3.4014623050403023`*^9, 3.401462407592229*^9, 3.401613507731921*^9, 
   3.401613691381465*^9, 3.4016137827227573`*^9, 3.4016138395830936`*^9, 
   3.4016138884227257`*^9, 3.401614458727714*^9, {3.4016145310740423`*^9, 
   3.401614538535432*^9}, 3.401614670078643*^9, 3.430909407301793*^9, 
   3.430909508679924*^9, {3.4309096925446444`*^9, 3.430909695360454*^9}, 
   3.494737121703662*^9, 3.4947371708633013`*^9, 3.494737245781479*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solutions", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"i", ",", "\"\<) S = \>\"", ",", 
      RowBox[{"solution", "[", "i", "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "35"}], "}"}]}], "]"}], ";"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.401456920479082*^9, 3.401456925749597*^9}, {
  3.401614567458002*^9, 3.401614570425395*^9}, {3.401614615443488*^9, 
  3.401614620761098*^9}, {3.430909547891468*^9, 3.430909552906295*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"{\\!\\(TraditionalForm\\`1\\/\[ExponentialE]\\) , \
\\!\\(TraditionalForm\\`\[ExponentialE]\\^2\\)}\"\>",
      StringForm["{`1` , `2`}", E^(-1), E^2],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[1, ") S = ", 
    math`Ens[
     Or[$CellContext`x == E^(-1), $CellContext`x == E^2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737175992159*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"2", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"{\\!\\(TraditionalForm\\`1\\/\[ExponentialE]\\), \
\\!\\(TraditionalForm\\`\[ExponentialE]\\), \\!\\(TraditionalForm\\`\
\[ExponentialE]\\^\\(-\\@2\\)\\), \
\\!\\(TraditionalForm\\`\[ExponentialE]\\^\\(\\@2\\)\\)}\"\>",
      StringForm[
      "{`1`, `2`, `3`, `4`}", E^(-1), E, E^(-2^Rational[1, 2]), 
       E^(2^Rational[1, 2])],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[2, ") S = ", 
    math`Ens[
     Or[$CellContext`x == E^(-1), $CellContext`x == E, $CellContext`x == 
      E^(-2^Rational[1, 2]), $CellContext`x == 
      E^(2^Rational[1, 2])], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737175994594*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"3", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`13\\/2\\) }\"\>",
      StringForm[" { `1` }", 
       Rational[13, 2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[3, ") S = ", 
    math`Ens[$CellContext`x == Rational[13, 2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737175998436*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"4", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`97\\/23\\) }\"\>",
      StringForm[" { `1` }", 
       Rational[97, 23]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[4, ") S = ", 
    math`Ens[$CellContext`x == Rational[97, 23], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737175999977*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"5", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`\\(3 + \\@2\\)\\) \
}\"\>",
      StringForm[" { `1` }", 3 + 2^Rational[1, 2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[5, ") S = ", 
    math`Ens[$CellContext`x == 3 + 2^Rational[1, 2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176023959*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"6", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\[ExponentialE]\\^\\(3/\
10\\)\\) , \\!\\(TraditionalForm\\`\\@\[ExponentialE]\\)}\"\>",
      StringForm["{`1` , `2`}", E^Rational[3, 10], E^Rational[1, 2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[6, ") S = ", 
    math`Ens[
     Or[$CellContext`x == E^Rational[3, 10], $CellContext`x == 
      E^Rational[1, 2]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371760603237`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"7", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`4\\) }\"\>",
      StringForm[" { `1` }", 4],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[7, ") S = ", 
    math`Ens[$CellContext`x == 4, $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371760935497`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"8", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"{\\!\\(TraditionalForm\\`1\\) , \
\\!\\(TraditionalForm\\`2\\)}\"\>",
      StringForm["{`1` , `2`}", 1, 2],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[8, ") S = ", 
    math`Ens[
     Or[$CellContext`x == 1, $CellContext`x == 2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.49473717612644*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"9", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`\\@2\\%6\\) }\"\>",
      StringForm[" { `1` }", 2^Rational[1, 6]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[9, ") S = ", 
    math`Ens[$CellContext`x == 2^Rational[1, 6], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176161085*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"10", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(6\\\\ \\@6\\)\\) , \
\\!\\(TraditionalForm\\`6\\^\\(2/3\\)\\)}\"\>",
      StringForm["{`1` , `2`}", 6 6^Rational[1, 2], 6^Rational[2, 3]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[10, ") S = ", 
    math`Ens[
     Or[$CellContext`x == 6 6^Rational[1, 2], $CellContext`x == 
      6^Rational[2, 3]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371761934557`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"11", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"{\\!\\(TraditionalForm\\`1\\) , \
\\!\\(TraditionalForm\\`\\(\\(\\(-3\\)\\) + \\(\\(2\\\\ \\@2\\)\\)\\)\\)}\"\>",
      StringForm["{`1` , `2`}", 1, -3 + 2 2^Rational[1, 2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[11, ") S = ", 
    math`Ens[
     Or[$CellContext`x == 
      1, $CellContext`x == -3 + 2 2^Rational[1, 2]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176227051*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"12", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`\\(1 + \\@3\\)\\) \
}\"\>",
      StringForm[" { `1` }", 1 + 3^Rational[1, 2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[12, ") S = ", 
    math`Ens[$CellContext`x == 1 + 3^Rational[1, 2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371762605658`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"13", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`\\(1\\/21\\\\ \\(\\((7 \
+ \\@7)\\)\\)\\)\\) }\"\>",
      StringForm[" { `1` }", Rational[1, 21] (7 + 7^Rational[1, 2])],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[13, ") S = ", 
    math`Ens[$CellContext`x == 
     Rational[1, 21] (7 + 7^Rational[1, 2]), $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176293929*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"14", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`2\\^\\(2/3\\)\\) }\"\>",
      StringForm[" { `1` }", 2^Rational[2, 3]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[14, ") S = ", 
    math`Ens[$CellContext`x == 2^Rational[2, 3], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.49473717632731*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"15", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`3\\) }\"\>",
      StringForm[" { `1` }", 3],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[15, ") S = ", 
    math`Ens[$CellContext`x == 3, $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176360421*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"16", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`\\(2\\\\ \
\\(\\(TraditionalForm\\`\\(ln(2)\\)\\)\\)\\)\\) }\"\>",
      StringForm[" { `1` }", 2 Log[2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[16, ") S = ", 
    math`Ens[$CellContext`x == 2 Log[2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176393382*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"17", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`\\(1\\/2\\\\ \\(\\((7 \
+ \\(\\(3\\\\ \\@5\\)\\))\\)\\)\\)\\) }\"\>",
      StringForm[" { `1` }", Rational[1, 2] (7 + 3 5^Rational[1, 2])],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[17, ") S = ", 
    math`Ens[$CellContext`x == 
     Rational[1, 2] (7 + 3 5^Rational[1, 2]), $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371764268227`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"18", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \
\\!\\(TraditionalForm\\`0.44580462478146611356523250645041995042`4.\\) }\"\>",
      
      StringForm[" { `1` }", 0.44580462478146611356523250645041995042`4.],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[18, ") S = ", 
    math`Ens[$CellContext`x == (Log[2] + Log[5])^(-1) (-Log[2] + 
       Log[1 + 21^Rational[1, 2]]), $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176490465*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"19", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"{\\!\\(TraditionalForm\\`1\\/4\\) , \
\\!\\(TraditionalForm\\`3\\/4\\)}\"\>",
      StringForm["{`1` , `2`}", 
       Rational[1, 4], 
       Rational[3, 4]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[19, ") S = ", 
    math`Ens[
     Or[$CellContext`x == Rational[1, 4], $CellContext`x == 
      Rational[3, 4]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371765242577`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"20", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`9.`\\) }\"\>",
      StringForm[" { `1` }", 9.],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[20, ") S = ", 
    math`Ens[$CellContext`x == 9., $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176559465*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"21", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox["\[EmptySet]",
     TraditionalForm]}],
   SequenceForm[21, ") S = ", 
    math`Ens[False, $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176593638*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"22", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\
\\\\!\\\\(TraditionalForm\\\\`0\\\\), \
\\\\!\\\\(TraditionalForm\\\\`1\\\\/\\\\[ExponentialE]\\\\^2\\\\)]\\\"\\)\\) \
\[Union] \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(\
TraditionalForm\\\\`\\\\[ExponentialE]\\\\^2\\\\), \
\\\\[LongRightArrow]\\\"\\)\\)\"\>",
      StringForm["`1` \[Union] `2`", 
       math`Ens[
        Inequality[
        0, Less, $CellContext`x, LessEqual, E^(-2)], $CellContext`x], 
       math`Ens[$CellContext`x >= E^2, $CellContext`x]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[22, ") S = ", 
    math`Ens[
     Or[
      Inequality[0, Less, $CellContext`x, LessEqual, E^(-2)], $CellContext`x >= 
      E^2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371766268187`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"23", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"]\\!\\(TraditionalForm\\`0\\), \
\\!\\(TraditionalForm\\`2\\/7\\)]\"\>",
      StringForm["]`1`, `2`]", 0, 
       Rational[2, 7]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[23, ") S = ", 
    math`Ens[
     Inequality[0, Less, $CellContext`x, LessEqual, 
      Rational[2, 7]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176659464*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"24", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\
\\\\!\\\\(TraditionalForm\\\\`0\\\\), \
\\\\!\\\\(TraditionalForm\\\\`1\\\\/\\\\[ExponentialE]\\\\)]\\\"\\)\\) \
\[Union] \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(\
TraditionalForm\\\\`\\\\[ExponentialE]\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\
\>",
      StringForm["`1` \[Union] `2`", 
       math`Ens[
        Inequality[
        0, Less, $CellContext`x, LessEqual, E^(-1)], $CellContext`x], 
       math`Ens[$CellContext`x > E, $CellContext`x]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[24, ") S = ", 
    math`Ens[
     Or[
      Inequality[0, Less, $CellContext`x, LessEqual, E^(-1)], $CellContext`x > 
      E], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371766925383`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"25", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\
\\\\!\\\\(TraditionalForm\\\\`0\\\\), \
\\\\!\\\\(TraditionalForm\\\\`1\\\\/\\\\@\\\\[ExponentialE]\\\\)]\\\"\\)\\) \
\[Union] \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(\
TraditionalForm\\\\`\\\\[ExponentialE]\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\
\>",
      StringForm["`1` \[Union] `2`", 
       math`Ens[
        Inequality[
        0, Less, $CellContext`x, LessEqual, E^
         Rational[-1, 2]], $CellContext`x], 
       math`Ens[$CellContext`x >= E, $CellContext`x]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[25, ") S = ", 
    math`Ens[
     Or[
      Inequality[
      0, Less, $CellContext`x, LessEqual, E^Rational[-1, 2]], $CellContext`x >= 
      E], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371767262383`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"26", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\
\\\\[LongLeftArrow], \\\\!\\\\(TraditionalForm\\\\`0\\\\)[\\\"\\)\\) \[Union] \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\
\\`\\\\(TraditionalForm\\\\`\\\\(ln(2)\\\\)\\\\)\\\\), \\\\[LongRightArrow]\\\
\"\\)\\)\"\>",
      StringForm["`1` \[Union] `2`", 
       math`Ens[$CellContext`x < 0, $CellContext`x], 
       math`Ens[$CellContext`x > Log[2], $CellContext`x]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[26, ") S = ", 
    math`Ens[
     Or[$CellContext`x < 0, $CellContext`x > Log[2]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.49473717675972*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"27", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     TagBox["\[DoubleStruckCapitalR]",
      Function[{}, Reals]],
     TraditionalForm]}],
   SequenceForm[27, ") S = ", 
    math`Ens[True, $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371767933064`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"28", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"[\\!\\(TraditionalForm\\`1\\/4\\), \
\[LongRightArrow]\"\>",
      StringForm["[`1`, \[LongRightArrow]", 
       Rational[1, 4]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[28, ") S = ", 
    math`Ens[$CellContext`x >= Rational[1, 4], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176826332*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"29", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"]\\!\\(TraditionalForm\\`1\\), \
\\!\\(TraditionalForm\\`\\(1 + \\@2\\)\\)[\"\>",
      StringForm["]`1`, `2`[", 1, 1 + 2^Rational[1, 2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[29, ") S = ", 
    math`Ens[
     Inequality[
     1, Less, $CellContext`x, Less, 1 + 2^Rational[1, 2]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371768593607`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"30", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"[\\!\\(TraditionalForm\\`0\\), \
\\!\\(TraditionalForm\\`\\(2\\\\ \\(\\(TraditionalForm\\`\\(ln(2)\\)\\)\\)\\)\
\\)[\"\>",
      StringForm["[`1`, `2`[", 0, 2 Log[2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[30, ") S = ", 
    math`Ens[
     Inequality[
     0, LessEqual, $CellContext`x, Less, 2 Log[2]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371768924913`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"31", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"[\\!\\(TraditionalForm\\`1042\\/3125\\), \
\[LongRightArrow]\"\>",
      StringForm["[`1`, \[LongRightArrow]", 
       Rational[1042, 3125]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[31, ") S = ", 
    math`Ens[$CellContext`x >= Rational[1042, 3125], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.4947371769257402`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"32", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"]\\!\\(TraditionalForm\\`\\(-1\\)\\), \
\\!\\(TraditionalForm\\`0\\)]\"\>",
      StringForm["]`1`, `2`]", -1, 0],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[32, ") S = ", 
    math`Ens[
     Inequality[-1, Less, $CellContext`x, LessEqual, 0], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737176992532*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"33", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`\\(-1\\)\\) }\"\>",
      StringForm[" { `1` }", -1],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[33, ") S = ", 
    math`Ens[$CellContext`x == -1, $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737177023892*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"34", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\" { \\!\\(TraditionalForm\\`\\(6 + \\(\\(2\\\\ \
\\@5\\)\\)\\)\\) }\"\>",
      StringForm[" { `1` }", 6 + 2 5^Rational[1, 2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[34, ") S = ", 
    math`Ens[$CellContext`x == 6 + 2 5^Rational[1, 2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737177047793*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"35", "\[InvisibleSpace]", "\<\") S = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"{\\!\\(TraditionalForm\\`0\\) , \
\\!\\(TraditionalForm\\`\\(2\\\\ \\(\\(TraditionalForm\\`\\(ln(2)\\)\\)\\)\\)\
\\/\\(TraditionalForm\\`\\(ln(5)\\)\\)\\)}\"\>",
      StringForm["{`1` , `2`}", 0, 2 Log[2]/Log[5]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[35, ") S = ", 
    math`Ens[
     Or[$CellContext`x == 0, $CellContext`x == 
      2 Log[2]/Log[5]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.401004586704452*^9, 3.401004874636264*^9, 3.4010049503264008`*^9, 
   3.401456216507876*^9, 3.401456690773882*^9, 3.401456813335569*^9, 
   3.4014569264279203`*^9, 3.4014571479324703`*^9, 3.40145728240175*^9, 
   3.401457367345882*^9, 3.4014582314600143`*^9, 3.401458265103483*^9, 
   3.401458821130666*^9, 3.4014591527166147`*^9, 3.401459238632618*^9, 
   3.401459364731176*^9, 3.401460191558618*^9, 3.401461579772811*^9, {
   3.401461923299651*^9, 3.401461944829913*^9}, 3.401461987198935*^9, 
   3.401462057502767*^9, 3.401462274305176*^9, 3.401462312814764*^9, 
   3.401462420120327*^9, 3.4016135083796167`*^9, 3.401613692046173*^9, 
   3.401613783376444*^9, 3.4016138402476892`*^9, 3.401614460142675*^9, {
   3.401614532502741*^9, 3.4016145399981737`*^9}, 3.401614573586808*^9, 
   3.4016146216207037`*^9, 3.4016146706435957`*^9, 3.430909407884987*^9, 
   3.430909553971492*^9, 3.430909695841601*^9, 3.494737122376008*^9, 
   3.494737177076167*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1001, 872},
WindowMargins->{{156, Automatic}, {34, Automatic}},
DockedCells->(FrontEndExecute[{
   FrontEnd`NotebookApply[
    FrontEnd`InputNotebook[], #, Placeholder]}]& ),
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
CellLabelAutoDelete->True,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->FrontEnd`FileName[{"Article"}, "Modele.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 60, 0, 67, "Section"],
Cell[CellGroupData[{
Cell[652, 26, 41, 0, 26, "Subsubsection"],
Cell[CellGroupData[{
Cell[718, 30, 15014, 484, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[15757, 518, 1724, 33, 26, "Print"],
Cell[17484, 553, 1858, 37, 26, "Print"],
Cell[19345, 592, 1816, 37, 24, "Print"],
Cell[21164, 631, 1822, 38, 24, "Print"],
Cell[22989, 671, 1868, 39, 24, "Print"],
Cell[24860, 712, 1796, 35, 26, "Print"],
Cell[26659, 749, 1609, 29, 26, "Print"],
Cell[28271, 780, 1543, 26, 26, "Print"],
Cell[29817, 808, 1551, 29, 38, "Print"],
Cell[31371, 839, 1730, 34, 44, "Print"],
Cell[33104, 875, 2059, 45, 43, "Print"],
Cell[35166, 922, 1670, 33, 26, "Print"],
Cell[36839, 957, 1645, 31, 43, "Print"],
Cell[38487, 990, 1623, 31, 29, "Print"],
Cell[40113, 1023, 1603, 30, 29, "Print"],
Cell[41719, 1055, 1657, 30, 24, "Print"],
Cell[43379, 1087, 1600, 29, 27, "Print"],
Cell[44982, 1118, 1569, 27, 26, "Print"],
Cell[46554, 1147, 1549, 26, 26, "Print"],
Cell[48106, 1175, 1714, 34, 27, "Print"],
Cell[49823, 1211, 1779, 36, 51, "Print"],
Cell[51605, 1249, 1615, 29, 26, "Print"],
Cell[53223, 1280, 1753, 35, 24, "Print"],
Cell[54979, 1317, 1686, 32, 47, "Print"],
Cell[56668, 1351, 1763, 34, 26, "Print"],
Cell[58434, 1387, 1621, 28, 24, "Print"],
Cell[60058, 1417, 1579, 27, 44, "Print"],
Cell[61640, 1446, 1714, 32, 45, "Print"],
Cell[63357, 1480, 1721, 34, 44, "Print"],
Cell[65081, 1516, 1734, 33, 24, "Print"],
Cell[66818, 1551, 1614, 30, 36, "Print"],
Cell[68435, 1583, 1636, 30, 44, "Print"],
Cell[70074, 1615, 1551, 28, 36, "Print"],
Cell[71628, 1645, 1598, 29, 27, "Print"],
Cell[73229, 1676, 1621, 31, 48, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[74911, 1714, 34, 0, 26, "Subsubsection"],
Cell[CellGroupData[{
Cell[74970, 1718, 499, 12, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[75494, 1734, 1510, 28, 44, "Print"],
Cell[77007, 1764, 1784, 34, 44, "Print"],
Cell[78794, 1800, 1434, 27, 43, "Print"],
Cell[80231, 1829, 1437, 27, 44, "Print"],
Cell[81671, 1858, 1446, 27, 35, "Print"],
Cell[83120, 1887, 1575, 29, 28, "Print"],
Cell[84698, 1918, 1395, 26, 24, "Print"],
Cell[86096, 1946, 1459, 28, 24, "Print"],
Cell[87558, 1976, 1430, 26, 35, "Print"],
Cell[88991, 2004, 1562, 29, 35, "Print"],
Cell[90556, 2035, 1557, 29, 35, "Print"],
Cell[92116, 2066, 1450, 27, 35, "Print"],
Cell[93569, 2095, 1515, 28, 43, "Print"],
Cell[95087, 2125, 1436, 26, 26, "Print"],
Cell[96526, 2153, 1395, 26, 24, "Print"],
Cell[97924, 2181, 1463, 27, 24, "Print"],
Cell[99390, 2210, 1536, 28, 43, "Print"],
Cell[100929, 2240, 1556, 29, 24, "Print"],
Cell[102488, 2271, 1547, 31, 43, "Print"],
Cell[104038, 2304, 1399, 26, 24, "Print"],
Cell[105440, 2332, 1270, 23, 24, "Print"],
Cell[106713, 2357, 1941, 38, 46, "Print"],
Cell[108657, 2397, 1510, 30, 43, "Print"],
Cell[110170, 2429, 1923, 38, 44, "Print"],
Cell[112096, 2469, 1969, 40, 48, "Print"],
Cell[114068, 2511, 1810, 33, 24, "Print"],
Cell[115881, 2546, 1324, 25, 24, "Print"],
Cell[117208, 2573, 1465, 28, 43, "Print"],
Cell[118676, 2603, 1519, 29, 35, "Print"],
Cell[120198, 2634, 1541, 30, 24, "Print"],
Cell[121742, 2666, 1485, 28, 44, "Print"],
Cell[123230, 2696, 1474, 28, 24, "Print"],
Cell[124707, 2726, 1404, 26, 24, "Print"],
Cell[126114, 2754, 1470, 27, 35, "Print"],
Cell[127587, 2783, 1589, 30, 47, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)