(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 145428, 3124] NotebookOptionsPosition[ 139196, 3010] NotebookOutlinePosition[ 139749, 3029] CellTagsIndexPosition[ 139706, 3026] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Calcul d' une courbe de remous avec ressaut", "Title", CellChangeTimes->{{3.796458217733102*^9, 3.796458243794056*^9}, 3.7964583712506695`*^9},ExpressionUUID->"10683917-2ece-4726-a243-\ f0856c9d5b9d"], Cell["C. Ancey, 2020, EPFL/LHE", "Text", CellChangeTimes->{{3.796458245620745*^9, 3.7964582630849676`*^9}},ExpressionUUID->"9e6e1644-9a2a-410c-9206-\ 6648c438b724"], Cell[CellGroupData[{ Cell["Param\[EGrave]tres", "Subsubsection", CellChangeTimes->{{3.7964571723407345`*^9, 3.7964571779775987`*^9}},ExpressionUUID->"dfaa8c81-9eb9-4a55-aa11-\ a1de88e7ebf8"], Cell[BoxData[{ RowBox[{ RowBox[{"q", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ch", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "9.81"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.796445116848787*^9, 3.79644511884752*^9}, 3.79645719848547*^9, 3.7964584522676916`*^9}, CellLabel->"In[1]:=",ExpressionUUID->"2d68d809-d313-4489-bd03-7c95b6b4a3f6"] }, Open ]], Cell[CellGroupData[{ Cell["Valeurs dans le bief 1", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.796457209889678*^9}},ExpressionUUID->"6895b1df-6a37-4ad1-b416-\ de06356125c9"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"i1", "=", "0.05"}], ";"}], "\[IndentingNewLine]", RowBox[{"hn1", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"q", "/", "Ch"}], "/", RowBox[{"Sqrt", "[", "i1", "]"}]}], ")"}], "^", RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Frn", "=", RowBox[{ RowBox[{"q", "/", RowBox[{"hn1", "^", "1.5"}]}], "/", RowBox[{"Sqrt", "[", "9.81", "]"}]}]}], "\n", RowBox[{"hc", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"q", "^", "2"}], "/", "9.81"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}]}], "\n", RowBox[{"Fr1", "=", RowBox[{ RowBox[{"q", "/", RowBox[{"2", "^", "1.5"}]}], "/", RowBox[{"Sqrt", "[", "9.81", "]"}]}]}]}], "Input", CellLabel->"In[5]:=",ExpressionUUID->"0fb5d2e3-5334-409c-bf31-afba32a39ab9"], Cell[BoxData["0.9283177667225558`"], "Output", CellChangeTimes->{3.7964586041688128`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"546a6bd1-3d3f-4dde-b49d-087a2e32378c"], Cell[BoxData["3.5696078073176607`"], "Output", CellChangeTimes->{3.7964586041808157`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"983a4f7a-1a90-4894-8b50-644326ff10cf"], Cell[BoxData["2.1682548718200434`"], "Output", CellChangeTimes->{3.796458604182816*^9}, CellLabel->"Out[8]=",ExpressionUUID->"a88ac2af-add4-4c54-b57c-034b0faa49e9"], Cell[BoxData["1.1288091024643272`"], "Output", CellChangeTimes->{3.796458604185817*^9}, CellLabel->"Out[9]=",ExpressionUUID->"30a42947-73ff-4b80-b7fe-b5b051880225"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Valeurs dans le bief 2", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.7964572183141932`*^9}},ExpressionUUID->"9dc56b52-405b-443d-808d-\ 213b4fbfb6b3"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"i2", "=", "0.002"}], ";"}], "\[IndentingNewLine]", RowBox[{"hn2", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"q", "/", "Ch"}], "/", RowBox[{"Sqrt", "[", "i2", "]"}]}], ")"}], "^", RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Fr2", "=", RowBox[{ RowBox[{"q", "/", RowBox[{"hn2", "^", "1.5"}]}], "/", RowBox[{"Sqrt", "[", "9.81", "]"}]}]}]}], "Input", CellLabel->"In[10]:=",ExpressionUUID->"2baeaa7c-2dd3-4ae1-bdfc-7b45201b0ed2"], Cell[BoxData["2.7144176165949063`"], "Output", CellChangeTimes->{3.7964586408996572`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"6604fe66-450c-43d6-9457-141d1b7624ef"], Cell[BoxData["0.7139215614635323`"], "Output", CellChangeTimes->{3.7964586409046583`*^9}, CellLabel->"Out[12]=",ExpressionUUID->"476b69c2-212d-4a58-8743-b9689ccffe1f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Calcul de la courbe de remous dans le bief 1", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.796457232090372*^9}},ExpressionUUID->"479055c0-4a7d-4c25-80b8-\ e6e9e57ace19"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"eqn1", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"h", "'"}], "[", "x", "]"}], "\[Equal]", RowBox[{"i1", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"hn1", "/", RowBox[{"h", "[", "x", "]"}]}], ")"}], "^", "3"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"hc", "/", RowBox[{"h", "[", "x", "]"}]}], ")"}], "^", "3"}]}], ")"}]}]}]}], ",", RowBox[{ RowBox[{"h", "[", "0", "]"}], "\[Equal]", "2"}]}], "}"}], ",", "h", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"solution1", "=", RowBox[{"h", "/.", RowBox[{"eqn1", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"des0", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"solution1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"hA", "=", RowBox[{"solution1", "[", "10", "]"}]}]}], "Input", CellChangeTimes->{ 3.796443816753584*^9, {3.796449919243162*^9, 3.7964499796600122`*^9}, 3.7964500135062428`*^9, {3.796450059171836*^9, 3.7964500730531726`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"6eca1de1-2212-420d-809c-da5dee865914"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"h", "\[Rule]", InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAStFeOa+/hj6bk4j4////Pzd0wYnD 3cQ/aVVNsGib/z/SUFjDa77VP/p6lZ3BPf8/IqE47Akn4D8OwSb2cPD+P9Wb k3tZVOU/KbZwSMSr/j+7wbiC/fHqP4cdLEuMZ/4/gEqXStgX8D/Xhx+jrCz+ P7tJtw/c7vI/YM6WJzTx/T/ziT6Xnbj1P7PQBKqHuv0/2iBupGZS+D+YMjpi Yor9P1rNgu1ZJPs/o7Bxx+RY/T+J0D+8VMb9P74oR5/yLP0/WwqypoYtAEBM /CoDwQP9Pz63Ng34kwFAl0/w/fXY/D94j482beICQNt7gkamsvw/f/LaffdM BECvJ7yYuYr8PwX2WabgsAVA5gVhlANl/D/iJK2RzfwGQAdml64PQ/w/jN7y ms9kCEAOFTwXdh/8P43DDGfVtAlA8nwQ9Uz/+z9bMxlR8CALQNdf/3OI3fs/ p0NZHGqGDEBgeDRYZr37P0t/barn0w1AooqjMUag+z+8RXRWej0PQJFqECmR gfs/wpunYohHEEBiH5W6qmX7P+XkrgoD7RBAtJav3P5K+z9vc69BiKARQPEv PS/ILvs/pRcaWg9IEkCx+j8nGBX7P0EBfgGh/RJA3Chqger5+j8cu3sZ4q8T QBAdN8He3/o/oorjEiVWFED4AqXvHcj6P4+fRJtyChVAasvIUeuu+j8oyg8F wrIVQAL7fZzml/o/AMV038BXFkAybxh0yYH6Pz4F00jKChdAJ9q6UEZq+j8o W5uT1bEXQLV0ccbFVPo/ePZcbetmGEDtJ9Ds6j36P3SniCgDEBlA4tAAi/wo +j+vKE5UyrUZQIUjdMfVFPo/Ue8MD5xpGkD6hjb2X//5P5/LNatvERtAyZxq p7Tr+T9T7VfWTccbQA/6uL7E1vk/R98Tctt5HEAhKZXMlML5P+bmOe9qIB1A plN2LRGw+T/rM1n7BNUdQE3lk4dTnPk/nJbi6KB9HkDx8kgeM4r5P4zJBUfs Ih9A67lAUrR4+T/iQSI0QtYfQHzkf2sFZvk/8mdUAc0+IEC7SujE21T5P6ZR FDB+mSBAcTXTw4pC+T96IyEXh/IgQL590lbXMPk/JADj7pBFIUB7cChUkyD5 P4F/IQ6gnyFAGP8HLTEP+T+0CRUesPMhQJ4m42kz//g/mjaFdcVOIkBrAl1e H+74P59LQoUyqCJApY7xaJnd+D96a7SFoPsiQFWKNWNlzvg/CC6jzRNWI0Bw pPp1I774P2z7RgaIqiNAnangHCqv+D8yFFD6//8jQIM1yyU1oPg/UN7VbQ== "]]}, Annotation[#, "Charting`Private`Tag$4652#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 1.5391131855315912`}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 1.5391131855315912`}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 10.}, {1.5391131855315912`, 1.9999999721851285`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAStFeOa+/hj6bk4j4////Pzd0wYnD 3cQ/aVVNsGib/z/SUFjDa77VP/p6lZ3BPf8/IqE47Akn4D8OwSb2cPD+P9Wb k3tZVOU/KbZwSMSr/j+7wbiC/fHqP4cdLEuMZ/4/gEqXStgX8D/Xhx+jrCz+ P7tJtw/c7vI/YM6WJzTx/T/ziT6Xnbj1P7PQBKqHuv0/2iBupGZS+D+YMjpi Yor9P1rNgu1ZJPs/o7Bxx+RY/T+J0D+8VMb9P74oR5/yLP0/WwqypoYtAEBM /CoDwQP9Pz63Ng34kwFAl0/w/fXY/D94j482beICQNt7gkamsvw/f/LaffdM BECvJ7yYuYr8PwX2WabgsAVA5gVhlANl/D/iJK2RzfwGQAdml64PQ/w/jN7y ms9kCEAOFTwXdh/8P43DDGfVtAlA8nwQ9Uz/+z9bMxlR8CALQNdf/3OI3fs/ p0NZHGqGDEBgeDRYZr37P0t/barn0w1AooqjMUag+z+8RXRWej0PQJFqECmR gfs/wpunYohHEEBiH5W6qmX7P+XkrgoD7RBAtJav3P5K+z9vc69BiKARQPEv PS/ILvs/pRcaWg9IEkCx+j8nGBX7P0EBfgGh/RJA3Chqger5+j8cu3sZ4q8T QBAdN8He3/o/oorjEiVWFED4AqXvHcj6P4+fRJtyChVAasvIUeuu+j8oyg8F wrIVQAL7fZzml/o/AMV038BXFkAybxh0yYH6Pz4F00jKChdAJ9q6UEZq+j8o W5uT1bEXQLV0ccbFVPo/ePZcbetmGEDtJ9Ds6j36P3SniCgDEBlA4tAAi/wo +j+vKE5UyrUZQIUjdMfVFPo/Ue8MD5xpGkD6hjb2X//5P5/LNatvERtAyZxq p7Tr+T9T7VfWTccbQA/6uL7E1vk/R98Tctt5HEAhKZXMlML5P+bmOe9qIB1A plN2LRGw+T/rM1n7BNUdQE3lk4dTnPk/nJbi6KB9HkDx8kgeM4r5P4zJBUfs Ih9A67lAUrR4+T/iQSI0QtYfQHzkf2sFZvk/8mdUAc0+IEC7SujE21T5P6ZR FDB+mSBAcTXTw4pC+T96IyEXh/IgQL590lbXMPk/JADj7pBFIUB7cChUkyD5 P4F/IQ6gnyFAGP8HLTEP+T+0CRUesPMhQJ4m42kz//g/mjaFdcVOIkBrAl1e H+74P59LQoUyqCJApY7xaJnd+D96a7SFoPsiQFWKNWNlzvg/CC6jzRNWI0Bw pPp1I774P2z7RgaIqiNAnangHCqv+D8yFFD6//8jQIM1yyU1oPg/UN7VbQ== "]]}, Annotation[#, "Charting`Private`Tag$4652#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 1.5391131855315912`}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 1.5391131855315912`}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 10.}, {1.5391131855315912`, 1.9999999721851285`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{0., 10.}}, { 5, 7, 1, {70}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" 1:eJxTTMoPSmViYGBgBGI3BgT4w7HNjjfK3h5C+0PpePu9bRzvO5vTofx8+7vu 96edzuu23wcWn25/bEsA5/XlC+z11GSlX/Yutb+WuVomvWyj/RSHE6tvqu6w DxZ/auVzdZ8953eG1PhDh+wzkvrXSEgds7e7oJc4i/20vYjdOVGZr+ftv141 e+pXeMn+QU/bfv4XV+xPOV+beSHuuv3WX6olE6/etO9x9F+Q0nfX3tDF5tns xQ/s5zwPqGFteGTP3p0qlB/zxL5Ir2rFDYtn9ncv9tk5ib6wtxDj/8c55ZX9 5Kj+vReF3tq/m8dfO3Pie/slH93nGXB8tL8kzFE3xf2T/X/TE7E/2j7bTwrZ OLPC5Ku9SvGsqz8efrPfPrFZsLL/h73Xhhzfnza/7O+eC+2sfPXbvuCt3dGf 0//aR9+qe/3/yn/7xcn3OZg5GR0ko/5Lt6kzOfQHyOtzujE7sLrbO/WksDhU 28aH8jezOvz/Z//4xD82h5YDCoVNVRwOnE2M/62/cTr0OT/q+VrI7SDMelhq /VsehxnHFq/IyORzaFhm47JJT8Bhc6a6yQYNQYfnOkIq65SEHKQ//BFeIyPs 4Lf5OfMqMRGHprJLn5cLiDqIL287tS9czGHNdauFV+eJOzhxvC9/81TC4brF Yj9mXSmHnMxwVakSaQfGWdx/DHbLOHx7bHSyO0XO4ZuYrvdnNgWHD7sPbFxw W8HhdUKIhN8GRYenrC/qfrcoOXxmKtlf66TsAEklKg4A0fn6SA== "], { Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140}, CompressedData[" 1:eJw9kHk41AkchzGtla2hGz3uI5Wj1rJPiu9Kl5nVMZ5cWYklNtFuYVhZt9Q0 svu4Ijs0KIWGYaLar2NWEl2MCJuN1kpylGNmfvP77fy1n//e5/m8/7zGgZGs YFUVFRWOyv/7xkfjhFa86p94JTmvsYqiwJWxIy2WFCPluJBwTMnFO7uM2XIx Ru13MBaRFNR5XfNnz4uxrChsbrWSZ7zbbc5PizHrXPhchIKCaecITvqEGD8K 2ka1FylYcTarfaBajOf3jl4Qz1CQ2VSePBQlxkMtR05kvqPgmKieG+es9M3p c/5jFJxU3apWoiHGSpaB/VAPBVcOPDeaiG/D4Xdf6Xa2UeA+WlkyKGvFv269 pRkLKTi88oEkNKkVjz/8YP6KT8HT1B7JDa1WlJwpDJ7OoYAuoHN7+S14klN9 hJtIAUMR5JG9ugW1tzCXvTpFwcb4brP1nGZM7LEaF3tRkNLGXT+mpWR9lp7r HuV/X8S+uB2Ik6cGTBjbKVCvr1tlHfQHqkWYCJ8ZUGBxPN9Bv/ABZuj4aXbQ lH6gA5eXeh+Z5mE3GyZIeFT2bvZT+j2ceyEyy3hGgs/fXBa/uAntR1KWLO6S kB7VFTLU0YiEREBL55HQK99e5UZrxMEQPcPcTBLqujy3E8y7CMsOgeQUCYwi h11dYSJ8oRe7weQQCcHvEzcaFjbgweXOtBA7EhIj+vNYw/UYFX7W+7IOCQW/ ujs52dTjmNj9TTqpAFGOy9gajhCnppPZrm8VUGPNVvOcr8Odun2pIWIFxGRb NZ92rMPvPTO49XwF9Ob60T2zapW9Y4Y3pCtAvqv99uKsAHmTn03EhCrg/QPD wwUBAgyMFnS1MhUwNTgZ+XjgDtJHLg6M2ypggZBa+vjdway2p4ylLxTQ909A S1FKDX6s2jTvMUHApTKWpm1oNXb6+KwceUgArYwJG4KqUBg+ujmtgoCXjj2X cn68jZ9EGrU2FwjoCBk//V32LZyMdPyhM4wA7/74jITmShSqdfOHdhNgYsCw vth8E9O2hdf46hOguS9NN1pyA3kGJQWbpHLQ9dAdLyIq8LnU8/MtfXJg19bs fmxXgQnT0VeZQjnQvk7ys4wtRyOH4Dj2b3LY1KBBN3tchuWl97c0hckhfOPl nuWLfAyIztDJdJFDzIwRsWDHR36Lq2m7nhwqG+1mu3+5jgkZ62aPzstA+Hp9 fGd/KUYuOnoYPZcBd+3BqkinUjTNf9ahVS2D/tc/a8fdLkHmmRdNj5JksNAb ufIewcMK+ZO8L71k0KxpYTbuy8Mn9XWam21ksPXEXqv8i7/jVCu7IUtdBi8F vt3yc8WoWt6c8+2IFJItyO7sn64h3dYk9sA9KVj/26p+MKkI3Tguj0Y4Ulgj ib3p41+IgcX+29wCpPBKJU7HhnUV11ZwLP3tpeD6oQFW+RagcfiAh8oKKRxN NewTnc1Hdwb75ZqxJXgzZPjQ9loeOpuG1lxvWYKQPUHB1EQu+q57YmbPW4Jq EadK3SUX/wOXV19n "]}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.796458718735011*^9}, CellLabel->"Out[13]=",ExpressionUUID->"522b8e22-0941-4280-b122-8c8da5d9f890"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVzXs0lHkcBvApUm6bSVn3mfFak3GJdrWy7Pcne0qUrZBdWq2RWy5FdFzS 1bWWRiRdrJBbjlGtahXKLWaGoZTKaKkxFWlTmuZ9Z8a8O/vHc57zOc8fD4O9 b0fEYgqF4q/O/11+mK3lvOfUj3mZi2UkSULPCH1LED0GhHIH548LJJAPOk7Q 6Wnw5iIbTSlIKL9fQFtCz4dCY48PQzIS4jxS4mW08yCoERm0fyBhRBFdMkdr gL5beb0zEyQsFb1ivqe1QpNhyHRaJwmV/IrEdzQeNNRyn7flkfC57CZr4g8e LI8uq3qdQ8LGKIH4EcEDvuPVdmo2CbMassA7I3zgOWhPxh4jwdXDzy0/dwA6 Vd8WrUknYbhZuZj5YQi2rWxq+BRLwhG+vY/z7hGQZOgP/7KNBG5zvijOcQym nrm5IHMSouDh+dkkMXR3ya5RelSQILEVt3CngYy2ORp+UAU6jCzmhOsciFzI gy9tVVBoIGBV/j4PT2qtSM+3C8AWBdzTGPgC/Ji9iVtrFyCxN4u9jykHEW8o 89+YBbi+X8/fePMCfJnqfyL9bgEqM2JnnIIoiJPPzeWqlHC8Qrn98+wi9H3Q a0aFUAmUkUnUlq6BnKwTi7mVSrBJjkwNYC1Bda5xGmYHlDAlPbdTt10LtXN8 qUc2K8FHsjfzTOIypF3a2epqqQS/KY6dpaUOSnd/WhEnVcBMN/tof5Mu6pfW Z3UOK8CROmrhtVsfjb31VoVeVYAOSMPG579CGY4lp+/lKmDT+2CZVaABKp+5 pH0gXAHPuvYsCranIlpxn4UUKeBmXk8oXUpFumNSvzaGAiKXpEwKhSvQcIGf 9zhFAeFJGTf1LhiiGBPp8qViOayJshNuCVuJ5vjzRScfyGFohb1uyvpVKOj2 gbWJ9XK4yz1+0V7DCPlG26ZSC+SQsYi1beCFESJ6Lpli++WgM57undDyNWo/ +7d2YoAcJLWMkopDxkiop1ns8oMcSlabaLYGmqBdQT76qXQ5cC5E9oXRTdHu cddGg2VyCC75Taj3xhSZa5Yzr8wRgP9UQ1R0mKH4pTu3dj0lQCzZkNqVa47s UozdtToJqPJwNhsMs0ArR0VpL+sJaMpOoUY5WKK0/bVi3hkCcgPDfTWklogV MBmfn0mAy3hlQ+4gDek1DsfMRhJQZnuxadCXjsJvOU+s20HAkfsFZb6tdPR4 H5vu5E7AVrPAGr41AzV6PuuW2RDgmdAXQs1noIyshMPZhgRUmLOtB6QMZBha tXdQhYN1d12pX4gVot6+28p/hwPHoYv1qMMKbbpvNJX8HIfIec2HPBaGAtsk UnEvDuzrn+j5pzE0FsJUvf8Lh7jj/kqfIgxpakUk/Kl2in/LU71iDG1ws5vy UztPmlLIKcXQOne/yeYbOHDXE4pz5RjKyXpumnQdB6KTHK1txJCT2a4yGVf9 /0ivoKcPQxRNXrPWVRwuVMdH5/Aw5H65cuh2Aw7VyUIvbwGG/C/PfI5W+5YR Ry4QYmhzH/9nQT0O48GG0SNPMCQp5G7k1OHAFJt4vRKrdyLY1awGB6eWdMsr EgyNek1wB67g4JYtIiLeYIg+0cc6rPYWZvm16RkMrdboXvuyGoekWLrlx48Y Ojnhe6KuCodD7seIG/MYKip8Yf2r2tn6rx4nSzHUnzUo0FG7rLn6FI5jSOnZ a5tQiUPVUc2oO3IMnc0RTNLUbtweseGQEkOl+g7lDy/j0GL1wOJHFYaEq6ZD T6jdMW9DkCSGtP9RfeOi9n8dR56F "]]}, Annotation[#, "Charting`Private`Tag$4789#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 1.5391131862833183`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 10}, {1.5391131862833183`, 1.9999999665086268`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.796458718858039*^9}, CellLabel->"Out[15]=",ExpressionUUID->"e4385592-088e-436c-88be-2f4a96696da8"], Cell[BoxData["1.5391131818481285`"], "Output", CellChangeTimes->{3.7964587188620396`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"4544982b-9d94-442e-81cd-3d09d7bb9a9b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Calcul de la courbe de remous dans le bief 2 : prolongement de la branche \ supercritique\ \>", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.796457255914237*^9}},ExpressionUUID->"f39460b6-d236-45f3-b293-\ 7276490a8156"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"eqn2", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"h", "'"}], "[", "x", "]"}], "\[Equal]", RowBox[{"i2", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"hn2", "/", RowBox[{"h", "[", "x", "]"}]}], ")"}], "^", "3"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"hc", "/", RowBox[{"h", "[", "x", "]"}]}], ")"}], "^", "3"}]}], ")"}]}]}]}], ",", RowBox[{ RowBox[{"h", "[", "10", "]"}], "\[Equal]", "hA"}]}], "}"}], ",", "h", ",", RowBox[{"{", RowBox[{"x", ",", "10", ",", "600"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"solution2", "=", RowBox[{"h", "/.", RowBox[{"eqn2", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"xl", "=", RowBox[{ RowBox[{"solution2", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"des1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"solution2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "10", ",", "xl"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}]}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.796443822826997*^9, 3.796443852591428*^9}, { 3.7964439131208944`*^9, 3.796443936711667*^9}, {3.7964439691779723`*^9, 3.7964439790317254`*^9}, {3.7964446635551796`*^9, 3.7964446690429316`*^9}, 3.7964499230737467`*^9, 3.7964500239208713`*^9, {3.7964500965560036`*^9, 3.796450098648477*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"99e4a00c-05eb-46a3-a613-770adf517078"], Cell[BoxData[ TemplateBox[{ "NDSolve", "ndsz", "\"At \\!\\(\\*RowBox[{\\\"x\\\"}]\\) == \ \\!\\(\\*RowBox[{\\\"90.3004851704964`\\\"}]\\), step size is effectively \ zero; singularity or stiff system suspected.\"", 2, 17, 1, 22441435962605405267, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.796458784615802*^9}, CellLabel-> "During evaluation of \ In[17]:=",ExpressionUUID->"6331d667-5a43-49e2-b8e8-176ac0f0874e"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAAR6rLQAAJEDFSqEmNaD4P/w0l306 niZAWsc0pwy7+D800NUK1XQpQIaLogFI2Pg/8Jxp/UgbLEBEFEMttPP4PxgM p/JttC5AtBLWR7YO+T+/f5uS+cIwQIFOgdcmLPk/MxKO3qgTMkDFkRWvw0f5 P8bmKUmIgDNAp/C99ddl+T+PjBo1wOY0QGloPiqJg/k/Gsu10+Q0NkBbZQym YZ/5P8NL+pA5nzdAKv9sd769+T8uZekAe/E4QPUidH5A2vk/z08t8hQ9OkAS zARYW/b5P458GgLfpDtAwQTAjAgV+j8PQrLElfQ8QF6T9qzVMfo/rknzpXxg PkBDj2EuQVH6P4MiiQi8xT9AZWF0dk9w+j8NyuQOdIlAQMgKjNp3jfo/6KPZ KCI+QUA2gqBNUK36PyTKI5zG5kFAY+/DvEDL+j9vkcIeg51CQHpRcjnw6/o/ VcEL4utQQ0DRK+5PSQz7P5w9qv5K+ENAeVMTI7Qq+z/yWp0qwq1EQJmbEYz0 S/s/qcTlry9XRUC48zHPRGv7P/uW2HVJ/UVAkBN5tTqK+z9cCiBLe7FGQFlH kcUfrPs/Hsq8eaNZR0CqWvdqDsz7P+8qrrfjD0hATfkFpgLv+z9b9Ek20MJI QN/71bexEfw/KAo7DrNpSUDfirDeYzL8PwTBgPWtHkpAU4DQ1j5W/D9BxBs2 n8dKQPih/UIcePw/GTBhtzxtS0BwgXr3spn8PwA9+0fyIExAmRyyN5y+/D9I luoxnshMQHChz7+C4fw/n5AuK2J+TUAkpTLk4Qf9P1fXx30cKE5AbNCdQkAs /T+qhgsRg85OQC3XtZVyUP0/DdejswGDT0DuxU3hW3j9P+i5yFe7FVBAUJUL 2EOe/T/R2GndAXFQQECZ1hQeyP0/Byxgg57KUEDTSbtxD/L9P24lAVY2HlFA oBZv2QQa/j9cb0ww2nhRQJ0vP9ZXRv4/e19CN3nNUUBrMBnAwXD+P+eDjV5u IFJAY/tOP2mb/j/b+IKNb3pSQOJr1XcIy/4//xMj6WvOUkAcKWGU5Pj+P6t/ bUx0KVNA6XUhsF8s/z+lHw3Q0oJTQCLMa779YP8/z2VXgCzWU0Bu/ZmMPpT/ P4H8SziSMFRASQ6lia3O/z9jOesc84RUQM3WQFk+BABAzcY0CWDgVEB5lYOE 0iUAQISI0xUjOlVAnqTSHtRJAEBs8BxP4Y1VQOWkab9DbwBA26gQkKvoVUC+ hefeep4AQHsHr/1wPVZAmTrvQqTWAEADqnEgO5NWQMX6FbN1WAFArU3JEw== "]]}, Annotation[#, "Charting`Private`Tag$5485#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 1.5391131886469094`}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 1.5391131886469094`}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{10., 90.3004851704964}, {1.5391131886469094`, 2.1681932440836555`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"10.`", ",", "90.3004851704964`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAAR6rLQAAJEDFSqEmNaD4P/w0l306 niZAWsc0pwy7+D800NUK1XQpQIaLogFI2Pg/8Jxp/UgbLEBEFEMttPP4PxgM p/JttC5AtBLWR7YO+T+/f5uS+cIwQIFOgdcmLPk/MxKO3qgTMkDFkRWvw0f5 P8bmKUmIgDNAp/C99ddl+T+PjBo1wOY0QGloPiqJg/k/Gsu10+Q0NkBbZQym YZ/5P8NL+pA5nzdAKv9sd769+T8uZekAe/E4QPUidH5A2vk/z08t8hQ9OkAS zARYW/b5P458GgLfpDtAwQTAjAgV+j8PQrLElfQ8QF6T9qzVMfo/rknzpXxg PkBDj2EuQVH6P4MiiQi8xT9AZWF0dk9w+j8NyuQOdIlAQMgKjNp3jfo/6KPZ KCI+QUA2gqBNUK36PyTKI5zG5kFAY+/DvEDL+j9vkcIeg51CQHpRcjnw6/o/ VcEL4utQQ0DRK+5PSQz7P5w9qv5K+ENAeVMTI7Qq+z/yWp0qwq1EQJmbEYz0 S/s/qcTlry9XRUC48zHPRGv7P/uW2HVJ/UVAkBN5tTqK+z9cCiBLe7FGQFlH kcUfrPs/Hsq8eaNZR0CqWvdqDsz7P+8qrrfjD0hATfkFpgLv+z9b9Ek20MJI QN/71bexEfw/KAo7DrNpSUDfirDeYzL8PwTBgPWtHkpAU4DQ1j5W/D9BxBs2 n8dKQPih/UIcePw/GTBhtzxtS0BwgXr3spn8PwA9+0fyIExAmRyyN5y+/D9I luoxnshMQHChz7+C4fw/n5AuK2J+TUAkpTLk4Qf9P1fXx30cKE5AbNCdQkAs /T+qhgsRg85OQC3XtZVyUP0/DdejswGDT0DuxU3hW3j9P+i5yFe7FVBAUJUL 2EOe/T/R2GndAXFQQECZ1hQeyP0/Byxgg57KUEDTSbtxD/L9P24lAVY2HlFA oBZv2QQa/j9cb0ww2nhRQJ0vP9ZXRv4/e19CN3nNUUBrMBnAwXD+P+eDjV5u IFJAY/tOP2mb/j/b+IKNb3pSQOJr1XcIy/4//xMj6WvOUkAcKWGU5Pj+P6t/ bUx0KVNA6XUhsF8s/z+lHw3Q0oJTQCLMa779YP8/z2VXgCzWU0Bu/ZmMPpT/ P4H8SziSMFRASQ6lia3O/z9jOesc84RUQM3WQFk+BABAzcY0CWDgVEB5lYOE 0iUAQISI0xUjOlVAnqTSHtRJAEBs8BxP4Y1VQOWkab9DbwBA26gQkKvoVUC+ hefeep4AQHsHr/1wPVZAmTrvQqTWAEADqnEgO5NWQMX6FbN1WAFArU3JEw== "]]}, Annotation[#, "Charting`Private`Tag$5485#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 1.5391131886469094`}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 1.5391131886469094`}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{10., 90.3004851704964}, {1.5391131886469094`, 2.1681932440836555`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"10.`", ",", "90.3004851704964`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{10., 90.3004851704964}}, { 5, 7, 1, {166}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" 1:eJw1znlM02ccBnBuCtgCgY1DaAFLpQzllLPItyLjUCqU9iXzBOQQDIdbuLRc ClRw1ipDgRmClGEyEBA6OYYbDCIeTNE568AJDuUQmcgYVzey9/dr9iRPPsnz 12Mbl85P0FBTU1PHbVT7P0z466YhNc6UCdNHGZaDDkzgxTfIky7aw6149j6D dRZYJ7TMtsQ5gJZJsNIMOUHmRHppH9MFjnlxDDPpbnBAQqlim3sAl3H26RNX L3Bo0zUW7fEFGlccbp/gD+vHNIOSAgBSXQMn/Ya54Ghe9Z4qCYTpjXfK8X1B 0PCGS2k3DobY4cumxb+EAL1jzgZVhkGt2HTDWmcv0A/6j73JCodal8SuG9M8 uBc6aaGlEwG7TlVEu1ZFQG9zYOVhx0jgG3w99OhqJMwmL66BIR84tNtfnU/j g7Rd7Dz6Mx8mEf8+a1sUWCq+O56eEwWR0RbUroEocM6T1RlpCIAq2+aRDAKY u9s51J8vAEbffERAqwD4nVtGe8cFoK3tVpimK4QuPrBsnIWQUscbfoyEQNu5 acE7UwjtY/dM6iqEoKcV8Nq9WQixTnL50KAQuO7sK7TfhGDrW5srnBdCv/Sy SGtDCHHTkoIOGgKf65weZIXAKOnt0hobQejI8hHDHQiKfDQfMAGB+ZB7kGUo ghZB/I+GfAS6Paf1Az9DEMO4JsyKQXAo0HvCMxHB/qRHKSvHEbyYiPI7m4H3 /c8NLDIR2Fm0nWjPQTCjECv2iBB82H5uyqoAgbJE8vd8EQLjnyi/WhcjYG2c loeXIpAqZHf+ESNYbxt83lSGYOey3Q9L5fiPX5HM/0sENTQq3fM8gvZXVVXb JQg6e9wiZ7DfVwzr1V9AwIku9vtEiqDXkpMqx3rb6uSaX0Qg3zpSLMJ+IQvJ GMS6MvoPbLqEoPRDrH8AdnRAg/E5VqT+b24llh6w8rQL+6K7bWoEW+2RsjqD LazPWFvFJhllr1MqEGiXZjvrYWXK7HhC7omcasLxqZyHhHkHczX1sd3BJ1MJ l9xOKQhd6CKuAbaUV5JgiB3Ll5SZYF1br9www4rH6x5vxl5lsOpssDePNKXZ Yxc40wI29uXR9xecsMPlK/edsb3VoxuuWK0za0/csXu79MN2YA8beBd4YkPP NJ30wsa/HvjUG/vAnzlHmNpwPc0Hq3hJUxAe8ghk+2I3LJOTCaVTyhrC242T fYTlWWW/E4YmzC4SipLrNfywDTlaNELegtXHhJ7Il5TeG02qY5dJ+qf4Eumz +VbSb7rfkmaW2JsR7o6MIY0NbrYgzPNf3UxY476bTniLLbUhjF8U2BFmT9Vs IWy/lscktbKwJ3TsLyQN+baGNLFCTlosekhanzBD2sHTZBGuUPRJ/QaMSAvz zEg/KrIlXVdnknrUq0zdZU/a+IfKidMs0vlmlcpnKvNfqVR/p7JkWeUdpUqK +lbSMB2VdykqgwxUDlBV/gcqBhnN "], {Developer`PackedArrayForm, CompressedData[" 1:eJwl0gFHnQEAQNGvJMmTJEmSSpIkSZIkT5IkSZJJkiTJtEkmMzMzkyQzSZIk qSQzmSRJkiRJkiSTJJMkyWSSdNjl/IOb0f6moSciCIK54H+RRBFNDLGEiCOe BBJJIpkUUkkjnUyyyCaHXPLIp4BCiiimhFLKKCdMBZVUUU0NtdRRTwONNPGK ZlpopY12Ouiki25e08NbeunjHf285wMf+cRnvvCVAQYZYphvfGeEUcYYZ4JJ pphmhlnmWWCRH/xkiV8ss8Iqa6yzwSZbbLPDLnvsc8AhRxxzwim/OeOcCy75 wxXX3HDLHff85YF/PPLEM4ERIokimhhiCRFHPAkkkkQyKaSSRjqZZJFNDrnk kU8BhRRRTAmllFFOmAoqqaKaGmp5AdwyR8w= "], CompressedData[" 1:eJwd0nk0lIsbB/D3pVSUqURIWgxiVFpQWZ6nIksY2XVzi0iRRGbISLZsKXuL 7FlTGUurIkuL2+XWdSURkyzXTUki68zvnd8/zzmf85zzfM/3nGedq4+1O0kQ hDk1Dkq30LVyJsF7xKN9juUPHw2fVszPnYRWqdHAUrY/lAdcNX5HObDpu4FT gD9UrMsXGHInIUqnzu1MhD+oqs2zfFIzCQHLVTZVJ/iDwd5dNnrNk6D48dzN LRn+4KHwSUtmYhJ21a3wVn3mDwRDt2rHming/GfcfaffH+brnB8vNJmCwSXu B3iLWTCt4uPm5kd5MqurS4sF96JuNlyumoI9FY2gEMSCWN3rz1N/TUFhhtiJ 4gYWaKeU9ETrTgMf4mY1pNgQXiTWyAmdBgULpTjWCTY4j3l+iHoxDRLe/fms l2xIHzzA+X3lDPirje1o0QsAycXMoKETM0DX8uHl1AZADk2q7LeaGTiUGKyS Yh0IJ+SMIsdWzMKFhup1K6YCoWh1qNWc9ywYvHco5z44C7Hamq7LHs3CyVTR CC3PIBj7+5SHmdgcWKl2luVoccBjcObipN0caKpGGa5ZGwwxsYQD/eocTF/v LSwYDwZ6pW6K04c5cItRP9k6dA7El9e+HVjDh+aDsj6p886DX99+RX1HPng9 6j7ykwyFn3s/sIOT+RA1y6BxUkOh+dmZ3uJGPnh/TfTirA2DaHfHhymTfCjx /R4iXhcGDYTe17BNApALj+MUc8LhtkabfP1BAezj0y2jVCKgaUcIoyJGAGLx cwntXyJg+OmXAS2uAKK8NLsvF0dCyY+7hYYdAijLcbkcFH4BuGkGQTQRAvW4 ufUjYVFQFcL66idF4OWh4HhFz2iwWbtxVaoygYUGJUnWgTGQly5uRNMicKb8 n+lnZ2NhQZVorrYRgfb8FCm7gjiwL0mhbbAn0Gxb9LahBfFQlTRPoeEogXar b0UamlyC+vA/54n6EXi32cTR89llMHuhs0A6hMCTe0iX2uWJEDz2M606jsBv 9LsM175E0CnYGHs3jUDV5xPlrWVJ8HCvqfvGXALj5HU3p2cnQ6FE1CbFUgL5 h6uMrsekgLaV5MqUewQGvnVd756RCuNnb29NqSGwinukuLkoDZLYG6Nor6i+ yu8s7/VfASlPm/wtbwjcsjaLGS13DTb3s3VfvSdw5Zmjy9bGXgetppZGRR6B tIGW4/XD6fDIr9G2d5DA1J1V+zhXM8BYkH4w5BuBh+Owd25bFqg0PjAKHSfw n8S3l54sz4G7cxxf3xkCZ31obnyRXNDIDufWkSRqhlfpM1XyQDZb11NmAYka se7b/OAmOK1aVdmwmMRB/0xpiyv5sP/0wr2xy0jU47+Z4vEKwLS/RT1XhkTl N+2Lo9lFMGDa3fpZnkTxUH1t07liEE+SH/JbQ6LXX/OLpnpuAcMyX6CvRGKn 9fKPIdzbcJA+xWOqkrh2T1O814+7sHL+op476iT+YcMvF03gwr+OtkyLTSRe e7DVwuZLOWRNvh0w3kKiQX6HftvOStC7pdcTsp1EG//HD1/yqmCMRhdfo0Mi J9fKLJJ9H1J/mfwxsZPE9Z/LDu4OfghKS1U6DPVIHLZfecHp5GM41Bg2/tyA xKu16fWvvzwBvxuHM5qQynNmhjcwa6H5/E6J2T0kEqX5H7nadVB+fov3E0MS 70lVVvVU1sOS0+rJRftIDNoToNp9qxGGhh7vZ5iQSC66snk27gUs3Kom8s6U RPPLLkecljSBKIu1VWk/iePrUvXzfF/DV5PydynmVP6fzicelbdAE7xS5VqQ uDu+z7C97w2YmUdnD1uSyHxveaFoYSswjV9afGSSSHeobzRY1gZ5CTm0L1Yk 3tlzpsTvezs8Hzf6XnWAxDG1GA556wMYu/iIX7cmsWLAqUv3RjesrdfWyaBc 48yc5JR2g8jhO+7ZlFnVSQ/qqrth13BbWh7lZ26sK+v+7AYn5cqXBZQr67Z2 3ujqBqtm45liygXFEs2aX7tho9+gexnlpPBzf+VJ9sCONefb71F23lFyM1yz B2zfKFs9obxM58Htv617wPGcQw6f8n+vNcZVXXlw52emiqENibQPpTfVdT7B 6vvGHpcoe/iOzLI1e+HGBh9aJ2XziJr2MqfPcMhYbUTXlsR/Z1vtY8X6IdIy WqKQ8k5Ij+7fNQjH87evmm9HYlvg/TjezSHI/sldcYgyX8zjj2bbYfCUdnN6 SnnS0X4dseQ7kPyo7gX2JH7r+1Hb2zMK7gHLPptTPq74+5Lfp8dAo1C3Io5y s99hebrdBNjUttQ1UDYt23iUQ5uCgq1nhn5Rtj1+VVVRexbUZjuLVB2o/5WI 9vr0SQAfOfwtNpSlp53WZMiIoGq2fEsQ5ZdxZyuDMudh50mFR1mUj8pdcd1+ YwFqDZRvrqVsMV/3QQJDAhXrC726KJP3BFwTPxqOdDTmT1Du3XJg2y/L5fh2 ReZSSUcSjwmKsodY0rjCNbd3PeVa85nnPHs5fKqrYq5F2f+nuIyymiLyZD2D jShXQhp9n8J6bBZNz7GhbOn56pbrL2X0tWz7fJhy3/dvHc3f1dFbJ0r6COXN 5W3qxyQYuFrf3Vjo8/30LyF0Bgp4fmeFFqsopHfrM3C0sKxUaNfpLqULDgzc J63QLXS/3Vd9li8DXcrt9rpQzmofIVcXMrCItCkROvG046nJTgbejZJd6kq5 IyshREpKA/uOe+09RllTbffQ9oubUOmUY48n5d7kIEmtQU3MoImLn6Ysw4st qtu2DcWGri5iUw5+xr6xpFkbn4kqJnMoj+5bvM47SRevJ17zDBXeW3/H4lcP ounGzMRIyidkTj2I7DXEsFRZhRjKpkaPF93eboZvq0tkL1Le3/pGX63MCncw R6eE7kp5vNpE3RpbNW1H4ylPuA8nTsrZ4lFuvNhlynsYn8jUVntkNm83SaDs djtPZVD6N3xs5jySSHnEf9RO9l8XNOm7eCqJcn2pja/o4FG8RtTPCT3QFukr KD2GWqKSBcnCfrMBvy1Y6oVRwdx5qZR9egpj1B+y8eRmlxihL0ltdw1/HIK6 aXLlQksuLa7yNQ7DQxr5PUL3MRVGN0hEYlOx3co0ysvzvkV+fhGDPM2drkIL lDYoG69Ixik952Che5scLjGr0rB6f0Tm//dhi9nJNRkon3WuSGh6Rbw0TZCN TzbVVAjdujVe3QLzsPLif7VCV1tmxLLeFyBfL+Gl0E3jP95LlhWjgb7LG6Fl hzsiKkTuYKCMdqfQXSIFNZnsCjTSjvgkNGviivMm8j5ezTo1JHS030KHnZ1P 8IxH9ITQoTjlGJbzGv8HPKOXiw== "]}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.796458784635805*^9}, CellLabel->"Out[18]=",ExpressionUUID->"a4d5c2ed-275a-47d2-a2ae-8f79e78952c4"], Cell[BoxData["90.3004851704964`"], "Output", CellChangeTimes->{3.7964587846488085`*^9}, CellLabel->"Out[19]=",ExpressionUUID->"00732a84-bc49-40d2-a0a2-8e6c3ae38491"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVkXs4lekCxd9PKEWRSy6dXM7GMIlElKZ3JZvZYQjf59pFKQqRUagO0wWb sIkaMyNGuZSTkksnT5GjFNPlGOO0G5dy6DJEuUyyN7Zx/ljPetZfa/2eZbgn ymufHCEkcl7/d4dls+sJ4WFxCTG1/XmKWu83R4EyDxFJw+a35vMXDb4Cex0e dh15aGVXPEW1wqsDo615aFlo5rTh0hQdfRj6XV8IDxXl0jNflUzRksSOtqY2 HqyVr6U4X5miyh/Kg07mGuPtWZf0gKop2vvE65ScqSlqqifL0pumaG5fz763 OeawH3/Q2jYwRVeIs5Tbmy3Q/n5UYUBeQpualtT+ftgKTy4V158xltA5DFls 4lljqP3OBQOBhJZWB6UV169D9dOs1uyDEsp6DFZ9jrbFy4lUVyWRhH7m/696 m4EdInKbBVo1EkrWRF74udoeIwuD3MY6JVRji7rzu/0bYb+o6+qgREJFfHex lcwB511/GahcKaUzl8cd4zK/wtWoe05yVEpjLaqPXd9McUXFIetsiJSad8pt iz0A2FVr2HelSql+ef3dNKctGCnMDYm5LqUqpmUFF/UcMej/Or6yU0pvFAWN WL92hErPbVnZlJQ+tzAoaWrYivCPqTVKBtO0qrby8X+ETuheKB9gxp+my7Z/ 7S8O4eOo5TPx08hpGvajtk/vJmfkD2ZWmlyYprE91fdCFF3g985Uff3daapg E5Dzus8FwhV3V02+mabbzjz+7c21r1Gw+NV0hMoMFZ6MOf0mVgDtrYbF+TYz 1DXP5Ide9204l+CytmLXDG0uKtH31XbFi0U1Bw4JZ2hjk6Vy24QrAsNE3wvq ZmhN1ui+DY/dEFulm7O0f4YGscetvsxzR1R3Mj9ZeZamr1UP1jz0DX6xbMsI dZil4YpH5E5u8ID/xZFQhbBZauSUIjxCPKGbo7egOG+WdoheNJdFeGJksqpD 5+Es7RGL6vJ/9YSC7zODHZ9m6ZUK925Fuh3ek0vaR81k9FlCdL1t6XakWRu/ Pxwko4f11zzbq+SFtFttod+KZPS5x7jm0qNe6K1cb3K9VUbPn9DTSuj2ws2C ulxTMke1bFwFuwXeuO0sNRraPEc1mjVrnOu8Ia03S2lImqMRbvz/juj4IDHh 1IY79+ZoSvBxc7VUH9wZT10qkyeQxmjZfxr2wZVW3yMV5gTvA9xOvPBk8fh2 68cMb4JbbmbSNC8Wi6Z3Jwp8CL7brBjv4MPiVXvKMUWWQMuo6dtCXxY2+vmN JzkCx8F14SE7WTA//Tv7H/4E+XF6AaPhLBr5px3P7iJwyhuyW5TK4reOdgfF CIJlKY/q6oUsujdpH++Yz11xJevC01msNCx1LYokiArcafksk8UCWW/pxiiC H406TPLyWNjxZ/fGxxCMVdVrGlxi8VamvkctgaDwqXDCroHFZOH7ly0pBAHe LrFPGlkMbXq0Kz91fu/vCp92N83z2fqdCxcSiF6fmky7z2JVyyd1jfR5vukT ku42Fkq/DjRFZhIEmx2eS3rOQhLU18nPI+Al+y9p/cjiz6I5x58uEfQt1s4I GmNhkKb2QHiZoCD7ufLYOIup0GLPuBICzQLvpbqTLO49IBd9ywgUa9zVImZY 8CxM4o0rCP7o27JCVYlDaUe0hfQmwT83mf/dz4hDavrwHzeaCcJu6t7Q43FY vkM6Onh/vt9kicMrYw5rvbKdTFrmeZcNe+0349AsaJMve0Rwrr/yVKwVB9+1 u3PvPyGIF67tz97MIfCz2DNVTGA7a3jIBxzqTZc7fXhBMH54uXSFI4fLSxXv +3URhAdOqBXxOSgEBr+z7yXYuaZuS6UbhwcWomNmA/P/ddoXtwVwoKFRHmMf CRiBmUVmEAcx+VKzZIygsUGn3nMnh5caH07vmCCwK5e2i4M5KCUy195MEpgf u0vehnFo3SEq4mQE7z5cy7h6kINa7dUBAWFQsveidmQEhwuuHzJc5Bj8zT3R 6s8oDqGNM/L7FBmoGmC3XBwHJmy12dZlDJ7mWQ23xHNYoouhy2oM0pUM49OO cbB1mjiorcFgwQSTrZrIYe9iFzFfh0FT6LheZxKHo35+R+RXMjjR01/+/UkO 3sV5hf2rGEy23L+3KplDx2Y17+XGDGo21rr2p3DQO9CaEPMFg+gbJeJSIYfi MHZCdTWD1bzzew+kczg9YmAts2QwmJ/8cXUGB5UTGsHeNgzKVI4eH83kUKZ6 vWvjBgZ7Tu1fWCviEPmvOo+FlIH+Zy43LodDcJKlTpYzg55wF32HXA45tCIr xo/BX4DlB4s= "]]}, Annotation[#, "Charting`Private`Tag$5538#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{10.000001638785411`, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{10.000001638785411`, 90.300483531711}, {0, 3}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7964587847628345`*^9}, CellLabel->"Out[20]=",ExpressionUUID->"673bb71e-43cb-4e4e-a800-e171f472eebf"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Calcul de la courbe de remous conjugu\[EAcute]e", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.796457232090372*^9}, { 3.79645727705828*^9, 3.7964572829541554`*^9}},ExpressionUUID->"5cf9e6dc-efc9-42d0-96da-\ 3673e09133e0"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"conj", "[", "h_", "]"}], ":=", RowBox[{ RowBox[{"1", "/", "2"}], "*", "h", "*", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"8", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"q", "/", RowBox[{"h", "^", "1.5"}]}], "/", RowBox[{"Sqrt", "[", "9.81", "]"}]}], ")"}], "^", "2"}]}], "+", "1"}], "]"}], "-", "1"}], ")"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"des2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"conj", "@", RowBox[{"solution2", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "10", ",", "xl"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.01", ",", "0.01"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"des0", ",", "des1", ",", "des2", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.7964446784160595`*^9, 3.7964446951034245`*^9}, { 3.7964501222424545`*^9, 3.7964501267288437`*^9}, 3.7964588459881783`*^9}, CellLabel->"In[21]:=",ExpressionUUID->"3365fe88-14e4-4f22-86e8-c7ee6c6db98f"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVzXs0lHkcBvApUm6bSVn3mfFak3GJdrWy7Pcne0qUrZBdWq2RWy5FdFzS 1bWWRiRdrJBbjlGtahXKLWaGoZTKaKkxFWlTmuZ9Z8a8O/vHc57zOc8fD4O9 b0fEYgqF4q/O/11+mK3lvOfUj3mZi2UkSULPCH1LED0GhHIH548LJJAPOk7Q 6Wnw5iIbTSlIKL9fQFtCz4dCY48PQzIS4jxS4mW08yCoERm0fyBhRBFdMkdr gL5beb0zEyQsFb1ivqe1QpNhyHRaJwmV/IrEdzQeNNRyn7flkfC57CZr4g8e LI8uq3qdQ8LGKIH4EcEDvuPVdmo2CbMassA7I3zgOWhPxh4jwdXDzy0/dwA6 Vd8WrUknYbhZuZj5YQi2rWxq+BRLwhG+vY/z7hGQZOgP/7KNBG5zvijOcQym nrm5IHMSouDh+dkkMXR3ya5RelSQILEVt3CngYy2ORp+UAU6jCzmhOsciFzI gy9tVVBoIGBV/j4PT2qtSM+3C8AWBdzTGPgC/Ji9iVtrFyCxN4u9jykHEW8o 89+YBbi+X8/fePMCfJnqfyL9bgEqM2JnnIIoiJPPzeWqlHC8Qrn98+wi9H3Q a0aFUAmUkUnUlq6BnKwTi7mVSrBJjkwNYC1Bda5xGmYHlDAlPbdTt10LtXN8 qUc2K8FHsjfzTOIypF3a2epqqQS/KY6dpaUOSnd/WhEnVcBMN/tof5Mu6pfW Z3UOK8CROmrhtVsfjb31VoVeVYAOSMPG579CGY4lp+/lKmDT+2CZVaABKp+5 pH0gXAHPuvYsCranIlpxn4UUKeBmXk8oXUpFumNSvzaGAiKXpEwKhSvQcIGf 9zhFAeFJGTf1LhiiGBPp8qViOayJshNuCVuJ5vjzRScfyGFohb1uyvpVKOj2 gbWJ9XK4yz1+0V7DCPlG26ZSC+SQsYi1beCFESJ6Lpli++WgM57undDyNWo/ +7d2YoAcJLWMkopDxkiop1ns8oMcSlabaLYGmqBdQT76qXQ5cC5E9oXRTdHu cddGg2VyCC75Taj3xhSZa5Yzr8wRgP9UQ1R0mKH4pTu3dj0lQCzZkNqVa47s UozdtToJqPJwNhsMs0ArR0VpL+sJaMpOoUY5WKK0/bVi3hkCcgPDfTWklogV MBmfn0mAy3hlQ+4gDek1DsfMRhJQZnuxadCXjsJvOU+s20HAkfsFZb6tdPR4 H5vu5E7AVrPAGr41AzV6PuuW2RDgmdAXQs1noIyshMPZhgRUmLOtB6QMZBha tXdQhYN1d12pX4gVot6+28p/hwPHoYv1qMMKbbpvNJX8HIfIec2HPBaGAtsk UnEvDuzrn+j5pzE0FsJUvf8Lh7jj/kqfIgxpakUk/Kl2in/LU71iDG1ws5vy UztPmlLIKcXQOne/yeYbOHDXE4pz5RjKyXpumnQdB6KTHK1txJCT2a4yGVf9 /0ivoKcPQxRNXrPWVRwuVMdH5/Aw5H65cuh2Aw7VyUIvbwGG/C/PfI5W+5YR Ry4QYmhzH/9nQT0O48GG0SNPMCQp5G7k1OHAFJt4vRKrdyLY1awGB6eWdMsr EgyNek1wB67g4JYtIiLeYIg+0cc6rPYWZvm16RkMrdboXvuyGoekWLrlx48Y Ojnhe6KuCodD7seIG/MYKip8Yf2r2tn6rx4nSzHUnzUo0FG7rLn6FI5jSOnZ a5tQiUPVUc2oO3IMnc0RTNLUbtweseGQEkOl+g7lDy/j0GL1wOJHFYaEq6ZD T6jdMW9DkCSGtP9RfeOi9n8dR56F "]]}, Annotation[#, "Charting`Private`Tag$4789#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVkXs4lekCxd9PKEWRSy6dXM7GMIlElKZ3JZvZYQjf59pFKQqRUagO0wWb sIkaMyNGuZSTkksnT5GjFNPlGOO0G5dy6DJEuUyyN7Zx/ljPetZfa/2eZbgn ymufHCEkcl7/d4dls+sJ4WFxCTG1/XmKWu83R4EyDxFJw+a35vMXDb4Cex0e dh15aGVXPEW1wqsDo615aFlo5rTh0hQdfRj6XV8IDxXl0jNflUzRksSOtqY2 HqyVr6U4X5miyh/Kg07mGuPtWZf0gKop2vvE65ScqSlqqifL0pumaG5fz763 OeawH3/Q2jYwRVeIs5Tbmy3Q/n5UYUBeQpualtT+ftgKTy4V158xltA5DFls 4lljqP3OBQOBhJZWB6UV169D9dOs1uyDEsp6DFZ9jrbFy4lUVyWRhH7m/696 m4EdInKbBVo1EkrWRF74udoeIwuD3MY6JVRji7rzu/0bYb+o6+qgREJFfHex lcwB511/GahcKaUzl8cd4zK/wtWoe05yVEpjLaqPXd9McUXFIetsiJSad8pt iz0A2FVr2HelSql+ef3dNKctGCnMDYm5LqUqpmUFF/UcMej/Or6yU0pvFAWN WL92hErPbVnZlJQ+tzAoaWrYivCPqTVKBtO0qrby8X+ETuheKB9gxp+my7Z/ 7S8O4eOo5TPx08hpGvajtk/vJmfkD2ZWmlyYprE91fdCFF3g985Uff3daapg E5Dzus8FwhV3V02+mabbzjz+7c21r1Gw+NV0hMoMFZ6MOf0mVgDtrYbF+TYz 1DXP5Ide9204l+CytmLXDG0uKtH31XbFi0U1Bw4JZ2hjk6Vy24QrAsNE3wvq ZmhN1ui+DY/dEFulm7O0f4YGscetvsxzR1R3Mj9ZeZamr1UP1jz0DX6xbMsI dZil4YpH5E5u8ID/xZFQhbBZauSUIjxCPKGbo7egOG+WdoheNJdFeGJksqpD 5+Es7RGL6vJ/9YSC7zODHZ9m6ZUK925Fuh3ek0vaR81k9FlCdL1t6XakWRu/ Pxwko4f11zzbq+SFtFttod+KZPS5x7jm0qNe6K1cb3K9VUbPn9DTSuj2ws2C ulxTMke1bFwFuwXeuO0sNRraPEc1mjVrnOu8Ia03S2lImqMRbvz/juj4IDHh 1IY79+ZoSvBxc7VUH9wZT10qkyeQxmjZfxr2wZVW3yMV5gTvA9xOvPBk8fh2 68cMb4JbbmbSNC8Wi6Z3Jwp8CL7brBjv4MPiVXvKMUWWQMuo6dtCXxY2+vmN JzkCx8F14SE7WTA//Tv7H/4E+XF6AaPhLBr5px3P7iJwyhuyW5TK4reOdgfF CIJlKY/q6oUsujdpH++Yz11xJevC01msNCx1LYokiArcafksk8UCWW/pxiiC H406TPLyWNjxZ/fGxxCMVdVrGlxi8VamvkctgaDwqXDCroHFZOH7ly0pBAHe LrFPGlkMbXq0Kz91fu/vCp92N83z2fqdCxcSiF6fmky7z2JVyyd1jfR5vukT ku42Fkq/DjRFZhIEmx2eS3rOQhLU18nPI+Al+y9p/cjiz6I5x58uEfQt1s4I GmNhkKb2QHiZoCD7ufLYOIup0GLPuBICzQLvpbqTLO49IBd9ywgUa9zVImZY 8CxM4o0rCP7o27JCVYlDaUe0hfQmwT83mf/dz4hDavrwHzeaCcJu6t7Q43FY vkM6Onh/vt9kicMrYw5rvbKdTFrmeZcNe+0349AsaJMve0Rwrr/yVKwVB9+1 u3PvPyGIF67tz97MIfCz2DNVTGA7a3jIBxzqTZc7fXhBMH54uXSFI4fLSxXv +3URhAdOqBXxOSgEBr+z7yXYuaZuS6UbhwcWomNmA/P/ddoXtwVwoKFRHmMf CRiBmUVmEAcx+VKzZIygsUGn3nMnh5caH07vmCCwK5e2i4M5KCUy195MEpgf u0vehnFo3SEq4mQE7z5cy7h6kINa7dUBAWFQsveidmQEhwuuHzJc5Bj8zT3R 6s8oDqGNM/L7FBmoGmC3XBwHJmy12dZlDJ7mWQ23xHNYoouhy2oM0pUM49OO cbB1mjiorcFgwQSTrZrIYe9iFzFfh0FT6LheZxKHo35+R+RXMjjR01/+/UkO 3sV5hf2rGEy23L+3KplDx2Y17+XGDGo21rr2p3DQO9CaEPMFg+gbJeJSIYfi MHZCdTWD1bzzew+kczg9YmAts2QwmJ/8cXUGB5UTGsHeNgzKVI4eH83kUKZ6 vWvjBgZ7Tu1fWCviEPmvOo+FlIH+Zy43LodDcJKlTpYzg55wF32HXA45tCIr xo/BX4DlB4s= "]]}, Annotation[#, "Charting`Private`Tag$5538#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0.01, 0.01}], LineBox[CompressedData[" 1:eJwVUXk0lQkc9X1v0yBbxGiQeTIpWyuRLpEsz/59la2ebIVEZK3xSFHK0ktq SItlVFTPUq9sw5gyaFQG5TVjlKRMtqEZ1Iz543fuuefcc8+997fcP8I9kJSS kgpZuP/RXP7TBikpLrwe+wYLLnKwJkgfBbJcjF6aWPfVAv+mfoe9qToXfdR3 DPEFDlRDRd4H13ARE3Hv6ng+B+M/BScPBHChp1H3fvd5DoqPPm1rauNCvSg0 z1LIgeyHMh/BWV0kmtU6z5/m4GWHewqppwdfRvjmeAEHZwckgW9y9OEqz77s F8TB0t4zsl3NBjDS63ukyuOgqUmm+nmkMYYqc4M81nHwL94ZWHDXwFbH5m6i OgclIp+MK+K14L362yBKigPKZeT2x4PrkT2rmec+xMZH2z9EDtobEbBbukP0 MxtShuF5l0WmqJRe1iO5w8YSK+Vtw0Gb4H1i8sFoHhtZtrxe48/mYAZvvd9y hI35a5PWsac3Q3P7IwWVQDaiDUQJlZZbwK+8It7mwIZ+N+kQvQ8QzxxoMDdh Q6tMXJdhY4V7kamTMqpsyOmVFhRqWMO3NarIeY6FW0U+f655bY2W2RR9t0EW egy0i5vqt2KV3pi/7kMWbldXtP+SboPAHNnq2goW5N227+oNsIVv/RxHMZeF kItqni8ttqFz4i+Zp4dZiJaIGgPYdvg8G1Ho5MsCa51XzusBOwhLztxLtmLB 4Vj7s6Gb2+FK/Pbbfj0W0gVRqUPR9ljx4u6DajkWHIUrLrzkOYDB2PLk2gQT zUXFWjvUHGGYlNti08tEQ5ORbNuUIzpuTd+Lvc9E1ZnxQLN2Jzjk86cnCpnw oRKNVwl54Jbt2aSWysRJE2W+ygFnsHsSyIpAJkLZMaTAzAXCnd3dQ/ZM6Ngc T4+RcsXi6fZ2ypCJp1l9zaVhroBveRCpwISkN6sm/4kryH1OnbZTDHx/ndfP 3uKGdP4yo9xnDDyOPyheX+IGW4tGTX4NA5Faho/3LnJHtPPcde55BnpcJlUW H3YHc9mBZ8diGDiXpKEa3+8O2crBcjOKAdV1jvZ77D1gENzm94UJA0uaVaq2 1XhgdNOHZFlZBsKcbH/9U90T5AWXv98OkzjOT9RXPOEJ1u4L4ogGErNRqqbT o57YkJwZ8FxI4r2XU1KfK4UfurRf2oaQqHVaOZvhTmEy0qgoPphEsiU7ztyT gqS1YuZmEAlVnaZDl3ZQWNL/zl8pkIT1yNrQAD8KETJJKn18EvmxGl7joRQW Dd74xPMmYSN8t1H6BIVXYdnHJTwSlzrTpzbWU6j+fCLdzISEl4dddEcDBWvj H3V2GS/4P2dN72miEHbdaXGcEYms1ykzGS0UPFPnnlQZLOSZS/qnv43Cd4rx 3Tr6JPgrI//9todCc+yMSKJDgpu2S+bRGIVhm5FTFcokBr5Qy/SZoCDtqntK pESiILtHdmKSAr/cLKVWkYRKgcfiL2cobHimZ/dAngS7iqcYNk9hLk/t7l0Z Em8HrJYqLKLBTEywjGOQuGGh//VOHRojb6rujE0QCLnz5S0NLg3n1VZqZeME uCtkzH/XpXH1obKpzxiBS/Kj7kErF/ST3uGNowRyBytSoo1ppJZIs0OGCcSl mwxmW9Lg5606YyIhsP7T8gOeoBEVU+pd94JY+IPS7FJrGvlryWtbnxMI9Z5S LLKlYRD9WsOuh4CfYY1VhRMNbcl+jmYXAZtu0yttXjTGNqu4vGkmQNivNDjt Q0PwcVe57g8EGurVxa5+NP5pluH7NRLYWDbb1cuncaRC++L9BwT0E+qk3oTQ COmvqlOqJjD84WZm+X4amvNfdymKCBTvLVQLD1voVzefxr5N4CveUeO/Imhw kfCq8wYBBW3sIWNpuO9c0SG+SqBTaDzaGkfjYcGv1xwvEzi5aHlcRgINndJv WtsKCTCmiGyFozRqpd3EgnwCTcGTGt3f0sh5f+pFzTkCSZLBsvMCGlVTSok/ 5xKYaW1p1EyjMStNJCVnEqjaVO04eHxhH7kZK+UMAgdvFfeWpNPwvGPaHJxG YDX33N59J2kMCE1PhQsIjOSnja3OpGHB8T8kc4RAqdzhxPHTNIgiOZ2lcQT8 U4I41Vk0hN+Pvt0cRUDrI302Nmchf+KxQ9f3E5CE2mmZn6Ux0dVyWLyTwH+/ kLbw "]]}, Annotation[#, "Charting`Private`Tag$6505#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 1.5391131862833183`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.796458849842041*^9}, CellLabel->"Out[23]=",ExpressionUUID->"2d77ffc7-32bd-4d2c-ba08-b724e715c8a6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Hauteur d\[CloseCurlyQuote]eau en B (seuil)", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.796457232090372*^9}, { 3.7964573554822903`*^9, 3.79645736717807*^9}},ExpressionUUID->"ccd3a9d7-4264-468b-9c67-\ 693f1da6c481"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Hb", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "q", ")"}], "^", RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}]}], "*", RowBox[{ RowBox[{"3", "/", "2"}], "/", RowBox[{"g", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}]}]}], "+", "p"}], "//", "N"}]}], "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"h", "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"h", "+", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", "/", "h"}], ")"}], "^", "2"}], "/", "2"}], "/", "g"}]}], "\[Equal]", "Hb"}], ",", "h"}], "]"}]}]}], "\[IndentingNewLine]", " "}]}]], "Input", CellChangeTimes->{{3.796444991153966*^9, 3.796444994968108*^9}, { 3.7964450523067465`*^9, 3.796445110169726*^9}, 3.7964516759402437`*^9}, CellLabel->"In[24]:=",ExpressionUUID->"b7101cf0-a576-43a7-8b92-6191190f4901"], Cell[BoxData["3.7523823077300644`"], "Output", CellChangeTimes->{3.7964588904697065`*^9}, CellLabel->"Out[24]=",ExpressionUUID->"3aee47bc-9259-4223-856c-de734e31ddfb"], Cell[BoxData[ TemplateBox[{ "Solve", "ratnz", "\"Solve was unable to solve the system with inexact coefficients. The \ answer was obtained by solving a corresponding exact system and numericizing \ the result.\"", 2, 25, 2, 22441435962605405267, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.796458890475708*^9}, CellLabel-> "During evaluation of \ In[24]:=",ExpressionUUID->"9937401c-86fd-4111-b31f-d4ae4eb4de86"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.032124119942041`"}], ",", "1.5064366678792656`", ",", "3.2780697597928397`"}], "}"}]], "Output", CellChangeTimes->{3.7964588904847097`*^9}, CellLabel->"Out[25]=",ExpressionUUID->"acf84c43-fdbe-4556-b1ff-14c49c3b8f22"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", " ", "[", RowBox[{ RowBox[{"h", "+", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", "/", "h"}], ")"}], "^", "2"}], "/", "2"}], "/", "g"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"Plot", " ", "[", RowBox[{"Hb", ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*StyleBox[\"h\",FontSlant->\"Italic\"]\) [m]\>\"", ",", "\"\<\!\(\*StyleBox[\"H\",FontSlant->\"Italic\"]\) [m] \>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"hb", "=", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "Input", CellChangeTimes->{{3.7964447537996416`*^9, 3.7964447708404317`*^9}, { 3.7964450001286955`*^9, 3.7964450367374125`*^9}, {3.7964451038580627`*^9, 3.7964451442231665`*^9}, {3.7964572941338053`*^9, 3.7964573247383566`*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"38ec15ad-fbce-482e-8f63-6490f1e2988e"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k8VF8UAPD3hsIbY2ZsWSN79i1Jcg/JlpKtxRYRZUlaVEgRFUVol19R SBFZQkJFSZKltFCJFpUW+27M7/prPt/P572595577znnLdkW6rSdRhCEHUkQ 87//bQhlEcQgMpXs/bTUVwL+8H7vfMIziFbprX96zE0CTO+73UjgG0Slq6tD vzlKQNcSKyMR5iDylzIdvQ8SID4i46GyeBB9KWih31ssASnnm27amw6iKHsL Rt+HRRDbpYwuHxxEt3mHEwXcF4G/38cQ/aFB5CbHSpcNEoeNrf5eNmODyDJk mY6PrzhYmQyt95oaRH02UeL57uKgwlqom0gOIbMBlXpHe3Hoe6Az3MseQkZG KX9+aYnDdpFj4an6Q6hUe5ELDIuBX93SI4N7h5Cq+4VYzyNi4CN/IKVwfAi1 L7nTrX1bFDJHJ3SPTA+hvVbTZ6yyRaG78WC7w9wQyt3Pd3XbVVFwC4sQHlow jBINrj6+mSYKTnWHzxmIDaNTNaaPtkeKgqVf3KVKg2HUltq09846UVDJS82s 2z2MPq45udJ5TAT6dQruvu0fRuodF2mwQQR+6L1XO/dvGA1OGjYGrxWBbwa8 WY7Dw2hS6fF4hpUIfF7ukdo8NYyu2/44xrdKBDqQ4J46/hF0a2+9yAJ1Eah1 CDYoVBlB3al8Ndd4RSA1VLM8ftsIUoutdTGvFgbjooIHhl0j6BCvTUChoTC8 Dfjrtrp7BDHPXBS20xWGffLa045fRpDHzfuCvzSE4W5qkXFo/wjq4hZ+0VUU BrV9JfduTY8gs+aEph9sYZBYUVm0WHoUxVnrmg4OsGGyrv4Gv8coipqaeryl kA2Vb7tOffw0iiaNtq/hN2RD9iT7Q07vKEqNcle/rsuGFClb9dDvo2g6qz3I TIsNO70qGsm/o4gVsINzWIUNUn1nF6jOjqJRoToNSUk2RI3ZHwmTGkPqwQZm tXMsQKIP9yzcNIbEfbTaKl6woMHxxhbdtjHUct1inB3MAmf1gVa7jjHUsc/Q dmoHC3poK622vx9DQkT6vy/bWTBd+ko/vWcMads9X1qzlQXa4jRB3qExVDvr pJfkzIILXd6179jjKKVUjS99JQv8fRcrHnEeR+mfj+m6M1iwcP/lPy/fjiMl Y503VruY4BSZYvKmaxydyt4tv2onE67GnDj5sXscfav1UV7uxwSj5P1Kv/vw 81bvHY3cmOB/09GDf2IcSWqb/vG2YsKzToFmi0UTaL1J5A8/OSacNIvIr9g0 gQ6sKN4t3iEEdH73wKz3E6hPlohItxaC3AM2O3w/TiBRGcWG0tVCAD+W+Sv3 TKCqgqrmViQE+xpY2279mECaGUE0lrEQdMc1bCken0BmyTI9d9WE4C6pb/tY dBL19Lj83kMJgesMv1rvhklUGShW9aeVAdf+lX+Xfz6JRs0ZIlu3MaBL9D5l +HIS5ay71PzaiwHiKx/oWLfj91dWrlnrzoDTJx4eCumcRAL5MaEWLgw4KN/I qPo1iTzvSYY6WjFgg1PnMmdqCnWulE4bVGcArXwmPn7tFLq1+pOD6rgg+B0G lf6XUyjDuddb6pwg/BVcMVPRPoWifqlJ+KYKQniGXlv8mym0NyC+806yICQ8 UIhY8mkKtQsU77dNEITCKd6WzX+m0PO80OFL0YIwtf/5/mfUNGJ/sBu7uFMQ knc5Pc22nkaZN3TpQuaCULnVz2/r42lkEQ+RGWN0IGT52VJPp5EGfyg7cIQO tl35NR2N08hyadOWFUN06HIZEbdrm0Zv44Dz8Q8dZmxjnxt+nkYtk7/2GX+j g5lhpjbFmUbbDfU3odd0eML/cbLMeAYp3pg8ebyEDu3FzknU3Rn0L+lQwfP9 dKhSFvQRL5tBaWYheW/20iH78hNDhcoZZNnKs+1rGB3CY5Z9XPFoBon6UxTv LjpIOS7S2Nk2g0JOm7Ld/OngN9jV+GxwBnmXpcls3kSHce1tvPF6s0hU56DD eRM6SBfsjuSWzKJwd49bnxfQwSlBjvu0fBa9FwqcCOGlQ6J/S+zpqllk/yLv PIdGh0l5zUTJullUcWDioTxBh7fnf1wyaJ9F25JzKsOnKUg74lUeMDCLhlOl r3sPUMDvbD/UqsFByas08lW7KADdmX0XdDioZ+B5cfd7Cg4wbk96GHBQyhXv kQvvKOh7xkf0m3DQDYPfSvQ3FNSb1gvx2nGQzvXHOrQ2CqJVTDSNd3CQ2qul m9UbKBidUg3IzOaglQcP53qVUtCc9JtdmcdB6101IxVLKMheUlTdWsBBtVt6 b/+6S4GrrZEwt4yDSsx9JCIKKSi/ZFnj+ZSDdiv/Fc+/heez3EdEuo+DbNzi OPaZFEzvS394XnUO9Wyw3X4qmYJX/F6BdzTmUEdZr15EEgW3M5aIPdWZQ+Lp yRaBpylwe5IXOLp8Ds2OBGitT6TggUiFmLPNHOpfQoorH6cgquR1EGvnHNI2 TLkiFE0Bd0BQ4tRt/Lxo65sXuyi4UByZfqZwDr1fqLi4L4QC7b39MudK5pDx uiOJJLbH+LMl/1XNoWjNf80rgyi4PxurUdQ0h9LX8f+sCaBgr8CU2ev+OTRu kzgy4U3BD4Xv26U1uMguNWojcsHx++b8U06HizpULLlRzhSI59YFKhlwkZJl xf0HThRYLs0M1VrJRdU8IT6mjhRk6bgfQmu5aPO7J8F26ylwN20/7RvExePV TF2yoaDVtaY0P5+LXp1NNphdRUHZUYW+wCIuEnzO/rgdOz3/hIR6KRe1Of7w bTOlwI90OpxXxUUbU74y81bi+Bb0WeU85yKZypyXPisoUOFldV39wUUbgi3i 5wwpQFv0iOdsAnY/7ZDo0qSg5J/v5TwRAuxvvP7qha0Ud0H/pBgBcZ93xnzT oIAqmvGzliQg6lCH/rA6BW94G54/lSfA69W476KlFATddTtbp0OAuFjL7ZPK FFzki1OpXkeAW4+YHq8c3r9JcH7iQIBZgr1H+mIKFv/iHGl2JKDL1jZMDzu7 6UDnR1cC9GfqN26TpeBuUtBpjicB/pbiPK3SFDSKOA+b7SJgo2xX1GsJCk7x suSsdxPw4m280EHs9WPNax32EJB99XWsLHbHW6ucreEEBAydZwctoqD3ssnm o9EEnOw6+YAljuMjp1D7OBmv1yGrJ16EghrW5/7nKQSctkvaYYx9lMxY9CqN gNgzps2/hSlY+FUs7MsFAvbsNlJ2xRbJFVDiuUZA1Zoetj6bAk3NoQTLIgJu 16oeEmVSMCBTWG5fTMCOZvdTHUI4voygry6lBKQfK99zHtt44Jvp9goCpk+Y P5TEXlPyfiD+IQFhnf6WmgwKvIwfuT5rxfvjFZtzkI7X73mwq6CdgHOFM8ts sfWP6W5Ne03AQo2sCClsvpbMHZ7vCPgmryn3kMLx842JHOkmYIN5cDMLWyph BdHZQ4D0SOhYnwAFcYVDcbVfCHjkJd1Wg71lyic5oY+AzGPql0OwaWcssuT+ EcB/MzLsDT8FwWXTygsGCZBJYcgVY7/tLLndP0RA38TLyCTsfCXFsntjBAT9 zTS3wXap4nm2lkOAdjbf+FM+Cmo/P1irxyUgOTZO9Ca22oJ9beIkCfTMx59P YnMcvnX28pJwstAmcj127vcnfw4IkrCarVbbu5ACFv1wmKcQCU4lq00asSN0 l41bsEhQEq32LsJ2iMzhMkRJeH/kXP4R7KpMz7gRMRJScjxbd2ArNYgJdC4i IbreNcMJe5J1XDhbmgTe37m6atjbjMwuJsiSMOsZOCGC3ew+Lh0qR0LhFT1/ Ajsr11/ZRJGEPNZ1kw8LKLAztTZuUydBmDFcfgm7zIdbfU+ThMSe+/cSsBef qDC/ok3C8U4jt0jskXbVtf76eD5/Nc56Y3tNfG5da4jftxJWdcFulLnkomdE QqNZ4lYb7IwAfq/ZFST4WjJq9LEXJj360ruShMqWE71q2LtLDgY8W0XCr5E9 t+Swu97p/ilAJHx4c1x0EbYl5+fuNHMSftdEKjCxCxWyxg6sJqFbhnrNhy1h syXCcw0J1Yn9yiR2bAiba2FNQm3DG6kZXgr+pj0/pmZLgm5FXPEYdp6IYIbR WhJsEsoTB7G3nVtfZrmOhIjHS5f8wZYVS212ciBBMj5u30/s9+dff/N2xOvR Don7jp0mLs7Z5UyCy/rEDV+x113cLHbYlYRjebHve7H5Ja5ondpEwpwRR3re dZc+rbm8hQRFtSypeUdJynvddMfz7xbrmPfy9G3h9zxJODFMs5n/v2GpnOT6 rXj+2qzw+fEKrvzIbfchwersd8/5+QTIqD/87IvPh7MG9ze2wn/B7/5uJ4F6 n7Blfj0fZYsGZgJIkH9wK3h+vRevDvFRgSQMvjAwno+Hk5yhvEQwCeWC7Q/m 4yWYGW6ssouEyRL1CX7sZ/L3NxjuJsFNtf8Xaz6eWTM7LPbg+Cy4f1YS21TB LGbDPhI6pM1HFbAnrh+97BVOwoUgTboWdnD2gqaICBJqKt+4rcZWUbb5cjIK x6/sZ5oDdm9O4vSFaBJMfvAf9cDeeJOpURpLwkMR2YMHsdlqTqsfx5FwJiMg 9gR2c94599bjOJ4Hg+EitvltydO/E0mwC3J5W4k9q+6RPXWahIwrZ+40YZfn X63mO0OCkcuy5Z+wNe8o/lU8S4J94R5vXnz+xe9qrfe4gu/Lh2ukO3ab7m7/ wP9IMH0h4bsH+1RxSfTBayT8bNu+LxGbKF1edO4GCTP7DXOqsX/fM2e9zCfh Fu2+0dL5+20Up/bhDgmi6n0MK2zvigb4VURCwm+PNF/st5VrwxaUkfDt8Pes TOxHD1xfrarG8e7MfKWA88v5xzvPFTbj81Rjvcwa5yvdzhiJ0hYSVGo55C7s psHLGRVteH6Xp3afx56Ta8p+1EFCidZ/hvP5zz9a/d6rjyTwM87bncH50Xjl 7zfjf0go9X8fxsX59JUTj9vMPxKGMt6CriDen0Dpbu4gCamxF+74YGdeXtvH P0aCeCfa2oAtMJk/LsXB97/1qPRFnL+7yoIXIQYNbPijq1xxPdjXHHdlNZMG 0xeKLFOwhb5lyNmwafDiitWOF9gWIi9VHcVo0GN1NmI1C+fTMC1jX1kaZOkZ PDHB9SVK+9/mE1o0SKvfeXcNrk9yeaHpretocKLUUPoFrm/eo7HhxQ400D6a KCuC6991uOB01pEGg066V92xlTqrqU2uNHDNyJD8h61OUZHdHjTQS3AckZCi wDA42/1vEA1MrzkuOC5DgY1upww9kQbHx5UsqpdQkBD1Z/LPKRqIGg3miyjg +DZyO1qSaNBx9nFSEPY6H5WktFQa7BUqq5RRxPclbS9H8jINepecyo1Twv3V KKNbLY8Gy4b6KwJVcf6qtLhm1UADA/Xb25O1cL3x7hFybKTBes40i4N9li86 2r2JBt0/QiyCtfH53Hjfc3cLDSIM2o3sdXC9GNWRSX+L19dptFVYj4JEPdnL f/to0HJFO6oC9zc5tyfSzvHxQMjCLDdf3B91ZRQc/2LDA7FmE7eWrcP1+9Ca 9U12PKDvJ1lUhW3v2i1WYs8Dufy2soD7sRoGKydmAw+ICWgY2jvg/Y7eWy+/ mQfmZvdb78T9m7+3CbE1gAduNtn1lLvi/KPYeOhDPH6/W/7RVS8K6Plfgzvq eCD9VUnWpTC8X2FHbXxMeEHgyiZT9hU8Hr1soUg1L+wpyawdeYn799ayeqll C4BpYrL+EP4eWBdg72tduQDOurQq+wEdTCtsJ4VWLITzEceI5zF0GNEVPa1Z vBDQEmZ/Qh0d6qL300IN+KBqj4dJnKAgbBm/cYDvDh/IFhSdaXMRhFfKxl9M lPjBOjHWN+oq/t5b6qtzNocfVjUM8TkOCULNRvdI88UC8PSwG5+0OQN0Nvff Es0SAKV0a0X5dAbsOGb1bhXuw0Kb10rtGWBAnD//NHmWghjJmFpijRDcl/Xh 9ovS4adI4GTTDSG4N3ecRz2ZDhtdKO4cRwiaSlf3J7EFYYWxgFKMDxMey/s3 nE4ThAe0FNaHJ0w4WuGa1UsxoFg09fc+Ngs2K3z0ck/C4zwQZqiuYcFEuY60 Bp8QCE+uC+IPZ8FBnl/N56OFQIvTdDE6lwXCSit8lAkmxGVKhWd/YMHeXRtH qUNMqP3nT9Uw2CBh5NeoEonHaR5o/E+IDdWcsAyLw0zwCj2VEs1k4/qaZBkR w4RD64ZMgM3G/fWTc78SmDB70WC2XpQNdT/1lzWmM0Fzb7j2S2k2CPsyw+Or mTCYi8z7lrKhQl3WLquWCccrI2Ub1dngMay+uOYRE6S8omm3NdiQG2PVMIrX +UqkpS9Eiw0mmYfF/V4yoUVqo8S4Lhu2ffpdbtHNhHe5NFl+Yzbw5UwlevUw IWxBWlw/dkEw39aIL0zwp9ePNq9gw/iMAl9JHxM6/xADqSvZkCjltmnJABP2 2RfYySA26HwJ0Fg1xAQ5VYGJOeyOW/u5m0eYcDNyLL8X2LB4RerNlAkmPEvY q3PTgg31xLXIgikmTDwi5hJWs2FHY4FD4wwTloeIvgm2ZINgSpXiNw4TtB0K yhzWsKF4U+MEl8sEc7WGDH0rNvwPUAyGzg== "]]}, Annotation[#, "Charting`Private`Tag$7109#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQPTcgX4CB4YO9TuA75ocsfA5Nt1TtZ1Yg+Gkpd3KN PiL4iQrlE9Z9+wjnv9Jfs+Haq09wvsX6NbtNbn2G83dcu9V95+4XOP9Y4OJI gwtf4Xy20plvzl77Budzc0RnLbzxHc6f/27bU4WTP+D8lFoHtVdnfyLMj09J iT/4C86/uDG4l2vDbzhfek1B9f9Nf+D8Lz/V0xcs+Qvn/3/PI9G96h+cfz50 7+bVq//D+dPZW9T2+DI4wPhxFgdCj59H8N9OOtms4ckI5089mDll3RkEX35F /qzzvkxwfsEOp/luxxD8W3PWtD3yYIbzuVc/zrlyCMGXL2zwSLRigfN9uLew Ce9B8B3ObzksZcoK5/um+yS770DwbbZ7/uCzZIPzPxuI9OhsRPAP1ZUy5Ruz w/mR3xaXs69F8C+pWjyyUuGA81M0k/UnL0Xw94ZFVzvKccL5+hGvVoosRPAz mt2u20pzwfktaRy/GCcj+DtlE/+/EuGG87f+a2PW6kPwT212ftUryAPnH1RI O9YzCcFv2B668CEXL5wfoXQnLroXwf++TV9am50Pzq9gfnlmah2CL6RimajK wA/nF+eFfeGqRPCFkvnLWvcg+BvDT3z//x/BBwDWeUQY "]]}, Annotation[#, "Charting`Private`Tag$7151#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 3.252382476847758}, DisplayFunction->Identity, Frame->True, FrameLabel->{ FormBox[ "\"\\!\\(\\*StyleBox[\\\"h\\\",FontSlant->\\\"Italic\\\"]\\) [m]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*StyleBox[\\\"H\\\",FontSlant->\\\"Italic\\\"]\\) [m] \"", TraditionalForm]}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 4}, {3.252382476847758, 6.096839396346976}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.796458916293426*^9}, CellLabel->"Out[26]=",ExpressionUUID->"8cc7903b-862e-4201-ac27-107be86d37fc"], Cell[BoxData["3.2780697597928397`"], "Output", CellChangeTimes->{3.796458916301428*^9}, CellLabel->"Out[27]=",ExpressionUUID->"53ba0a2f-6f3c-4179-a349-d6a7a7644d6d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Calcul de la courbe de remous dans le bief 2 : branche subcritique et courbe \ conjugu\[EAcute]e\ \>", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.796457232090372*^9}, { 3.7964573395621233`*^9, 3.7964573473058834`*^9}, {3.796457380554093*^9, 3.7964573868896675`*^9}},ExpressionUUID->"fad0b959-037a-42ff-9a3d-\ 54ed49ed058e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"eqn3", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"h", "'"}], "[", "x", "]"}], "\[Equal]", RowBox[{"i2", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"hn2", "/", RowBox[{"h", "[", "x", "]"}]}], ")"}], "^", "3"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"hc", "/", RowBox[{"h", "[", "x", "]"}]}], ")"}], "^", "3"}]}], ")"}]}]}]}], ",", RowBox[{ RowBox[{"h", "[", "1000", "]"}], "\[Equal]", "hb"}]}], "}"}], ",", "h", ",", RowBox[{"{", RowBox[{"x", ",", "1000", ",", "10"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"solution3", "=", RowBox[{"h", "/.", RowBox[{"eqn3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xl2", "=", RowBox[{ RowBox[{"solution3", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"des3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"solution3", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1000", ",", "xl2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"des4", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"conj", "@", RowBox[{"(", RowBox[{"solution3", "[", "x", "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "1000", ",", "xl2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Dashed"}], "}"}]}]}], "]"}]}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.796445158856431*^9, 3.7964451740162487`*^9}, { 3.7964516404980974`*^9, 3.796451656161294*^9}, {3.796451715716866*^9, 3.7964517577781534`*^9}, {3.796457690284371*^9, 3.7964576926910195`*^9}, { 3.7964581882984953`*^9, 3.796458202619887*^9}, {3.796459011254301*^9, 3.796459026934578*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"1e19a1a2-6d13-4be1-84cc-7e951c74a9fc"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"h", "\[Rule]", InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwVkn04FHYAxw+7371odEvy2INEardjclKG7lvEbOXl2rrENG+H8XjLyGs4 7nAODXnOlVPy0rO0SjLJtGftcYc8sZTWUEReRjwlal5mf3yf71+f7/P542sa GM0P0aRQKI7r+b+7relcTYo5PG85svr/pmJUKXXMMfsccvMi95JhKrI89H3c eg/Crkhlc2+ECshDfYKWD6PQ7Xn92zEqxOzS3U5rfCzuIBe9JqnoHzPcxBYI 0PVtv3L3DBUOtMCSkWBflNTc4xrOU8EUe4alqk9gkrU8W7lAxTX/9yPqDYHQ fjFvFPCeilBLy6BW3WAweUsNJmtU9LEbZUb7hOAe3+qs/IDA3VeeF+IWBs/s YnzMJNAKe+oe6fo9Hvi3tD3UJYirjrk5GhOJQybOm+P1Cf5hCeeQEAXTX5pM mUYEMoEgQnIkBkMcQUyNOYFr6eW794Wx0KL0nT3HIciZ+mlVHBoH5SerzzNt CYwHHp9ZSjuJmm7pSoUTgdNw44eDmfFY3WHjoXQluJXWMpSk+AH+7QuNK14E 3swZ1tufE+B6fH/Rfd91n2sPLMeuJ8KQX/pVspBgZmawskB9Cjo81XhzHMGs i2KpticJnx59NtGVTsDKF9+s6klG9HhfsYuUoFCo+IP/IgVBV9waxHKCYr/v 2hNfpqIfolN5det7kx4631DS0do+VCJqJogMiWhn6Z1Gt6q+mqoi2LuiuFLF zIAZ9+4XnAGC0E1bLumdzUBundpFMkXgYzele8AgE9plouHEZQI/r4ec4fJM 1B4r7+rToWGD3ZH4Y9uysOC3EHbejIbTO9nW0uos6P/uqxjYQ4NyvEy/4jMR Xk+823/Dg4as6z6xgTdE2DfdUvEymIaEk7ZpFTbZSLbdxc9IoWGLxqXGq23Z 4I8EeM+V0pCiiPBP5eWAP6r7SNZAQ4GGimvRnYPQ3s45KzUNV/0dbvOOilG7 7FbqOkZDiYo0ffRYjDvBkb0CCh3bV4V//RYowXw4IReM6UiGSTx7TIJHuh2y Dgc6niXN/qoZkos63yxtjg8dr9P5ts2vcrHZYFC5mESHuljHeHtsHswmMr8O l9NxKOqETfRKHpi9rCfCO+v8gY7FnZJ8HE7BRP0wHXvMJbvO0aTQKzY4I9Bg wKH3adn0j1LYq94t3bZgQFOaG/VGrwCVhrNbI79kIGFjZ+yTCwU4Pw31fCwD /xZss7DiyFDVVuFYLmfAWf9PD8cGGd4s5fO82xnYG2Fw0cK+EBE9bC3NSQZe dTeFd7YWQhRgRS5vZK7/j7u4xiuCtWVNVao9E/8BKc+iXQ== "]]}, Annotation[#, "Charting`Private`Tag$8831#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 2.732828268685615}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 2.732828268685615}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{10., 1000.}, {2.732828268685615, 3.2780697393806335`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"10.`", ",", "1000.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwVkn04FHYAxw+7371odEvy2INEardjclKG7lvEbOXl2rrENG+H8XjLyGs4 7nAODXnOlVPy0rO0SjLJtGftcYc8sZTWUEReRjwlal5mf3yf71+f7/P542sa GM0P0aRQKI7r+b+7relcTYo5PG85svr/pmJUKXXMMfsccvMi95JhKrI89H3c eg/Crkhlc2+ECshDfYKWD6PQ7Xn92zEqxOzS3U5rfCzuIBe9JqnoHzPcxBYI 0PVtv3L3DBUOtMCSkWBflNTc4xrOU8EUe4alqk9gkrU8W7lAxTX/9yPqDYHQ fjFvFPCeilBLy6BW3WAweUsNJmtU9LEbZUb7hOAe3+qs/IDA3VeeF+IWBs/s YnzMJNAKe+oe6fo9Hvi3tD3UJYirjrk5GhOJQybOm+P1Cf5hCeeQEAXTX5pM mUYEMoEgQnIkBkMcQUyNOYFr6eW794Wx0KL0nT3HIciZ+mlVHBoH5SerzzNt CYwHHp9ZSjuJmm7pSoUTgdNw44eDmfFY3WHjoXQluJXWMpSk+AH+7QuNK14E 3swZ1tufE+B6fH/Rfd91n2sPLMeuJ8KQX/pVspBgZmawskB9Cjo81XhzHMGs i2KpticJnx59NtGVTsDKF9+s6klG9HhfsYuUoFCo+IP/IgVBV9waxHKCYr/v 2hNfpqIfolN5det7kx4631DS0do+VCJqJogMiWhn6Z1Gt6q+mqoi2LuiuFLF zIAZ9+4XnAGC0E1bLumdzUBundpFMkXgYzele8AgE9plouHEZQI/r4ec4fJM 1B4r7+rToWGD3ZH4Y9uysOC3EHbejIbTO9nW0uos6P/uqxjYQ4NyvEy/4jMR Xk+823/Dg4as6z6xgTdE2DfdUvEymIaEk7ZpFTbZSLbdxc9IoWGLxqXGq23Z 4I8EeM+V0pCiiPBP5eWAP6r7SNZAQ4GGimvRnYPQ3s45KzUNV/0dbvOOilG7 7FbqOkZDiYo0ffRYjDvBkb0CCh3bV4V//RYowXw4IReM6UiGSTx7TIJHuh2y Dgc6niXN/qoZkos63yxtjg8dr9P5ts2vcrHZYFC5mESHuljHeHtsHswmMr8O l9NxKOqETfRKHpi9rCfCO+v8gY7FnZJ8HE7BRP0wHXvMJbvO0aTQKzY4I9Bg wKH3adn0j1LYq94t3bZgQFOaG/VGrwCVhrNbI79kIGFjZ+yTCwU4Pw31fCwD /xZss7DiyFDVVuFYLmfAWf9PD8cGGd4s5fO82xnYG2Fw0cK+EBE9bC3NSQZe dTeFd7YWQhRgRS5vZK7/j7u4xiuCtWVNVao9E/8BKc+iXQ== "]]}, Annotation[#, "Charting`Private`Tag$8831#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 2.732828268685615}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 2.732828268685615}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{10., 1000.}, {2.732828268685615, 3.2780697393806335`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"10.`", ",", "1000.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{10., 1000.}}, { 5, 7, 1, {47}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" 1:eJxTTMoPSmViYGBgBGJ9BhhQccj7/Za9+5E3hE6KdHDoFuC/mp/ocEJCa1aK XppDwDJn1S9vshxuGsduaF6d77AxYfdcTtMih1J1j+TAKSUOlu+uaMz8XObw 1+/lQv4rlQ4H1/+VattS4+AQvNrV0KHeIaFax+Ld0wYHBd/ms4e1mxweyN1K mlnY7DD/g8GPvO0tDvGH2ntd/rY6yE+5pyTl3O5wL9V0x/uODod55j2+R891 Osy7tffY3XldDvNq39t/y+t2mKeguJPPvsdh3uEgI3X+Xod5aS2r7e/3Oji+ ypp5UrjP4XFuYHuwR59D20fz0rs1fQ4apXLJ6Rv7HF5L+yeu2NbnsP5QffzL 3X0ORZkbYrUO9jmYCTyMzj7W51Cza9Ptj0D6cEpLdMXxPgcu/rDb/4C07hM7 aacTfQ6BO9WjW4F0SZ/A7BNAenryz1vcJ/scdls8kvIH0k06YjMjPvQ5eCp4 iSeJ9zsIiNRNzbbrd+Dg2n/K1L7fARzcDv0OACEgrC0= "], { Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94}, CompressedData[" 1:eJwNx20slAEcAHDV3XP3PHdeL+l6OXdeOopIiVrX/98s74mechVjGeZYYogQ SkZaM+/GQt1p5WSilV0nWS11dPOSJsXZsJUVpZlSrp4Pvw8/ScyFE3HrTExM ohjXM80sxz6xUVCrrp4krOEJz35ENMfGQ32pJQsZQshvd+I4LLKxYFWb4awV wcF+G6nxFxv50/0vIucl4NJ4NfAii8BcleyHdtQBtFS39JUlgU2eepObdk6Q lMLZ4yIhcHvF06WIqV0gPH9ldd6DwND1tge6CXfwaTAG+/sRmLMw+3PLWQ+4 VVA/cSOKQCVPyo6Y3wfFQ8e7TPMJrPt3MkMi94ZnZP5pjYrADrmbvm3zIci4 86y5R0dgajJr2boNoLI3PztlmUCBPk9trTkC20y1LAtHDpLjwsvqLh8wvFZ4 Dp7hYCdfagzqOQofzQwJryo5WCGaaeAP+4FqY8xTi1EOTvRHGr98DgB9QIBr uw0XlUnlsdb/giBtQ2Nu5Tkucn5eifMyC4EHzbOd9zq4aCp+dHOIGwqiFf7V 4TkudnmmlyXeD4W8LCutcRuJhaGbA+N9w8BLSbMdwkmUlXyXKQxh4HbRf2Vv OYl9ayFzzuknYCDzr1ysJ5EaTx9PZtHw/re0fmCSxJ3lkrtiJxrMFyOpqm8k Ovrz/hQF0TCW0qy4tEbijYHhs43JNJTJa7JyTCkcS6oMV5TTsGgfPr7JnMLp 6KEXhioafl8aKei0oHAmfUJxqo6GLONqaogVhe66en9dAw1Dcb3qeQGFvJXV 6MNNNLhLnnwWbKSwuKO3p4a5b1nCDhnz/S+LhIvMZ9SjsfHM5a7H0vyaaQhu 8WLlMH/TCk1pzEe5OmUZ8/jLnbom5ktjpT4q5pmqluUB5vb87Jlu5n62QvEv 5obW2sK3zH9E2QY63KbBI5idqBdTGK15Wf1QQ0Ot3e4PUy4Ubn3uqRG8o8H5 6+PHRm8Kl9Z49YHfaOCIoE12gELLydK+QeYTJTHKXObX7PNmQxZo+A8VET4Y "]}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.7964589749051294`*^9, {3.7964590135398116`*^9, 3.796459027957863*^9}}, CellLabel->"Out[38]=",ExpressionUUID->"19ce435d-1802-4961-94d3-0bf9f4186302"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV0Gs0lAkAxvEJ887M6xzlklsa2lAZ12hE1GOLdKSoFaUso0JHOEbYDTPW uszEDCpWWY1VKVGSmtzSHpdUKqe0U1tKSTO6oEyUETv74Tn/8/v6LOHEb9un QaFQ/NX7v2FtY2c0KJbgWPvoPn5OBVN7mVnqSUsEGdg8eaX2i5Cw4o9sK5yq cK8aVftnZW/Gk4PW2KQl96YPUBHOqgm++Gw5PFKPtq1RO7JsL2OX1A7WVnEp VWo3NsdeC5E6Y1F1BzP5BRXXS16Z1Md5wuiDNG/5IBWD6b1OinWbsEE3MWTh GyoYsqnZ18JA7DWUcfQUVCRGNcjN9+zA3MCw09YPVCyKtHD6VhqKy9G3VJs/ UXFfx6S61SMcNReieKGTVFyqVA3fecXB3DtL4y0zVEjrV1rzf92H12Nc42oN AqxTa/ry3kahybytaD6DwLr1FTUvcw5gqnaF3rEFBNq7H44KpmPhfT6g0saY wP7uUJdnEfG4Gj/TYGtBQOZpHtQ2m4C1OUlc4QoCTnnfOtnsRAjK50UrVxLY VUfxl+VyceLa1NpxTwKlCxqC/B4l4Tb7ua1oEwFh5Gb9GHoy5lhNV22DCPgX 6Y/UBafgEr+qtI5DoPtiB7e8MBVJ0jIWK4HA/GqJYcPQL6jpCPXp5RGIHVjm ftLxMDiO65WrCgnwNP/Qs49KwwYDbkuWhABHa5WmQpqOGbeBiIArBFTK5nN+ nzMwbu9zUtlFoL/oUJSXPh8X7rUn+z4lUGx4OiehmQ/WxvM9h8bU/+hv5Cft yMT0kZ2CQCoNtukUIn8uE0YhaU3+TBpcifmbC878hl6Dknab1TSY0YpjI5GF 4ASzYV4gDTGHWCb+iixIYypPbImjoSjUTaKd/TtubojLTxbS0BFeLr/CzEZB t63Cq5qGPY8WtsR3ZaM77d2fsls0PGzTjKFE5MDVpvMBX07DpYX0qtOMXNj7 +U44adMRNcyXLq7ORXFtifyeHR0r+rfk873y4OMr430MoGO7o/PHSUUewqe9 Enam0hGilb/8x2wBPFpH74ZV0NHlrRqT2AvxW+DtU2966PA4254y0i/E34PH Xysn6BBlfH1KJBzBwTrBNt/FDPh2buxxNc6HKuAvxXY/BgYytYs8r+Yj/EZf CzeFgbQwS1O7rQW4YJ4YcLOKgaxz2x0cJwtwx5xYquxnYN+BKSa9WASTNo3v Ck0SN+0CZ9uPibDnTK2iVYuE6aeagZRSEVRL38sLqST6UsLK5eUilMvMlrjR SLhnd5ncqla7XT9DSJLQkRw1yGkTQTnz06CjLonrjx1IrRERXPb/65zPJKFX JhhpeS/C5efHCzjmJA7uHurhjoow/c/56dUWJH4YKskdmhAhurRd5+0SEgXj 37U6ZkUQ6pYt9rIiwdHuncs0EKPxcOfjaRaJ1vtWL92MxKC5eEc+tCVhVMy7 8clEjCtuY5o1diR6jZ3TI8zFqKzMy9jpQIJtfWIaNmJ0cPtCmlaSKByZePrV VgxTphmvyJnE+1r/pnoHMaYGMq7HuJCQOM9LtVglxvoKwV5TNgnV5K7gJ65i XK5wkn1We0dzI7vQXYyzjeO777qSqE/XMfT1FMNisPtL1WoS2l7RX+bWifGA NJSkuZH4D6X2G8U= "]]}, Annotation[#, "Charting`Private`Tag$8882#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 2.732828268960291}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7964589749051294`*^9, {3.7964590135398116`*^9, 3.7964590280468826`*^9}}, CellLabel->"Out[41]=",ExpressionUUID->"c55ef9da-c7d4-4b6f-8aa6-042463610abe"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVx3lY03UcwPEhh8BCUzw45MgADy7nEsIcn4+aoeJI9OGQSwQnYhjE6YUM cZzjN5g8kEowU4QogQhBENhqMlFRCS3hIQ9CBLxFfju+K9b64/28n9dHMYk7 eLMYDAZX3/+P6npTM4vhhP+aTCeXMbRgz1y25NBZJ1wX9ViVrfej0CjxKy9n PGDze3qi3run+44PHnTBsnmymK16R7vWhzQML8enbuVTOh2B2NN7zcLa3FF+ O/VtvN4tHQmtoW1s3DteFOIzQ+BK+Yh109ccTDt9K65HS+BJZh9rArZgYEOk hY2SgNkD1czfhYEYeP3Y7dC3BJLjmscdIoPxJMcDOM8J2MY6sjQV4XgjmXvL YpTAnTnWtZ3ropHDFXb1DhNoPKcduzkSg2FPZqt97xFoa1rtwj/Cw7uMbuJ8 k4Br9Wf9+c/ikOXFUxAZAdhYVf849wBmFYxxfFsJSBUDrwtIAjK2pyUf/JHA PkX4J8N7EtEyzyfBTELgAcchqGsmCSPrZHXdYgKsfM01L69k3Ofna/qVgEDY JQb3QV4Kpu6CFZNpBCo+bA7yv5eKU767n1M8AoWx2yzjTdOx3bK1AoMIcEst Jy+FZGBRxLywyA0EFA3ylMqSQ/h6+bIBkSeBubWSRc2jhzExeiL+L2sCCQ+X rT276igemTKfXmlIIMvw2/keccewZKt5x5WXGogxWmM40ZaJNe4vPqcHNKCd 7qjznzqOT41ZtgXtGrhfmha33pKPws5eaUC1BsSLLuQmdfDR9OjHJtHZGnC1 9OOnBmdjQv0/AvO9GnDLZJgIddn43Iw/1rpBA94mc7cV15xA+cji+G8cNbBk tjghFnMwwK5RaqVTQ3yaqzV3Igc3yi/1Jw2poTTcR8IUnMRPVf4j4y1qkEdX jv9iL8DVfPVAv0gNkfcWXk3sEaDO5Xqw2z41DHQZxjP25KJaXMVm+qqhcaHp +QtmecjeEVvFmqeGuDF+m12t3qujDayeqWDF/QAhf30+7goIbO7qUMHOVexX yol8tPP/jRQWqiDUSLh8g6AApVtubMuJUEHPJu0biUch5rYE8agVKlh3UZox eb8QGzZtMj6hVAJ1XD1kklSEnD/ddGYKJWy+5tfrbSXEL6xTMiUlSniYzSzl XBai7buILcZRSjgW5WTj/mUxNkpqeApXJeTU7fRcpSxGiw4tq2qaBt4Blb2p mEJHY+faszIaZO6BM9IyCgMWKHY0S2mweVf/MKOCwgYfFt3bTUN/RlTleCWF 7LAj9spOGtYKeqyv11I4NBhnuL2dhjmSUwtyuyjcP+FmO6uZhit/eJobTVJo 4Dxct/s8DfNPF0xefUGhnd9t77TvaTgYMdqb8prCuhMO3YXnaFg6Wp43+p7C vNkWP1+upqH47b9G8hkKD7ems5iVNMQw+3TZC0R4S/ZBdUsZDZ13nB/7LBbh GQen2hunaFgszup+Zy1Cda764iMxDX1W7Mw9DiLMWmpPmZbS4OVyhuBKEcb8 cIGEF9NQMvl+SO0mwvLx9F+ThDS8+Inb3uQpQkW2B19QRIOEbXDIcY0I841C xxoKaNAqw0IGvUW4xPxukTyfhuCOFq+StSLsrlmzcjCPhqbMOYs2c0Qo51Gy l7k0MNfvp3UgQgf5d9sN9P4PYB9fhg== "]]}, Annotation[#, "Charting`Private`Tag$8924#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 999.9999797959184}, {0, 3}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7964589749051294`*^9, {3.7964590135398116`*^9, 3.7964590281389036`*^9}}, CellLabel->"Out[42]=",ExpressionUUID->"2137b9d8-328b-4117-ad95-6bc75cee3a9c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Trac\[EAcute] de tous les courbes", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.796457232090372*^9}, { 3.7964573920264535`*^9, 3.7964574004344473`*^9}},ExpressionUUID->"712392a7-f8c4-4757-84ca-\ 99ce8a32dcec"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"des", "=", RowBox[{"Show", "[", RowBox[{"des0", ",", "des1", ",", "des2", ",", "des3", ",", "des4", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"FrameLabel", "\[Rule]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"StyleForm", "[", RowBox[{"\"\< x \>\"", ",", RowBox[{"FontSize", "\[Rule]", "18"}], ",", RowBox[{"FontSlant", "->", "\"\\""}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], " ", "]"}], ",", RowBox[{"StyleForm", "[", RowBox[{"\"\< h \>\"", ",", RowBox[{"FontSize", "\[Rule]", "18"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSlant", "->", "\"\\""}]}], " ", "]"}]}], "}"}]}], ",", RowBox[{"DefaultFont", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "14"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.796451776923335*^9, 3.7964518010807657`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"a8d781bb-96c3-4550-ac46-dd860dc48783"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVzXs0lHkcBvApUm6bSVn3mfFak3GJdrWy7Pcne0qUrZBdWq2RWy5FdFzS 1bWWRiRdrJBbjlGtahXKLWaGoZTKaKkxFWlTmuZ9Z8a8O/vHc57zOc8fD4O9 b0fEYgqF4q/O/11+mK3lvOfUj3mZi2UkSULPCH1LED0GhHIH548LJJAPOk7Q 6Wnw5iIbTSlIKL9fQFtCz4dCY48PQzIS4jxS4mW08yCoERm0fyBhRBFdMkdr gL5beb0zEyQsFb1ivqe1QpNhyHRaJwmV/IrEdzQeNNRyn7flkfC57CZr4g8e LI8uq3qdQ8LGKIH4EcEDvuPVdmo2CbMassA7I3zgOWhPxh4jwdXDzy0/dwA6 Vd8WrUknYbhZuZj5YQi2rWxq+BRLwhG+vY/z7hGQZOgP/7KNBG5zvijOcQym nrm5IHMSouDh+dkkMXR3ya5RelSQILEVt3CngYy2ORp+UAU6jCzmhOsciFzI gy9tVVBoIGBV/j4PT2qtSM+3C8AWBdzTGPgC/Ji9iVtrFyCxN4u9jykHEW8o 89+YBbi+X8/fePMCfJnqfyL9bgEqM2JnnIIoiJPPzeWqlHC8Qrn98+wi9H3Q a0aFUAmUkUnUlq6BnKwTi7mVSrBJjkwNYC1Bda5xGmYHlDAlPbdTt10LtXN8 qUc2K8FHsjfzTOIypF3a2epqqQS/KY6dpaUOSnd/WhEnVcBMN/tof5Mu6pfW Z3UOK8CROmrhtVsfjb31VoVeVYAOSMPG579CGY4lp+/lKmDT+2CZVaABKp+5 pH0gXAHPuvYsCranIlpxn4UUKeBmXk8oXUpFumNSvzaGAiKXpEwKhSvQcIGf 9zhFAeFJGTf1LhiiGBPp8qViOayJshNuCVuJ5vjzRScfyGFohb1uyvpVKOj2 gbWJ9XK4yz1+0V7DCPlG26ZSC+SQsYi1beCFESJ6Lpli++WgM57undDyNWo/ +7d2YoAcJLWMkopDxkiop1ns8oMcSlabaLYGmqBdQT76qXQ5cC5E9oXRTdHu cddGg2VyCC75Taj3xhSZa5Yzr8wRgP9UQ1R0mKH4pTu3dj0lQCzZkNqVa47s UozdtToJqPJwNhsMs0ArR0VpL+sJaMpOoUY5WKK0/bVi3hkCcgPDfTWklogV MBmfn0mAy3hlQ+4gDek1DsfMRhJQZnuxadCXjsJvOU+s20HAkfsFZb6tdPR4 H5vu5E7AVrPAGr41AzV6PuuW2RDgmdAXQs1noIyshMPZhgRUmLOtB6QMZBha tXdQhYN1d12pX4gVot6+28p/hwPHoYv1qMMKbbpvNJX8HIfIec2HPBaGAtsk UnEvDuzrn+j5pzE0FsJUvf8Lh7jj/kqfIgxpakUk/Kl2in/LU71iDG1ws5vy UztPmlLIKcXQOne/yeYbOHDXE4pz5RjKyXpumnQdB6KTHK1txJCT2a4yGVf9 /0ivoKcPQxRNXrPWVRwuVMdH5/Aw5H65cuh2Aw7VyUIvbwGG/C/PfI5W+5YR Ry4QYmhzH/9nQT0O48GG0SNPMCQp5G7k1OHAFJt4vRKrdyLY1awGB6eWdMsr EgyNek1wB67g4JYtIiLeYIg+0cc6rPYWZvm16RkMrdboXvuyGoekWLrlx48Y Ojnhe6KuCodD7seIG/MYKip8Yf2r2tn6rx4nSzHUnzUo0FG7rLn6FI5jSOnZ a5tQiUPVUc2oO3IMnc0RTNLUbtweseGQEkOl+g7lDy/j0GL1wOJHFYaEq6ZD T6jdMW9DkCSGtP9RfeOi9n8dR56F "]]}, Annotation[#, "Charting`Private`Tag$4789#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVkXs4lekCxd9PKEWRSy6dXM7GMIlElKZ3JZvZYQjf59pFKQqRUagO0wWb sIkaMyNGuZSTkksnT5GjFNPlGOO0G5dy6DJEuUyyN7Zx/ljPetZfa/2eZbgn ymufHCEkcl7/d4dls+sJ4WFxCTG1/XmKWu83R4EyDxFJw+a35vMXDb4Cex0e dh15aGVXPEW1wqsDo615aFlo5rTh0hQdfRj6XV8IDxXl0jNflUzRksSOtqY2 HqyVr6U4X5miyh/Kg07mGuPtWZf0gKop2vvE65ScqSlqqifL0pumaG5fz763 OeawH3/Q2jYwRVeIs5Tbmy3Q/n5UYUBeQpualtT+ftgKTy4V158xltA5DFls 4lljqP3OBQOBhJZWB6UV169D9dOs1uyDEsp6DFZ9jrbFy4lUVyWRhH7m/696 m4EdInKbBVo1EkrWRF74udoeIwuD3MY6JVRji7rzu/0bYb+o6+qgREJFfHex lcwB511/GahcKaUzl8cd4zK/wtWoe05yVEpjLaqPXd9McUXFIetsiJSad8pt iz0A2FVr2HelSql+ef3dNKctGCnMDYm5LqUqpmUFF/UcMej/Or6yU0pvFAWN WL92hErPbVnZlJQ+tzAoaWrYivCPqTVKBtO0qrby8X+ETuheKB9gxp+my7Z/ 7S8O4eOo5TPx08hpGvajtk/vJmfkD2ZWmlyYprE91fdCFF3g985Uff3daapg E5Dzus8FwhV3V02+mabbzjz+7c21r1Gw+NV0hMoMFZ6MOf0mVgDtrYbF+TYz 1DXP5Ide9204l+CytmLXDG0uKtH31XbFi0U1Bw4JZ2hjk6Vy24QrAsNE3wvq ZmhN1ui+DY/dEFulm7O0f4YGscetvsxzR1R3Mj9ZeZamr1UP1jz0DX6xbMsI dZil4YpH5E5u8ID/xZFQhbBZauSUIjxCPKGbo7egOG+WdoheNJdFeGJksqpD 5+Es7RGL6vJ/9YSC7zODHZ9m6ZUK925Fuh3ek0vaR81k9FlCdL1t6XakWRu/ Pxwko4f11zzbq+SFtFttod+KZPS5x7jm0qNe6K1cb3K9VUbPn9DTSuj2ws2C ulxTMke1bFwFuwXeuO0sNRraPEc1mjVrnOu8Ia03S2lImqMRbvz/juj4IDHh 1IY79+ZoSvBxc7VUH9wZT10qkyeQxmjZfxr2wZVW3yMV5gTvA9xOvPBk8fh2 68cMb4JbbmbSNC8Wi6Z3Jwp8CL7brBjv4MPiVXvKMUWWQMuo6dtCXxY2+vmN JzkCx8F14SE7WTA//Tv7H/4E+XF6AaPhLBr5px3P7iJwyhuyW5TK4reOdgfF CIJlKY/q6oUsujdpH++Yz11xJevC01msNCx1LYokiArcafksk8UCWW/pxiiC H406TPLyWNjxZ/fGxxCMVdVrGlxi8VamvkctgaDwqXDCroHFZOH7ly0pBAHe LrFPGlkMbXq0Kz91fu/vCp92N83z2fqdCxcSiF6fmky7z2JVyyd1jfR5vukT ku42Fkq/DjRFZhIEmx2eS3rOQhLU18nPI+Al+y9p/cjiz6I5x58uEfQt1s4I GmNhkKb2QHiZoCD7ufLYOIup0GLPuBICzQLvpbqTLO49IBd9ywgUa9zVImZY 8CxM4o0rCP7o27JCVYlDaUe0hfQmwT83mf/dz4hDavrwHzeaCcJu6t7Q43FY vkM6Onh/vt9kicMrYw5rvbKdTFrmeZcNe+0349AsaJMve0Rwrr/yVKwVB9+1 u3PvPyGIF67tz97MIfCz2DNVTGA7a3jIBxzqTZc7fXhBMH54uXSFI4fLSxXv +3URhAdOqBXxOSgEBr+z7yXYuaZuS6UbhwcWomNmA/P/ddoXtwVwoKFRHmMf CRiBmUVmEAcx+VKzZIygsUGn3nMnh5caH07vmCCwK5e2i4M5KCUy195MEpgf u0vehnFo3SEq4mQE7z5cy7h6kINa7dUBAWFQsveidmQEhwuuHzJc5Bj8zT3R 6s8oDqGNM/L7FBmoGmC3XBwHJmy12dZlDJ7mWQ23xHNYoouhy2oM0pUM49OO cbB1mjiorcFgwQSTrZrIYe9iFzFfh0FT6LheZxKHo35+R+RXMjjR01/+/UkO 3sV5hf2rGEy23L+3KplDx2Y17+XGDGo21rr2p3DQO9CaEPMFg+gbJeJSIYfi MHZCdTWD1bzzew+kczg9YmAts2QwmJ/8cXUGB5UTGsHeNgzKVI4eH83kUKZ6 vWvjBgZ7Tu1fWCviEPmvOo+FlIH+Zy43LodDcJKlTpYzg55wF32HXA45tCIr xo/BX4DlB4s= "]]}, Annotation[#, "Charting`Private`Tag$5538#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0.01, 0.01}], LineBox[CompressedData[" 1:eJwVUXk0lQkc9X1v0yBbxGiQeTIpWyuRLpEsz/59la2ebIVEZK3xSFHK0ktq SItlVFTPUq9sw5gyaFQG5TVjlKRMtqEZ1Iz543fuuefcc8+997fcP8I9kJSS kgpZuP/RXP7TBikpLrwe+wYLLnKwJkgfBbJcjF6aWPfVAv+mfoe9qToXfdR3 DPEFDlRDRd4H13ARE3Hv6ng+B+M/BScPBHChp1H3fvd5DoqPPm1rauNCvSg0 z1LIgeyHMh/BWV0kmtU6z5/m4GWHewqppwdfRvjmeAEHZwckgW9y9OEqz77s F8TB0t4zsl3NBjDS63ukyuOgqUmm+nmkMYYqc4M81nHwL94ZWHDXwFbH5m6i OgclIp+MK+K14L362yBKigPKZeT2x4PrkT2rmec+xMZH2z9EDtobEbBbukP0 MxtShuF5l0WmqJRe1iO5w8YSK+Vtw0Gb4H1i8sFoHhtZtrxe48/mYAZvvd9y hI35a5PWsac3Q3P7IwWVQDaiDUQJlZZbwK+8It7mwIZ+N+kQvQ8QzxxoMDdh Q6tMXJdhY4V7kamTMqpsyOmVFhRqWMO3NarIeY6FW0U+f655bY2W2RR9t0EW egy0i5vqt2KV3pi/7kMWbldXtP+SboPAHNnq2goW5N227+oNsIVv/RxHMZeF kItqni8ttqFz4i+Zp4dZiJaIGgPYdvg8G1Ho5MsCa51XzusBOwhLztxLtmLB 4Vj7s6Gb2+FK/Pbbfj0W0gVRqUPR9ljx4u6DajkWHIUrLrzkOYDB2PLk2gQT zUXFWjvUHGGYlNti08tEQ5ORbNuUIzpuTd+Lvc9E1ZnxQLN2Jzjk86cnCpnw oRKNVwl54Jbt2aSWysRJE2W+ygFnsHsSyIpAJkLZMaTAzAXCnd3dQ/ZM6Ngc T4+RcsXi6fZ2ypCJp1l9zaVhroBveRCpwISkN6sm/4kryH1OnbZTDHx/ndfP 3uKGdP4yo9xnDDyOPyheX+IGW4tGTX4NA5Faho/3LnJHtPPcde55BnpcJlUW H3YHc9mBZ8diGDiXpKEa3+8O2crBcjOKAdV1jvZ77D1gENzm94UJA0uaVaq2 1XhgdNOHZFlZBsKcbH/9U90T5AWXv98OkzjOT9RXPOEJ1u4L4ogGErNRqqbT o57YkJwZ8FxI4r2XU1KfK4UfurRf2oaQqHVaOZvhTmEy0qgoPphEsiU7ztyT gqS1YuZmEAlVnaZDl3ZQWNL/zl8pkIT1yNrQAD8KETJJKn18EvmxGl7joRQW Dd74xPMmYSN8t1H6BIVXYdnHJTwSlzrTpzbWU6j+fCLdzISEl4dddEcDBWvj H3V2GS/4P2dN72miEHbdaXGcEYms1ykzGS0UPFPnnlQZLOSZS/qnv43Cd4rx 3Tr6JPgrI//9todCc+yMSKJDgpu2S+bRGIVhm5FTFcokBr5Qy/SZoCDtqntK pESiILtHdmKSAr/cLKVWkYRKgcfiL2cobHimZ/dAngS7iqcYNk9hLk/t7l0Z Em8HrJYqLKLBTEywjGOQuGGh//VOHRojb6rujE0QCLnz5S0NLg3n1VZqZeME uCtkzH/XpXH1obKpzxiBS/Kj7kErF/ST3uGNowRyBytSoo1ppJZIs0OGCcSl mwxmW9Lg5606YyIhsP7T8gOeoBEVU+pd94JY+IPS7FJrGvlryWtbnxMI9Z5S LLKlYRD9WsOuh4CfYY1VhRMNbcl+jmYXAZtu0yttXjTGNqu4vGkmQNivNDjt Q0PwcVe57g8EGurVxa5+NP5pluH7NRLYWDbb1cuncaRC++L9BwT0E+qk3oTQ COmvqlOqJjD84WZm+X4amvNfdymKCBTvLVQLD1voVzefxr5N4CveUeO/Imhw kfCq8wYBBW3sIWNpuO9c0SG+SqBTaDzaGkfjYcGv1xwvEzi5aHlcRgINndJv WtsKCTCmiGyFozRqpd3EgnwCTcGTGt3f0sh5f+pFzTkCSZLBsvMCGlVTSok/ 5xKYaW1p1EyjMStNJCVnEqjaVO04eHxhH7kZK+UMAgdvFfeWpNPwvGPaHJxG YDX33N59J2kMCE1PhQsIjOSnja3OpGHB8T8kc4RAqdzhxPHTNIgiOZ2lcQT8 U4I41Vk0hN+Pvt0cRUDrI302Nmchf+KxQ9f3E5CE2mmZn6Ux0dVyWLyTwH+/ kLbw "]]}, Annotation[#, "Charting`Private`Tag$6505#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV0Gs0lAkAxvEJ887M6xzlklsa2lAZ12hE1GOLdKSoFaUso0JHOEbYDTPW uszEDCpWWY1VKVGSmtzSHpdUKqe0U1tKSTO6oEyUETv74Tn/8/v6LOHEb9un QaFQ/NX7v2FtY2c0KJbgWPvoPn5OBVN7mVnqSUsEGdg8eaX2i5Cw4o9sK5yq cK8aVftnZW/Gk4PW2KQl96YPUBHOqgm++Gw5PFKPtq1RO7JsL2OX1A7WVnEp VWo3NsdeC5E6Y1F1BzP5BRXXS16Z1Md5wuiDNG/5IBWD6b1OinWbsEE3MWTh GyoYsqnZ18JA7DWUcfQUVCRGNcjN9+zA3MCw09YPVCyKtHD6VhqKy9G3VJs/ UXFfx6S61SMcNReieKGTVFyqVA3fecXB3DtL4y0zVEjrV1rzf92H12Nc42oN AqxTa/ry3kahybytaD6DwLr1FTUvcw5gqnaF3rEFBNq7H44KpmPhfT6g0saY wP7uUJdnEfG4Gj/TYGtBQOZpHtQ2m4C1OUlc4QoCTnnfOtnsRAjK50UrVxLY VUfxl+VyceLa1NpxTwKlCxqC/B4l4Tb7ua1oEwFh5Gb9GHoy5lhNV22DCPgX 6Y/UBafgEr+qtI5DoPtiB7e8MBVJ0jIWK4HA/GqJYcPQL6jpCPXp5RGIHVjm ftLxMDiO65WrCgnwNP/Qs49KwwYDbkuWhABHa5WmQpqOGbeBiIArBFTK5nN+ nzMwbu9zUtlFoL/oUJSXPh8X7rUn+z4lUGx4OiehmQ/WxvM9h8bU/+hv5Cft yMT0kZ2CQCoNtukUIn8uE0YhaU3+TBpcifmbC878hl6Dknab1TSY0YpjI5GF 4ASzYV4gDTGHWCb+iixIYypPbImjoSjUTaKd/TtubojLTxbS0BFeLr/CzEZB t63Cq5qGPY8WtsR3ZaM77d2fsls0PGzTjKFE5MDVpvMBX07DpYX0qtOMXNj7 +U44adMRNcyXLq7ORXFtifyeHR0r+rfk873y4OMr430MoGO7o/PHSUUewqe9 Enam0hGilb/8x2wBPFpH74ZV0NHlrRqT2AvxW+DtU2966PA4254y0i/E34PH Xysn6BBlfH1KJBzBwTrBNt/FDPh2buxxNc6HKuAvxXY/BgYytYs8r+Yj/EZf CzeFgbQwS1O7rQW4YJ4YcLOKgaxz2x0cJwtwx5xYquxnYN+BKSa9WASTNo3v Ck0SN+0CZ9uPibDnTK2iVYuE6aeagZRSEVRL38sLqST6UsLK5eUilMvMlrjR SLhnd5ncqla7XT9DSJLQkRw1yGkTQTnz06CjLonrjx1IrRERXPb/65zPJKFX JhhpeS/C5efHCzjmJA7uHurhjoow/c/56dUWJH4YKskdmhAhurRd5+0SEgXj 37U6ZkUQ6pYt9rIiwdHuncs0EKPxcOfjaRaJ1vtWL92MxKC5eEc+tCVhVMy7 8clEjCtuY5o1diR6jZ3TI8zFqKzMy9jpQIJtfWIaNmJ0cPtCmlaSKByZePrV VgxTphmvyJnE+1r/pnoHMaYGMq7HuJCQOM9LtVglxvoKwV5TNgnV5K7gJ65i XK5wkn1We0dzI7vQXYyzjeO777qSqE/XMfT1FMNisPtL1WoS2l7RX+bWifGA NJSkuZH4D6X2G8U= "]]}, Annotation[#, "Charting`Private`Tag$8882#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVx3lY03UcwPEhh8BCUzw45MgADy7nEsIcn4+aoeJI9OGQSwQnYhjE6YUM cZzjN5g8kEowU4QogQhBENhqMlFRCS3hIQ9CBLxFfju+K9b64/28n9dHMYk7 eLMYDAZX3/+P6npTM4vhhP+aTCeXMbRgz1y25NBZJ1wX9ViVrfej0CjxKy9n PGDze3qi3run+44PHnTBsnmymK16R7vWhzQML8enbuVTOh2B2NN7zcLa3FF+ O/VtvN4tHQmtoW1s3DteFOIzQ+BK+Yh109ccTDt9K65HS+BJZh9rArZgYEOk hY2SgNkD1czfhYEYeP3Y7dC3BJLjmscdIoPxJMcDOM8J2MY6sjQV4XgjmXvL YpTAnTnWtZ3ropHDFXb1DhNoPKcduzkSg2FPZqt97xFoa1rtwj/Cw7uMbuJ8 k4Br9Wf9+c/ikOXFUxAZAdhYVf849wBmFYxxfFsJSBUDrwtIAjK2pyUf/JHA PkX4J8N7EtEyzyfBTELgAcchqGsmCSPrZHXdYgKsfM01L69k3Ofna/qVgEDY JQb3QV4Kpu6CFZNpBCo+bA7yv5eKU767n1M8AoWx2yzjTdOx3bK1AoMIcEst Jy+FZGBRxLywyA0EFA3ylMqSQ/h6+bIBkSeBubWSRc2jhzExeiL+L2sCCQ+X rT276igemTKfXmlIIMvw2/keccewZKt5x5WXGogxWmM40ZaJNe4vPqcHNKCd 7qjznzqOT41ZtgXtGrhfmha33pKPws5eaUC1BsSLLuQmdfDR9OjHJtHZGnC1 9OOnBmdjQv0/AvO9GnDLZJgIddn43Iw/1rpBA94mc7cV15xA+cji+G8cNbBk tjghFnMwwK5RaqVTQ3yaqzV3Igc3yi/1Jw2poTTcR8IUnMRPVf4j4y1qkEdX jv9iL8DVfPVAv0gNkfcWXk3sEaDO5Xqw2z41DHQZxjP25KJaXMVm+qqhcaHp +QtmecjeEVvFmqeGuDF+m12t3qujDayeqWDF/QAhf30+7goIbO7qUMHOVexX yol8tPP/jRQWqiDUSLh8g6AApVtubMuJUEHPJu0biUch5rYE8agVKlh3UZox eb8QGzZtMj6hVAJ1XD1kklSEnD/ddGYKJWy+5tfrbSXEL6xTMiUlSniYzSzl XBai7buILcZRSjgW5WTj/mUxNkpqeApXJeTU7fRcpSxGiw4tq2qaBt4Blb2p mEJHY+faszIaZO6BM9IyCgMWKHY0S2mweVf/MKOCwgYfFt3bTUN/RlTleCWF 7LAj9spOGtYKeqyv11I4NBhnuL2dhjmSUwtyuyjcP+FmO6uZhit/eJobTVJo 4Dxct/s8DfNPF0xefUGhnd9t77TvaTgYMdqb8prCuhMO3YXnaFg6Wp43+p7C vNkWP1+upqH47b9G8hkKD7ems5iVNMQw+3TZC0R4S/ZBdUsZDZ13nB/7LBbh GQen2hunaFgszup+Zy1Cda764iMxDX1W7Mw9DiLMWmpPmZbS4OVyhuBKEcb8 cIGEF9NQMvl+SO0mwvLx9F+ThDS8+Inb3uQpQkW2B19QRIOEbXDIcY0I841C xxoKaNAqw0IGvUW4xPxukTyfhuCOFq+StSLsrlmzcjCPhqbMOYs2c0Qo51Gy l7k0MNfvp3UgQgf5d9sN9P4PYB9fhg== "]]}, Annotation[#, "Charting`Private`Tag$8924#1"]& ]}, {}}}, DefaultFont -> {"Times", 14}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesLabel->{None, None}, AxesOrigin->{0, 1.5391131862833183`}, DisplayFunction->Identity, Frame->True, FrameLabel->{ FormBox[ TagBox[ StyleBox[ "\" x \"", FontSize -> 18, FontSlant -> "Italic", FontFamily -> "Times"], StyleForm[#, FontSize -> 18, FontSlant -> "Italic", FontFamily -> "Times"]& ], TraditionalForm], FormBox[ TagBox[ StyleBox[ "\" h \"", FontSize -> 18, FontFamily -> "Times", FontSlant -> "Italic"], StyleForm[#, FontSize -> 18, FontFamily -> "Times", FontSlant -> "Italic"]& ], TraditionalForm]}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->500, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7964517772103987`*^9, 3.79645180131882*^9}, 3.7964582054960537`*^9, 3.796459032058311*^9}, CellLabel->"Out[43]=",ExpressionUUID->"ce1b2607-9712-4c63-9a72-4f43f58fb511"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Position du ressaut", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.796457232090372*^9}, { 3.7964574042097282`*^9, 3.7964574093455687`*^9}},ExpressionUUID->"13515c4e-2850-45d6-8551-\ 11df0e17b72f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"xr", "=", RowBox[{"x", "/.", RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"conj", "@", RowBox[{"solution2", "[", "x", "]"}]}], "==", RowBox[{"solution3", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "10", ",", "90"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"conj", "@", RowBox[{"solution3", "[", "x", "]"}]}], "==", RowBox[{"solution2", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "10", ",", "90"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7964518136125965`*^9, 3.796451822785365*^9}, { 3.7964577268858614`*^9, 3.7964577749146423`*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"05378a4b-ec55-4b60-bbb0-7afe0beb570b"], Cell[BoxData["37.82268560055911`"], "Output", CellChangeTimes->{3.7964590803797865`*^9}, CellLabel->"Out[44]=",ExpressionUUID->"d72ce51a-4e68-4582-bb64-bd732bc48549"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "37.82268560055911`"}], "}"}]], "Output", CellChangeTimes->{3.7964590803967905`*^9}, CellLabel->"Out[45]=",ExpressionUUID->"8e3f3f52-fdd4-47ed-ad0c-089b0b575c74"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Dessin final", "Subsection", CellChangeTimes->{{3.7964572032137823`*^9, 3.796457232090372*^9}, { 3.7964574269306016`*^9, 3.7964574289865775`*^9}},ExpressionUUID->"7285a3d6-20e7-446e-8ee5-\ 998a816e1450"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"y2", "=", RowBox[{"solution3", "[", "xr", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y1", "=", RowBox[{"solution2", "[", "xr", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"Round", "[", RowBox[{"xr", " ", "10"}], "]"}], "/", "10."}], ",", " ", "\"\< m et avec les hauteurs \!\(\*SubscriptBox[\(h\), \(1\)]\) = \>\"", ",", RowBox[{ RowBox[{"Round", "[", RowBox[{"y1", " ", "10"}], "]"}], "/", "10."}], ",", "\"\< et \!\(\*SubscriptBox[\(h\), \(2\)]\) = \>\"", ",", RowBox[{ RowBox[{"Round", "[", RowBox[{"y2", " ", "10"}], "]"}], "/", "10."}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"des5", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"solution3", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1000", ",", "xr"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"des6", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"solution2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "xr", ",", "90"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"des7", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"xr", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "y1", ",", "y2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", "0.007", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"des8", "=", " ", RowBox[{"Plot", "[", RowBox[{ RowBox[{"solution2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "10", ",", "xr"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"dessin", "=", RowBox[{"Show", "[", RowBox[{ "des0", ",", "des2", ",", "des8", ",", "des5", ",", "des6", ",", "des7", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"FrameLabel", "\[Rule]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"StyleForm", "[", RowBox[{"\"\< x \>\"", ",", RowBox[{"FontSize", "\[Rule]", "18"}], ",", RowBox[{"FontSlant", "->", "\"\\""}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"PrivateFontOptions", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "False"}], "}"}]}]}], "]"}], ",", RowBox[{"StyleForm", "[", RowBox[{"\"\< h \>\"", ",", RowBox[{"FontSize", "\[Rule]", "18"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSlant", "->", "\"\\""}], ",", RowBox[{"PrivateFontOptions", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "False"}], "}"}]}]}], "]"}]}], "}"}]}], ",", RowBox[{"DefaultFont", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "14"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"2", ",", "2.14"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"10", ",", "1.65"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"1000", ",", "1.5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"xr", ",", RowBox[{"y2", "+", "0.2"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"xr", "-", "2"}], ",", RowBox[{"y1", "+", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"94", ",", "2.2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.7964451971301823`*^9, 3.796445203671692*^9}, { 3.796452672299887*^9, 3.7964527015092335`*^9}, {3.7964575045996866`*^9, 3.7964575059465127`*^9}, {3.796457877495266*^9, 3.7964580243797092`*^9}, { 3.796458062944535*^9, 3.796458167731389*^9}, {3.7964591155819035`*^9, 3.7964591216843867`*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"390fa262-9262-44c9-8b94-803a900b46b7"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Le ressaut se produit en \"\>", "\[InvisibleSpace]", "37.800000000000004`", "\[InvisibleSpace]", "\<\" m et avec les hauteurs \ \\!\\(\\*SubscriptBox[\\(h\\), \\(1\\)]\\) = \"\>", "\[InvisibleSpace]", "1.7000000000000002`", "\[InvisibleSpace]", "\<\" et \\!\\(\\*SubscriptBox[\\(h\\), \\(2\\)]\\) = \ \"\>", "\[InvisibleSpace]", "2.7`"}], SequenceForm[ "Le ressaut se produit en ", 37.800000000000004`, " m et avec les hauteurs \!\(\*SubscriptBox[\(h\), \(1\)]\) = ", 1.7000000000000002`, " et \!\(\*SubscriptBox[\(h\), \(2\)]\) = ", 2.7], Editable->False]], "Print", CellChangeTimes->{ 3.796457883052087*^9, {3.7964579296102962`*^9, 3.796457978762905*^9}, { 3.7964580110255213`*^9, 3.7964580255299644`*^9}, {3.7964580633786273`*^9, 3.796458136538156*^9}, 3.7964581679804544`*^9, {3.796459102788087*^9, 3.796459123408765*^9}}, CellLabel-> "During evaluation of \ In[54]:=",ExpressionUUID->"0f11dfab-4233-4cd1-b37d-097b8d3f2301"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVzXs0lHkcBvApUm6bSVn3mfFak3GJdrWy7Pcne0qUrZBdWq2RWy5FdFzS 1bWWRiRdrJBbjlGtahXKLWaGoZTKaKkxFWlTmuZ9Z8a8O/vHc57zOc8fD4O9 b0fEYgqF4q/O/11+mK3lvOfUj3mZi2UkSULPCH1LED0GhHIH548LJJAPOk7Q 6Wnw5iIbTSlIKL9fQFtCz4dCY48PQzIS4jxS4mW08yCoERm0fyBhRBFdMkdr gL5beb0zEyQsFb1ivqe1QpNhyHRaJwmV/IrEdzQeNNRyn7flkfC57CZr4g8e LI8uq3qdQ8LGKIH4EcEDvuPVdmo2CbMassA7I3zgOWhPxh4jwdXDzy0/dwA6 Vd8WrUknYbhZuZj5YQi2rWxq+BRLwhG+vY/z7hGQZOgP/7KNBG5zvijOcQym nrm5IHMSouDh+dkkMXR3ya5RelSQILEVt3CngYy2ORp+UAU6jCzmhOsciFzI gy9tVVBoIGBV/j4PT2qtSM+3C8AWBdzTGPgC/Ji9iVtrFyCxN4u9jykHEW8o 89+YBbi+X8/fePMCfJnqfyL9bgEqM2JnnIIoiJPPzeWqlHC8Qrn98+wi9H3Q a0aFUAmUkUnUlq6BnKwTi7mVSrBJjkwNYC1Bda5xGmYHlDAlPbdTt10LtXN8 qUc2K8FHsjfzTOIypF3a2epqqQS/KY6dpaUOSnd/WhEnVcBMN/tof5Mu6pfW Z3UOK8CROmrhtVsfjb31VoVeVYAOSMPG579CGY4lp+/lKmDT+2CZVaABKp+5 pH0gXAHPuvYsCranIlpxn4UUKeBmXk8oXUpFumNSvzaGAiKXpEwKhSvQcIGf 9zhFAeFJGTf1LhiiGBPp8qViOayJshNuCVuJ5vjzRScfyGFohb1uyvpVKOj2 gbWJ9XK4yz1+0V7DCPlG26ZSC+SQsYi1beCFESJ6Lpli++WgM57undDyNWo/ +7d2YoAcJLWMkopDxkiop1ns8oMcSlabaLYGmqBdQT76qXQ5cC5E9oXRTdHu cddGg2VyCC75Taj3xhSZa5Yzr8wRgP9UQ1R0mKH4pTu3dj0lQCzZkNqVa47s UozdtToJqPJwNhsMs0ArR0VpL+sJaMpOoUY5WKK0/bVi3hkCcgPDfTWklogV MBmfn0mAy3hlQ+4gDek1DsfMRhJQZnuxadCXjsJvOU+s20HAkfsFZb6tdPR4 H5vu5E7AVrPAGr41AzV6PuuW2RDgmdAXQs1noIyshMPZhgRUmLOtB6QMZBha tXdQhYN1d12pX4gVot6+28p/hwPHoYv1qMMKbbpvNJX8HIfIec2HPBaGAtsk UnEvDuzrn+j5pzE0FsJUvf8Lh7jj/kqfIgxpakUk/Kl2in/LU71iDG1ws5vy UztPmlLIKcXQOne/yeYbOHDXE4pz5RjKyXpumnQdB6KTHK1txJCT2a4yGVf9 /0ivoKcPQxRNXrPWVRwuVMdH5/Aw5H65cuh2Aw7VyUIvbwGG/C/PfI5W+5YR Ry4QYmhzH/9nQT0O48GG0SNPMCQp5G7k1OHAFJt4vRKrdyLY1awGB6eWdMsr EgyNek1wB67g4JYtIiLeYIg+0cc6rPYWZvm16RkMrdboXvuyGoekWLrlx48Y Ojnhe6KuCodD7seIG/MYKip8Yf2r2tn6rx4nSzHUnzUo0FG7rLn6FI5jSOnZ a5tQiUPVUc2oO3IMnc0RTNLUbtweseGQEkOl+g7lDy/j0GL1wOJHFYaEq6ZD T6jdMW9DkCSGtP9RfeOi9n8dR56F "]]}, Annotation[#, "Charting`Private`Tag$4789#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0.01, 0.01}], LineBox[CompressedData[" 1:eJwVUXk0lQkc9X1v0yBbxGiQeTIpWyuRLpEsz/59la2ebIVEZK3xSFHK0ktq SItlVFTPUq9sw5gyaFQG5TVjlKRMtqEZ1Iz543fuuefcc8+997fcP8I9kJSS kgpZuP/RXP7TBikpLrwe+wYLLnKwJkgfBbJcjF6aWPfVAv+mfoe9qToXfdR3 DPEFDlRDRd4H13ARE3Hv6ng+B+M/BScPBHChp1H3fvd5DoqPPm1rauNCvSg0 z1LIgeyHMh/BWV0kmtU6z5/m4GWHewqppwdfRvjmeAEHZwckgW9y9OEqz77s F8TB0t4zsl3NBjDS63ukyuOgqUmm+nmkMYYqc4M81nHwL94ZWHDXwFbH5m6i OgclIp+MK+K14L362yBKigPKZeT2x4PrkT2rmec+xMZH2z9EDtobEbBbukP0 MxtShuF5l0WmqJRe1iO5w8YSK+Vtw0Gb4H1i8sFoHhtZtrxe48/mYAZvvd9y hI35a5PWsac3Q3P7IwWVQDaiDUQJlZZbwK+8It7mwIZ+N+kQvQ8QzxxoMDdh Q6tMXJdhY4V7kamTMqpsyOmVFhRqWMO3NarIeY6FW0U+f655bY2W2RR9t0EW egy0i5vqt2KV3pi/7kMWbldXtP+SboPAHNnq2goW5N227+oNsIVv/RxHMZeF kItqni8ttqFz4i+Zp4dZiJaIGgPYdvg8G1Ho5MsCa51XzusBOwhLztxLtmLB 4Vj7s6Gb2+FK/Pbbfj0W0gVRqUPR9ljx4u6DajkWHIUrLrzkOYDB2PLk2gQT zUXFWjvUHGGYlNti08tEQ5ORbNuUIzpuTd+Lvc9E1ZnxQLN2Jzjk86cnCpnw oRKNVwl54Jbt2aSWysRJE2W+ygFnsHsSyIpAJkLZMaTAzAXCnd3dQ/ZM6Ngc T4+RcsXi6fZ2ypCJp1l9zaVhroBveRCpwISkN6sm/4kryH1OnbZTDHx/ndfP 3uKGdP4yo9xnDDyOPyheX+IGW4tGTX4NA5Faho/3LnJHtPPcde55BnpcJlUW H3YHc9mBZ8diGDiXpKEa3+8O2crBcjOKAdV1jvZ77D1gENzm94UJA0uaVaq2 1XhgdNOHZFlZBsKcbH/9U90T5AWXv98OkzjOT9RXPOEJ1u4L4ogGErNRqqbT o57YkJwZ8FxI4r2XU1KfK4UfurRf2oaQqHVaOZvhTmEy0qgoPphEsiU7ztyT gqS1YuZmEAlVnaZDl3ZQWNL/zl8pkIT1yNrQAD8KETJJKn18EvmxGl7joRQW Dd74xPMmYSN8t1H6BIVXYdnHJTwSlzrTpzbWU6j+fCLdzISEl4dddEcDBWvj H3V2GS/4P2dN72miEHbdaXGcEYms1ykzGS0UPFPnnlQZLOSZS/qnv43Cd4rx 3Tr6JPgrI//9todCc+yMSKJDgpu2S+bRGIVhm5FTFcokBr5Qy/SZoCDtqntK pESiILtHdmKSAr/cLKVWkYRKgcfiL2cobHimZ/dAngS7iqcYNk9hLk/t7l0Z Em8HrJYqLKLBTEywjGOQuGGh//VOHRojb6rujE0QCLnz5S0NLg3n1VZqZeME uCtkzH/XpXH1obKpzxiBS/Kj7kErF/ST3uGNowRyBytSoo1ppJZIs0OGCcSl mwxmW9Lg5606YyIhsP7T8gOeoBEVU+pd94JY+IPS7FJrGvlryWtbnxMI9Z5S LLKlYRD9WsOuh4CfYY1VhRMNbcl+jmYXAZtu0yttXjTGNqu4vGkmQNivNDjt Q0PwcVe57g8EGurVxa5+NP5pluH7NRLYWDbb1cuncaRC++L9BwT0E+qk3oTQ COmvqlOqJjD84WZm+X4amvNfdymKCBTvLVQLD1voVzefxr5N4CveUeO/Imhw kfCq8wYBBW3sIWNpuO9c0SG+SqBTaDzaGkfjYcGv1xwvEzi5aHlcRgINndJv WtsKCTCmiGyFozRqpd3EgnwCTcGTGt3f0sh5f+pFzTkCSZLBsvMCGlVTSok/ 5xKYaW1p1EyjMStNJCVnEqjaVO04eHxhH7kZK+UMAgdvFfeWpNPwvGPaHJxG YDX33N59J2kMCE1PhQsIjOSnja3OpGHB8T8kc4RAqdzhxPHTNIgiOZ2lcQT8 U4I41Vk0hN+Pvt0cRUDrI302Nmchf+KxQ9f3E5CE2mmZn6Ux0dVyWLyTwH+/ kLbw "]]}, Annotation[#, "Charting`Private`Tag$6505#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVzns0lHkcx/FJV1rJzsxWY7tpLCH3GpZ8v/Mcukw0ZXd2SyiUy2wdJVFi 2dJFWypalZRcGkKOiKRSJ5aSki6ITlORIbdhZqfn+dG2z/7xOZ/z+u+9MCjC Z5seh8PxZvf/O+425HI4QlR+PWW29DINo+c5RwMmCdFmcHd7IOuy+5rxO9OE OBzneDyFtd2Mjp59xkKUSBRaFWvrq4pqjakQpy9KepiRTYNQCUEqTyEaZ0lj Obk0fLcm8vrTP4U4GjxZ0HSFBmLaJr04ywxTmsOkW4toUHeFp91b8QPO7jHj H7tJQ+qafo/Hgea4an2+RPWAhsrna8+ujrHAp3RL4cynNOj/tl/tlbcYna53 mjp00DC1MP2my11LfMsNHE/+SIMTiT1UNGiFJd75Vp0jNHSFi7UnZy/Bxhba hflCg3ui7pm/rQ3WFmSneOkz8DA/6kapvy3OF3W9zOAz8G+1+oDO1Q5rqOgX cxcy8Np+9rh3vR22zrH5a7s1A172eXSonz2a5id+uunMAD/JvDi61x7dC3xf LPNgYM9mo66ViQ6ojuwuKF/HQLokTO7Dd8RuZkD/ix8DhslVBesvO2LLkR0N e8MYMFm3Q84VOWHwym2u2igGEuRzuh7VOmG3iWJXdiID+w0tlZTfUgy3nPdS eoIB5/tFVv+MLMWmo+mKxvMMSOqFtpnxy3DK6OuRPVcY0P6sVzmZL8KmLOEG YRnrZW2a4BwRbjRMTdOrYaDCYu6BMWtn1LNKZYoesT25DWmyWmc82W4T6dvK wO2d4X55Uhc0UFhtF31gYEJDREGFygW1TLHAZJiBaUtUHpz4H3Gvt2SgcYyB rT2yczDNFTdNp57nTyWwwWJxhDjLFWW8tHMneARy7mrGRdZuOCtWvzZrAYFr QbadoZVu+JPlzpI4awLSU81uvl7LsSjhUelWFwIrjUNl4vblqC3uzozxJNAm CB75FOGOsg8OMWd9CNyJ+cUj+Ys7Xqh+mPg+gEBQd7Vqy1FA/+MXzHRyAs8G xEfijRA7LioXCfYSEBib6upkiCsSgu+GJBEo3XdDMZiNeKZ8/fW60wTM5Qlf ywYQbSr844cuEVg1qb480kGMfblbXKCIQMWHmqvc38Von/ppYl4VgSdyx7GS OjH+UZ05YPM3gfrYd9oefQqLvdoNkloIGDSDHUdG4bMDg8zwWwJMk6CBe4FC 9Zi1JLGfQG/A5xKvTAr73JfEVrFuVb9IP3SRwgWe2kI16zLeiZDPWRReetU6 I3CAgNzv6+TOPAp1l4aV4kECb/q7PHJKKPz1TFz+xGECNQbXHtg9oDCBK286 MkqgODO5MLyWwmPjAfz7rDNsQlJz6iiU7P9+M8062md+EK+BQueoEW2YhoBt xukJ9GMKNf2TLCVaApcXR+O9VxQKbry99Y2OQMptHwu6lcKSJ8FGnqzjvG1n 2rdT6BhSti2e9cZdvcqcDgo3rS3mDbH+9pZvwmElhavTeHHNnwlw1ohC772j 8KCbqm0qTWDoDVdKv2d7Xh90QtaNnCfz5N0UNpubqEtZV6VenZL7kcJyHV/a x1ohPDzU2UNhlKajZCFD4ExlUCuvl8I8a7mRL+uDq6DGu4/CttLanams/wND y23d "]]}, Annotation[#, "Charting`Private`Tag$10371#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVz3081AcAx3HO7nd3Pyold1arXKik68wz6+Fbp3RRGtrLJK48TsVLnBan SLlT5/frWV5TXOklFcWkVaLaKi1tRoa5W6aHo3OlQpaH2+2P7+vzev/55W9N CophmJiYrDPu/3Z53opb37cSX7bbLaz8h4miFRYLpk8RwWkifnad0eH+m3s7 3URoEHB5vxqtjjDEx2SJUHGlwvqV0X8fECXIeL6IzBz0m93DRHfr4+0XV60C 12M0mzb6RZI6mTjrhyNNdSHS50y8KRvPqA8LAHshdWv9SyZmbvzE+tk/GEOV v48d7WNixZ2uXRusQsEf9Ux7qWfiwTPxSc29cDzb4R27+z0TLvZiH/N+CZ4x 3JI7PzKRs04iW+IfhSFh0Gd+40xIfog+I9LEYFuTKb/UjECi6ErB2qh4vCa2 6ONJArLu/qhXtxNwzPdwoddUAryzPMtQ/x0I7VUkCj8nUB3qTkdUJCEtJrXM hU+goaZpZ7VpMgjPWkWJI4HtgUP5tqt3IvB4sjDVlUBhdMG0ztQUqBRnwgKW Ephk4Swfq0uFflRq37CGwKnubdo5BilEo5ZJzSEESoX8qnynXTB7sUfWISEw bPkkITb5ewy5VBc0JhJ4tP19fp5qNwaqZurLZQR6wiareLp0OJq3VlYpCVil PSk+v1gGm+i4oN2nCdw3J9h7wjORddW1hldJ4Laru+TuuT24X8W/4XKXgMef Gn5g214MrIxWcZ8SeN5yPC4xKwu08lHvGS2B38w8al/PzUbx1q6OkXEC/747 5q28mQ0PeWr5OysW/Bz1bs8j9qGrh1s4sYgF/kfePB+THHRV8aarV7OwZJ/B v/ZkDggL78NzJSykf9PTp/XeD1tprHWzjIURbXbdspb9MAXbofEUCwzLD/tP xB3A45Rcr5BrLAizI++rOLm4kJWx7WgbC6evKHxaS3KxbFecoX2QhcXzK+bf 9JWjJu6SkGPDhmETJX6gkcNGKW6b4cNG+PwVW1pSFLg3YJisCmdD/dXbgWPc PPROZKqDctgomhR2Lb0yD6fv6YYLLrCRteDOO27wQXxb26b0bmFjoPOj3Y+D B7FXcFSzcYyNkjX9B1MPHYK2a21ojT0HKSbq73SLlbiq+6Xx3Ncc5EoVmfKH SozFX48ol3HgkE3I7TbnQ5DU3/xHGQfatr1sqSEfjiGNb6+3c/Bae61ed5KC PmONRyyTxLyeI1MOF1K4EOUT6EaQ2KreIXErojAeWJbOYJHobHZgZKooXNL2 sYvZJBpvnFg1+TKFNF07o9OcxPlD0ibnuxRiNuYmbJhGQiJ0/0uqoyD8YDkS MIdEkeNUpxlvKDDk4vBZtiQ67PQZ9QMUuM0PW/RGB9qcn8UapqBZsmGYmkti man1llMmNEJSPHktDiS+aB3U3rSm8So48s6mRSRCnzR7RdrQGJG7+AkEJI4/ vJxnNpPGJfPp3RNGm9dFOwXY0rjd9tbvrJDEp9KniZqFNKhUcqDPhYRH8dWG bAGNjHoHVp0rieRCpeU8ZxoBYrEz5UaiN9+3OtGdRiG//CcXDxL2ClszKy8a 1kkveUxP4799Y8HXfWhIxx3z2o0uknWUblpK40ZTmsVFLxLtaTVDhuU08h8I SmTeJP4DU+Ealw== "]]}, Annotation[#, "Charting`Private`Tag$10261#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0.02, 0.02}], LineBox[CompressedData[" 1:eJwV0Hs81Pkex/Hv2DMVnVLaKFmidTlES21Jp/2+dwy5JHMxv92KSM1sPCqi aOWayzq1sclRnbI6bFOREtmcXBaV1OwhsrupTu5WiTMu0dx39o/P4/N4Pj5/ fB6Pl3V4lEBsQAgR6+fPPXf3hCzgNQchMZti8xRKOm7w1mnHKAdBUc1yud6/ /jB8UjLGQctsWnSgUkmlIy/8UyY4+Ed9WdxfVUrKjW6RVSg4iCq8VZilVtLU lAuyJUae0FY3M8d0Svq+0EvW7egJj4zncRK2io48P/9YvN8TWeL+JM/FKsp/ 2FuWofREePcvSyycVHSnkpXpnsKFEbt6j8RTRYXO+Qo+ywsRgpkfQ3aqaFfn fV5Mjheu5E05nTiiojMN7UX2Jt5wmzrGW5Wjopc++rpj4JI3Np6r9NdcVdGN iWe+ZztvwUxkku7UPRWNtc7eU3dzCwRn3EcyX6ropxtXzE/Y7AP1N8Yv2mdV 9NzZ7NKfm3xQz/O3SVmspm/eSYYyPH0hzMh06nNU0/stAwbcJ75wiBuNvuqt pvSVx7JzQj9Yvbx3pD1MTTn7Plk01eeHmP1nIvYnqem6yYKSqgP++BGzHrLz avqw+TcXQ7k/9g52taffVtN+9p2L4qSt2HtlalzWoaZFudEGX7AC0Gb2Wfj+ MTUdPNnqF/hdAEpznFsr52uoWfZpl3KLbcj60rG49W8aOvp4ndGlom3oiue7 uXprqE9qXOt550DI+ENj4WIN9U7MS3aoDMQ9kaXt78c1dHmd8b6F5jxcHwst 97ikocJYW4Nvw3g40W7zv7RGDX0V4LAsqJgHa6XysVmPhpbvTigqes2DWOMb 20q0NPZdxnThGj4K6cIvYmy09MT1xAfD0XzU7dm8JoKjpUMX782tusPHbocq Rb1YS09XzD54pOCj2uD6wq++0dJ13EH+GQ8BDuXz75td09IVi1cG9qYKYNE0 U5PSpqVClm9rfLMAn3w7IfGe1NJ2x6bKPEMhnrk/s7M019EL8XbL3/sL8ffO VU0HoaO7uNyARaeEsNEwnY5f6ajE79Zk2VMhXOx/HinL09GG2Pkf5i0NwseV d5b31enojl9vS1XBQTgeP5lW+lZHx2tM5y4rCYJjbUD6HGOCzgbxQPJgEC6b dvZL7AmUmg9cI5xESN6Qml/mSRAblqssPCACzRTtCggjGOA8PZ15Q4Qcbk8/ TSEQ5L7bXHRTBI+yA7Zteje+MHtTUyFCc3BBdXAqwfeHgzlvK0UYuuDWlJBG sEM6NCm4I0JbpLLgbjrBE8P3wpWNIrC3DT/0zSaof2JhWtshgiJ+Y1fpaYKz uyT/kk+L0LVFkCG9TJAfejR69p0IW9NXKDhSgu/CTnhrZ0RwL9AM9OidHX5j cr5ChKOfSleuuEpwVDLjZ68RgegaRGdLCb48mKUKYTNYa81vuXKTwDxZGixb ymDq4zru2rsEpik1bp2mDFayPFb36W2S+nhetxmDa+Yltbm1BEbHx28PL2fg 92rb8/E6fa/M9QsMLBkckX/Eq/6J4MWplnp3Owb/vLwe4gcEFwuHLaXrGRS3 VzmKOwhu2G7Pkm1gsOF683Fup75XuWxM7s5gbGjIzvYpwWB9Rd2mTfr/J7kH 33QROL9K2NFBGWwVhVVnPiNosDQuUPswkNe5/pfdq+8nTdNY+zH4T9SicI3e /S7Te7f4M+i3zmuZ6SOYQ7vX5gUw8DDJXvP/AYLA0JIOewEDlVX2s9nfCXqL NiwQ7mQwPMueOCwnmLQvPXw0mIFX/DxN7gTBXyosXhaGMNjkxvutfJLAoZFV NhKqN6+ePzlNcKhX5pO8l8H2aItV/1YQZOz7rKJEzOCG1a3IX5QEBfIKs0eS P+9RoQvUBHdJwfCSCP29yflNtpbAwDos49oBBj3yKk7VByx8eK1ztO0gg8gj Q8WGbBbsXL2E01EMSj1SXMRzWPD/3NGGxjCoT3e5v9qQhfzd0z91xTFIjeWW zzFmQfpaYq+MZ/DDo4SenEUs1BzqzrH6msFdaYSRlQkLL9MaQiKP6Xs3GqZu X8rCuKHrg9xEBp+PFi9km7FA8kpWVycxYPmMW9QuY8HE3DT/eTKDwHkXcxPN WbAtzlbpUhgcevhE5GfBwh8N//L+ "]]}, Annotation[#, "Charting`Private`Tag$10303#1"]& ]}, {}}, {{{}, {}, TagBox[ {GrayLevel[0], Thickness[0.007], Opacity[1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQHbCU6bDvSyeHbenzCyf9/GUP40u8uVd7QPk3nF9d INf1zhfBn9w3VS95JYIf/uOl34l/CP7K2SqzG4L+wPl+IeHFgWsR/PkR6ceF mP7C+U5F+cvfxCL4xUdjN0vuQPADUzStzXn+wfmNEm/9ctMR/FiJvnuT9yD4 xwNFZ/EK/IfzWxZMeTg/C8F/a/VxidJ+BD/kq9KvOF4GBxj/Z+YB8zArBL+k xWezawqCP2PllZKDExH8ySXeJaZ7EHxzr307TV8h+ItsVKbGizPC+Y+vVKxr dETwz5af5DXIR/B7D3CsvjYTwRdRs7637DCC7zotM5z5I4Lvs6aNL0KaCc7/ c2Y+t6Ungl/MtWaecxmCf+Dtsny3BQj+tttz266eRfCb8ptvx/xA8EUVYo7x KjHD+UG3Db57+SP4qTZfUhsqEXzFFZulnJYj+Jt3JvL+uYjg87xgmnb/N4LP p7ggxV+TBc5/9l+7cHswgp/+cvPh1Y0I/ob3emtOrkPwz8+ecen+DQR/etA/ uyY2VjjfdH3QSxlDBH+WxizNh1EI/oo1d9cbdiD4Pdf4S6o2Ifj9eb/9RE4h +JPYnmuue8jqAAB0D27X "]]}, Annotation[#, "Charting`Private`Tag$10342#1"]& ]}, {}}}, DefaultFont -> {"Times", 14}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesLabel->{None, None}, AxesOrigin->{0, 1.5391131862833183`}, DisplayFunction->Identity, Epilog->{ InsetBox[ FormBox["\"O\"", TraditionalForm], {2, 2.14}], InsetBox[ FormBox["\"A\"", TraditionalForm], {10, 1.65}], InsetBox[ FormBox["\"B\"", TraditionalForm], {1000, 1.5}], InsetBox[ FormBox["\"D'\"", TraditionalForm], {37.82268560055911, 2.935195472109646}], InsetBox[ FormBox["\"D\"", TraditionalForm], {35.82268560055911, 1.785930675352649}], InsetBox[ FormBox["\"C\"", TraditionalForm], {94, 2.2}]}, Frame->True, FrameLabel->{ FormBox[ TagBox[ StyleBox[ "\" x \"", FontSize -> 18, FontSlant -> "Italic", FontFamily -> "Times", PrivateFontOptions -> {"OperatorSubstitution" -> False}], StyleForm[#, FontSize -> 18, FontSlant -> "Italic", FontFamily -> "Times", PrivateFontOptions -> {"OperatorSubstitution" -> False}]& ], TraditionalForm], FormBox[ TagBox[ StyleBox[ "\" h \"", FontSize -> 18, FontFamily -> "Times", FontSlant -> "Italic", PrivateFontOptions -> {"OperatorSubstitution" -> False}], StyleForm[#, FontSize -> 18, FontFamily -> "Times", FontSlant -> "Italic", PrivateFontOptions -> {"OperatorSubstitution" -> False}]& ], TraditionalForm]}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->500, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 100}, {1, 3}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.796459102904113*^9, 3.796459123509796*^9}}, CellLabel->"Out[61]=",ExpressionUUID->"2ef286ae-c38b-479c-8a37-9ae8d6f6f38e"] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{1635.4285714285713`, 858.8571428571428}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, Magnification->1.25, FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (March 14, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"d7b53f60-dffd-40b0-b44f-4f6aa213cf42" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 211, 3, 122, "Title",ExpressionUUID->"10683917-2ece-4726-a243-f0856c9d5b9d"], Cell[794, 27, 168, 3, 43, "Text",ExpressionUUID->"9e6e1644-9a2a-410c-9206-6648c438b724"], Cell[CellGroupData[{ Cell[987, 34, 173, 3, 56, "Subsubsection",ExpressionUUID->"dfaa8c81-9eb9-4a55-aa11-a1de88e7ebf8"], Cell[1163, 39, 496, 11, 132, "Input",ExpressionUUID->"2d68d809-d313-4489-bd03-7c95b6b4a3f6"] }, Open ]], Cell[CellGroupData[{ Cell[1696, 55, 172, 3, 67, "Subsection",ExpressionUUID->"6895b1df-6a37-4ad1-b416-de06356125c9"], Cell[CellGroupData[{ Cell[1893, 62, 877, 28, 132, "Input",ExpressionUUID->"0fb5d2e3-5334-409c-bf31-afba32a39ab9"], Cell[2773, 92, 168, 2, 40, "Output",ExpressionUUID->"546a6bd1-3d3f-4dde-b49d-087a2e32378c"], Cell[2944, 96, 168, 2, 40, "Output",ExpressionUUID->"983a4f7a-1a90-4894-8b50-644326ff10cf"], Cell[3115, 100, 166, 2, 40, "Output",ExpressionUUID->"a88ac2af-add4-4c54-b57c-034b0faa49e9"], Cell[3284, 104, 166, 2, 40, "Output",ExpressionUUID->"30a42947-73ff-4b80-b7fe-b5b051880225"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3499, 112, 174, 3, 67, "Subsection",ExpressionUUID->"9dc56b52-405b-443d-808d-213b4fbfb6b3"], Cell[CellGroupData[{ Cell[3698, 119, 551, 16, 84, "Input",ExpressionUUID->"2baeaa7c-2dd3-4ae1-bdfc-7b45201b0ed2"], Cell[4252, 137, 169, 2, 40, "Output",ExpressionUUID->"6604fe66-450c-43d6-9457-141d1b7624ef"], Cell[4424, 141, 169, 2, 40, "Output",ExpressionUUID->"476b69c2-212d-4a58-8743-b9689ccffe1f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4642, 149, 194, 3, 67, "Subsection",ExpressionUUID->"479055c0-4a7d-4c25-80b8-e6e9e57ace19"], Cell[CellGroupData[{ Cell[4861, 156, 1582, 47, 108, "Input",ExpressionUUID->"6eca1de1-2212-420d-809c-da5dee865914"], Cell[6446, 205, 16772, 322, 77, "Output",ExpressionUUID->"522b8e22-0941-4280-b122-8c8da5d9f890"], Cell[23221, 529, 3574, 77, 296, "Output",ExpressionUUID->"e4385592-088e-436c-88be-2f4a96696da8"], Cell[26798, 608, 169, 2, 40, "Output",ExpressionUUID->"4544982b-9d94-442e-81cd-3d09d7bb9a9b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27016, 616, 247, 6, 67, "Subsection",ExpressionUUID->"f39460b6-d236-45f3-b293-7276490a8156"], Cell[CellGroupData[{ Cell[27288, 626, 1971, 55, 108, "Input",ExpressionUUID->"99e4a00c-05eb-46a3-a613-770adf517078"], Cell[29262, 683, 455, 11, 30, "Message",ExpressionUUID->"6331d667-5a43-49e2-b8e8-176ac0f0874e"], Cell[29720, 696, 18770, 358, 77, "Output",ExpressionUUID->"a4d5c2ed-275a-47d2-a2ae-8f79e78952c4"], Cell[48493, 1056, 167, 2, 40, "Output",ExpressionUUID->"00732a84-bc49-40d2-a0a2-8e6c3ae38491"], Cell[48663, 1060, 4070, 84, 316, "Output",ExpressionUUID->"673bb71e-43cb-4e4e-a800-e171f472eebf"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52782, 1150, 247, 4, 67, "Subsection",ExpressionUUID->"5cf9e6dc-efc9-42d0-96da-3673e09133e0"], Cell[CellGroupData[{ Cell[53054, 1158, 1406, 39, 108, "Input",ExpressionUUID->"3365fe88-14e4-4f22-86e8-c7ee6c6db98f"], Cell[54463, 1199, 8522, 163, 297, "Output",ExpressionUUID->"2d77ffc7-32bd-4d2c-ba08-b724e715c8a6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63034, 1368, 243, 4, 67, "Subsection",ExpressionUUID->"ccd3a9d7-4264-468b-9c67-693f1da6c481"], Cell[CellGroupData[{ Cell[63302, 1376, 1077, 32, 108, "Input",ExpressionUUID->"b7101cf0-a576-43a7-8b92-6191190f4901"], Cell[64382, 1410, 169, 2, 40, "Output",ExpressionUUID->"3aee47bc-9259-4223-856c-de734e31ddfb"], Cell[64554, 1414, 450, 10, 30, "Message",ExpressionUUID->"9937401c-86fd-4111-b31f-d4ae4eb4de86"], Cell[65007, 1426, 282, 6, 40, "Output",ExpressionUUID->"acf84c43-fdbe-4556-b1ff-14c49c3b8f22"] }, Open ]], Cell[CellGroupData[{ Cell[65326, 1437, 1256, 32, 60, "Input",ExpressionUUID->"38ec15ad-fbce-482e-8f63-6490f1e2988e"], Cell[66585, 1471, 9528, 179, 312, "Output",ExpressionUUID->"8cc7903b-862e-4201-ac27-107be86d37fc"], Cell[76116, 1652, 167, 2, 40, "Output",ExpressionUUID->"53ba0a2f-6f3c-4179-a349-d6a7a7644d6d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[76332, 1660, 355, 7, 67, "Subsection",ExpressionUUID->"fad0b959-037a-42ff-9a3d-54ed49ed058e"], Cell[CellGroupData[{ Cell[76712, 1671, 2517, 72, 157, "Input",ExpressionUUID->"1e19a1a2-6d13-4be1-84cc-7e951c74a9fc"], Cell[79232, 1745, 15925, 308, 81, "Output",ExpressionUUID->"19ce435d-1802-4961-94d3-0bf9f4186302"], Cell[95160, 2055, 3429, 76, 296, "Output",ExpressionUUID->"c55ef9da-c7d4-4b6f-8aa6-042463610abe"], Cell[98592, 2133, 3443, 74, 313, "Output",ExpressionUUID->"2137b9d8-328b-4117-ad95-6bc75cee3a9c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[102084, 2213, 236, 4, 67, "Subsection",ExpressionUUID->"712392a7-f8c4-4757-84ca-99ce8a32dcec"], Cell[CellGroupData[{ Cell[102345, 2221, 1272, 27, 84, "Input",ExpressionUUID->"a8d781bb-96c3-4550-ac46-dd860dc48783"], Cell[103620, 2250, 12835, 246, 424, "Output",ExpressionUUID->"ce1b2607-9712-4c63-9a72-4f43f58fb511"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[116504, 2502, 222, 4, 67, "Subsection",ExpressionUUID->"13515c4e-2850-45d6-8551-11df0e17b72f"], Cell[CellGroupData[{ Cell[116751, 2510, 878, 23, 60, "Input",ExpressionUUID->"05378a4b-ec55-4b60-bbb0-7afe0beb570b"], Cell[117632, 2535, 168, 2, 40, "Output",ExpressionUUID->"d72ce51a-4e68-4582-bb64-bd732bc48549"], Cell[117803, 2539, 219, 4, 40, "Output",ExpressionUUID->"8e3f3f52-fdd4-47ed-ad0c-089b0b575c74"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[118071, 2549, 215, 4, 67, "Subsection",ExpressionUUID->"7285a3d6-20e7-446e-8ee5-998a816e1450"], Cell[CellGroupData[{ Cell[118311, 2557, 5619, 148, 470, "Input",ExpressionUUID->"390fa262-9262-44c9-8b94-803a900b46b7"], Cell[123933, 2707, 1024, 21, 27, "Print",ExpressionUUID->"0f11dfab-4233-4cd1-b37d-097b8d3f2301"], Cell[124960, 2730, 14196, 275, 445, "Output",ExpressionUUID->"2ef286ae-c38b-479c-8a37-9ae8d6f6f38e"] }, Open ]] }, Open ]] }, Open ]] } ] *)