(* 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[     26845,        641]
NotebookOptionsPosition[     26081,        612]
NotebookOutlinePosition[     26563,        631]
CellTagsIndexPosition[     26520,        628]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Definition of a Limit", "Title",
 CellChangeTimes->{{3.413324939942691*^9, 3.413324943202569*^9}, {
  3.693182012140811*^9, 3.693182012871214*^9}},
 TextAlignment->Center],

Cell["\<\
by Ruth Dover
Illinois Mathematics and Science Academy\
\>", "Subsubtitle",
 CellChangeTimes->{{3.693182026867012*^9, 3.693182043854003*^9}}],

Cell[TextData[{
 "Enter both the numerator and denominator of your function, the min and max \
values of ",
 StyleBox["x ",
  FontSlant->"Italic"],
 "though more will often be shown, and then enter ",
 StyleBox["a",
  FontSlant->"Italic"],
 ", the ",
 StyleBox["x",
  FontSlant->"Italic"],
 "-value for the limit in question.  Examples are given, but these items may \
be edited. The visualization is most easily seen when the point in question \
isn't too far from the origin.\n",
 StyleBox["Note:",
  FontColor->RGBColor[1, 0, 0]],
 "  At this point, this notebook works best for functions that are continuous \
and for functions that have a limit at ",
 StyleBox["x",
  FontSlant->"Italic"],
 " = ",
 StyleBox["a",
  FontSlant->"Italic"],
 ".  As they should, things become interesting for functions with vertical \
asymptotes at ",
 StyleBox["x",
  FontSlant->"Italic"],
 " = ",
 StyleBox["a",
  FontSlant->"Italic"],
 " and for discontinuous, piecewise-defined functions. \n",
 StyleBox["Another note:",
  FontColor->RGBColor[1, 0, 0]],
 " There are a lot of things that can mess this up.  You\[CloseCurlyQuote]ll \
see a bunch of pink, denoting an error. In particular, be sure that \
\[Florin](",
 StyleBox["xmin",
  FontSlant->"Italic"],
 ") \[NotEqual] \[Florin](",
 StyleBox["xmax",
  FontSlant->"Italic"],
 ").  (Next version...)"
}], "Text",
 CellChangeTimes->{{3.41367156156203*^9, 3.413671606468844*^9}, {
  3.413671657586767*^9, 3.41367182178771*^9}, {3.413806606396904*^9, 
  3.4138066321409197`*^9}, {3.413806676064136*^9, 3.413806843031518*^9}, {
  3.413806889121324*^9, 3.413806893482257*^9}, {3.41380911199555*^9, 
  3.41380914619905*^9}, {3.413825034316278*^9, 3.413825071863146*^9}, {
  3.413825225173032*^9, 3.4138252805161667`*^9}, {3.413849435429348*^9, 
  3.413849450112876*^9}, {3.4138508460276012`*^9, 3.413850910274728*^9}, {
  3.41385143437223*^9, 3.413851438904952*^9}, {3.6931816489402037`*^9, 
  3.693181667615551*^9}, {3.693181721740237*^9, 3.693181724731844*^9}, {
  3.693182075974045*^9, 3.6931820848389177`*^9}, {3.6931823445302258`*^9, 
  3.693182347429349*^9}, {3.693182413591667*^9, 3.693182419148993*^9}, {
  3.693182450301573*^9, 3.693182494491564*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"numf", "[", "x_", "]"}], ":=", 
   RowBox[{
    SuperscriptBox["x", "3"], "-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"denf", "[", "x_", "]"}], ":=", 
   RowBox[{"x", "-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xmin", "=", "0"}], ";", " ", 
  RowBox[{"xmax", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", "=", "1"}], 
  ";"}], "\[IndentingNewLine]", "LimitDefinition"}], "Input",
 CellChangeTimes->{{3.413671004012637*^9, 3.413671013341167*^9}, {
   3.413806349962229*^9, 3.413806557317649*^9}, 3.4138069200632343`*^9, {
   3.41380700343298*^9, 3.413807035073146*^9}, {3.413808879140423*^9, 
   3.413808914529962*^9}, {3.413809004572534*^9, 3.413809021289803*^9}, {
   3.4138093444549294`*^9, 3.413809361932624*^9}, {3.413809460767178*^9, 
   3.413809476364711*^9}, {3.413818971799225*^9, 3.413819017044334*^9}, {
   3.413824995418009*^9, 3.413825003416646*^9}, {3.4138496846293297`*^9, 
   3.4138496876497107`*^9}, {3.413849773383013*^9, 3.413849781920402*^9}, {
   3.413850485786813*^9, 3.41385048817137*^9}, {3.41385067118039*^9, 
   3.413850682878928*^9}, {3.4138507166479588`*^9, 3.413850717225081*^9}, {
   3.413850762663089*^9, 3.413850786586815*^9}}],

Cell[TextData[{
 "Here is the set-up for a piecewise-defined function. For these, we use ",
 StyleBox["numf",
  FontSlant->"Italic"],
 " for the piecewise definition and let ",
 StyleBox["denf = ",
  FontSlant->"Italic"],
 "1."
}], "Text",
 CellChangeTimes->{{3.69318180938673*^9, 3.693181850047043*^9}, {
  3.693182351298875*^9, 3.6931823661155167`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"numf", "[", "x_", "]"}], ":=", 
   RowBox[{"\[Piecewise]", GridBox[{
      {"x", 
       RowBox[{"x", "\[LessEqual]", "1"}]},
      {
       RowBox[{"3", "-", "x"}], 
       RowBox[{"x", ">", "1"}]}
     }]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"denf", "[", "x_", "]"}], ":=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xmin", "=", "0"}], ";", " ", 
  RowBox[{"xmax", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", "=", "1"}], 
  ";"}], "\[IndentingNewLine]", "LimitDefinition"}], "Input",
 CellChangeTimes->{{3.413671004012637*^9, 3.413671013341167*^9}, {
   3.413806349962229*^9, 3.413806557317649*^9}, 3.4138069200632343`*^9, {
   3.41380700343298*^9, 3.413807035073146*^9}, {3.413808879140423*^9, 
   3.413808914529962*^9}, {3.413809004572534*^9, 3.413809021289803*^9}, {
   3.4138093444549294`*^9, 3.413809361932624*^9}, {3.413809460767178*^9, 
   3.413809476364711*^9}, {3.413818971799225*^9, 3.413819017044334*^9}, {
   3.413824995418009*^9, 3.413825003416646*^9}, {3.4138496846293297`*^9, 
   3.4138496876497107`*^9}, {3.413849773383013*^9, 3.413849781920402*^9}, {
   3.413850485786813*^9, 3.41385048817137*^9}, {3.41385067118039*^9, 
   3.413850682878928*^9}, {3.4138507166479588`*^9, 3.413850717225081*^9}, {
   3.413850762663089*^9, 3.413850786586815*^9}, {3.4966848762565327`*^9, 
   3.496684923468643*^9}}],

Cell[CellGroupData[{

Cell["initialization", "Section",
 CellChangeTimes->{{3.413671508839813*^9, 3.413671511408704*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"f", ",", "g", ",", " ", "LimitDefinition"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"LimitDefinition", ":=", "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "myfunc", ",", " ", "yrange", ",", " ", "mylimit", ",", "plusep", ",", 
      " ", "minusep", ",", " ", "onex", ",", " ", "twox", ",", "hole", ",", 
      " ", "leftline", ",", " ", "rightline", ",", " ", "apt", ",", " ", 
      "ylineone", ",", "ylinetwo", ",", " ", "yptone", ",", " ", "ypttwo", 
      ",", " ", "aline", ",", " ", "limline", ",", " ", "ymin", ",", " ", 
      "ymax"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"g", "[", "x_", "]"}], ":=", 
      RowBox[{
       RowBox[{"numf", "[", "x", "]"}], "/", 
       RowBox[{"denf", "[", "x", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"myfunc", "=", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"g", "[", "x", "]"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"x", ",", " ", 
          RowBox[{"Min", "[", 
           RowBox[{"0", ",", "xmin"}], "]"}], ",", 
          RowBox[{"Max", "[", 
           RowBox[{"0", ",", " ", "xmax"}], "]"}]}], "}"}], ",", " ", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Thickness", "[", ".008", "]"}]}]}], "]"}]}], ";", 
     RowBox[{"yrange", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"PlotRange", "[", "myfunc", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}], "-", 
       RowBox[{
        RowBox[{"PlotRange", "[", "myfunc", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ymin", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"PlotRange", "[", "myfunc", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", " ", "1"}], "]"}], "]"}], "-", 
       RowBox[{
        RowBox[{"(", ".1", ")"}], "yrange"}]}]}], ";", 
     RowBox[{"ymax", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"PlotRange", "[", "myfunc", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}], "+", 
       RowBox[{".1", "yrange"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"mylimit", "=", 
      RowBox[{"Limit", "[", 
       RowBox[{
        RowBox[{"g", "[", "x", "]"}], ",", " ", 
        RowBox[{"x", "\[Rule]", "a"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"hole", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"numf", "[", "a", "]"}], "\[Equal]", "0"}], "&&", 
         RowBox[{
          RowBox[{"denf", "[", "a", "]"}], "\[Equal]", "0"}]}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"White", ",", " ", 
          RowBox[{"Disk", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a", ",", "mylimit"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"xmax", "-", "xmin"}], ")"}], "/", "70"}], ",", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "/", "70"}], ")"}], " ", "GoldenRatio", " ", 
               RowBox[{"(", 
                RowBox[{"ymax", "-", "ymin"}], ")"}]}]}], "}"}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", " ", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"apt", "=", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Blue", ",", " ", 
        RowBox[{"Circle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a", ",", " ", "mylimit"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"xmax", "-", "xmin"}], ")"}], "/", "70"}], ",", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "/", "70"}], ")"}], "  ", "GoldenRatio", 
             RowBox[{"(", 
              RowBox[{"ymax", "-", "ymin"}], ")"}]}]}], "}"}]}], "]"}]}], 
       "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"aline", "=", 
      RowBox[{"{", 
       RowBox[{"Red", ",", " ", 
        RowBox[{"Thickness", "[", ".004", "]"}], ",", " ", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"a", ",", " ", 
             RowBox[{"0", "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "/", "30"}], ")"}], "yrange"}]}]}], "}"}], ",", 
           " ", 
           RowBox[{"{", 
            RowBox[{"a", ",", " ", 
             RowBox[{"0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "/", "30"}], ")"}], "yrange"}]}]}], "}"}]}], 
          "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"limline", "=", 
      RowBox[{"{", 
       RowBox[{"Purple", ",", " ", 
        RowBox[{"Thickness", "[", ".004", "]"}], ",", " ", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"0", "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "/", "30"}], ")"}], 
               RowBox[{"(", 
                RowBox[{"xmax", "-", "xmin"}], ")"}]}]}], ",", " ", 
             "mylimit"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "/", "30"}], ")"}], 
               RowBox[{"(", 
                RowBox[{"xmax", "-", "xmin"}], ")"}]}]}], ",", " ", 
             "mylimit"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"plusep", " ", "=", " ", 
         RowBox[{"mylimit", "+", "\[Epsilon]"}]}], ";", " ", 
        RowBox[{"minusep", "=", 
         RowBox[{"mylimit", "-", "\[Epsilon]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"onex", "=", 
         RowBox[{"b", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{"minusep", "\[Equal]", 
             RowBox[{"g", "[", "b", "]"}]}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"b", ",", " ", 
              RowBox[{"a", "-", ".01"}]}], "}"}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"twox", "=", 
         RowBox[{"c", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{"plusep", "\[Equal]", 
             RowBox[{"g", "[", "c", "]"}]}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"c", ",", " ", 
              RowBox[{"a", "+", ".01"}]}], "}"}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"leftline", "=", 
         RowBox[{"{", 
          RowBox[{"Red", ",", " ", 
           RowBox[{"Thickness", "[", ".004", "]"}], ",", " ", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"onex", ",", 
                RowBox[{"Min", "[", 
                 RowBox[{"0", ",", " ", 
                  RowBox[{"g", "[", "onex", "]"}]}], "]"}]}], "}"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{"onex", ",", 
                RowBox[{"Max", "[", 
                 RowBox[{"0", ",", 
                  RowBox[{"g", "[", "onex", "]"}]}], "]"}]}], "}"}]}], "}"}], 
            "]"}]}], "}"}]}], ";", " ", 
        RowBox[{"rightline", "=", 
         RowBox[{"{", 
          RowBox[{"Red", ",", 
           RowBox[{"Thickness", "[", ".004", "]"}], ",", " ", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"twox", ",", 
                RowBox[{"Min", "[", 
                 RowBox[{"0", ",", " ", 
                  RowBox[{"g", "[", "twox", "]"}]}], "]"}]}], "}"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{"twox", ",", 
                RowBox[{"Max", "[", 
                 RowBox[{"0", ",", 
                  RowBox[{"g", "[", "twox", "]"}]}], "]"}]}], "}"}]}], "}"}], 
            "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ylineone", "=", 
         RowBox[{"{", 
          RowBox[{"Purple", ",", " ", 
           RowBox[{"Thickness", "[", ".004", "]"}], ",", " ", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", " ", "plusep"}], "}"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"g", "[", "twox", "]"}], ">", 
                   RowBox[{"g", "[", "onex", "]"}]}], ",", "twox", ",", 
                  "onex"}], "]"}], ",", " ", "plusep"}], "}"}]}], "}"}], 
            "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"ylinetwo", "=", 
         RowBox[{"{", 
          RowBox[{"Purple", ",", " ", 
           RowBox[{"Thickness", "[", ".004", "]"}], ",", " ", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", " ", "minusep"}], "}"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"g", "[", "twox", "]"}], ">", 
                   RowBox[{"g", "[", "onex", "]"}]}], ",", " ", "onex", ",", 
                  " ", "twox"}], "]"}], ",", " ", "minusep"}], "}"}]}], "}"}],
             "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"yptone", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"PointSize", "[", "Large", "]"}], ",", " ", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"onex", ",", " ", 
              RowBox[{"g", "[", "onex", "]"}]}], "}"}], "]"}]}], "}"}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"ypttwo", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"PointSize", "[", "Large", "]"}], ",", " ", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"twox", ",", 
              RowBox[{"g", "[", "twox", "]"}]}], "}"}], "]"}]}], "}"}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"\[Delta]", "=", 
         RowBox[{"Min", "[", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"onex", "-", "a"}], "]"}], ",", " ", 
           RowBox[{"Abs", "[", 
            RowBox[{"twox", "-", "a"}], "]"}]}], "]"}]}], ";", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"Show", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"myfunc", ",", " ", 
            RowBox[{"Graphics", "[", 
             RowBox[{"{", " ", 
              RowBox[{
              "leftline", ",", "rightline", ",", "hole", ",", " ", "apt", ",",
                "ylineone", ",", " ", "ylinetwo", ",", " ", "yptone", ",", 
               " ", "ypttwo", ",", " ", "aline", ",", " ", "limline"}], "}"}],
              "]"}]}], "}"}], ",", " ", 
          RowBox[{"AxesOrigin", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}]}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
          RowBox[{"PlotLabel", "\[Rule]", 
           RowBox[{"Grid", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"StringForm", "[", 
                  RowBox[{"\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\) = ``,  \!\(\*UnderscriptBox[\(lim\), \(x \[Rule] \
a\)]\) \[Florin](\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\)) = ``\>\"", ",", " ", "a", ",", " ", "mylimit"}], 
                  "]"}], ",", " ", 
                 RowBox[{"FontSize", "\[Rule]", "14"}], ",", " ", 
                 RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], "}"}], 
              ",", "\[IndentingNewLine]", 
              RowBox[{"{", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"StringForm", "[", 
                  RowBox[{
                  "\"\<\[Epsilon] = ``,  \[Delta] = ``\>\"", ",", " ", 
                   "\[Epsilon]", ",", " ", "\[Delta]"}], "]"}], ",", " ", 
                 RowBox[{"FontSize", "\[Rule]", "14"}], ",", " ", 
                 RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], "}"}]}], 
             "}"}], "]"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\[Epsilon]", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "/", "2"}], ")"}], 
            RowBox[{"Min", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"ymax", "-", "mylimit"}], ")"}], ",", 
              RowBox[{
               RowBox[{"Abs", "[", "mylimit", "]"}], "+", 
               RowBox[{"(", 
                RowBox[{"ymax", "-", "ymin"}], ")"}]}], ",", " ", 
              RowBox[{"Abs", "[", 
               RowBox[{"mylimit", "-", 
                RowBox[{"g", "[", "xmin", "]"}]}], "]"}], ",", 
              RowBox[{"Abs", "[", 
               RowBox[{"mylimit", "-", 
                RowBox[{"g", "[", "xmax", "]"}]}], "]"}]}], "]"}]}], " ", ",",
            " ", "\"\<epsilon\>\""}], "}"}], ",", " ", ".001", ",", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3", "/", "4"}], ")"}], 
          RowBox[{"Min", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"ymax", "-", "mylimit"}], ")"}], ",", 
            RowBox[{
             RowBox[{"Abs", "[", "mylimit", "]"}], "+", 
             RowBox[{"(", 
              RowBox[{"ymax", "-", "ymin"}], ")"}]}], ",", 
            RowBox[{"Abs", "[", " ", 
             RowBox[{"mylimit", "-", 
              RowBox[{"g", "[", "xmin", "]"}]}], "]"}], ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"mylimit", "-", 
              RowBox[{"g", "[", "xmax", "]"}]}], "]"}]}], "]"}]}]}], "}"}], 
       ",", 
       RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", " ", 
       RowBox[{"ControlPlacement", "\[Rule]", " ", "Left"}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.413325178337232*^9, 3.4133251932299137`*^9}, {
   3.413325254990377*^9, 3.4133252643374977`*^9}, {3.413325296688274*^9, 
   3.413325345174274*^9}, {3.413325399088818*^9, 3.413325409563024*^9}, {
   3.413325456007918*^9, 3.4133254571573553`*^9}, {3.4133254880816383`*^9, 
   3.413325542437379*^9}, {3.413325608327671*^9, 3.4133258483744793`*^9}, {
   3.413325886505734*^9, 3.413326012189396*^9}, {3.4133261681621923`*^9, 
   3.413326176858036*^9}, {3.413326260744912*^9, 3.413326279677709*^9}, {
   3.413326419645294*^9, 3.4133268062226353`*^9}, {3.413326841821535*^9, 
   3.413326848360042*^9}, {3.413326884728612*^9, 3.413326953195368*^9}, {
   3.4133270026999702`*^9, 3.413327069789309*^9}, {3.4133271032278757`*^9, 
   3.413327137270357*^9}, {3.413327287564353*^9, 3.413327288124465*^9}, {
   3.413327327150778*^9, 3.413327332002286*^9}, {3.413327438742201*^9, 
   3.413327441880555*^9}, {3.413327484639371*^9, 3.4133276005472116`*^9}, {
   3.413327645956249*^9, 3.41332765239699*^9}, {3.4133277834263067`*^9, 
   3.413327894563703*^9}, {3.4133279255841722`*^9, 3.413328039303371*^9}, {
   3.413328207350967*^9, 3.413328214545034*^9}, {3.413328278811204*^9, 
   3.413328281948922*^9}, {3.413328313830163*^9, 3.41332832036604*^9}, {
   3.413328354216199*^9, 3.41332854418015*^9}, {3.413328617757086*^9, 
   3.413328621946432*^9}, {3.4133287679600763`*^9, 3.413328772650669*^9}, {
   3.413328837059348*^9, 3.413328851801096*^9}, {3.413328895792858*^9, 
   3.4133289272158823`*^9}, {3.413328988496162*^9, 3.413329101396015*^9}, {
   3.413329233405238*^9, 3.413329266043777*^9}, {3.413329298217053*^9, 
   3.413329308633936*^9}, {3.413464375177326*^9, 3.4134643801527557`*^9}, {
   3.413464417449149*^9, 3.4134644532207823`*^9}, {3.413568683681385*^9, 
   3.413568797217169*^9}, {3.413568875255988*^9, 3.4135688757208853`*^9}, {
   3.413569094308469*^9, 3.4135691204440603`*^9}, {3.413569309639244*^9, 
   3.4135693253889637`*^9}, {3.4135693556925898`*^9, 
   3.4135694357856293`*^9}, {3.4135694778419456`*^9, 3.413569506466482*^9}, {
   3.4135696667755404`*^9, 3.413569678955121*^9}, {3.413569769909203*^9, 
   3.41356977577229*^9}, {3.4135701807973833`*^9, 3.413570265365931*^9}, {
   3.413570304078907*^9, 3.413570324044237*^9}, {3.413570378804235*^9, 
   3.413570512749958*^9}, {3.413570627823894*^9, 3.41357063459853*^9}, {
   3.413570692654381*^9, 3.413570742412953*^9}, {3.4135712456031103`*^9, 
   3.4135712581397753`*^9}, {3.4135860308101*^9, 3.4135862203116093`*^9}, {
   3.413586255825638*^9, 3.413586275112503*^9}, {3.413586319766192*^9, 
   3.413586369431821*^9}, {3.413586417768876*^9, 3.413586500118361*^9}, {
   3.413586560242187*^9, 3.413586623851179*^9}, {3.4135867342516823`*^9, 
   3.4135868400402803`*^9}, {3.4135869029935627`*^9, 3.413586908766461*^9}, {
   3.4136700077297783`*^9, 3.413670019759574*^9}, {3.413670133125987*^9, 
   3.413670142290188*^9}, {3.413670438543294*^9, 3.41367044262434*^9}, {
   3.413670813137704*^9, 3.413670813456347*^9}, {3.413670996957086*^9, 
   3.413671180672777*^9}, 3.413671217112671*^9, 3.413671461991129*^9, 
   3.41367151886373*^9, {3.413806071476215*^9, 3.413806108802401*^9}, {
   3.413806141609569*^9, 3.4138061872644777`*^9}, {3.413806235375873*^9, 
   3.413806236021165*^9}, {3.413806293728969*^9, 3.413806305008584*^9}, {
   3.413808211190318*^9, 3.413808364567543*^9}, {3.413809048992744*^9, 
   3.413809068461617*^9}, {3.4138091705858994`*^9, 3.413809182841312*^9}, {
   3.413809268811549*^9, 3.41380932590094*^9}, {3.4138094290055237`*^9, 
   3.413809429844802*^9}, 3.413809868930471*^9, {3.4138182238484917`*^9, 
   3.4138184804954977`*^9}, {3.4138185149507103`*^9, 
   3.4138185366885138`*^9}, {3.413829940781541*^9, 3.413830008401531*^9}, 
   3.413830676086972*^9, {3.413830732941413*^9, 3.413830872645995*^9}, {
   3.4138309110014477`*^9, 3.41383091787398*^9}, {3.413831006013261*^9, 
   3.4138311024619102`*^9}, {3.413831158091384*^9, 3.413831222920196*^9}, {
   3.4138312626399097`*^9, 3.41383135944812*^9}, {3.413831413620277*^9, 
   3.413831458417369*^9}, {3.413847115934136*^9, 3.413847173295917*^9}, {
   3.41384746276725*^9, 3.4138474751730747`*^9}, {3.4138475681158543`*^9, 
   3.413847630608447*^9}, {3.413847708580521*^9, 3.413847791819716*^9}, {
   3.4138480386981983`*^9, 3.413848041933547*^9}, {3.413848072338314*^9, 
   3.413848089607033*^9}, {3.4138481291530733`*^9, 3.413848153092532*^9}, {
   3.413848230429133*^9, 3.413848357692004*^9}, {3.413848640588583*^9, 
   3.4138487083985*^9}, {3.4138489488788424`*^9, 3.413848969779694*^9}, {
   3.413849156757619*^9, 3.413849159456853*^9}, {3.413849338140951*^9, 
   3.413849355232526*^9}, 3.413849497826634*^9, {3.413849550562291*^9, 
   3.4138495515044537`*^9}, {3.4138495850050287`*^9, 3.413849597311964*^9}, {
   3.413849741831111*^9, 3.413849748176196*^9}, {3.413849875193737*^9, 
   3.413849876105135*^9}, {3.413849916122779*^9, 3.41384995423622*^9}, {
   3.41385009458144*^9, 3.413850142669765*^9}, {3.413850196328657*^9, 
   3.413850230571143*^9}, {3.413850420361808*^9, 3.413850448654394*^9}, {
   3.41385051683385*^9, 3.413850517496439*^9}, {3.413850565438435*^9, 
   3.41385059462457*^9}, {3.496615040636601*^9, 3.4966150452549953`*^9}}]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->None,
WindowSize->{889, 810},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification->1.,
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 177, 3, 92, "Title"],
Cell[747, 27, 151, 4, 49, "Subsubtitle"],
Cell[901, 33, 2195, 54, 163, "Text"],
Cell[3099, 89, 1283, 26, 117, "Input"],
Cell[4385, 117, 355, 10, 30, "Text"],
Cell[4743, 129, 1438, 32, 133, "Input"],
Cell[CellGroupData[{
Cell[6206, 165, 99, 1, 64, "Section"],
Cell[6308, 168, 19745, 440, 693, "Input",
 InitializationCell->True]
}, Closed]]
}, Open  ]]
}
]
*)