(* 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[ 30287, 706] NotebookOptionsPosition[ 28750, 655] NotebookOutlinePosition[ 29167, 673] CellTagsIndexPosition[ 29124, 670] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Etude de fonction", "Section", CellChangeTimes->{{3.389109110446711*^9, 3.389109126370006*^9}}, FontSize->8], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Etudef", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", "2"}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "^", "2"}]}], ")"}]}], ",", "x"}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.389110639870473*^9, 3.389110651517981*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "2"}], RowBox[{"1", "-", SuperscriptBox["x", "2"]}]]}], SequenceForm[ "f(x) = ", (1 - $CellContext`x^2)^(-1) (2 + $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146689237918*^9}], Cell[BoxData[ FormBox["\<\"1. Domaine de definition\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146689240267*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\[DoubleStruckCapitalR] \\\\ \ {\\!\\(TraditionalForm\\`\\(-1\\)\\),\\!\\(TraditionalForm\\`1\\)}\"\>", StringForm["`3` \\ {`1`,`2`}", -1, 1, "\[DoubleStruckCapitalR]"], Editable->False]}], SequenceForm["Dom f = ", StringForm["`3` \\ {`1`,`2`}", -1, 1, "\[DoubleStruckCapitalR]"]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.3891466894921713`*^9}], Cell[BoxData[ FormBox["\<\"2. Signe de f\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146689494164*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "1"}], " ", "1", " "}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "2"}], RowBox[{"1", "-", SuperscriptBox["x", "2"]}]], "-", "|", "+", "|", "-"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146689596383*^9}], Cell[BoxData[ FormBox["\<\"3. Limites et asymptotes\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.3891466895989647`*^9}], Cell[BoxData[ FormBox[ TagBox[ TagBox[GridBox[{ { InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\)\\\\ \ \\( -> \\+ < \\)\\\\ \\!\\(TraditionalForm\\`\\(-1\\)\\)\\)\\) \ \\!\\(TraditionalForm\\`\\(x\\^2 + 2\\)\\/\\(1 - x\\^2\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>", StringForm[ "\!\(lim\+\(`1`\\ \( -> \+ < \)\\ `2`\)\) `3` = `4`", $CellContext`x, \ -1, (1 - $CellContext`x^2)^(-1) (2 + $CellContext`x^2), DirectedInfinity[-1]], Editable->False]}, { InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\)\\\\ \ \\( -> \\+ > \\)\\\\ \\!\\(TraditionalForm\\`\\(-1\\)\\)\\)\\) \ \\!\\(TraditionalForm\\`\\(x\\^2 + 2\\)\\/\\(1 - x\\^2\\)\\) = \ \\!\\(TraditionalForm\\`\[Infinity]\\)\"\>", StringForm[ "\!\(lim\+\(`1`\\ \( -> \+ > \)\\ `2`\)\) `3` = `4`", $CellContext`x, \ -1, (1 - $CellContext`x^2)^(-1) (2 + $CellContext`x^2), DirectedInfinity[1]], Editable->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146689933734*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \ \\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>", StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, -1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.3891466899521513`*^9}], Cell[BoxData[ FormBox[ TagBox[ TagBox[GridBox[{ { InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\)\\\\ \ \\( -> \\+ < \\)\\\\ \\!\\(TraditionalForm\\`1\\)\\)\\) \\!\\(TraditionalForm\ \\`\\(x\\^2 + 2\\)\\/\\(1 - x\\^2\\)\\) = \\!\\(TraditionalForm\\`\[Infinity]\ \\)\"\>", StringForm[ "\!\(lim\+\(`1`\\ \( -> \+ < \)\\ `2`\)\) `3` = `4`", $CellContext`x, 1, (1 - $CellContext`x^2)^(-1) (2 + $CellContext`x^2), DirectedInfinity[1]], Editable->False]}, { InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\)\\\\ \ \\( -> \\+ > \\)\\\\ \\!\\(TraditionalForm\\`1\\)\\)\\) \\!\\(TraditionalForm\ \\`\\(x\\^2 + 2\\)\\/\\(1 - x\\^2\\)\\) = \\!\\(TraditionalForm\\`\\(-\ \[Infinity]\\)\\)\"\>", StringForm[ "\!\(lim\+\(`1`\\ \( -> \+ > \)\\ `2`\)\) `3` = `4`", $CellContext`x, 1, (1 - $CellContext`x^2)^(-1) (2 + $CellContext`x^2), DirectedInfinity[-1]], Editable->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146689961094*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \ \\!\\(TraditionalForm\\`1\\)\"\>", StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.3891466899647417`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\) -> \ \\!\\(TraditionalForm\\`\[Infinity]\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 \ + 2\\)\\/\\(1 - x\\^2\\)\\) = \\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>", StringForm["\!\(lim\+\(`1` -> `2`\)\) `3` = `4`", $CellContext`x, DirectedInfinity[ 1], (1 - $CellContext`x^2)^(-1) (2 + $CellContext`x^2), -1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146689988738*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\) -> \ \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\\)\\) \ \\!\\(TraditionalForm\\`\\(x\\^2 + 2\\)\\/\\(1 - x\\^2\\)\\) = \ \\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>", StringForm["\!\(lim\+\(`1` -> `2`\)\) `3` = `4`", $CellContext`x, DirectedInfinity[-1], (1 - $CellContext`x^2)^(-1) ( 2 + $CellContext`x^2), -1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146690015808*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", "\[InvisibleSpace]", RowBox[{"x", "\[LongEqual]", RowBox[{"-", "1"}]}]}], SequenceForm["AH", " \[Congruent] ", $CellContext`x == -1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.3891466900183496`*^9}], Cell[BoxData[ FormBox["\<\"4. Intersection avec les axes\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.3891466900199747`*^9}], Cell[BoxData[ FormBox["\<\"Gf \[Intersection] X = { }\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146690021451*^9}], Cell[BoxData[ FormBox["\<\"Gf \[Intersection] Y = { (0,2) }\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.3891466900228777`*^9}], Cell[BoxData[ FormBox["\<\"5. Etude de f'\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146690044376*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"6", " ", "x"}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}], "2"]]}], SequenceForm["f'(x) = ", 6 $CellContext`x (-1 + $CellContext`x^2)^(-2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146690071273*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "1"}], " ", "0", " ", "1", " "}, { FractionBox[ RowBox[{"6", " ", "x"}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}], "2"]], "-", "|", "-", "0", "+", "|", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.3891466900976753`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" Min : \ (\\!\\(TraditionalForm\\`0\\),\\!\\(TraditionalForm\\`2\\))\"\>", StringForm[" Min : (`1`,`2`)", 0, 2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.38914669012502*^9}], Cell[BoxData[ FormBox["\<\"6. Etude de f\\\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146690160809*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f\\\"(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", "1"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}], "3"]]}]}], SequenceForm[ "f\"(x) = ", (-6) (-1 + $CellContext`x^2)^(-3) (1 + 3 $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.38914669019132*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "1"}], " ", "1", " "}, { RowBox[{"-", FractionBox[ RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", "1"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}], "3"]]}], "-", "|", "+", "|", "-"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146690218178*^9}], Cell[BoxData[ FormBox["\<\"7.Tableau recapitulatif\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.3891466902441187`*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", RowBox[{"-", "\[Infinity]"}], " ", RowBox[{"-", "1"}], " ", "0", " ", "1", " ", "\[Infinity]"}, { RowBox[{ RowBox[{"f", RowBox[{"(", "x", ")"}]}], "\n", " "}], RowBox[{"-", "1"}], "-", "|", "+", "2", "+", "|", "-", RowBox[{"-", "1"}]}, {" ", RowBox[{"x", "\[LongEqual]", RowBox[{"-", "1"}]}], " ", " ", " ", "Min", " ", " ", " ", RowBox[{"x", "\[LongEqual]", RowBox[{"-", "1"}]}]}, {"pente", "0", "-", "|", "-", "0", "+", "|", "+", "0"}, {"concavite", "0", "-", "|", "+", "6", "+", "|", "-", "0"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146690292461*^9}], Cell[BoxData[ FormBox["\<\"8. Graphe de f\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.389109438119955*^9, 3.389109607032771*^9, {3.38910966896809*^9, 3.389109732727086*^9}, 3.389110652165043*^9, 3.389146690312114*^9}] }, Open ]], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwdlnk4FIr3xsfMYAymGbtuiyWyRESJrkqUupasJSUilEyWkBaJe5HllnBt KUuyVeqi26KcQ5aQJSFatREtmJ3BfP1+53nOc573n/PHeZ7zvh913xAXfyKB QGhe7P+bfnfSJ0UiZZyscGArek+DgnCp9qY5ZTQ+EhGdtKibd9w4ECVQxnby hvUzi1r7/cP2H1PK+Ktw2Z53PtMwIfP5+vBHZRzOjjOv8J2G0KD1HrVPlfGO vG/5zoBpOKf1GgOSlLH5aoP+PeY05F/RzOiiKaPDqcyy7THTUPjhQoizlBLK 5AevuVkyDUq9rrt1FRWR/UWdPdwxDc+cXG06tRRwze9jxWaCadipqxWhqSGP MlzvujxjFlhUHyjrWSuHrd3f/i0OZcHtAbrRPX05FLioOnaEsUBtvvlh/mo5 ZFobNrLDWSBhb9Dlv1IOGUdd1u6KZEHf+DxbSJPDg6VD2xZOsSBIq9BK5xcD x4MF5Iw/WZBf8PHt+VsMTNFsWRmQw4LZlAD5dboMNBrQGeE2sqD6r5AWPS0G hpWyP7k9ZYHvueiTmuoMdDlycaqumQUdYSlvFFQZmFsabxTdtrjPo/o6n8JA uvu7Q9JdLDDX5pk8+UbHnx9exfsPsSC6McFtZwUdy5I/9k5NsoDLL/3n4Go6 tpAa0ys12OB54X5OgSYdH/SKz5utYgOqdOS9XklH1z/cctu02JBmPnl1jwod iWt5PhM6bNA4Y17mKEXH0NUEr81r2VA0d4UZM7gEb8cb/ab+Oxv2Sv26Y3lw CU45V3x6vYcNzRoZpg1MGj7Lt3UPSWeD4+DfEzn+NGQWU21jMtgwlJxcFOZF w69KBdS/s9jwY+q8jJYDDUkbBEtqctkgDyFfUtfQ0Owx11mumA2++x2y9n2X xeKNcf8a1LCBkEXhcI7I4ou2LxkjA2zYJB5bq39YBhM9RXXtmhzQGf1bKv2A DIaJuE0m2hxQaivw5rjJYMOHK3OFOhyYuvBI+sl2GQzhlc2fM+BAmQzPz3G1 DOr/jI/fa8YBOQWmQtiENP4QdJMi7TjwTWN/5H+h0viyf4dZVCQHBklBnUuP SmN1xjpL/WgOPP0SrR57SBoPPyR1fTrNgWtl2V22LtKoEhSYs+88B1z1+rSG TaSRdPyNSUAqBxqMdw0KeVR8M/w5fqGYA1lbzcysYqhoa6YQaPOCA6TWyXed kVR8K0kR39bPgXC7ir/2HKfi3bqi+G2vOOC8R7XvmDcVV1pP6tu/4wAtWBic bUXFqdB/S+LHOXAhB0q+i1MxzWdJViyRC2d/2dKyL0rhygfvLw5u4ML3E4R7 aklS2JnaO2dmwQXPmQf7b8ZKoZ2V7osCSy6Yk/UqMVQKze1HIdSGCzxVGZvv LlIYGWe7aZsLF0K3957aqiyFq170sy8d54JfgcfXiUIKXgt3uTpbyYX0ujHL lzkUlOWLIrWrudDwPCq7/hIFIyLeKe6t4cLS+SzbtFgKzg37trc+4kKv14tK A28KvrfIHBzp5MLmlX8cD11BwakfzyMlJrmgWrKJzy2QxCLViBsu5jzY8ahj 9/ssSXxifnDr6s08iOjbV9GaJolm3Ko6MWse9BKj9+WclcTqplKnZ/Y8SPSr q994QBLDL+xmXvXhAWeVwfkzv0mil3LKptBkHvSUr5ASy5fAdh03uvgID3x+ olhEhgQOV3WW7vzKA9Y6v9nRFAm87B99IWOCBwoN5d+fn1nUcccDzbk88Og3 6s71ksDaU3eq+6l8+ESwzjRSl0Dl9BwJOzM+8PYFLvepEEfObge15H/4kFQo pfSySByD5YKe3LrCB5WvN2k78sTRcDJQd6iYD5tCp0T6KeLYRXG/saOaD+cT T33iHxPHLX2M+3+28YFam1p+aa040u+dFKUI+bBC5q4x/EfGW18H3DYFCeD4 F523l6rJqPxu5wwjXAANj4sTfcrI+Ev3rCbnlAC8mJlvxLLJyLPuC3yTLICC 7qgEm0gy9vMn3DZWCUD1suVwuwkZnSgNYPVTAApKnef775JwLEuQ7hwzA4d/ WevfqCBhV+2rsc7EGahrfTwQWURCQqyOtXv6DLierNZTTidhS+/ttH+uz0DG 0OX+fSEk9F4Ws7q3YwaWXPHQ+WBAQoX8Dbfsl80CVW20Z7yKiMdqP9ufeD4L bwsonSMlRDTWoqmNvJqF26r6ra/yiRg0brDZ5/MsOMmHPm5JIeKEsUjuyuws ZEvMVhQHEfGsgZUNQU8IGj9l4/fpEXE+s+lDbZoQOEeNYpw0iDjSFboiOE8I LaMu0bZLiRhNlnluUSaEIyM5x9dTifi5ttp1GQqh+qX6fsaEGMrX+3jyOELY 9Gi9aXulGIqUpX9Z+M2BjJnHWiwWw4TalreRYXPwvva03v08MawWK2N0xs5B /G1Qu5EshhkaHT4tBXPwrGiXbNxRMTQ8aOUgNjQHbkleoxt1xVD70ZjnK9d5 CHZLyK2oIKDtrqYAS78FKF54ZKJXTMAAo2hHtYgFGKyY6r6ZR0BLhRkXzYQF 2Dq/X/xOCgFNwZ2WWr4ACmXrwu8FE3BGqUbp+88FeML/YNdkREBNN7sfW+JE wCpWHLPWJeBSr3pppywRrLa3i29RJ2D35z93J5aL4HLRfw+eyRGQt9dWENAt gs6MpXbXxkUgbWmYSlxCwGUbIhfuh4kAlW6uu+hLwMSUEdN6XxGcYOTW+TIJ OPXe7liDqwiOR00qOkYTsDlJY6h5vQhK01+kBl0kIHO4598XMwtw/7m2QlM9 ARvO6vl/j1uA2qcjXwx+E0Ofpx86V2TMg6TysWVOk2Joaynwfxc3DxHfRq4P LCze7T6dUBA2D4oeaTZ/0og4V2Vlquo8D+LtZJ19hkTMzbheIE+fB6JKXzQh lIi9hwKZlItzoGAhvNUjJOL9N7GSbTFz4LL2oKcmjYTX3HOLE5hzcCsqeapS jYTBu9oHiA5zUHX4sbTrDhJSjPU3z0vPgcDxhM+aLBJaESZprGQh3C6iLG+1 IKPOacnKu6eEUHJzQLXGiYx0zkrrkKNCqHz7iTASQMb3Y04nf+wUQtPAKF0i i4yne2o+jEoKoTM9yKZgmow116LuvkmYhaLxw/sZ9eKYp3Lpj/zIWXit22ha MyCO5zPKv3j4z8JEyc8jVVPi6Jg4pDJos/gXe7VDy1dL4ATTIq6XNAv50Q9N yYu+pWG54NwSNwNMa4rh9GVJ7GVYrskLnwFj1ajK6ruSeG70jATTbwYevnxY /7JHEl9fmnmksH0GqvNsqg4soWDmJ47mYcoMyJvJdpRmUnDbfZMFsxkBvBqq ahy+t+jDqeFD0hMCGIlqbUsaoqD9+qm02k4BMF0M33uslELyhe9c4iUBRDP3 qqnUSmHNAb3ewVgBZF0qpB4clkIf46NVVaECuEQ1u7KOQMXHr0cPurgI4FFQ LD9zNxUjDT61FSsK4EHukZIMLhVH+4bythbwYXtEkfrtQzKYVa4cofA3Hyyt qe7xGTK47ewex28xfNgyX87UbJbBa1r9xHRvPvgkzSq+05XFvdE9xz5o8GFo dOBHo0gWJRxoO2rl+VC4hc66YEbDOnUHtSQyHyTv8MdsQ2lI7+zoNxzlAWOn hnvbl0VuWd5qea6SBycf9HWnvV6CUSyyiks+D37Zeu88KkvHVW3WLK1UHtgG +LJWGdLxfGhjWVcwD+Z+WF89GUbHjU8fL1luxIOzHtMOVAIDR3OE41Nqi7nE C44JX+S8rGCL5mYGDzTXVI/m2TFwSvFBdDCbC8YLte6W+QysPFL7sf4/Ltgd i/7rLys57PctXGlXxoVGCf3T9mFySPBK9Xr9Dxe2lvrbmZTI4R5nv2FBBBfq yp3VEyXlkWgh/2K9CRfGmwKXn/oojwamIlqLBhfe5E1mM39TQA/D7/ZuclxI uLjFZGSPAlZrPH0WPs2BQ8sKUs70KaCn9Am8c4cDN02akjzfK2KCuPfC5kIO WPiNHZLWVsK7oj9+777IgTGXwFfPQpRQgqPx4AeTAwF6g6QWqUXu/0XjnfHi gHRueo+ppzIe+DZrIu3Agfzsm5nyt5Xxmo7hR1dLDhD+v1Twf8UwgYY= "]], LineBox[CompressedData[" 1:eJw1l3k01V3Ux3/3Xtc8XXMaEFGSKUNlODs8RTI0ED0ypqKIMqWSZJ5Khoii FJHwUEQ4hgxRyZx5uKYHCRkTz3vfd633rLXXWZ+/zve799l7nSNhf/WkI5kg iEZG/O9uYMK9NVJxEhP/t0Rga1xWCSEwiaMlPHyFs4RhgQPUa7sm8On8INbW NSFIW7+ibGwzgW9xG6RnvheESPUD7oqHJ3DLdqa2SRdB8L5OyeeTnMB+AZ4j KrsEwXg6aV/X+Di+PEIfSEkSgI2eut22ruP4VhZ/Zu4jfpgUenhRx3Qcb3Fp XIS/+aH95LkMKeVxnLVwo+C0OD/kNP6S/HdpDDu+wZmNuXxwtlRc7NrtMdzD +sIpqZcGR5anz522GcPxsrsP9WbRQEm5OEXt8Bi+v2ch8PANGrBmG4muM41h ym/tY+ZbaVCU5CsYGDmKQx6lnvznMi/w32jnSEim4z2v1lZDXbhh9b812k9f Ov5j2qrtJsENA8FiIvpn6Ti6Ve7bZicXvIpzlvotQsercwMBQ0e4QDuf0LJO GMGahlEG3gc4QUpdWrfYcwRzMWsbmK9yAFuFoQGv2QgO9tAICyrhgPamBLNq /hE8d8zgfT7iAKcJOVfpmGHcn+NlYnKWHYxdT3rccRvGTcfe6tZIsoPKkrfv d5NhfK8+SPfoLBtskmuCw7mHsUS9ldv5YDaI22GZOhsxhC+p02x0q1nB7zX7 MxeuQSy4LL/lvQMLGJSYvRH7PIDbHrQectNgAYH6tJKW8AHcWtBApfOzQNaI Wqsq6wB+cPdz0WQdM7RvcaBskvtxyvL7TQ5VZkiVyeXJr+rD4o9y1xT4mMFZ dW2rvX8fvk53bZ7/SYX/TO+r1G304qzi24k6b6ggG/rBMXq1B39lu+VWJ0+F pXjma1Dcg9O7F+yDealQmX7Cb8GzB2vJuPp/WWACMzyRYP6rG98IKzs38Z4J /Jf5G3bMfseFe7uMWQ2ZoOv8Fdk8eifuPnHHTSaIAhX9pupFGZ048fNGcNtV CmSYq+qVO3Xiqu8Se7vPUsBDf/Nc088ObDlDmZpWogCv3IOYifV2/MFO5Rnn KBlWXng8na1oxysFIUftW8gwsN3y9dLddqzeazDEgsmQw7OzlsLajs06I19o J5PB4FfhqphAG7b77ydJ+wwZFK8kUmW6WvFGMiV++QgZRMZu8ck/bsUf4p6o rKiRYbzzLzlN8Va8/Hhe8IswGQJKu2ws5FqwhuuZ+cI+EnhSVqIkwr5ihfMb 2dXXSKC3hDMVeL5iQQPSRsoFEvBNhFZpxX/Bxmvz/oVnSZDbKLpk+ewzvnsg ueKhLgnGY7StHpY0YnKuObCLkODtPRavNNSIg04kqBZxkSDA89v93NpPWOp2 8+8kCgnELO1rGlsacIHYOSrLHAEW4sGylKk6nEKz0nJuIkCaz0SP5laH6XbB 5fXVBCxSRKzFlmvxSk6yn2UpATETWTEa5FrcYb1TRSSbgMbcL6vXRWvwnZoh 0dUIAhLTEvgC0qrxkJuP5o9AAi48tJF7IF2NFTMv1vH7EUDxmrfJUa7CFm/V v/9yI8DbVzb6U3wFHvOyGVixIMB4dq4zL6Mcz3pGeEScYuixLxZLKC7DNooP Lxw3JqDDQO8f++5SXK309aaZHgE55ey/9adK8DTnnPITRECgUouOwvp7rCFX 6kLTIGD/Fuv29W3FmNolneOnTAB7lNT2kX1F2K4i9ZS3PAEjxLRjg/Y7vNLl UJcsy/A36b0SZ1uIg0XSnS9KEnDJShtuuhdgn7TDJtziBMA3pjC7gH/weTZn x6FtBAxclVS10s/DNAfeZ1RhAqLO5Nftdn6D9S7eDrUQIEATaVksRbzGMhuG uzppBExLN/5b9SYLN6WsWvnxEPCY+8zN6OZMvGj7SegEFwEGy3TOv+dfYj2f Jg1jDgJW+92eyvC/wOF134o82QjIrN1QWFR5jp+9c/GoZyHA/E14VaV5GnZU XbHXZWb4k1XIEJ1PwXem/K/9y8TQv6b/qVAlCT+K6I0roRBQ12A/c9wnHsdc iS0vJBMgmXiLZ/xDDK5Q/zncRSKA3CznuLkZge+0z67uYnC5i+1rxeBAfOrm sfUnBAHzIrvptaK+eO+KOx0x+FvOjsHTJy/gNP7INxwMZrIzFA/VNUaaB7zO kBicJf/cm7P0Gnqh+HFInMFJPk+W2jr8kbtE5TFnBvd3O+U9Mw5Fm1nOif0M 3qmh5nS1/j4i7b/51Zdx/n7juzE70mIRs7Ptr8MMvR1+F12DrB6hH/8Cz36G H+88I8MZkWQUxPtnrzHDr+jQ/t2nOp4id9Jes1gqAdasUeR+/WfIr1MikczI V5444c4rk47ebcxRUlgJIA5eH9SlvkTnai9k2bATcOLEuJE3PQPpCNGSjTgJ eO5kWZZd9Qo9sEI/HLkJ0HuMkmh+OUj300EuIX4C4gsKWP6yykXh2/w5cwUJ uD7Gp6G5PR8d6NdtdhMh4ONGUNbV9X/Qo99/BL13EDAThm3DpgpQmXtfd6kE AYJCa8Lp3YXIXUVgeM8uRr/IXwnuLH6H9vwoMAqXIyC69KXWXEYROp40QLql SEDxkcFFtoRidO7IYkKSCgGsNicdtDxKkF6lk5ClFgHZ9w/AC8VyVGVELp01 ZdTjY2oZi0oF6k6dLyo1J8BmlfngZXWMlnw7tMusCAjPnxLZklqJ8Gc/GTsn ArS3lNCGXlajyUiLCI0gAi4XzjTHyNQgXdfl32WRjP42Eo/WzapBuwL+fusV R8DC3RD2zJyPSEa4JTXuBQEZU2YU18I6NBt51Cy4noC2wLAqMdV69GE6fbXj GyPfYuV3WorqUYRshaddDwFnT0n9USltQLI7YtjkZwngKVtYXK9sRFdsNutz GPNM01y68I1OE1prpJhOSZLAec7S3eZjE2LcbqVLCiT4KFX1o7r+M2rh3Ror c5QEPlH3x8O+fkV6fRdL6m+Q4KVMzQsN02ZUwkwfEg0hQWvVsv2PlmbU65W3 XhhHAqH13KuvnL8h7+BQtQ/5JHBTEJrhcG1Br9kyd6rOkCD4j0LTaG4LclxI 3Nm8ToInnwyyy3+2oEXDD5vvOMjQ6HD70lX3VnQ5UUzZVY4MuxJHR1s92pBO 2Y+jL93JoOm4WfP6XRtqFaRWVd8jw0llkfTA5TbUM1Qdr5pABv/PhnZqPu3I NrFpu3gZGXqIwv6kmx3oEQ6mynFSINrpbqdtQBeyVtz98kwFBUKbSO9GK7pQ 95Jh2Zd2CgTsC4i9tN6FVPZUODyfpoD3fICpm8d3VMrTbOwiygS2NwIb71zo RsxS6fve3WKCs71MWZT0bqQkZSRumMAEp7WCQkIGu5F77Kt7x/OZQJ8UrHff ogdRQ7cMJo4xgVJYSMXTY73IUebKjSgzKshNszzZGdKLNC0ald9eo4K0UejN jJpelPD9kIr5AyqI0sIO5Gr2IfapERbBL1QgJ4UXlMv3Iy6l2L8qjzPeE6+i Mvr4BtH28z3pohdZ4Cs7d5CtySBaVJo2l4ligYYr0Q6jEYPouvO+B72FLGCd eJTXizyEpBWic/QprHDKSv/L7ZtDyGeexfhpNiuYRoWW4aQhpMsfccSkkxWM Kxpek94PIa2e9Ok6MhvoixuEBy0OoTBdMdVt1mygOWpwNMplGF2dbOgb3cEO BwXD1ZojhpFxEziZnmAHtSONu2jZw8ioTD85O5AdFF8dY4ofH0ax29qUdWbZ QeqKYVWKzQgy+V3hlPOFA7gWj2vknKCjM0lb1NNruIC3R9nB+xodrQzv5/7N xQ0ClSIROrF0dGjGPnrVkhtEI0d7vrfT0Sf53G0SK9ywW+qWL9ViFGXlZft8 l+SFvez2z7/5jKI8HndhJ1NekJ872picNIq2p5jIsPvxgmoZv6hy7ygib5l5 +7yPF3ROvy6xth5DRMdBq2OvaPDXoZjhPXfGkE7gdL3PAI3h35ttKXUMXZjK sOQW4gOTGR3LiOExdHtXI+llGB9YBfasFp8fR9z+1RaSgfxg41wpfi9oHHk2 Nw3tqecHe9MMfeOMcbQac2RTmFMAnLZdSxydGEcBT2rpf5IFwOst2wHa5QnU mX/Q8HKnINx4/NOmL2ICHS481LpnrxDc8u8IycyZQImeWj4JAUJw7/izLq3Z CVQedsjkz0FhCFYO+Y+VZxI9Lpzo0ngsDOEiLjLtCpOIaUg2pGhDGFLN1Z5E KE6i//+P/A9El8/L "]], LineBox[CompressedData[" 1:eJwdzXs81OkCBvCZYZgZQzOuoUKYXCqixiWn9xVpk0uKbGJJK+1xXSSVklKk kiRyrdgiSiTlMnlfpZRo16WLsmo3WXIKczOGmTm/c57P5/k8n+9fj0l43PYI ColE6iD6v/1TNfuK/r+EgPT/LMbfm9cytIAQFJh/CUoV6eHgwBVxBiFCsK/V EuoH62HHfKaTZZEQNCi9XrzYVRfHfT41ubJaCEwc3a58kOvgm3aKMtuHQrBd M3jIs10Ha/fNUBxfCwFnM93pu6sOnlJ/2+PBFgErWpgGL0gbc0K2pXkai0DK o2ifrWbaOPj2izU+NiJQa/RM23BKC3d78goCvEXg7/GuC35ZWvhm5vWwn8+I gAq3i0l/ronDGmLu3i4SARtdsX1bgSY2+OAkF94SAUas3YacfZo4Z3V/yalu EVi3O7s3nq6Jk19T3t5UE4NkYa+2/W42tlW8Mp8yFIP7q0a3Cdew8VeLkiSH lWJAPnZ+4hKdjX9Ktdd87iUGapztFjvaWNjD9GfvifNikDOW6G9qwcIkb9vS NeViYDfVPcChsnBr8sLXQ3VisHJWwrn3dBFe3Z2fxfhdDKaLY7dFw0VY99en T6xZs+CYzvHOG+4aeKyd4xybNwvCPTVr7NKZ+No4P+tBxSwo/BBcucybiYM0 0Vv5vVmQcYJV902fiV9FBB64MDAL9g1r3Fv2QA0/YGbV12tLQAx8H+YsYeB4 rr9CYiYB8X9kJdR2M7BVmLGP6zoJGPv95b63ZQxc3tg82RcgAbxFAp6PBwOf DprgCAokYBGyq99ylY5hRtOB9VUS8Ftkz36jg3QsvZPeefKhBDwfP9We60vH sWSDcO13EhCRZtPiSKHjndWeZev054Dj5MXj7rE0bC6u1UopmQNVS1ZYdv2k ihc/9VteWzMHvrzc2kF3VcWM/FnbkZY5UMlYtfOOqSqeXuPm4/5uDqiwxkJZ X1UwL+Z9FktHClzZBnd1j6hg/y80eXWOFCRmpml336bizffrmMNlUvBEbp8d nE/Fzif9DRfdkQKHmjaZQyoVG5tcczzwUgoCJ1PlnV5UPBnskOhKmweX7A52 6M4o4xODEeND6fPguuzm/upNyvhApdos8+I8sPk6VLBpjTLen9BAhdfmAaPv tYrhUmXsw5Itv9k+D3bl+HKjREpY3ys/JGF+Hog0NS+eqVbC9U8e9zMOLAA3 H3CMvVgJj9wzerR+vwwcrpvuuKZHwb2OCVbLD8qA1y75cys6BfPaOwtpp2Wg hWc08EZKxiXdvyS8rpQBeVaM1aURMv7x78YVcR9lwD3I5ktuFRn3sX/Iq9gp B/If+qI8ABnjwmJFVoQcBFz0skV2ZFy/9Ft0XJIcmCuKbu/gkHGOZd5mlzw5 6DDf9esrdTL2dB1eeN0rB9cXGc+RR0i4Mz4+kr5JAcIq4msNT5Jwo/jx4NQO BQgeC5m2TCHhilSdjW/CFUAfzmj5xpBwelbrksrjCvCvHuWJ4UAS3nBNud+F pwBlxVrXFatIeDjSa1mzPgk+0lFfvZOnQAGFn7Imc0nQ2omzwqpIjnI2N6qT i0hw1aXwzOrTcvR89lSe7nUSpIqL73slyZHzj9alrg0k6Hxi5onyNjlapp98 t7CPBIP6HthY0OVovFjtjZsmGQ7wokdH02XocDnXtPQSGU6Xkt/j7AXU6EOv bighw5p4mpVr6gL6j/zDyq5KMvy5OdxjOGYB/RSazuU3kuH6mbev9vgtIDfj ni0/DJIh1/ser0J/ATEr9sQLtSnQ1F/W/aRuHpXfOPfIq4ACf/KmJkxMSFGS hVfF2zIKnMwfkGh+lKIttWqZ4Tco8E9W8xXvQSkS1mdvS7lPgU9H/M+L2qVo Ky/rc2U/BaJHxu7My1Ik6c+gz2soQd3EFBrXXYr8SEcDbmUqwSGlKOvCO3OI c9LFee0FJbhpSLi64rc5tEBdWIYKlKCUZuLVWjKHqtWOjA/eUII9Rp/3s7Pn kFz30BFSJ+HIN34/Rs6hmlUHrgeSlGGZ/ruvdmZzSHl3zDfqIWXIW7rLPuWm BBlu3Wlsn64M6QHRJTvLJchuPdgRdkYZgnI+zbVAgsIM2S2tRcow8dj4RafT EvTow/2MuFZlKDx6tvnBPglKDl4wHJpXhnVjXcxeSwmaCDnrefsYFZoV+ToN PJxFJJ+ko0OnqVCulERXbZhFizeE1KtcoMKPVU1O7jWzyGOZje6eq1SYYG2R +L50FlWM9P+lg6nQzSwpNOnELAoONTiURlaB++hp/r6+s+hV2K2q7Rkq8Ezj i0j7KTE6YZrmLDqrAtVnz40MTojRujH/3sJLKnCdzVRf6qgYlUaRBMMVKvD4 971Kn4bEKCo5cENkhwp0WPNnJL9TjGjnqK+PyFWgLOUAd0OpGG18uIdyI0UV 6uRPrVrtK0biQw6XNx9Xhe9FlLGznmJ0y0Xd4mumKvy922fi+yYxYj1u9rYp VIX3JH71nS5i9LFnUVFLkyoc7JIG1VmJUerfj2xe8VXhL1eP2SSqilGTukHI bDQNbrwYF5TTKUJj1h5XE5NoUKuJ+7AYi9Biz4S/po7Q4Atb8821PBFKPd0d MZ5Ng0HshX/e3Rchd8Xh2KFqGnQzqsmIuCFC/dMf0tpGaRB36KuCTBH6PlBW kRZMh1UtAxt6vEXImP9idH4vHb5Z0jq1w1OEtrPEnJQoOnT6PmP60UOEmrx8 auMP0+GG28MUEiT+nsob91yhw55XNtpRdiLEeBj61G2QDjeb90T/rSdCnGKT cVUvBqy7Q33L/SJEReYHUzj+DBhBsXjx+S8hYjb00DYFM6DJ2SKH/BEhEnQd tDwRzYAPL/16QPFWiLCo998L5xiQXMyZlHcL0W6/w9+mexmwrY17vqxBiHJp A/whXzU4dpP/zildiKTJGbLaHUyIj6k+o1kKEeP1s29gNxPmOaVWlnOEyMCe PjIQzoRLrtZVc82EyGnqfPv8r0w4ptFnFGMkRCmRhWlbc5nQtupCikBHiMSB NeTJHiYc2kAt26skRHzHP6hWHuqwvLUJ448CNCk11Kh21IDRKSpu/DIBcnmW 6TUCNWCbUp7OmxIByrkoyNbeogHzMlxethUJkK3FS9X0XRrwwb7Hb85dFqDk gMPkoMMaUDPG1GbTeQEi1b8TqvE04MQXfRHzqADpRlz+EAcWQSpnmvw1RICu RWYOGpqyoEv9yv0xZgJEO7L/pekKFrwQsPuvjuUCFJ+z5bG1NQuWZ/Ob9EwE CDSp1a+3Z8HeqdCorqUCNELJPbvbjQWDYv74k6snQEvKr2ws2cuC4+ZZpf4M AboyeKve4DcWtOngdKbP8FGua885fXM2/HSmuSPoCR95tFfaD1uwYf4rX5bW Yz5acD7yvnwlGw7KMzx6MB/tX2tlYbaWDdfObd/n2s5HcEXWk9VubOgwkLqb 28JH00x3qdseNrTT2xvqeZePfN+1RcaWsaHjVPgSnVI+0oir3fhERxPGHbs2 yUjho3b35kcPDLQgRV3tcrg9H8liQrk7NbThy3AeUpHNILJqf5G1TBsmmVR9 WvL7DOL+kPDYk6QLTTqWtmj8NoOkw7fHdfi6MCb3xXbj9Bk0pa8zaCXRg2uX GRlRwmaQO+2khSdh6dmCaHnoDCoWT6f+QvizytJWKWGPgR7zasJ9ywMDBITL z2UcNJ/Tg4u/pp0bJeylEBgYS/WgW2yl7BnhW6P9e3QW9OBHpu3kWcLyfvhg LeFdaVnOWYT9O+oY/oRrhFNnMgiTyrMb8wjnjk1aHCX8Y+BGKkumB8NGCiNj Cat0N1Qz5Hpw8xv0zzbCwc1GMkvC3b40R2/C926e99tCmNoVmrWFcMjJX6SZ hHfeWW+5kfB9FxMvqkIPJm+rirInzLC+cM2McEtdJM+GcJi+TOhG2IzmoL6S MFP8ruwEYYtayl0zwuGjHvzrhJcI5Qpjws399z06CE9zGX5LCWt0LC/5RHh7 olmFPuG9d3OnFISnqr0FOoT/CywG7zs= "]], LineBox[{{-0.9994998344446492, -6.}, {-0.9994693061992549, 6.}}], LineBox[{{0.9988575135907125, 6.}, {0.9988858605061621, -6.}}]}}, Axes->True, AxesOrigin->{0, 0}, ImageSize->{429., Automatic}, PlotRange->{{-6, 6}, {-6, 6}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}], TraditionalForm]], "Output", CellChangeTimes->{ 3.389109438562325*^9, 3.389109607433779*^9, {3.389109670713957*^9, 3.3891097330999823`*^9}, 3.389110652642624*^9, 3.389146690588241*^9}] }, Open ]] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{78, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, CellLabelAutoDelete->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 116, 2, 59, "Section"], Cell[CellGroupData[{ Cell[731, 29, 346, 11, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[1102, 44, 526, 14, 45, "Print"], Cell[1631, 60, 246, 4, 23, "Print"], Cell[1880, 66, 635, 13, 23, "Print"], Cell[2518, 81, 235, 4, 23, "Print"], Cell[2756, 87, 624, 18, 62, "Print"], Cell[3383, 107, 248, 4, 23, "Print"], Cell[3634, 113, 1701, 40, 79, "Print"], Cell[5338, 155, 414, 8, 23, "Print"], Cell[5755, 165, 1701, 40, 79, "Print"], Cell[7459, 207, 406, 8, 23, "Print"], Cell[7868, 217, 615, 11, 45, "Print"], Cell[8486, 230, 626, 12, 45, "Print"], Cell[9115, 244, 480, 11, 23, "Print"], Cell[9598, 257, 253, 4, 23, "Print"], Cell[9854, 263, 249, 4, 23, "Print"], Cell[10106, 269, 259, 5, 23, "Print"], Cell[10368, 276, 236, 4, 23, "Print"], Cell[10607, 282, 549, 14, 48, "Print"], Cell[11159, 298, 688, 20, 71, "Print"], Cell[11850, 320, 372, 8, 23, "Print"], Cell[12225, 330, 239, 4, 23, "Print"], Cell[12467, 336, 714, 20, 53, "Print"], Cell[13184, 358, 818, 25, 72, "Print"], Cell[14005, 385, 247, 4, 23, "Print"], Cell[14255, 391, 1006, 26, 138, "Print"], Cell[15264, 419, 236, 4, 23, "Print"] }, Open ]], Cell[15515, 426, 13207, 225, 438, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)