(* 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[ 17983, 476] NotebookOptionsPosition[ 16747, 435] NotebookOutlinePosition[ 17091, 450] CellTagsIndexPosition[ 17048, 447] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Etude de fonction 13", "Section", CellChangeTimes->{{3.485918191192957*^9, 3.4859181950646763`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f(x) = \"\>", "\[InvisibleSpace]", RowBox[{"1", "-", SuperscriptBox["x", "3"]}]}], SequenceForm["f(x) = ", 1 - $CellContext`x^3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485918181233611*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"1. Domaine de d\[EAcute]finition\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485918181234778*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]", FormBox[ TagBox["\[DoubleStruckCapitalR]", Function[{}, Reals]], TraditionalForm]}], SequenceForm["Dom f = ", analyse`Ens[True, $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4859181812365837`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ RowBox[{"1", "-", SuperscriptBox["x", "3"]}], "\[InvisibleSpace]", "\<\" n'est ni paire ni impaire\"\>"}], SequenceForm[1 - $CellContext`x^3, " n'est ni paire ni impaire"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485918181237965*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"2. Signe de f\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485918181239326*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "1", " "}, { RowBox[{"1", "-", SuperscriptBox["x", "3"]}], "+", "0", "-"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.485918181268228*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"3. Limites et asymptotes\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.4859181812704763`*^9}], Cell[BoxData[ FormBox["\<\"pas d'asymptote verticale\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.485918181271859*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\ \\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(1 - x\\\\^3\\\\)\\\\)\\\"\\)\\) \ = \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[1 - $CellContext`x^3, $CellContext`x, DirectedInfinity[1]], DirectedInfinity[-1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485918181273231*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(1 - x\\\\^3\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\ \\\"\\)\"\>", StringForm["`1` = `2`", analyse`Limite[1 - $CellContext`x^3, $CellContext`x, DirectedInfinity[-1]], StringForm["+`1`", DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4859181812758904`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"4. Intersection avec les axes\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485918181278133*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"\\\\!\\\\(\ TraditionalForm\\\\`\\\\\\\"Gf \\\\\\\\[Intersection] X = { \ \\\\\\\"\\\\)\\\\!\\\\(TraditionalForm\\\\`\\\\\\\"(\\\\\\\\!\\\\\\\\(\ TraditionalForm\\\\\\\\`1\\\\\\\\),\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\ 0\\\\\\\\))\\\\\\\"\\\\)\\\"\\) }\"\>", StringForm["`1` }", StringForm["`1``2`", StringForm["`1`{ ", "Gf \[Intersection] X = "], StringForm["(`1`,`2`)", 1, 0]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485918181279416*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"Gf \[Intersection] Y = { \ (0,\\!\\(TraditionalForm\\`1\\)) }\"\>", StringForm["`1`{ (0,`2`) }", "Gf \[Intersection] Y = ", 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485918181281405*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"5. Etude de f'\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485918181282755*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["x", "2"]}]}], SequenceForm["f'(x) = ", (-3) $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485918181284071*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "0", " "}, { RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["x", "2"]}], "-", "0", "-"}, { RowBox[{"1", "-", SuperscriptBox["x", "3"]}], "\[LowerRightArrow]", "1", "\[LowerRightArrow]"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.485918181305993*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"6. Etude de f\\\"\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485918181308126*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f\\\"(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "6"}], " ", "x"}]}], SequenceForm["f\"(x) = ", (-6) $CellContext`x], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.48591818130952*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "0", " "}, { RowBox[{ RowBox[{"-", "6"}], " ", "x"}], "+", "0", "-"}, { RowBox[{"1", "-", SuperscriptBox["x", "3"]}], "\[UnderParenthesis]", "1", "\[OverParenthesis]"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.485918181335025*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" I : \ (\\!\\(TraditionalForm\\`0\\),\\!\\(TraditionalForm\\`1\\))\"\>", StringForm[" I : (`1`,`2`)", 0, 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485918181362763*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"7.Tableau r\[EAcute]capitulatif\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.4859181813800383`*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", RowBox[{"-", "\[Infinity]"}], " ", "0", " ", "1", " ", RowBox[{"+", "\[Infinity]"}]}, { RowBox[{"f", RowBox[{"(", "x", ")"}]}], "\[Infinity]", "+", "1", "+", "0", "-", RowBox[{"-", "\[Infinity]"}]}, {" ", " ", " ", "I", " ", " ", " ", " "}, {"croissance", " ", "\[LowerRightArrow]", " ", "\[LowerRightArrow]", " ", "\[LowerRightArrow]", " "}, {"concavit\[EAcute]", " ", "\[UnderParenthesis]", " ", "\[OverParenthesis]", " ", "\[OverParenthesis]", " "} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.485918181418449*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"8. Graphe de f\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.48591818144515*^9}] }, Open ]], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {{}, {}, TagBox[ TooltipBox[ {RGBColor[0, 0, NCache[ Rational[2, 3], 0.6666666666666666]], Thickness[Medium], LineBox[CompressedData[" 1:eJwtl3k0FXq0xw8OcZAxISpzSCVDQvbPVMSVoVTSxMmlW5RkSnWLKw2SCEUy RSQpQ0h+P3OGyhwhish0zjEPGZ731ttr7bXXZ+1h7b++e20ZJw/bM+wUCmVl 1f83mntEGOjv5SeU/zNzxH1s0JlNn58ceiGkYjFghuw3p96UlOEnozo+B9SS zdBEhhyxHOEjJvoRhc4bzZAy2aj35jofiTP/9eCe5D4UMyyq7v+Cl6h5PPc/ q2yKBl43H4gI5SUnnwxkOoyZIM3LD90zPXnJbZ+6PPzGBH1ZEcj8rs9LtLTU Awf0TBDXOl4l40YamdEzfvjkkDG6DGzSfAs8xPJvrWydeENURiV6Cj085E/Q +WbkZogEa685GFTwkFM0/sx8TUOUeXAx+sJ9HpK9WyNvqB6hfrdZ4VZZHuL9 YiLzFDtCtpFj3PEW3OTW+b5SR/Y9aMdQx9T2p1xkafvmxINRu5AXS015fRAX 8aU+dfWy2IUKZm8cXz7LRYKNbU/rsu1ChlwqVfU6XMQcubPlu2sjWzn/aLcW TnJn9HnhYRstdPm4pG4yLyepbfwxmaSpgYro7u53Jqhkd1bX/OfJnWj5n7Kk ix1U8pG14+mjnJ0o2P8sL0qjkp2DY21MzZ0oJrqoq8uISs7bTDaXG6ijokaH 62L+HMSmaPJ9WNc2tNyelbN0ioNUTVFrQs9vQ0a97L/793GQ2AnaUPqKGqpj ZFjnrOMg6vmcMdpKaqiL94+M9Rt24vZJeatfoCpaMY2tuP2bjTzC1ZSTHluQ yV/MuQtf2MjJMZGIB0JbUMhBY7Uj+WwksTVKsCZXCQk6jzxSDFrN29lwmC8r Itl/9f4u38RGdnvxGTk+VUAmRZ08S/YUUvpZe+4uTQ5lZTzfXa1HIS4SllMz ebJIPNbDLXwzhSiWZyZfcZJFbbNcDy1aVnBIRsz72hIZpHDFXvDpwjKmrRFT tQzajMpuTPOhfUtYrIGt9OpNKRTldPtci+ASFheN9PmysAG5GUvXu35bxFx1 lDCJyxuQIKfp3fDzi7jn2sLGEA9JdDIkkqcv4g9+73/G7+8r4mjxvgZXcO88 Nnj+qXpqRBQ1eFSfkcyYx5F97D+EboqiZOtjlVmX5vEDc/tDoxKiaL9wYNBX rnmc7fc7tNZKBD1+1MSurDaHmwaypyrqhdA5bxenDzOz+OX3T3FnLgghdHih 1IbM4jvtKtKp64TQb3HZG/52szgYa/2apQsi7biLK3V+M/jUK95wxta1iHaV 8+Qp4xk8krez8UQoP+o+/rhkim8Ga/tIFzez+FDQptKr0gnT2Hv5pEAW4UXN SYKL7lVTWEo8eL19IA+6kP56TkhkEu/VL+FfCeVEO9a6Bxr1TmDJ3eFP6mU5 0bjn1rWXXk3g+5fe67UWUpGnfrpcy74JXJClkn+dwYEuf0myigoYx9mxa9zC L7Ijbc3THVXm41ilT8k7bD07monZRJ8VG8fsgTWhMZgN+TjF+R15w8I6Hc+/ 5qxjQ5PDquZa9Uyc75/p8untCnjlvjgR5cLE7BbK/cobV2DmqoLXLIWJI9mW nPRDl2FOcNOzQi3G6r7NDnbeS7CoLTy959ko1k4+zZjz/ANXKWG0Z7tH8eSp YvW8hQVYruHdTGkZwb66ZU7V/y0A23FOizLuERx3bD7ww/N54AqcS9jrOYTv CelfS+Cdg1uWl/PT+IZwg6vY8PvMWeAWm6jjTvuNTwixtn+yngVa+shMbecg lrpYB4mJM3DX05Vvq/cgfqn1k2ppNQN8+r9kQgUH8V4X2SfFS9Mg8OW75QHT AeykaK6K6dPwIOaYU3bPL2xUbiK7W2oahJ3afYT8f2HWQESPWdsUiE43JjVn 9WPPbvvkeZspEN9QOXdYvA87G0XRrF0m4XG/4drCtz/xdMNBppL6JEhmlchJ /vUTt214H6y1PAHShgVWXTd+4P1s6eWl8RMQT9Oi75H6gfXTTelbPCdgU8sb v/j8Xoy25L6K3DcBxp/tzUvberBe1Q51q7lx2Hva2iuQtwdHTti5BDaPg9mU +TNT9B1jwUu697PHwVJyz3RNehf+a8+XvCmPcbB6pb353vdOLHRU5oiO7TjY oB0WViKd2PXG4zAZ7XGwd5FLbArowJHCirm57ONw5+KlkId57fiOhGN5wQgL PgSUe9gyvuJify4h+TYWsG6JHBZW+oqDBvdajpSyQD7C2aDpZBs2EAJ5jtcs OBKfo/AwphUbpwuanXrKgrvpHPy2jS147FS3y+w9Fkzg5M5Go2YcM8WwSfVg gWLdZFn4lSZspeETkObEgqNtxhk2uY1Y6PCNE3n2LLj3IyJcaKwB7xHanlZh wQIy2ufbqNCAlUWSOGsNWfCb+TeR/fAZ71y7uKVIhwUHuLjDkrZ9wm9yTpDb O1iQL/XiuGxCHabkjfirKbNgo4bZ1iShWuxfXrHmiSwL/jP/vSAT+BH7POAV q5BiwejJkJrEqSps9+nHwYT1LLDz3hIj41KJXVXdLsmJsKDo3keXxK/lWNCx fLORAAtkkl21ZMzLcIqgMN84LwtCCrmpiUUEX1/w7pfnYcH3ZzbPDY+U4MVa kaNNXCx4VR9uZKj3Hl/SoEkwqCy4Mt/YgzYWYPTrSvM5DhaYKwpfRWx5uDj8 zi5jdhast7OVRP1vsNHw4akzbCyoW5H3uH7/FVZN4CysobDA9ejz9GsH03Az PU/TeZWpOQr9VyUT8cOhEDGlVUYSlnsWVtW/rCeRn7bKrJjH9PHHNzGZk6mh rHIAe2TlXh03qKo7xFpZYcK2J87VotphwP+mOGJulb9LvGHwCsQBD7X4W8sq 22m0FwcbpoC7UrTctVXO7zh889aVDBi/Gl7fvcwEfjIiV+GQDaZnGRrdS0yA iJfBFT45sOnA+Lszi0y46PLPUEVkPmiEdeefWmBC0m5Vy8o3haAVOnP/3SwT WvhGsio/F0PHy+vxdlNM4OrNEKoawdD6V7HxRhYT4o5q6ToHlUJnK7OLMsIE LeNH//QJl0NC6vGP/f1M+Lx1Os45sQI6ZM3pOd1M+Fvs0Oe+7VWg+2p6rX0r EyiUvBXnkmrwfpGqmF/HhMdDour9ljVg5POM5wNhws5mLyd6Zy3YBciJHcxl Ql1xS0S/Wz04Snpn0FOZQE/VrKTPfQLh3G/y7VFMWAqLnOkP/gLKmZF90f+t 1usvRLy90wD2ZwZNQj2ZEKOekTlh0wgWRmJpicdX+xUdKndKNAF+Tnct2cuE HRto3z17m4A+sW6wXm11nkDRzNu0ZmDeOX8jX5gJtdSzApPuLbCuKesRfZoB UfMSWzS0W+G2ivRN0soAJ0YNurTUCmyzf1Jychiwrc/vaE5FG2x/ct9RKYwB 1fUddzTs2uEms4td24ABrr7fqo+pdoDLsLR2ET8DuOU7qUEc30BcRUXkR8cY pH/pNMzs/Aa6CaW5oUljsP9K17WWnE7wNEjRSv57DIYVu98v3u0C+kx4NlV5 DO42dc/J07shr3A/ejQwCvXKPZ6XRXuAqizN03BoFM619rx+OtoDlgX5PmjN KASjCzNOTr0QJLHB5VzuCCiNXtC4q/sD7MVN1ALZRmDOcNzmWeoP0HkcoqeZ OAwfoy9eyBH+Cc/eRmuq6Q+Dq7Hnq87hnxB0eZ1toPPQat1EHdO+DyzZqZmp zN/AzfQc5ijvAyVG8bF479+Q/uSS0tbYfshMD1WK9hoEf9akKVrzC+IdFfxO jAzA/r1e9IOXfoG21q27wY4DMDzulRhgMQCj0unH/1P7BUX7pvGDdwNgKzRk KxvaD3eeXv6eIjcITNbEpcyBPlA1997w6c8gnNajp4je+gnnEnweSWcOwcE2 78Prp76D/sxsjrr4MEQ5PmxvtOgGPkvfJtOgYbjfio7HPOqEV7O+Au6OI1Cx 1X6f0/JXYFj53y7hGwNry5O+0RsboCRlIa3JdwzuhWzsxZR6uL/gXzXQPwbn HiZtq0+phu2pVzgEPjCgXWqripDEByi4VlLyWpsFCTfdhQ58TMEJ6cufCs+x oMGm7EAMIxeHtBh0lyet6kJlyAsLjPERFfzn69pxEG9IOXZ3Qx2eb8U6lMFx +DjmVnA6tQP/pFDMaNITUB+bqtHa2YVrVdFhUbsJkAxKb7YT7sVPbpDLW/AE JFQvWb/w7cO6aqVvraMnQXTPvv9ulgxjrZa2qJKaSQguT/5QGDKKd1wZ9d+6 OAmp5+u6lBwZWLFmvTH36Sm49s/wiUCBcSxyxr0Zq6zeXdv4fdm803gtX9A7 tePTIOWz3ZAlNoNpOY9jY8Omgav9Wpyy0iymsFU6+0xNg2tSkMc7+3k8Grdh alvJDMRkOpmHTC7hQWP19jjWDERxSIl0Ka3gn8N7i2lys6C72TuqfAeFdOh4 Bg3cmoXzvctytz3ZSFXLR9F4mzlIjub3kF1PJc/4vLX4f81DpNr8p+whHvIk 567ElfULYMCh+PrQGxqJckhc+m2+AN+n8xWpAbzk3ov6yoqsBfB1jD34SJKf +JrI2Qf4/oFjmSbBUQaCxDagwXuEdwk+Zw75ZzBEyF9yAw5HDZagM+B8l/I5 UWJW+8eg+sISnMk+QDk+IkoMxJXWJLcuwfbDC5bDjHVENfdqtMOzZXDR8VaZ pIkTdu91XXQJCnJnevkfeCxFHE5lNBVoUpBiGLX8HyRN3u6HGj5rChpmcz6B h6SJ0ya3/NxgCtL3M/h3g/EmUvax+AF1ioIi1dJ4QrhlSOAGumnKZzbUkdpX Fb1WnnRxzuvNDbEhlX+FioiXPNFkhe605GRHO6Zo+nJd8qS/4t2mKT12VFhQ eCYuS4GYuPMuGKezozoe78QIJyVCLX2b1RfIgbIC+k11uFWJ48t9z3c940Dh nnonvt1UJbmPumLvFnEgJ82y4eZlVUI/y3VbY5wDiWwp6GhZ2EoqRRycA09Q UZtC3ikjju0k2IVNXG43Jypbt+vAu5fqZA2f9Q0nBheqmzgiKRiqTY4oORBt njXopHxymmSvNskwoq/Q5Ncg4X1fgwY1dhErP9+rOUfXoLfGOgV13btI1ECC H7VyDZI65FfeprubKJaOX0yN5UYDbzsufJDUJ75df7L987mRwst0ocP++qR2 lpNl1ciN1ssfUCr9pk/ct0m6z3LxoLkrh3Rp8XtIfqzRWTNPHjSzPIJDtgEx 9Y5wGjajIQExobRlPUMSFf40scSZhrQ8Y7YEeRqS35lpvQ+v0dBNe8qsb7oh udf3/oReLg0FKAvAW3Ej0mLd73BvEy+KEvPp8lg0InRVLbttM7zo2kKvlX+H CQnsbTP2TOZHPLYpCv2jZkR1Wa6lPYMf/f9/T/4HCH7vsw== "]]}, InterpretationBox["\"y = \\!\\(TraditionalForm\\`\\(1 - x\\^3\\)\\)\"", StringForm["`1` = `2`", "y", 1 - $CellContext`x^3], Editable -> False]], Annotation[#, StringForm["`1` = `2`", "y", 1 - $CellContext`x^3], "Tooltip"]& ]}, {}}, AspectRatio->Automatic, Axes->True, Frame->False, GridLines->FrontEndValueCache[ analyse`grids, {{-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 5.}, {-2., -1., 0., 1., 2., 3., 4., 5., 6., 7., 8., 9., 10., 11., 12.}}], GridLinesStyle->Directive[ GrayLevel[0.85], Dashing[{0, Small}]], PlotLabel->None, PlotRange->{{-5, 5}, {-2, 12}}, Prolog->{{ GrayLevel[0.], AbsoluteThickness[0.25], ArrowBox[{{-5., 0.}, {5., 0.}}]}, { GrayLevel[0.], AbsoluteThickness[0.25], ArrowBox[{{0., -2.}, {0., 12.}}]}}, Ticks->FrontEndValueCache[analyse`ticks, {{{-5., FormBox[ RowBox[{"-", "5"}], TraditionalForm]}, {-4., FormBox[ RowBox[{"-", "4"}], TraditionalForm]}, {-3., FormBox[ RowBox[{"-", "3"}], TraditionalForm]}, {-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1., FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {0., FormBox["0", TraditionalForm]}, {1., FormBox["1", TraditionalForm]}, {2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}, {5., FormBox["5", TraditionalForm]}}, {{-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1., FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {0., FormBox["0", TraditionalForm]}, {1., FormBox["1", TraditionalForm]}, {2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}, {5., FormBox["5", TraditionalForm]}, {6., FormBox["6", TraditionalForm]}, {7., FormBox["7", TraditionalForm]}, {8., FormBox["8", TraditionalForm]}, {9., FormBox["9", TraditionalForm]}, {10., FormBox["10", TraditionalForm]}, {11., FormBox["11", TraditionalForm]}, {12., FormBox["12", TraditionalForm]}}}]], TraditionalForm]], "Output", CellChangeTimes->{3.4859181822091827`*^9}] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{413, Automatic}, {143, Automatic}}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->"stylemath.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 107, 1, 44, "Section"], Cell[CellGroupData[{ Cell[699, 27, 295, 8, 26, "Print"], Cell[997, 37, 213, 5, 24, "Print"], Cell[1213, 44, 364, 11, 24, "Print"], Cell[1580, 57, 338, 9, 26, "Print"], Cell[1921, 68, 194, 5, 24, "Print"], Cell[2118, 75, 376, 12, 58, "Print"], Cell[2497, 89, 207, 5, 24, "Print"], Cell[2707, 96, 129, 2, 24, "Print"], Cell[2839, 100, 627, 12, 35, "Print"], Cell[3469, 114, 646, 14, 35, "Print"], Cell[4118, 130, 210, 5, 24, "Print"], Cell[4331, 137, 574, 12, 24, "Print"], Cell[4908, 151, 270, 6, 24, "Print"], Cell[5181, 159, 195, 5, 24, "Print"], Cell[5379, 166, 319, 9, 26, "Print"], Cell[5701, 177, 523, 17, 82, "Print"], Cell[6227, 196, 198, 5, 24, "Print"], Cell[6428, 203, 293, 8, 24, "Print"], Cell[6724, 213, 495, 16, 80, "Print"], Cell[7222, 231, 251, 6, 24, "Print"], Cell[7476, 239, 214, 5, 24, "Print"], Cell[7693, 246, 802, 20, 124, "Print"], Cell[8498, 268, 194, 5, 24, "Print"] }, Open ]], Cell[8707, 276, 8024, 156, 447, "Output"] }, Open ]] } ] *) (* End of internal cache information *)