(* 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[     62824,       1594]
NotebookOptionsPosition[     59158,       1487]
NotebookOutlinePosition[     59577,       1505]
CellTagsIndexPosition[     59534,       1502]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
D\[EAcute]terminer les \[EAcute]ventuelles asymptotes des fonctions suivantes\
\
\>", "Subsection",
 CellChangeTimes->{3.4360753301653852`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"q", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "-", 
     RowBox[{"3", "x"}], "+", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", "1"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"3", "-", "x"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"x", "-", "1"}], "]"}], "-", 
    RowBox[{"Sqrt", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"4", "-", 
      RowBox[{"x", "^", "2"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "3"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"x", "-", "4"}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"x", "+", "7"}], "]"}], "-", "3"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "-", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"x", "+", "5"}], "]"}], "+", "x"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", "1"}], "]"}], "-", "x"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"x", "-", "1"}], "]"}], 
    RowBox[{"x", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "-", "1"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "q"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", "x", "-", "2"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "x"}], "+", "1"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"q", ",", "\"\<.  f(x) = \>\"", ",", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "q"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "1", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["x", "2"], "-", 
      RowBox[{"3", " ", "x"}], "+", "2"}]]}],
   SequenceForm[
   1, ".  f(x) = ", (2 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2]],
   
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753044933233`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "2", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    FractionBox[
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "2"], "-", "1"}]], 
     RowBox[{"3", "-", "x"}]]}],
   SequenceForm[
   2, ".  f(x) = ", (3 - $CellContext`x)^(-1) (-1 + $CellContext`x^2)^
     Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.43607530449767*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "3", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{
     SqrtBox[
      RowBox[{"x", "-", "1"}]], "-", 
     SqrtBox["x"]}]}],
   SequenceForm[
   3, ".  f(x) = ", (-1 + $CellContext`x)^Rational[1, 2] - $CellContext`x^
    Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075304501011*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "4", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    FractionBox["1", 
     SqrtBox[
      RowBox[{"4", "-", 
       SuperscriptBox["x", "2"]}]]]}],
   SequenceForm[4, ".  f(x) = ", (4 - $CellContext`x^2)^Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075304504035*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "5", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    SqrtBox[
     FractionBox[
      RowBox[{"x", "-", "3"}], 
      RowBox[{"x", "-", "4"}]]]}],
   SequenceForm[
   5, ".  f(x) = ", ((-4 + $CellContext`x)^(-1) (-3 + $CellContext`x))^
    Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075304507123*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "6", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{"x", "+", "7"}]], "-", "3"}], 
     RowBox[{"x", "-", "2"}]]}],
   SequenceForm[
   6, ".  f(x) = ", (-2 + $CellContext`x)^(-1) (-3 + (7 + $CellContext`x)^
      Rational[1, 2])],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075304510192*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "7", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{"x", "+", 
     SqrtBox[
      RowBox[{"x", "+", "5"}]]}]}],
   SequenceForm[
   7, ".  f(x) = ", $CellContext`x + (5 + $CellContext`x)^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075304513188*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "8", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}]}],
   SequenceForm[
   8, ".  f(x) = ", -$CellContext`x + (1 + $CellContext`x^2)^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075304516304*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "9", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"x", " ", 
      RowBox[{"\[LeftBracketingBar]", 
       RowBox[{"x", "-", "1"}], "\[RightBracketingBar]"}]}], 
     RowBox[{
      SuperscriptBox["x", "2"], "-", "1"}]]}],
   SequenceForm[
   9, ".  f(x) = ", $CellContext`x (-1 + $CellContext`x^2)^(-1) 
    Abs[-1 + $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075304519511*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "10", "\[InvisibleSpace]", "\<\".  f(x) = \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"\[LeftBracketingBar]", 
      RowBox[{
       SuperscriptBox["x", "2"], "-", "x", "-", "2"}], 
      "\[RightBracketingBar]"}], 
     RowBox[{
      RowBox[{"2", " ", "x"}], "+", "1"}]]}],
   SequenceForm[
   10, ".  f(x) = ", (1 + 2 $CellContext`x)^(-1) 
    Abs[-2 - $CellContext`x + $CellContext`x^2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075304522778*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solutions", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"q", ",", "\"\<.  Dom f = \>\"", ",", 
       RowBox[{"Domaine", "[", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AV", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AO", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"q", ",", "n"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "1", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\
\\\\[LongLeftArrow], \\\\!\\\\(TraditionalForm\\\\`1\\\\)]\\\"\\)\\) \[Union] \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\
\\`2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>",
      StringForm["`1` \[Union] `2`", 
       analyse`Ens[$CellContext`x <= 1, $CellContext`x], 
       analyse`Ens[$CellContext`x >= 2, $CellContext`x]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[1, ".  Dom f = ", 
    analyse`Ens[
     Or[$CellContext`x <= 1, $CellContext`x >= 2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310363841*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\
\\\\ x\\\\)\\\\) + 2\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(2 - 3 $CellContext`x + $CellContext`x^2)^
     Rational[1, 2], $CellContext`x, 1], 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310382724*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
2\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\
\\\\ x\\\\)\\\\) + 2\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(2 - 3 $CellContext`x + $CellContext`x^2)^
     Rational[1, 2], $CellContext`x, 2], 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310418468*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(x\\\\^2 - \
\\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + 2\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(2 - 3 $CellContext`x + $CellContext`x^2)^
     Rational[1, 2], $CellContext`x, 
     DirectedInfinity[1]], 
    StringForm["+`1`", 
     DirectedInfinity[1]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310460774*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\\\\ \
x\\\\)\\\\) + 2\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(2 - 3 $CellContext`x + $CellContext`x^2)^
     Rational[1, 2], $CellContext`x, 
     DirectedInfinity[-1]], 
    StringForm["+`1`", 
     DirectedInfinity[1]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753104799137`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AO\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", 
     RowBox[{"x", "-", 
      FractionBox["3", "2"]}]}], 
    "\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
   SequenceForm[
   "AO", " \[Congruent] ", $CellContext`y == Rational[-3, 2] + $CellContext`x,
     " \[AGrave] droite"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753105240173`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AO\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", 
     RowBox[{
      FractionBox["3", "2"], "-", "x"}]}], 
    "\[InvisibleSpace]", "\<\" \[AGrave] gauche\"\>"}],
   SequenceForm[
   "AO", " \[Congruent] ", $CellContext`y == Rational[3, 2] - $CellContext`x, 
    " \[AGrave] gauche"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310526455*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "2", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\
\\\\[LongLeftArrow], \
\\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\)]\\\"\\)\\) \[Union] \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\\
`\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\
1\\\\\\\\), \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`3\\\\\\\\)[\\\\\\\"\\\\)\\\\) \
\\\\[Union] \
\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\
\\\\(TraditionalForm\\\\\\\\`3\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
      StringForm["`1` \[Union] `2`", 
       analyse`Ens[$CellContext`x <= -1, $CellContext`x], 
       analyse`Ens[
        Or[
         Inequality[1, LessEqual, $CellContext`x, Less, 3], $CellContext`x > 
         3], $CellContext`x]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[2, ".  Dom f = ", 
    analyse`Ens[
     Or[$CellContext`x <= -1, 
      Inequality[1, LessEqual, $CellContext`x, Less, 3], $CellContext`x > 
      3], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310541951*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-1\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(x\\\\^2 - 1\\\\)\\\\/\\\\(3 - \
x\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(3 - $CellContext`x)^(-1) (-1 + $CellContext`x^2)^
      Rational[1, 2], $CellContext`x, -1], 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310575726*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(x\\\\^2 - \
1\\\\)\\\\/\\\\(3 - x\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
   
   StringForm["`1` = `2`", 
    analyse`Limite[(3 - $CellContext`x)^(-1) (-1 + $CellContext`x^2)^
      Rational[1, 2], $CellContext`x, 1], 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310621393*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\@\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(3 - \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\@\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(3 - \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\"  \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \
ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
   StringForm["`1`", 
    Piecewise[{{
       StringForm["`1` = `2`", 
        analyse`Limite[(3 - $CellContext`x)^(-1) (-1 + $CellContext`x^2)^
          Rational[1, 2], $CellContext`x, 3, -1], 
        StringForm["+`1`", 
         DirectedInfinity[1]]], " "}, {
       StringForm["`1` = `2`", 
        analyse`Limite[(3 - $CellContext`x)^(-1) (-1 + $CellContext`x^2)^
          Rational[1, 2], $CellContext`x, 3, 1], 
        DirectedInfinity[-1]], "  "}}, 0]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753106804047`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`3\\)\"\>",
   StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 3],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310704034*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(x\\\\^2 - \
1\\\\)\\\\/\\\\(3 - x\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(3 - $CellContext`x)^(-1) (-1 + $CellContext`x^2)^
      Rational[1, 2], $CellContext`x, 
     DirectedInfinity[1]], -1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.43607531073363*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(x\\\\^2 - 1\\\\)\\\\/\\\\(3 - \
x\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(3 - $CellContext`x)^(-1) (-1 + $CellContext`x^2)^
      Rational[1, 2], $CellContext`x, 
     DirectedInfinity[-1]], 1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310763198*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", 
     RowBox[{"-", "1"}]}], "\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
   
   SequenceForm[
   "AH", " \[Congruent] ", $CellContext`y == -1, " \[AGrave] droite"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310796479*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", "1"}], 
    "\[InvisibleSpace]", "\<\" \[AGrave] gauche\"\>"}],
   SequenceForm[
   "AH", " \[Congruent] ", $CellContext`y == 1, " \[AGrave] gauche"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310829784*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "3", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"[\\!\\(TraditionalForm\\`1\\), \
\[LongRightArrow]\"\>",
      StringForm["[`1`, \[LongRightArrow]", 1],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[3, ".  Dom f = ", 
    analyse`Ens[$CellContext`x >= 1, $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310863577*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x - 1\\\\) - \
\\\\@x\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(-1 + $CellContext`x)^Rational[1, 2] - $CellContext`x^
     Rational[1, 2], $CellContext`x, 1], -1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.43607531089742*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x - 1\\\\) - \\\\@x\\\
\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(-1 + $CellContext`x)^Rational[1, 2] - $CellContext`x^
     Rational[1, 2], $CellContext`x, 
     DirectedInfinity[1]], 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753109299707`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x - 1\\\\) - \
\\\\@x\\\\)\\\\)\\\"\\)\\)   n'existe pas\"\>",
   StringForm["`1`  `2`", 
    analyse`Limite[(-1 + $CellContext`x)^Rational[1, 2] - $CellContext`x^
     Rational[1, 2], $CellContext`x, 
     DirectedInfinity[-1]], " n'existe pas"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310963605*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", "0"}], 
    "\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
   SequenceForm[
   "AH", " \[Congruent] ", $CellContext`y == 0, " \[AGrave] droite"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075310996917*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "4", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"]\\!\\(TraditionalForm\\`\\(-2\\)\\), \
\\!\\(TraditionalForm\\`2\\)[\"\>",
      StringForm["]`1`, `2`[", -2, 2],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[4, ".  Dom f = ", 
    analyse`Ens[
     Inequality[-2, Less, $CellContext`x, Less, 2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311031287*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(\\\\(x \\\\[Rule] \
\\\\(\\\\(-2\\\\)\\\\)\\\\)\\\\+\\\\\\\">\\\\\\\"\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`1\\\\/\\\\@\\\\(4 - x\\\\^2\\\\)\\\\)\\\"\\)\\) \
= \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\
\\)\\\"\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(4 - $CellContext`x^2)^Rational[-1, 2], $CellContext`x, -2,
      1], 
    StringForm["+`1`", 
     DirectedInfinity[1]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311064438*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-2\\)\\) a droite\"\>",
   StringForm["AV \[Congruent] `1` = `2` a droite", $CellContext`x, -2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311097616*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(\\\\(x \\\\[Rule] \
2\\\\)\\\\+\\\\\\\"<\\\\\\\"\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`1\\\\/\\\
\\@\\\\(4 - x\\\\^2\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(4 - $CellContext`x^2)^Rational[-1, 2], $CellContext`x, 
     2, -1], 
    StringForm["+`1`", 
     DirectedInfinity[1]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311131255*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`2\\) a gauche\"\>",
   StringForm["AV \[Congruent] `1` = `2` a gauche", $CellContext`x, 2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311164418*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`1\\\\/\\\\@\\\\(4 - \
x\\\\^2\\\\)\\\\)\\\"\\)\\)   n'existe pas\"\>",
   StringForm["`1`  `2`", 
    analyse`Limite[(4 - $CellContext`x^2)^Rational[-1, 2], $CellContext`x, 
     DirectedInfinity[1]], " n'existe pas"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311201908*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`1\
\\\\/\\\\@\\\\(4 - x\\\\^2\\\\)\\\\)\\\"\\)\\)   n'existe pas\"\>",
   StringForm["`1`  `2`", 
    analyse`Limite[(4 - $CellContext`x^2)^Rational[-1, 2], $CellContext`x, 
     DirectedInfinity[-1]], " n'existe pas"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753112314796`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "5", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\
\\\\[LongLeftArrow], \\\\!\\\\(TraditionalForm\\\\`3\\\\)]\\\"\\)\\) \[Union] \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\
\\`4\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>",
      StringForm["`1` \[Union] `2`", 
       analyse`Ens[$CellContext`x <= 3, $CellContext`x], 
       analyse`Ens[$CellContext`x > 4, $CellContext`x]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[5, ".  Dom f = ", 
    analyse`Ens[
     Or[$CellContext`x <= 3, $CellContext`x > 4], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311265265*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
3\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(\\\\(x - \
3\\\\)\\\\/\\\\(x - 4\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\
\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[((-4 + $CellContext`x)^(-1) (-3 + $CellContext`x))^
     Rational[1, 2], $CellContext`x, 3], 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311298521*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(\\\\(x \\\\[Rule] \
4\\\\)\\\\+\\\\\\\">\\\\\\\"\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(\\\\(x - 3\\\\)\\\\/\\\\(x - 4\\\\)\\\
\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\
\\`\\\\[Infinity]\\\\)\\\"\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[((-4 + $CellContext`x)^(-1) (-3 + $CellContext`x))^
     Rational[1, 2], $CellContext`x, 4, 1], 
    StringForm["+`1`", 
     DirectedInfinity[1]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.43607531133249*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`4\\) a droite\"\>",
   StringForm["AV \[Congruent] `1` = `2` a droite", $CellContext`x, 4],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753113650417`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(\\\\(x - 3\\\\)\\\\/\\\\(x \
- 4\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[((-4 + $CellContext`x)^(-1) (-3 + $CellContext`x))^
     Rational[1, 2], $CellContext`x, 
     DirectedInfinity[1]], 1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311399044*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(\\\\(x - 3\\\\)\\\\/\\\\(x - 4\\\\)\\\
\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[((-4 + $CellContext`x)^(-1) (-3 + $CellContext`x))^
     Rational[1, 2], $CellContext`x, 
     DirectedInfinity[-1]], 1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311432632*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", "1"}]}],
   SequenceForm["AH", " \[Congruent] ", $CellContext`y == 1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.43607531146596*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "6", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\
\\\\!\\\\(TraditionalForm\\\\`\\\\(-7\\\\)\\\\), \
\\\\!\\\\(TraditionalForm\\\\`2\\\\)[\\\"\\)\\) \[Union] \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\
\\`2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>",
      StringForm["`1` \[Union] `2`", 
       analyse`Ens[
        Inequality[-7, LessEqual, $CellContext`x, Less, 2], $CellContext`x], 
       analyse`Ens[$CellContext`x > 2, $CellContext`x]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[6, ".  Dom f = ", 
    analyse`Ens[
     Or[
      Inequality[-7, LessEqual, $CellContext`x, Less, 2], $CellContext`x > 
      2], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311499501*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-7\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x + 7\\\\) - 3\\\\)\\\\/\\\\(x - \
2\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\/3\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(-2 + $CellContext`x)^(-1) (-3 + (7 + $CellContext`x)^
       Rational[1, 2]), $CellContext`x, -7], 
    Rational[1, 3]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311532765*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
2\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x + 7\\\\) - \
3\\\\)\\\\/\\\\(x - 2\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`1\\/6\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(-2 + $CellContext`x)^(-1) (-3 + (7 + $CellContext`x)^
       Rational[1, 2]), $CellContext`x, 2], 
    Rational[1, 6]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753115665417`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x + 7\\\\) - 3\\\\)\\\
\\/\\\\(x - 2\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(-2 + $CellContext`x)^(-1) (-3 + (7 + $CellContext`x)^
       Rational[1, 2]), $CellContext`x, 
     DirectedInfinity[1]], 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311599187*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x + 7\\\\) - 3\\\\)\\\\/\\\\(x - \
2\\\\)\\\\)\\\"\\)\\)   n'existe pas\"\>",
   StringForm["`1`  `2`", 
    analyse`Limite[(-2 + $CellContext`x)^(-1) (-3 + (7 + $CellContext`x)^
       Rational[1, 2]), $CellContext`x, 
     DirectedInfinity[-1]], " n'existe pas"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.43607531163253*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", "0"}], 
    "\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
   SequenceForm[
   "AH", " \[Congruent] ", $CellContext`y == 0, " \[AGrave] droite"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753116708508`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "7", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"[\\!\\(TraditionalForm\\`\\(-5\\)\\), \
\[LongRightArrow]\"\>",
      StringForm["[`1`, \[LongRightArrow]", -5],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[7, ".  Dom f = ", 
    analyse`Ens[$CellContext`x >= -5, $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.43607531169993*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-5\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x + \\\\@\
\\\\(x + 5\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-5\\)\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[$CellContext`x + (5 + $CellContext`x)^
      Rational[1, 2], $CellContext`x, -5], -5],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753117330313`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x + \\\\@\\\\(x + 5\\\\)\\\\)\\\
\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\
\\[Infinity]\\\\)\\\"\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[$CellContext`x + (5 + $CellContext`x)^
      Rational[1, 2], $CellContext`x, 
     DirectedInfinity[1]], 
    StringForm["+`1`", 
     DirectedInfinity[1]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311766612*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(x + \\\\@\\\\(x + \
5\\\\)\\\\)\\\\)\\\"\\)\\)   n'existe pas\"\>",
   StringForm["`1`  `2`", 
    analyse`Limite[$CellContext`x + (5 + $CellContext`x)^
      Rational[1, 2], $CellContext`x, 
     DirectedInfinity[-1]], " n'existe pas"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.43607531180063*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "8", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     TagBox["\[DoubleStruckCapitalR]",
      Function[{}, Reals]],
     TraditionalForm]}],
   SequenceForm[8, ".  Dom f = ", 
    analyse`Ens[True, $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311834262*^9}],

Cell[BoxData[
 FormBox["\<\"pas d'asymptote verticale\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311867284*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x\\\\^2 + 1\\\\) - \
x\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[-$CellContext`x + (1 + $CellContext`x^2)^
      Rational[1, 2], $CellContext`x, 
     DirectedInfinity[1]], 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753119011297`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x\\\\^2 + 1\\\\) - x\\\\)\\\\)\\\
\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[-$CellContext`x + (1 + $CellContext`x^2)^
      Rational[1, 2], $CellContext`x, 
     DirectedInfinity[-1]], 
    StringForm["+`1`", 
     DirectedInfinity[1]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075311934043*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", "0"}], 
    "\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
   SequenceForm[
   "AH", " \[Congruent] ", $CellContext`y == 0, " \[AGrave] droite"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753119677477`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "9", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-1\\)\\),\\!\\(TraditionalForm\\`1\\)}\"\>",
      StringForm["`1` \\ {`2`,`3`}", Reals, -1, 1],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[9, ".  Dom f = ", 
    analyse`Ens[
     Or[$CellContext`x < -1, 
      Inequality[-1, Less, $CellContext`x, Less, 1], $CellContext`x > 
      1], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075312001258*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\[LeftBracketingBar] \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x - 1\\\\\\\
\\\\\\\\\\)\\\\\\\\\\\\\\\\) \\\\\\\\\\\\\\\\[RightBracketingBar]\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\
\\\\\\\\\\\\^2 - 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\
\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\
\\\\\\)\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, {\\\"\\\\\\\"\\\\\\\
\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\
\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\
\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\[LeftBracketingBar] \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x - 1\\\\\\\
\\\\\\\\\\)\\\\\\\\\\\\\\\\) \\\\\\\\\\\\\\\\[RightBracketingBar]\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\
\\\\\\\\\\\\^2 - 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\
\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\
\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[\
Infinity]\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
 \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
   StringForm["`1`", 
    Piecewise[{{
       StringForm["`1` = `2`", 
        analyse`Limite[$CellContext`x (-1 + $CellContext`x^2)^(-1) 
         Abs[-1 + $CellContext`x], $CellContext`x, -1, -1], 
        DirectedInfinity[-1]], " "}, {
       StringForm["`1` = `2`", 
        analyse`Limite[$CellContext`x (-1 + $CellContext`x^2)^(-1) 
         Abs[-1 + $CellContext`x], $CellContext`x, -1, 1], 
        StringForm["+`1`", 
         DirectedInfinity[1]]], "  "}}, 0]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075312034005*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>",
   StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, -1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753120682783`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\[LeftBracketingBar] \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x - 1\\\\\\\
\\\\\\\\\\)\\\\\\\\\\\\\\\\) \\\\\\\\\\\\\\\\[RightBracketingBar]\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\
\\\\\\\\\\\\^2 - 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\
\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\\\\\\\\(\\\\\
\\\\(1\\\\\\\\/2\\\\\\\\)\\\\\\\\)\\\\\\\\)\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\[LeftBracketingBar] \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x - 1\\\\\\\
\\\\\\\\\\)\\\\\\\\\\\\\\\\) \\\\\\\\\\\\\\\\[RightBracketingBar]\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\
\\\\\\\\\\\\^2 - 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\
\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\/2\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"  \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> \
1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
   StringForm["`1`", 
    Piecewise[{{
       StringForm["`1` = `2`", 
        analyse`Limite[$CellContext`x (-1 + $CellContext`x^2)^(-1) 
         Abs[-1 + $CellContext`x], $CellContext`x, 1, -1], 
        Rational[-1, 2]], " "}, {
       StringForm["`1` = `2`", 
        analyse`Limite[$CellContext`x (-1 + $CellContext`x^2)^(-1) 
         Abs[-1 + $CellContext`x], $CellContext`x, 1, 1], 
        Rational[1, 2]], "  "}}, 0]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753121014967`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\\\\\ \
\\\\(\\\\(\\\\[LeftBracketingBar] \\\\(\\\\(x - 1\\\\)\\\\) \
\\\\[RightBracketingBar]\\\\)\\\\)\\\\)\\\\/\\\\(x\\\\^2 - 1\\\\)\\\\)\\\"\\)\
\\) = \\!\\(TraditionalForm\\`1\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[$CellContext`x (-1 + $CellContext`x^2)^(-1) 
     Abs[-1 + $CellContext`x], $CellContext`x, 
     DirectedInfinity[1]], 1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075312138877*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\\\\\ \
\\\\(\\\\(\\\\[LeftBracketingBar] \\\\(\\\\(x - 1\\\\)\\\\) \
\\\\[RightBracketingBar]\\\\)\\\\)\\\\)\\\\/\\\\(x\\\\^2 - 1\\\\)\\\\)\\\"\\)\
\\) = \\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[$CellContext`x (-1 + $CellContext`x^2)^(-1) 
     Abs[-1 + $CellContext`x], $CellContext`x, 
     DirectedInfinity[-1]], -1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753121685343`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", "1"}], 
    "\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
   SequenceForm[
   "AH", " \[Congruent] ", $CellContext`y == 1, " \[AGrave] droite"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075312201838*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", 
     RowBox[{"-", "1"}]}], "\[InvisibleSpace]", "\<\" \[AGrave] gauche\"\>"}],
   
   SequenceForm[
   "AH", " \[Congruent] ", $CellContext`y == -1, " \[AGrave] gauche"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075312235013*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "10", "\[InvisibleSpace]", "\<\".  Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/2\\)\\)\\)\\)}\"\>",
      StringForm["`1` \\ {`2`}", Reals, 
       Rational[-1, 2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm[10, ".  Dom f = ", 
    analyse`Ens[
     Or[$CellContext`x < Rational[-1, 2], $CellContext`x > 
      Rational[-1, 2]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753122690163`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-\\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(1\\\\\\\\\\\\\\\\/2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\[LeftBracketingBar] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - x - \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\[RightBracketingBar]\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\
\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\
\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\
\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-\\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(1\\\\\\\\\\\\\\\\/2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\">\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\[LeftBracketingBar] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - x - \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\[RightBracketingBar]\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\
\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\
\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\
\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\
\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\
\"\\\", \\\"\\\\\\\"  \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \
ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
   StringForm["`1`", 
    Piecewise[{{
       StringForm["`1` = `2`", 
        analyse`Limite[(1 + 2 $CellContext`x)^(-1) 
         Abs[-2 - $CellContext`x + $CellContext`x^2], $CellContext`x, 
         Rational[-1, 2], -1], 
        DirectedInfinity[-1]], " "}, {
       StringForm["`1` = `2`", 
        analyse`Limite[(1 + 2 $CellContext`x)^(-1) 
         Abs[-2 - $CellContext`x + $CellContext`x^2], $CellContext`x, 
         Rational[-1, 2], 1], 
        StringForm["+`1`", 
         DirectedInfinity[1]]], "  "}}, 0]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753123016033`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/2\\)\\)\\)\\)\"\>",
   StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 
    Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753123352757`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\[LeftBracketingBar] \\\\(\\\
\\(x\\\\^2 - x - 2\\\\)\\\\) \
\\\\[RightBracketingBar]\\\\)\\\\/\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + \
1\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(1 + 2 $CellContext`x)^(-1) 
     Abs[-2 - $CellContext`x + $CellContext`x^2], $CellContext`x, 
     DirectedInfinity[1]], 
    StringForm["+`1`", 
     DirectedInfinity[1]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.436075312369051*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\[LeftBracketingBar] \\\\(\\\\(x\\\\^2 \
- x - 2\\\\)\\\\) \\\\[RightBracketingBar]\\\\)\\\\/\\\\(\\\\(\\\\(2\\\\\\\\ \
x\\\\)\\\\) + 1\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\[Infinity]\
\\)\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(1 + 2 $CellContext`x)^(-1) 
     Abs[-2 - $CellContext`x + $CellContext`x^2], $CellContext`x, 
     DirectedInfinity[-1]], 
    DirectedInfinity[-1]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4360753124023333`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AO\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", 
     RowBox[{
      FractionBox["x", "2"], "-", 
      FractionBox["3", "4"]}]}]}],
   SequenceForm[
   "AO", " \[Congruent] ", $CellContext`y == 
    Rational[-3, 4] + Rational[1, 2] $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.43607531243616*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{520, 740},
WindowMargins->{{235, Automatic}, {Automatic, 22}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
CellLabelAutoDelete->True,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)",
StyleDefinitions->"stylemath.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 153, 4, 39, "Subsection"],
Cell[CellGroupData[{
Cell[768, 31, 5752, 189, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[6545, 224, 433, 13, 35, "Print"],
Cell[6981, 239, 455, 14, 53, "Print"],
Cell[7439, 255, 421, 13, 35, "Print"],
Cell[7863, 270, 394, 11, 55, "Print"],
Cell[8260, 283, 428, 13, 52, "Print"],
Cell[8691, 298, 461, 14, 48, "Print"],
Cell[9155, 314, 385, 11, 35, "Print"],
Cell[9543, 327, 417, 12, 35, "Print"],
Cell[9963, 341, 536, 15, 45, "Print"],
Cell[10502, 358, 558, 16, 47, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11109, 380, 34, 0, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[11168, 384, 819, 25, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[12012, 413, 844, 19, 24, "Print"],
Cell[12859, 434, 556, 10, 42, "Print"],
Cell[13418, 446, 556, 10, 42, "Print"],
Cell[13977, 458, 777, 16, 42, "Print"],
Cell[14757, 476, 729, 16, 42, "Print"],
Cell[15489, 494, 507, 13, 42, "Print"],
Cell[15999, 509, 504, 13, 42, "Print"],
Cell[16506, 524, 1321, 31, 24, "Print"],
Cell[17830, 557, 575, 11, 53, "Print"],
Cell[18408, 570, 555, 11, 53, "Print"],
Cell[18966, 583, 2561, 44, 105, "Print"],
Cell[21530, 629, 286, 6, 24, "Print"],
Cell[21819, 637, 671, 13, 53, "Print"],
Cell[22493, 652, 612, 12, 53, "Print"],
Cell[23108, 666, 439, 11, 24, "Print"],
Cell[23550, 679, 418, 10, 24, "Print"],
Cell[23971, 691, 506, 14, 24, "Print"],
Cell[24480, 707, 554, 10, 41, "Print"],
Cell[25037, 719, 660, 12, 41, "Print"],
Cell[25700, 733, 605, 12, 41, "Print"],
Cell[26308, 747, 418, 10, 24, "Print"],
Cell[26729, 759, 548, 15, 24, "Print"],
Cell[27280, 776, 677, 14, 55, "Print"],
Cell[27960, 792, 312, 6, 24, "Print"],
Cell[28275, 800, 656, 14, 55, "Print"],
Cell[28934, 816, 304, 6, 24, "Print"],
Cell[29241, 824, 612, 11, 55, "Print"],
Cell[29856, 837, 562, 10, 55, "Print"],
Cell[30421, 849, 842, 19, 24, "Print"],
Cell[31266, 870, 557, 11, 52, "Print"],
Cell[31826, 883, 699, 14, 59, "Print"],
Cell[32528, 899, 306, 6, 24, "Print"],
Cell[32837, 907, 666, 12, 52, "Print"],
Cell[33506, 921, 616, 12, 52, "Print"],
Cell[34125, 935, 337, 8, 24, "Print"],
Cell[34465, 945, 958, 23, 24, "Print"],
Cell[35426, 970, 611, 12, 48, "Print"],
Cell[36040, 984, 591, 12, 48, "Print"],
Cell[36634, 998, 676, 12, 48, "Print"],
Cell[37313, 1012, 622, 12, 48, "Print"],
Cell[37938, 1026, 420, 10, 24, "Print"],
Cell[38361, 1038, 514, 14, 24, "Print"],
Cell[38878, 1054, 561, 11, 41, "Print"],
Cell[39442, 1067, 746, 15, 41, "Print"],
Cell[40191, 1084, 584, 12, 41, "Print"],
Cell[40778, 1098, 401, 12, 24, "Print"],
Cell[41182, 1112, 129, 2, 24, "Print"],
Cell[41314, 1116, 649, 12, 42, "Print"],
Cell[41966, 1130, 707, 16, 42, "Print"],
Cell[42676, 1148, 420, 10, 24, "Print"],
Cell[43099, 1160, 721, 18, 24, "Print"],
Cell[43823, 1180, 3167, 49, 87, "Print"],
Cell[46993, 1231, 296, 6, 24, "Print"],
Cell[47292, 1239, 2892, 47, 87, "Print"],
Cell[50187, 1288, 763, 14, 45, "Print"],
Cell[50953, 1304, 723, 14, 45, "Print"],
Cell[51679, 1320, 418, 10, 24, "Print"],
Cell[52100, 1332, 439, 11, 24, "Print"],
Cell[52542, 1345, 699, 18, 42, "Print"],
Cell[53244, 1365, 3409, 55, 123, "Print"],
Cell[56656, 1422, 330, 7, 42, "Print"],
Cell[56989, 1431, 880, 18, 47, "Print"],
Cell[57872, 1451, 763, 15, 47, "Print"],
Cell[58638, 1468, 468, 13, 42, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)