Loading Calculus Exercises/9.20-1.nb 0 → 100644 +114 −0 Original line number Diff line number Diff line (* 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[ 2943, 104] NotebookOptionsPosition[ 2469, 82] NotebookOutlinePosition[ 2855, 99] CellTagsIndexPosition[ 2812, 96] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a_", "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ SuperscriptBox["a", "n"], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"i", "=", "1"}], "n"], RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["a", "i"]}], ")"}]}]]}]}], ";"}], "\n", RowBox[{ RowBox[{"m", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"i", "/", "5"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "2"}], ",", "6"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"N", "[", RowBox[{"f", "[", "m", "]"}], "]"}]}], "Code", CellChangeTimes->{{3.525487990630028*^9, 3.5254879917688293`*^9}, { 3.5254881959887886`*^9, 3.5254883701006937`*^9}, {3.52548840212755*^9, 3.5254884043895545`*^9}, {3.5254885324657793`*^9, 3.5254885498286095`*^9}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5077894746182076`"}], ",", RowBox[{"-", "0.2100032051692334`"}], ",", "0.`", ",", "0.20666452994188209`", ",", "0.4452346629978543`", ",", "0.7232898658374531`", ",", "0.9648645387834638`", ",", "1.`", ",", "1.`"}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{{3.5254883515834618`*^9, 3.525488378571509*^9}, { 3.5254885342909822`*^9, 3.525488551669413*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"f", "[", "m", "]"}], "]"}]], "Code", CellChangeTimes->{{3.5254884667428637`*^9, 3.525488473419676*^9}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5077894746182076`"}], ",", RowBox[{"-", "0.2100032051692334`"}], ",", "0.`", ",", "0.20666452994188209`", ",", "0.4452346629978543`"}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{3.5254884769608817`*^9}] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowSize->{607, 545}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (2009\:5e742\:670818\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 932, 27, 155, "Code"], Cell[1502, 51, 462, 10, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2001, 66, 149, 3, 54, "Code"], Cell[2153, 71, 300, 8, 66, "Output"] }, Open ]] } ] *) (* End of internal cache information *) Calculus Exercises/Caculus Q2.2.1.11.nb 0 → 100644 +478 −0 Original line number Diff line number Diff line (* 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[ 14824, 468] NotebookOptionsPosition[ 14063, 437] NotebookOutlinePosition[ 14416, 453] CellTagsIndexPosition[ 14373, 450] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5110803100508156`*^9, 3.5110803363308525`*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.5110803106308165`*^9, 3.511080337180853*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "0.9"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5110808222415323`*^9, 3.5110808230915337`*^9}}], Cell[BoxData["0.`"], "Output", CellChangeTimes->{3.5110808236915345`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5110804027809453`*^9, 3.511080455531019*^9}, 3.511080789651487*^9}], Cell[BoxData[ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["1", "2"]}], "}"}], "]"}]], "Output", CellChangeTimes->{{3.5110803973009377`*^9, 3.5110804560010195`*^9}, 3.511080790591488*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{3.5110808002315016`*^9}], Cell[BoxData[ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], "]"}]], "Output", CellChangeTimes->{3.511080801281503*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "1.1"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{{3.511080806801511*^9, 3.5110808150215225`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I", " ", "got", " ", RowBox[{"it", "!"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"From", " ", "Exercises", " ", "2.2", ".1", ".11"}], "\[IndentingNewLine]", RowBox[{"the", " ", "question", " ", "is", " ", "that"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Computing", " ", RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Now", " ", ",", RowBox[{"wecan", " ", "draw", " ", "a", " ", RowBox[{"conclusion", ".", "\[IndentingNewLine]", RowBox[{"[", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], "=", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], RowBox[{"(", RowBox[{"2", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}]}], ")"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], RowBox[{"(", RowBox[{"2", "\[Times]", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], "\[Times]", FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]}], ")"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], RowBox[{"(", RowBox[{"2", "\[Times]", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], "\[Times]", FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox["1", RowBox[{"2", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], ")"}]}]]}], ")"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], "\[Times]", FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox[ SqrtBox["x"], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], ")"}]]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], "\[Times]", FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox["1", RowBox[{"(", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], "x"]], "+", SqrtBox["x"]}], ")"}]]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox[ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"x", "+", FractionBox["1", "x"]}]], "+", SqrtBox["x"]}], ")"}]], "\[IndentingNewLine]", "\[IndentingNewLine]", "thus", "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox[ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"x", "+", FractionBox["1", "x"]}]], "+", SqrtBox["x"]}], ")"}]]}], "]"}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}], "\[Times]", RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"x", "+", FractionBox["1", "x"]}]], "+", SqrtBox["x"]}], ")"}]], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{"1", "\[Times]", "0"}], "\[IndentingNewLine]", "=", "0", "\[IndentingNewLine]"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], \ "Input", CellChangeTimes->{{3.5110818679710207`*^9, 3.5110820116812215`*^9}, { 3.511082064141295*^9, 3.5110825266419425`*^9}}] }, WindowSize->{607, 505}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (2009\:5e742\:670818\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 355, 10, 44, InheritFromParent], Cell[925, 34, 96, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1058, 40, 444, 13, 47, "Input"], Cell[1505, 55, 74, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1616, 61, 466, 14, 47, "Input"], Cell[2085, 77, 272, 8, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2394, 90, 416, 13, 47, "Input"], Cell[2813, 105, 194, 6, 30, "Output"] }, Open ]], Cell[3022, 114, 442, 13, 47, "Input"], Cell[3467, 129, 10592, 306, 1028, InheritFromParent] } ] *) (* End of internal cache information *) Loading
Calculus Exercises/9.20-1.nb 0 → 100644 +114 −0 Original line number Diff line number Diff line (* 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[ 2943, 104] NotebookOptionsPosition[ 2469, 82] NotebookOutlinePosition[ 2855, 99] CellTagsIndexPosition[ 2812, 96] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a_", "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ SuperscriptBox["a", "n"], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"i", "=", "1"}], "n"], RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["a", "i"]}], ")"}]}]]}]}], ";"}], "\n", RowBox[{ RowBox[{"m", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"i", "/", "5"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "2"}], ",", "6"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"N", "[", RowBox[{"f", "[", "m", "]"}], "]"}]}], "Code", CellChangeTimes->{{3.525487990630028*^9, 3.5254879917688293`*^9}, { 3.5254881959887886`*^9, 3.5254883701006937`*^9}, {3.52548840212755*^9, 3.5254884043895545`*^9}, {3.5254885324657793`*^9, 3.5254885498286095`*^9}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5077894746182076`"}], ",", RowBox[{"-", "0.2100032051692334`"}], ",", "0.`", ",", "0.20666452994188209`", ",", "0.4452346629978543`", ",", "0.7232898658374531`", ",", "0.9648645387834638`", ",", "1.`", ",", "1.`"}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{{3.5254883515834618`*^9, 3.525488378571509*^9}, { 3.5254885342909822`*^9, 3.525488551669413*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"f", "[", "m", "]"}], "]"}]], "Code", CellChangeTimes->{{3.5254884667428637`*^9, 3.525488473419676*^9}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5077894746182076`"}], ",", RowBox[{"-", "0.2100032051692334`"}], ",", "0.`", ",", "0.20666452994188209`", ",", "0.4452346629978543`"}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{3.5254884769608817`*^9}] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowSize->{607, 545}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (2009\:5e742\:670818\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 932, 27, 155, "Code"], Cell[1502, 51, 462, 10, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2001, 66, 149, 3, 54, "Code"], Cell[2153, 71, 300, 8, 66, "Output"] }, Open ]] } ] *) (* End of internal cache information *)
Calculus Exercises/Caculus Q2.2.1.11.nb 0 → 100644 +478 −0 Original line number Diff line number Diff line (* 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[ 14824, 468] NotebookOptionsPosition[ 14063, 437] NotebookOutlinePosition[ 14416, 453] CellTagsIndexPosition[ 14373, 450] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5110803100508156`*^9, 3.5110803363308525`*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.5110803106308165`*^9, 3.511080337180853*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "0.9"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5110808222415323`*^9, 3.5110808230915337`*^9}}], Cell[BoxData["0.`"], "Output", CellChangeTimes->{3.5110808236915345`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5110804027809453`*^9, 3.511080455531019*^9}, 3.511080789651487*^9}], Cell[BoxData[ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["1", "2"]}], "}"}], "]"}]], "Output", CellChangeTimes->{{3.5110803973009377`*^9, 3.5110804560010195`*^9}, 3.511080790591488*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{3.5110808002315016`*^9}], Cell[BoxData[ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], "]"}]], "Output", CellChangeTimes->{3.511080801281503*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "1.1"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{{3.511080806801511*^9, 3.5110808150215225`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I", " ", "got", " ", RowBox[{"it", "!"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"From", " ", "Exercises", " ", "2.2", ".1", ".11"}], "\[IndentingNewLine]", RowBox[{"the", " ", "question", " ", "is", " ", "that"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Computing", " ", RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Now", " ", ",", RowBox[{"wecan", " ", "draw", " ", "a", " ", RowBox[{"conclusion", ".", "\[IndentingNewLine]", RowBox[{"[", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], "=", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], RowBox[{"(", RowBox[{"2", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}]}], ")"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], RowBox[{"(", RowBox[{"2", "\[Times]", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], "\[Times]", FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]}], ")"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], RowBox[{"(", RowBox[{"2", "\[Times]", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], "\[Times]", FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox["1", RowBox[{"2", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], ")"}]}]]}], ")"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], "\[Times]", FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox[ SqrtBox["x"], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], ")"}]]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], "\[Times]", FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox["1", RowBox[{"(", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], "x"]], "+", SqrtBox["x"]}], ")"}]]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox[ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"x", "+", FractionBox["1", "x"]}]], "+", SqrtBox["x"]}], ")"}]], "\[IndentingNewLine]", "\[IndentingNewLine]", "thus", "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "0.5"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sin", " ", "[", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], "\[Times]", FractionBox[ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"x", "+", FractionBox["1", "x"]}]], "+", SqrtBox["x"]}], ")"}]]}], "]"}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"], "]"}], FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "-", "x"}], "2"]], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}], "\[Times]", RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "x"}], "2"], "]"}], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"x", "+", FractionBox["1", "x"]}]], "+", SqrtBox["x"]}], ")"}]], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]}], "\[IndentingNewLine]", "=", RowBox[{ RowBox[{"1", "\[Times]", "0"}], "\[IndentingNewLine]", "=", "0", "\[IndentingNewLine]"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], \ "Input", CellChangeTimes->{{3.5110818679710207`*^9, 3.5110820116812215`*^9}, { 3.511082064141295*^9, 3.5110825266419425`*^9}}] }, WindowSize->{607, 505}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (2009\:5e742\:670818\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 355, 10, 44, InheritFromParent], Cell[925, 34, 96, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1058, 40, 444, 13, 47, "Input"], Cell[1505, 55, 74, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1616, 61, 466, 14, 47, "Input"], Cell[2085, 77, 272, 8, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2394, 90, 416, 13, 47, "Input"], Cell[2813, 105, 194, 6, 30, "Output"] }, Open ]], Cell[3022, 114, 442, 13, 47, "Input"], Cell[3467, 129, 10592, 306, 1028, InheritFromParent] } ] *) (* End of internal cache information *)
