(* 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[     39934,       1257]
NotebookOptionsPosition[     35767,       1125]
NotebookOutlinePosition[     36164,       1142]
CellTagsIndexPosition[     36121,       1139]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", "   ", 
  RowBox[{"par", " ", "Marcel", " ", "D\[EAcute]l\[EGrave]ze"}], "   ", 
  "*)"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"BeginPackage", "[", "\"\<EtudeFct`\>\"", "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"restreins", "::", "usage"}], "=", "\n", "\t", 
  "\"\<restreins[cond] rajoute la condition cond[x] \[AGrave] l'ensemble de d\
\[EAcute]finition.\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"tv", "::", "usage"}], "=", "\n", "\t", 
  "\"\<tv[f] donne le tableau de variations de la fonction f.\>\""}]], "Input",\

 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ntv", "::", "usage"}], "=", "\n", "\t", 
  "\"\<Ntv[f] donne le tableau de variations de la fonction f.\>\""}]], \
"Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"valAbs", "::", "usage"}], "=", "\n", "\t", 
  "\"\<valAbs[x] donne la valeur absolue de x.\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"indicGT", "::", "usage"}], "=", "\[IndentingNewLine]", 
  "\"\<indicGT[a][x] est la fonction indicatrice de l'intervalle ]a; \
\[Infinity][\\n(non d\[EAcute]finie en x=a).\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"indicLT", "::", "usage"}], "=", "\[IndentingNewLine]", 
  "\"\<indicLT[b][x] est la fonction indicatrice de l'intervalle \
]-\[Infinity], b[\\n(non d\[EAcute]finie en x=b).\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"indicGTLT", "::", "usage"}], "=", "\[IndentingNewLine]", 
  "\"\<indicGTLT[a,b][x] est la fonction indicatrice de l'intervalle ]a, \
b[\\n(non d\[EAcute]finie en x=a et x=b).\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"<<", "Tableaux`"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"Off", "[", 
  RowBox[{"General", "::", "\"\<spell1\>\""}], "]"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"Off", "[", 
  RowBox[{"Reduce", "::", "\"\<ratnz\>\""}], "]"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"valAbs", "[", "t_", "]"}], "=", 
   SqrtBox[
    SuperscriptBox["t", "2"]]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"indicGT", "[", "a_", "]"}], "[", "t_", "]"}], "=", 
   RowBox[{
    FractionBox["1", "2"], "+", 
    FractionBox[
     RowBox[{"valAbs", "[", 
      RowBox[{"t", "-", "a"}], "]"}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"t", "-", "a"}], ")"}]}]]}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"indicLT", "[", "b_", "]"}], "[", "t_", "]"}], "=", 
   RowBox[{
    FractionBox["1", "2"], "-", 
    FractionBox[
     RowBox[{"valAbs", "[", 
      RowBox[{"t", "-", "b"}], "]"}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"t", "-", "b"}], ")"}]}]]}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"indicGTLT", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], "[", "t_", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"indicGT", "[", "a", "]"}], "[", "t", "]"}], "*", 
   RowBox[{
    RowBox[{"indicLT", "[", "b", "]"}], "[", "t", "]"}]}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"ordonne", "[", "e_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Head", "[", "e", "]"}], "===", "Or"}], ",", 
    RowBox[{"Sort", "[", 
     RowBox[{"e", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"#1", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "<", 
         RowBox[{"#2", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], ",", "e"}],
    "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"simpl", "[", "k_", "]"}], ":=", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{"Simplify", "[", "k", "]"}], ",", "x", ",", "Reals"}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheExpr", "[", "k_", "]"}], ":=", 
  RowBox[{
   RowBox[{"HoldForm", "[", "k", "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
     "True", "\[Rule]", "\"\<x\[Element]\[DoubleStruckCapitalR]\>\""}], ",", 
     RowBox[{"False", "\[Rule]", "\"\<x\[Element]{}\>\""}], ",", 
     RowBox[{"x", "\[Rule]", "\"\<x\>\""}]}], "}"}]}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"restreins", "[", 
   RowBox[{"cond_", "/;", " ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Head", "[", "cond", "]"}], "===", "Symbol"}], " ", "\[Or]", 
      " ", 
      RowBox[{
       RowBox[{"Head", "[", "cond", "]"}], "===", "Function"}]}], "]"}]}], 
   "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
    "Print", "[", 
     "\"\<L'argument de restreins doit \[EHat]tre une fonction \
bool\[EAcute]enne, par exemple\>\"", "]"}], ";", "\[IndentingNewLine]", "\t", 
    
    RowBox[{
    "Print", "[", 
     "\"\<cond[x_] = (0\[LessEqual]x\[LessEqual]1);    restreins[cond]\>\"", 
     "]"}]}], ")"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"restreins", "[", "cond_", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"restriction", "=", 
     RowBox[{"cond", "[", "x", "]"}]}], ";", " ", 
    RowBox[{"afficheExpr", "[", "restriction", "]"}]}], ")"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheSgn", "[", 
   RowBox[{"{", 
    RowBox[{"n_", ",", " ", "z_", ",", " ", "p_"}], "}"}], "]"}], ":=", 
  RowBox[{"afficheTableau", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<n\[EAcute]gatif pour\>\"", ",", "\"\<nul pour\>\"", ",", " ", 
      "\"\<positif pour\>\""}], "}"}], ",", "None", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"simpl", "[", "n", "]"}], "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"ordonne", "[", 
         RowBox[{"simpl", "[", "z", "]"}], "]"}], "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"simpl", "[", "p", "]"}], "]"}], "}"}]}], "}"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"ensDef", "[", "fct_", "]"}], ":=", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{"restriction", "\[And]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fct", "[", "x", "]"}], "<", "0"}], " ", ")"}], "\[Or]", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"fct", "[", "x", "]"}], "\[GreaterEqual]", "0"}], ")"}]}], 
      ")"}]}], ",", " ", "x", ",", " ", "Reals"}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"zeros", "[", "fct_", "]"}], ":=", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{"restriction", "\[And]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"fct", "[", "x", "]"}], "\[Equal]", "0"}], ")"}]}], ",", "x", 
    " ", ",", "Reals"}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"valX", "[", "e_", "]"}], ":=", 
   RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Head", "[", "e", "]"}], "===", "Or"}], ",", 
       RowBox[{"Apply", "[", 
        RowBox[{"List", ",", "e"}], "]"}], ",", "e"}], "]"}], "/.", 
     RowBox[{
      RowBox[{"Equal", "[", 
       RowBox[{"x", ",", "vx_"}], "]"}], "\[Rule]", "vx"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"sgn", "[", "fct_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Reduce", "[", 
     RowBox[{
      RowBox[{"restriction", "\[And]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fct", "[", "x", "]"}], "<", "0"}], ")"}]}], ",", "x", ",", 
      "Reals"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"zeros", "[", "fct", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Reduce", "[", 
     RowBox[{
      RowBox[{"restriction", "\[And]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fct", "[", "x", "]"}], ">", "0"}], ")"}]}], ",", "x", ",", 
      "Reals"}], "]"}]}], "}"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ensDefD1", "[", "fct_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ensDef", "[", "fct", "]"}], ")"}], "\[And]", 
    RowBox[{"(", 
     RowBox[{"ensDef", "[", 
      RowBox[{"fct", "'"}], "]"}], ")"}]}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"ensDefD2", "[", "fct_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"ensDef", "[", "fct", "]"}], ")"}], "\[And]", 
   RowBox[{"(", 
    RowBox[{"ensDef", "[", 
     RowBox[{"fct", "'"}], "]"}], ")"}], "\[And]", 
   RowBox[{"(", 
    RowBox[{"ensDef", "[", 
     RowBox[{"fct", "''"}], "]"}], ")"}]}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"zerosD1", "[", "fct_", "]"}], ":=", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ensDef", "[", "fct", "]"}], "\[And]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"fct", "'"}], "[", "x", "]"}], "==", "0"}], ")"}]}], ",", "x",
     ",", "Reals"}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"zerosD2", "[", "fct_", "]"}], ":=", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ensDefD1", "[", "fct", "]"}], "\[And]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"fct", "''"}], "[", "x", "]"}], "==", "0"}], ")"}]}], ",", 
    "x", ",", "Reals"}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"sgnD1", "[", "fct_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Reduce", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ensDef", "[", "fct", "]"}], "\[And]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"fct", "'"}], "[", "x", "]"}], "<", "0"}], ")"}]}], ",", 
      "x", ",", "Reals"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"zerosD1", "[", "fct", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Reduce", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ensDef", "[", "fct", "]"}], "\[And]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"fct", "'"}], "[", "x", "]"}], ">", "0"}], ")"}]}], ",", 
      "x", ",", "Reals"}], "]"}]}], "}"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"sgnD2", "[", "fct_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Reduce", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ensDefD1", "[", "fct", "]"}], "\[And]", 
       RowBox[{
        RowBox[{
         RowBox[{"fct", "''"}], "[", "x", "]"}], "<", "0"}]}], ",", "x", ",", 
      "Reals"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"zerosD2", "[", "fct", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Reduce", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ensDefD1", "[", "fct", "]"}], "\[And]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"fct", "''"}], "[", "x", "]"}], ">", "0"}], ")"}]}], ",", 
      "x", ",", "Reals"}], "]"}]}], "}"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"asAffPlus", "[", "fct_", "]"}], ":=", "  ", 
   RowBox[{
    RowBox[{
    "Print", "[", 
     "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], fonction non d\[EAcute]finie.\>\
\"", "]"}], "/;", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ensDef", "[", "fct", "]"}], "/.", 
       RowBox[{"x", "\[Rule]", 
        SuperscriptBox["10", "99"]}]}], ")"}], "=!=", "True"}]}]}], 
  ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"asAffPlus", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", " ", "b", ",", "t"}], "}"}], ",", 
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{"Limit", "[", 
       RowBox[{
        FractionBox[
         RowBox[{"fct", "[", "t", "]"}], "t"], ",", 
        RowBox[{"t", "\[Rule]", "\[Infinity]"}]}], "]"}]}], ";", 
     RowBox[{"b", "=", 
      RowBox[{"Limit", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"fct", "[", "t", "]"}], "-", 
         RowBox[{"a", "*", "t"}]}], ",", 
        RowBox[{"t", "\[Rule]", "\[Infinity]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"a", "===", "0"}], ",", " ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"NumericQ", "[", "b", "]"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], asymptote horizontale y= \
\>\"", ",", "b"}], "]"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], direction asymptotique \
nulle et f(x)\[LongRightArrow] \>\"", ",", "b"}], "]"}]}], "]"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"NumericQ", "[", "a", "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"NumericQ", "[", "b", "]"}], ",", "  ", 
           RowBox[{"Print", "[", 
            RowBox[{
            "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], asymptote affine y = (\>\
\"", ",", "a", ",", "\"\<)x +(\>\"", ",", "b", ",", "\"\<)\>\""}], "]"}], ",",
            "   ", 
           RowBox[{"Print", "[", 
            RowBox[{
            "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], pas d'asymptote affine \
(direction asymptotique = \>\"", ",", "a", ",", "\"\<)\>\""}], "]"}]}], "]"}],
          ",", "  ", 
         RowBox[{
         "Print", "[", 
          "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], pas d'asymptote \
affine.\>\"", "]"}]}], "]"}]}], " ", "]"}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"asAffMoins", "[", "fct_", "]"}], ":=", "  ", 
   RowBox[{
    RowBox[{
    "Print", "[", 
     "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], fonction non d\[EAcute]finie.\>\
\"", "]"}], "/;", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ensDef", "[", "fct", "]"}], "/.", 
       RowBox[{"x", "\[Rule]", 
        RowBox[{"-", 
         SuperscriptBox["10", "99"]}]}]}], ")"}], "=!=", "True"}]}]}], 
  ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"asAffMoins", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", " ", "b", ",", "t"}], "}"}], ",", 
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{"Limit", "[", 
       RowBox[{
        FractionBox[
         RowBox[{"fct", "[", "t", "]"}], "t"], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"-", "\[Infinity]"}]}]}], "]"}]}], ";", 
     RowBox[{"b", "=", 
      RowBox[{"Limit", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"fct", "[", "t", "]"}], "-", 
         RowBox[{"a", "*", "t"}]}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"-", "\[Infinity]"}]}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"a", "===", "0"}], ",", " ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"NumericQ", "[", "b", "]"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], asymptote horizontale y= \
\>\"", ",", "b"}], "]"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], direction asymptotique \
nulle et f(x)\[LongRightArrow] \>\"", ",", "b"}], "]"}]}], "]"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"NumericQ", "[", "a", "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"NumericQ", "[", "b", "]"}], ",", "  ", 
           RowBox[{"Print", "[", 
            RowBox[{
            "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], asymptote affine y = (\>\
\"", ",", "a", ",", "\"\<)x +(\>\"", ",", "b", ",", "\"\<)\>\""}], "]"}], ",",
            "   ", 
           RowBox[{"Print", "[", 
            RowBox[{
            "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], pas d'asymptote affine \
(direction asymptotique = \>\"", ",", "a", ",", "\"\<)\>\""}], "]"}]}], "]"}],
          ",", "  ", 
         RowBox[{
         "Print", "[", 
          "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], pas d'asymptote \
affine.\>\"", "]"}]}], " ", "]"}]}], "]"}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"NasAffPlus", "[", "fct_", "]"}], ":=", "  ", 
   RowBox[{
    RowBox[{
    "Print", "[", 
     "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], fonction non d\[EAcute]finie.\>\
\"", "]"}], "/;", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ensDef", "[", "fct", "]"}], "/.", 
       RowBox[{"x", "\[Rule]", 
        SuperscriptBox["10", "99"]}]}], ")"}], "=!=", "True"}]}]}], 
  ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"NasAffPlus", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", " ", "b", ",", "t"}], "}"}], ",", 
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{"Limit", "[", 
       RowBox[{
        FractionBox[
         RowBox[{"fct", "[", "t", "]"}], "t"], ",", 
        RowBox[{"t", "\[Rule]", "\[Infinity]"}]}], "]"}]}], ";", 
     RowBox[{"b", "=", 
      RowBox[{"Limit", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"fct", "[", "t", "]"}], "-", 
         RowBox[{"a", "*", "t"}]}], ",", 
        RowBox[{"t", "\[Rule]", "\[Infinity]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"a", "===", "0"}], ",", " ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"NumericQ", "[", "b", "]"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], asymptote horizontale y= \
\>\"", ",", 
           RowBox[{"N", "[", "b", "]"}]}], "]"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], direction asymptotique \
nulle et f(x)\[LongRightArrow] \>\"", ",", 
           RowBox[{"N", "[", "b", "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"NumericQ", "[", "a", "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"NumericQ", "[", "b", "]"}], ",", "  ", 
           RowBox[{"Print", "[", 
            RowBox[{
            "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], asymptote affine y = (\>\
\"", ",", 
             RowBox[{"N", "[", "a", "]"}], ",", "\"\<)x +(\>\"", ",", 
             RowBox[{"N", "[", "b", "]"}], ",", "\"\<)\>\""}], "]"}], ",", 
           "   ", 
           RowBox[{"Print", "[", 
            RowBox[{
            "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], pas d'asymptote affine \
(direction asymptotique = \>\"", ",", 
             RowBox[{"N", "[", "a", "]"}], ",", "\"\<)\>\""}], "]"}]}], "]"}],
          ",", "  ", 
         RowBox[{
         "Print", "[", 
          "\"\<Du c\[OHat]t\[EAcute] +\[Infinity], pas d'asymptote \
affine.\>\"", "]"}]}], " ", "]"}]}], "]"}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"NasAffMoins", "[", "fct_", "]"}], ":=", "  ", 
   RowBox[{
    RowBox[{
    "Print", "[", 
     "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], fonction non d\[EAcute]finie.\>\
\"", "]"}], "/;", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ensDef", "[", "fct", "]"}], "/.", 
       RowBox[{"x", "\[Rule]", 
        RowBox[{"-", 
         SuperscriptBox["10", "99"]}]}]}], ")"}], "=!=", "True"}]}]}], 
  ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"NasAffMoins", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", " ", "b", ",", "t"}], "}"}], ",", 
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{"Limit", "[", 
       RowBox[{
        FractionBox[
         RowBox[{"fct", "[", "t", "]"}], "t"], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"-", "\[Infinity]"}]}]}], "]"}]}], ";", 
     RowBox[{"b", "=", 
      RowBox[{"Limit", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"fct", "[", "t", "]"}], "-", 
         RowBox[{"a", "*", "t"}]}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"-", "\[Infinity]"}]}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"a", "===", "0"}], ",", " ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"NumericQ", "[", "b", "]"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], asymptote horizontale y= \
\>\"", ",", 
           RowBox[{"N", "[", "b", "]"}]}], "]"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], direction asymptotique \
nulle et f(x)\[LongRightArrow] \>\"", ",", 
           RowBox[{"N", "[", "b", "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"NumericQ", "[", "a", "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"NumericQ", "[", "b", "]"}], ",", "  ", 
           RowBox[{"Print", "[", 
            RowBox[{
            "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], asymptote affine y = (\>\
\"", ",", 
             RowBox[{"N", "[", "a", "]"}], ",", "\"\<)x +(\>\"", ",", 
             RowBox[{"N", "[", "b", "]"}], ",", "\"\<)\>\""}], "]"}], ",", 
           "\[IndentingNewLine]", "   ", 
           RowBox[{"Print", "[", 
            RowBox[{
            "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], pas d'asymptote affine \
(direction asymptotique = \>\"", ",", 
             RowBox[{"N", "[", "a", "]"}], ",", "\"\<)\>\""}], "]"}]}], "]"}],
          ",", "  ", 
         RowBox[{
         "Print", "[", 
          "\"\<Du c\[OHat]t\[EAcute] -\[Infinity], pas d'asymptote \
affine.\>\"", "]"}]}], " ", "]"}]}], "]"}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"extr", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z", "=", 
      RowBox[{"zerosD1", "[", "fct", "]"}]}], "}"}], ",", 
    RowBox[{"\"\<Aucun\>\"", "/;", 
     RowBox[{"z", "\[Equal]", "False"}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"extr", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z", "=", 
      RowBox[{"zerosD1", "[", "fct", "]"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<x\[Element]\[DoubleStruckCapitalR]\>\"", ",", " ", 
       "\"\<f(\[DoubleStruckCapitalR])\>\""}], "}"}], "/;", 
     RowBox[{"z", "\[Equal]", "True"}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"extr", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z", "=", 
      RowBox[{"valX", "[", 
       RowBox[{"zerosD1", "[", "fct", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Head", "[", "z", "]"}], "===", "List"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"z", "=", 
        RowBox[{"Sort", "[", 
         RowBox[{"z", ",", "LessEqual"}], "]"}]}], ";", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"z", ",", " ", 
          RowBox[{"Simplify", "[", 
           RowBox[{"fct", "[", "z", "]"}], "]"}]}], "}"}], "]"}]}], ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"z", ",", " ", 
         RowBox[{"fct", "[", "z", "]"}]}], "}"}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheExtr", "[", 
   RowBox[{"e_List", "/;", 
    RowBox[{
     RowBox[{"Not", "[", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"e", ",", "x"}], "]"}], "]"}], "\[And]", 
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Dimensions", "[", "e", "]"}], "]"}], "===", "1"}]}]}], "]"}], 
  ":=", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Candidat(s) extremum(s) : \>\"", ",", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"e", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<f(%)\>\""}], "}"}], "/.", 
     RowBox[{"x", "\[Rule]", "\"\<x\>\""}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheExtr", "[", 
   RowBox[{"e_List", "/;", 
    RowBox[{
     RowBox[{"Not", "[", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"e", ",", "x"}], "]"}], "]"}], "\[And]", 
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Dimensions", "[", "e", "]"}], "]"}], "===", "2"}]}]}], "]"}], 
  ":=", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Candidat(s) extremum(s) : \>\"", ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"e", "[", 
          RowBox[{"[", 
           RowBox[{"k", ",", "1"}], "]"}], "]"}], ",", "\"\<f(%)\>\""}], 
        "}"}], "/.", 
       RowBox[{"x", "\[Rule]", "\"\<x\>\""}]}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", 
        RowBox[{"Length", "[", "e", "]"}]}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheExtr", "[", "e_", "]"}], ":=", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Candidat(s) extremum(s) : \>\"", ",", " ", "e"}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"pi", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z", "=", 
      RowBox[{"zerosD2", "[", "fct", "]"}]}], "}"}], ",", 
    RowBox[{"\"\<Aucun\>\"", "/;", 
     RowBox[{"z", "\[Equal]", "False"}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"pi", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z", "=", 
      RowBox[{"zerosD2", "[", "fct", "]"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<x\[Element]\[DoubleStruckCapitalR]\>\"", ",", " ", 
       "\"\<f(\[DoubleStruckCapitalR])\>\""}], "}"}], "/;", 
     RowBox[{"z", "\[Equal]", "True"}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"pi", "[", "fct_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z", "=", 
      RowBox[{"valX", "[", 
       RowBox[{"zerosD2", "[", "fct", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Head", "[", "z", "]"}], "===", "List"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"z", "=", 
        RowBox[{"Sort", "[", 
         RowBox[{"z", ",", "LessEqual"}], "]"}]}], ";", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"z", ",", " ", 
          RowBox[{"Simplify", "[", 
           RowBox[{"fct", "[", "z", "]"}], "]"}]}], "}"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{"{", 
        RowBox[{"z", ",", 
         RowBox[{"fct", "[", "z", "]"}]}], "}"}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"affichePi", "[", 
   RowBox[{"e_List", "/;", 
    RowBox[{
     RowBox[{"Not", "[", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"e", ",", "x"}], "]"}], "]"}], "\[And]", 
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Dimensions", "[", "e", "]"}], "]"}], "===", "1"}]}]}], "]"}], 
  ":=", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Candidat(s) point(s) d'inflexion : \>\"", ",", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"e", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<f(%)\>\""}], "}"}], "/.", 
     RowBox[{"x", "\[Rule]", "\"\<x\>\""}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"affichePi", "[", 
   RowBox[{"e_List", "/;", 
    RowBox[{
     RowBox[{"Not", "[", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"e", ",", "x"}], "]"}], "]"}], "\[And]", 
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Dimensions", "[", "e", "]"}], "]"}], "===", "2"}]}]}], "]"}], 
  ":=", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Candidat(s) points(s) d'inflexion: \>\"", ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"e", "[", 
          RowBox[{"[", 
           RowBox[{"k", ",", "1"}], "]"}], "]"}], ",", "\"\<f(%)\>\""}], 
        "}"}], "/.", 
       RowBox[{"x", "\[Rule]", "\"\<x\>\""}]}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", 
        RowBox[{"Length", "[", "e", "]"}]}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"affichePi", "[", "e_", "]"}], ":=", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Candidat(s) points(s) d'inflexion : \>\"", ",", " ", "e"}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"tv", "[", "fct_", "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Ensemble de d\[EAcute]finition de f : \>\"", ",", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"simpl", "[", 
         RowBox[{"ensDef", "[", "fct", "]"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<f(x) = \>\"", ",", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"Factor", "[", 
         RowBox[{"fct", "[", "x", "]"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Signe(f(x)) : \>\"", ",", 
       RowBox[{"afficheSgn", "[", 
        RowBox[{"sgn", "[", "fct", "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "                    ", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<f'(x) = \>\"", ",", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"Factor", "[", 
         RowBox[{
          RowBox[{"fct", "'"}], "[", "x", "]"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "                  ", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Signe(f'(x)) : \>\"", ",", " ", 
       RowBox[{"afficheSgn", "[", 
        RowBox[{"sgnD1", "[", "fct", "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "                  ", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<f''(x) = \>\"", ",", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"Factor", "[", 
         RowBox[{
          RowBox[{"fct", "''"}], "[", "x", "]"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "                  ", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Signe(f''(x)) : \>\"", ",", "  ", 
       RowBox[{"afficheSgn", "[", 
        RowBox[{"sgnD2", "[", "fct", "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "                 ", 
     RowBox[{"afficheExtr", "[", 
      RowBox[{"extr", "[", "fct", "]"}], "]"}], ";", "\[IndentingNewLine]", 
     "                  ", 
     RowBox[{"affichePi", "[", " ", 
      RowBox[{"pi", "[", "fct", "]"}], "]"}], ";", "\[IndentingNewLine]", 
     "                 ", 
     RowBox[{"asAffPlus", "[", "fct", "]"}], ";", "\[IndentingNewLine]", 
     "                ", 
     RowBox[{"asAffMoins", "[", "fct", "]"}]}], ")"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ntv", "[", "fct_", "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Ensemble de d\[EAcute]finition de f : \>\"", ",", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"N", "[", 
         RowBox[{"simpl", "[", 
          RowBox[{"ensDef", "[", "fct", "]"}], "]"}], "]"}], "]"}]}], "]"}], 
     ";", "\[IndentingNewLine]", "\t\t", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<f(x) = \>\"", ",", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"Factor", "[", 
         RowBox[{"N", "[", 
          RowBox[{"fct", "[", "x", "]"}], "]"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Signe(f(x)) : \>\"", ",", 
       RowBox[{"afficheSgn", "[", 
        RowBox[{"N", "[", 
         RowBox[{"sgn", "[", "fct", "]"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "                    ", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<f'(x) = \>\"", ",", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"Factor", "[", 
         RowBox[{"N", "[", 
          RowBox[{
           RowBox[{"fct", "'"}], "[", "x", "]"}], "]"}], "]"}], "]"}]}], 
      "]"}], ";", "\[IndentingNewLine]", "                  ", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Signe(f'(x)) : \>\"", ",", " ", 
       RowBox[{"afficheSgn", "[", 
        RowBox[{"N", "[", 
         RowBox[{"sgnD1", "[", "fct", "]"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "                  ", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<f''(x) = \>\"", ",", 
       RowBox[{"afficheExpr", "[", 
        RowBox[{"Factor", "[", 
         RowBox[{"N", "[", 
          RowBox[{
           RowBox[{"fct", "''"}], "[", "x", "]"}], "]"}], "]"}], "]"}]}], 
      "]"}], ";", "\[IndentingNewLine]", "                  ", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Signe(f''(x)) : \>\"", ",", "  ", 
       RowBox[{"afficheSgn", "[", 
        RowBox[{"N", "[", 
         RowBox[{"sgnD2", "[", "fct", "]"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "                  ", 
     RowBox[{"afficheExtr", "[", " ", 
      RowBox[{"N", "[", 
       RowBox[{"extr", "[", "fct", "]"}], "]"}], "]"}], ";", 
     "\[IndentingNewLine]", "                 ", 
     RowBox[{"affichePi", "[", " ", 
      RowBox[{"N", "[", 
       RowBox[{"pi", "[", "fct", "]"}], "]"}], "]"}], ";", 
     "\[IndentingNewLine]", "                ", 
     RowBox[{"NasAffPlus", "[", "fct", "]"}], ";", "\[IndentingNewLine]", 
     "                ", 
     RowBox[{"NasAffMoins", "[", "fct", "]"}]}], ")"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"On", "[", 
  RowBox[{"General", "::", "\"\<spell1\>\""}], "]"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"restriction", "=", "True"}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"End", "[", "]"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"EndPackage", "[", "]"}]], "Input",
 InitializationCell->True]
},
AutoGeneratedPackage->Automatic,
WindowSize->{825, 647},
WindowMargins->{{158, Automatic}, {-29, Automatic}},
ShowSelection->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 156, 4, 31, "Input",
 InitializationCell->True],
Cell[727, 27, 126, 3, 31, "Input",
 InitializationCell->True],
Cell[856, 32, 224, 5, 52, "Input",
 InitializationCell->True],
Cell[1083, 39, 183, 5, 52, "Input",
 InitializationCell->True],
Cell[1269, 46, 185, 5, 52, "Input",
 InitializationCell->True],
Cell[1457, 53, 170, 4, 52, "Input",
 InitializationCell->True],
Cell[1630, 59, 251, 5, 52, "Input",
 InitializationCell->True],
Cell[1884, 66, 252, 5, 52, "Input",
 InitializationCell->True],
Cell[2139, 73, 254, 5, 52, "Input",
 InitializationCell->True],
Cell[2396, 80, 101, 2, 31, "Input",
 InitializationCell->True],
Cell[2500, 84, 80, 2, 31, "Input",
 InitializationCell->True],
Cell[2583, 88, 126, 3, 31, "Input",
 InitializationCell->True],
Cell[2712, 93, 124, 3, 31, "Input",
 InitializationCell->True],
Cell[2839, 98, 168, 6, 38, "Input",
 InitializationCell->True],
Cell[3010, 106, 370, 13, 47, "Input",
 InitializationCell->True],
Cell[3383, 121, 370, 13, 47, "Input",
 InitializationCell->True],
Cell[3756, 136, 322, 10, 31, "Input",
 InitializationCell->True],
Cell[4081, 148, 513, 17, 31, "Input",
 InitializationCell->True],
Cell[4597, 167, 222, 7, 31, "Input",
 InitializationCell->True],
Cell[4822, 176, 413, 11, 31, "Input",
 InitializationCell->True],
Cell[5238, 189, 714, 23, 72, "Input",
 InitializationCell->True],
Cell[5955, 214, 288, 8, 31, "Input",
 InitializationCell->True],
Cell[6246, 224, 834, 24, 52, "Input",
 InitializationCell->True],
Cell[7083, 250, 510, 15, 31, "Input",
 InitializationCell->True],
Cell[7596, 267, 328, 10, 31, "Input",
 InitializationCell->True],
Cell[7927, 279, 546, 16, 72, "Input",
 InitializationCell->True],
Cell[8476, 297, 685, 20, 72, "Input",
 InitializationCell->True],
Cell[9164, 319, 311, 10, 31, "Input",
 InitializationCell->True],
Cell[9478, 331, 384, 12, 31, "Input",
 InitializationCell->True],
Cell[9865, 345, 371, 12, 31, "Input",
 InitializationCell->True],
Cell[10239, 359, 374, 12, 31, "Input",
 InitializationCell->True],
Cell[10616, 373, 801, 24, 72, "Input",
 InitializationCell->True],
Cell[11420, 399, 776, 23, 72, "Input",
 InitializationCell->True],
Cell[12199, 424, 478, 16, 33, "Input",
 InitializationCell->True],
Cell[12680, 442, 2119, 56, 152, "Input",
 InitializationCell->True],
Cell[14802, 500, 504, 17, 33, "Input",
 InitializationCell->True],
Cell[15309, 519, 2170, 58, 152, "Input",
 InitializationCell->True],
Cell[17482, 579, 479, 16, 33, "Input",
 InitializationCell->True],
Cell[17964, 597, 2311, 61, 152, "Input",
 InitializationCell->True],
Cell[20278, 660, 505, 17, 33, "Input",
 InitializationCell->True],
Cell[20786, 679, 2385, 63, 152, "Input",
 InitializationCell->True],
Cell[23174, 744, 334, 10, 31, "Input",
 InitializationCell->True],
Cell[23511, 756, 468, 14, 31, "Input",
 InitializationCell->True],
Cell[23982, 772, 942, 29, 72, "Input",
 InitializationCell->True],
Cell[24927, 803, 668, 20, 52, "Input",
 InitializationCell->True],
Cell[25598, 825, 889, 28, 52, "Input",
 InitializationCell->True],
Cell[26490, 855, 214, 6, 31, "Input",
 InitializationCell->True],
Cell[26707, 863, 332, 10, 31, "Input",
 InitializationCell->True],
Cell[27042, 875, 466, 14, 31, "Input",
 InitializationCell->True],
Cell[27511, 891, 935, 29, 72, "Input",
 InitializationCell->True],
Cell[28449, 922, 675, 20, 52, "Input",
 InitializationCell->True],
Cell[29127, 944, 896, 28, 52, "Input",
 InitializationCell->True],
Cell[30026, 974, 222, 6, 31, "Input",
 InitializationCell->True],
Cell[30251, 982, 2388, 56, 252, "Input",
 InitializationCell->True],
Cell[32642, 1040, 2714, 65, 252, "Input",
 InitializationCell->True],
Cell[35359, 1107, 125, 3, 31, "Input",
 InitializationCell->True],
Cell[35487, 1112, 107, 3, 31, "Input",
 InitializationCell->True],
Cell[35597, 1117, 78, 2, 31, "Input",
 InitializationCell->True],
Cell[35678, 1121, 85, 2, 31, "Input",
 InitializationCell->True]
}
]
*)

(* End of internal cache information *)