(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      6039,        194]
NotebookOptionsPosition[      5614,        176]
NotebookOutlinePosition[      5972,        192]
CellTagsIndexPosition[      5929,        189]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "the", " ", "following", " ", "expression", " ", "was", " ", "cut"}], "-",
     "and", "-", 
    RowBox[{
    "pasted", " ", "from", " ", "another", " ", "Mathematica", " ", 
     "program"}]}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "x", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"thething", "[", "x_", "]"}], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "0.74"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "0.18"}], "+", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"0.88", "\[InvisibleSpace]", "+", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1.5797749303665627`", "\[InvisibleSpace]", "+", "x"}], 
         ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "0.2621440000000001`"}], "-", 
          RowBox[{"0.4096000000000001`", " ", "x"}]}], ")"}], " ", 
        SqrtBox[
         RowBox[{"1.`", "\[InvisibleSpace]", "+", "x"}]], " ", 
        RowBox[{"Log", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "0.5999999999999999`"}], "-", 
           RowBox[{"1.`", " ", 
            SqrtBox[
             RowBox[{"1.`", "\[InvisibleSpace]", "+", "x"}]]}]}], 
          RowBox[{"0.5999999999999999`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", 
            SqrtBox[
             RowBox[{"1.`", "\[InvisibleSpace]", "+", "x"}]]}]}]], "]"}]}]}], 
      ")"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.462894067969489*^9, 3.462894102984854*^9}, {
  3.462894159943994*^9, 3.462894169421971*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Why", " ", "are", " ", "the", " ", "first", " ", "two", " ", "not", " ", 
    "equal", " ", "to", " ", "the", " ", "second", " ", 
    RowBox[{"two", "?"}]}], "  ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"thething", "[", "x", "]"}], ",", 
     RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\n", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"thething", "[", "x", "]"}], ",", 
     RowBox[{"x", "\[Rule]", "0"}], ",", 
     RowBox[{"Direction", "->", 
      RowBox[{"-", "1"}]}]}], "]"}], "\n", 
   RowBox[{
    RowBox[{"thething", "[", "x", "]"}], " ", "/.", " ", 
    RowBox[{"x", "\[Rule]", "0"}]}], "\n", 
   RowBox[{"thething", "[", "0", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.46289411299893*^9, 3.462894132129373*^9}}],

Cell[BoxData[
 RowBox[{"++", 
  RowBox[{"++", 
   RowBox[{"++", 
    RowBox[{"++", 
     RowBox[{"++", 
      RowBox[{"++", 
       RowBox[{"++", 
        RowBox[{"++", 
         RowBox[{"++", 
          RowBox[{"++", 
           RowBox[{"++", 
            RowBox[{"++", 
             RowBox[{"++", 
              RowBox[{"++", 
               RowBox[{"++", 
                RowBox[{"++", 
                 RowBox[{"++", 
                  RowBox[{"++", 
                   RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{"++", 
                    RowBox[{
                    "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\
}]}]}]}]}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.462893548605202*^9, 3.462893553413876*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"anotherthing", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", ".74"}], "*", 
     RowBox[{"(", 
      RowBox[{"x", "-", ".18"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"x", "+", ".88"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"x", "+", "1.58"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", ".26"}], "-", 
       RowBox[{".41", "*", "x"}]}], ")"}], "*", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"1.", "+", "x"}], "]"}], "*", 
     RowBox[{"Log", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", ".6"}], "-", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "+", "x"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{".6", "-", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"1.", "+", "x"}], "]"}]}], ")"}]}], "]"}]}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.462892805520057*^9, 3.46289291688573*^9}, {
   3.462892964383511*^9, 3.462892964665174*^9}, {3.46289308422015*^9, 
   3.462893096529648*^9}, {3.462893207540439*^9, 3.462893209387844*^9}, 
   3.462893527041568*^9}],

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"anotherthing", "[", "x", "]"}], ",", 
   RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.462893531594341*^9, 3.462893533735951*^9}}]
},
WindowSize->{640, 719},
WindowMargins->{{87, Automatic}, {44, Automatic}},
ShowSelection->True,
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1708, 48, 247, "Input"],
Cell[2256, 70, 830, 22, 121, "Input"],
Cell[3089, 94, 1148, 36, 32, "Input"],
Cell[4240, 132, 1150, 35, 77, "Input"],
Cell[5393, 169, 217, 5, 32, "Input"]
}
]
*)

(* End of internal cache information *)