diff --git a/bem.nb b/bem.nb
new file mode 100644
index 0000000000000000000000000000000000000000..1ba81baaaf6a0e0c29c1d9f3b54138982f4a2f07
--- /dev/null
+++ b/bem.nb
@@ -0,0 +1,4647 @@
+(* 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[ 195984, 4639]
+NotebookOptionsPosition[ 190249, 4554]
+NotebookOutlinePosition[ 190641, 4570]
+CellTagsIndexPosition[ 190598, 4567]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[TextData[StyleBox["temps et complexit\[EAcute] des diff\[EAcute]rents \
+algorithmes de la bem", "Title"]], "Text",
+ CellChangeTimes->{
+ 3.8612586147638197`*^9},ExpressionUUID->"2a4634af-38af-46df-ba82-\
+22e16ff7cedb"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"tottime", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"50", ",", "9"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"100", ",", "26"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"150", ",", "66"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"200", ",", "115"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"250", ",", "194"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"300", ",", "286"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"350", ",", "394"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"400", ",", "506"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"450", ",", "702"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"500", ",", "847"}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"50", ",", "7"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"100", ",", "21"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"150", ",", "50"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"200", ",", "88"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"250", ",", "141"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"300", ",", "200"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"350", ",", "283"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"400", ",", "345"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"450", ",", "452"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"500", ",", "535"}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"50", ",", "42"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"100", ",", "251"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"150", ",", "599"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"200", ",", "1157"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"250", ",", "2389"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"300", ",", "3561"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"350", ",", "5576"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"400", ",", "7523"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"450", ",", "11067"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"500", ",", "13760"}], "}"}]}], "}"}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"50", ",", "54"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"100", ",", "494"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"150", ",", "1285"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"200", ",", "2973"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"250", ",", "6234"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"300", ",", "10100"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"350", ",", "16246"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"400", ",", "25339"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"450", ",", "42998"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"500", ",", "51864"}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"50", ",", "65"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"100", ",", "250"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"150", ",", "456"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"200", ",", "800"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"250", ",", "1241"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"300", ",", "1830"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"350", ",", "2547"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"400", ",", "3241"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"450", ",", "4391"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"500", ",", "5325"}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"50", ",", "188"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"100", ",", "1665"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"150", ",", "4583"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"200", ",", "11210"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"250", ",", "24026"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"300", ",", "40420"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"350", ",", "62792"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"400", ",", "95113"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"450", ",", "142988"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"500", ",", "180652"}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"50", ",", "547"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"100", ",", "2942"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"150", ",", "7483"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"200", ",", "17045"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"250", ",", "35325"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"300", ",", "57890"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"350", ",", "90039"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"400", ",", "134877"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"450", ",", "206100"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"500", ",", "257071"}], "}"}]}], "}"}]}], "}"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{"tottime", "=",
+ RowBox[{"tottime", "[",
+ RowBox[{"[", "7", "]"}], "]"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g1", "=",
+ RowBox[{"ListPlot", "[", "tottime", "]"}]}], ";"}],
+ "\[IndentingNewLine]", "interpolation", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"f", "=",
+ RowBox[{"Interpolation", "[",
+ RowBox[{"tottime", ",",
+ RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g2", "=",
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{"f", "[", "x", "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0", ",", "500"}], "}"}]}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{"Show", "[",
+ RowBox[{"g1", ",", "g2"}], "]"}], "\[IndentingNewLine]", "fit",
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"line", "=",
+ RowBox[{"Fit", "[",
+ RowBox[{"tottime", ",",
+ RowBox[{"{",
+ RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"parabola", "=",
+ RowBox[{"Fit", "[",
+ RowBox[{"tottime", ",",
+ RowBox[{"{",
+ RowBox[{"x", "^", "3"}], "}"}], ",", "x"}], "]"}]}],
+ "\[IndentingNewLine]",
+ RowBox[{"Show", "[",
+ RowBox[{
+ RowBox[{"ListPlot", "[",
+ RowBox[{"tottime", ",",
+ RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",",
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{"{", "parabola", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0", ",", "500"}], "}"}], ",",
+ RowBox[{"PlotRange", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "500"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "260000"}], "}"}]}], "}"}]}]}], "]"}], ",",
+ RowBox[{"Frame", "->", "True"}]}], "]"}], "\[IndentingNewLine]",
+ "formula", "\[IndentingNewLine]",
+ RowBox[{"fit", "=",
+ RowBox[{"FindFormula", "[",
+ RowBox[{"tottime", ",", "x"}], "]"}]}], "\[IndentingNewLine]",
+ RowBox[{"Show", "[",
+ RowBox[{"g1", ",",
+ RowBox[{"Plot", "[",
+ RowBox[{"fit", ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0", ",", "500"}], "}"}]}], "]"}]}], "]"}],
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"juste", " ", "quelques", " ", "petits", " ", "tests"}], "*)"}],
+ "\[IndentingNewLine]", "nonlinearmodelfit", "\[IndentingNewLine]",
+ RowBox[{"nlm", "=",
+ RowBox[{"NonlinearModelFit", "[",
+ RowBox[{"tottime", ",",
+ RowBox[{"a", "*",
+ RowBox[{"x", "^", "3"}]}], ",",
+ RowBox[{"{", "a", "}"}], ",", "x"}], "]"}]}], "\[IndentingNewLine]",
+ RowBox[{"Normal", "[", "nlm", "]"}], "\[IndentingNewLine]",
+ RowBox[{"Show", "[",
+ RowBox[{
+ RowBox[{"ListPlot", "[", "tottime", "]"}], ",",
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{"nlm", "[", "x", "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0", ",", "500"}], "}"}]}], "]"}], ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]",
+ RowBox[{"nlm", "[", "\"\<FitResiduals\>\"", "]"}], "\[IndentingNewLine]",
+ RowBox[{"ListPlot", "[",
+ RowBox[{"%", ",",
+ RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}],
+ "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{
+ 3.860953426578657*^9, {3.860953463836258*^9, 3.860953584913463*^9}, {
+ 3.8609536201467247`*^9, 3.860953707544536*^9}, {3.860953745800506*^9,
+ 3.860953819621065*^9}, {3.8609538556351748`*^9, 3.8609539466166277`*^9}, {
+ 3.860954009342905*^9, 3.8609541499745893`*^9}, {3.86095418287741*^9,
+ 3.860954253405746*^9}, {3.8609542847431583`*^9, 3.860954306660102*^9},
+ 3.8609543371796837`*^9, {3.860954377783967*^9, 3.8609544724716043`*^9}, {
+ 3.860954537244658*^9, 3.860954579100382*^9}, {3.8609546179977207`*^9,
+ 3.860954722852202*^9}, {3.860954871127983*^9, 3.860954949325055*^9}, {
+ 3.860954981711828*^9, 3.8609550095180683`*^9}, {3.860955064155086*^9,
+ 3.86095510202353*^9}, {3.860955210151617*^9, 3.86095527115606*^9}, {
+ 3.8609553014468193`*^9, 3.8609553018922*^9}, {3.860955344616881*^9,
+ 3.860955369640203*^9}, {3.860955401632543*^9, 3.860955422826654*^9}, {
+ 3.8611196515343533`*^9, 3.861119686934135*^9}, {3.861123389830142*^9,
+ 3.861123393073531*^9}, {3.861123423637659*^9, 3.8611234462467403`*^9}, {
+ 3.8611269092812862`*^9, 3.861127052199102*^9}, {3.861127251583521*^9,
+ 3.861127310227153*^9}, {3.8612586019290237`*^9, 3.8612586182822723`*^9},
+ 3.8612588223947983`*^9, {3.861258880213319*^9, 3.86125892206304*^9}, {
+ 3.861260785357984*^9, 3.861260794129675*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"4ed55133-bec1-4475-ad1f-833b36b2d4c6"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"50", ",", "547"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"100", ",", "2942"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"150", ",", "7483"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"200", ",", "17045"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"250", ",", "35325"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"300", ",", "57890"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"350", ",", "90039"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"400", ",", "134877"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"450", ",", "206100"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"500", ",", "257071"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260794774898*^9},
+ CellLabel->"Out[60]=",ExpressionUUID->"65fdfe1a-aa66-4933-962e-56e19b792ce1"],
+
+Cell[BoxData["interpolation"], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260794857626*^9},
+ CellLabel->"Out[62]=",ExpressionUUID->"89f7ea64-7da5-4498-b160-d9b88f8879d8"],
+
+Cell[BoxData[
+ GraphicsBox[{{{},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{0., 0.}, {50., 547.}, {100., 2942.}, {150., 7483.}, {200.,
+ 17045.}, {250., 35325.}, {300., 57890.}, {350., 90039.}, {400.,
+ 134877.}, {450., 206100.}, {500., 257071.}}]}, {{}, {}}}, {{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
+ Opacity[1.], LineBox[CompressedData["
+1:eJwVV3k01I/bHUuYyNJqT2lB2WkT7ieyFCoqa2RsQxLDaDTDiCKVpaJflooI
+bepbQrJlyVKW7EJZSkJ2Wmyv96/nPOfec5977jnPOc+ziXLO3IWTRCL5cZBI
+/1+HJ+dNDFy/65BIwaev6knp0h4GqOunlOmSVrforWr/p8vg/+UqltKkSzIv
+KWhsWwlmUTqJO6VfN3hCM+B1mzgW/hdq+jd5ShfvvNvS2xRQxD05NZXMBRn5
+qLD7bfsgrSVvOJG8Bnzdkl8S2w7BrLV8fCxZFqTd38gJbTbAjVD+g34aUIm/
+ZhL/5wxEpk6+uOGkA+1VJ94bVvpB+tSm4+FXdbA6SAfDvX7YWTn8m/WfDgZH
+t+dHzfvBKDFYl7qkg1sN/561qNIRpPe4TidRF4O3kuOckuiYrQ6apbsDceIj
+zmwffziJN66VTSEwsj2UK1eCAY8juQN3swmU3vEMtNnFgPelpDzRKgK3ySd/
+LxxlIGjU1U5wjMCBYblh/TAGEkrnUv/uP4D4rLrGxnEGGjy2qje0H4C+pviD
+0YoA6LxlHAsU1sfdA/9hmzcTMo0/6+5t1ceXfdP5/JFMcPy0MSnZpw8p9d2a
+E4+YKF+vbcjlssyXLZQv6GfiEI1DO+KNPpK4q1ebW7JwUv6qXBzlIJLe93wL
+1AnEHsw9zDl/EF1Fsg5OtoEQs/SUbb9+EBK5rh1GjEB0XTKTlsg9iMSMkdo1
+LwNB6Vm9NoXfAAlX/uQ82hqEc/9LXHqabYDEQ8IRLQJsHM0SCKyrNsDnAxZc
+b+XZUKsI/Df2xQASWrcDkw3YmJ10mFEjGyJphyTtTDAbLLMtw3mnlnsBOVuO
+aTbsXeKon2mG8Ap57eHLFwxdFs/AXLghohZbtw+sDwbn48EenZeGqJsVe/BB
+PRhXVjxrLecxgumP+7dvnw2Gh6T08QEJI3g5vbMgs4JxWD36E6+qESK/9gmz
+rgZD0NHn4yFbI9S2bb3mmBGM8fN9xp7eRvhlYWjU/DoYn6IsKiMvG2FVA3WF
+YXkwYgs0SxueL+tXPWHv7A2Gf1O67mS5Ec7q1+6/PxYMy6ENhWs+L+uXjP4V
+WQzGHo6IfZpjRni6Xzj3ksBFiIv+yz3JbQy74cpdC1suYl7pjCZDzBiZa0e+
+6jpfRPfBrpfxSsaY1haOCEm9iGTfomddVsaIibHq5N0cgr+j5gpxnsZo7r1Y
+JnIqBOYeP9JNg40hqv7kicSdEHA7CicXZRgjrWWBqSwYCqoZ5WbyrDEKxFMl
+Lf+FQkWe57xz7CEMpv06ld54GcVfTDFSfxh4E9KjHxqBL8bdjXMGZvjr3ToJ
+WgxcDl/4Rak/Bqm84rJHPndA5P/mrvc6Dlfu1t7urcngz+slSfSexKGn0o02
+9akYP/q/sNzhk9huel5K+2sqmn+aCByfPQmu0XrqxrFU3JXI2xDJb4kC5YtL
+/YJpUGZHKS1pWkLpVf/Os2ZpsDDQsuu/agmR/Mxwdm0a9nwd72XHWWLUhqPJ
+sTsNkox0N8lkS9TMWUvr/0rD90civideWyJUm/8136qHOL9qMKLyqyVmSs72
+3TB5iMTm2NwnGlZor1TTTvvwEMFnD2kb6VrhNfXalbDOh3DmIZV9M7bCDfK3
+JurwQyjuOVMn5WCFQ4fjPBT501GcSHyPjrBCQd3v/+UcSkeaxm+PnbFWiD93
+tP+OTTqu1D4dr7pnBT/hR0pMj3QcW9owz5FtBUVzmwrdq+nop4yu9vtihfst
+BZNV1emomku9I/zTCiz/dTpPOtLxNNZa+tmUFaw2eEVE/kxHjKJQmvGiFTTy
+3jef+5sO+vty+QE+ayB0bw6xLgM2Dheeh6yxxvzWJ1cd1DOg80dZc6O0NbKr
+JB0Cj2WAVyERVurWUBAk8b2JzMBI6dH309rWGHjh09X6JAMNtjwmN4yscc+i
+/8V0dQbiI30sa05ZY238e2sVnkzsmDD02n9lWV828klGUCZM9kf7brlpjSva
+/+2qSMiEZ3grQyDJGqstW9715WTiqZRLaNdza2y+KtUuNZaJnYdC7rDarGEw
+/ow71uERlFILSgu22eBmQd2pYDyG2gnVDdoVNpA7ISxszfkU+96Il2hz2sEy
+7JbfyrDneG7ssPX9OXu0s20ecWm+QuFK4UWRiNMw3OF/bW4iBzSXsID5yNOw
+bbE0GFvKgVzJ/PTAzdOgsfdy9K/KxU36z+G3SaeR0DTvXyOfC2pPaYfLi9MY
+Y4ZS4h1zsTaH/vpN2zL+MWbv7k+58HTs9HTc5ojxs09+0F7kYXPBscHDOxzB
+Ixr5wLUoD23rq5x2qThCvNTrlM3HPBz4mG3Dv88RB9erNRGDeRDdHWX02tQR
+CUV5RcIyb1AmQGwh0x1xQOh9XFb0G4jnpXe+KHNE3IsevSGvfBjwkzhXVDvC
+JSzqGzkoHzR7aznrOkdo2u2/LB+ZjxpuATpHhyNaeO+8pz7JB/OYj6D5qCNE
+HY4Y//iRj64hLWJKlIKEVUVm306/BZ9OnJuhNAUe/WfGuLzfQuPGaGSiLGU5
+V7EYWfZbXN+d8llPiYIOZ/onyt230L7E4xerR4Fkwc7jvR1vcU/qU7qmFwX3
+PBKtv5gXoMZboTbClwIvGP9bcCzAbFnoVDeDAp31vxOkfApg5rELYaEUfHln
+3mUXXYClnMSO1jsUyIitdOj8UICdK2eWFO5RMDWau/TvcwGsTpltY6dSUFbu
+kiw+VIAXXBy+27MocPJ+12vNV4iukzbxzFcUqBucCwnYUAi+x6+K6/Mo4JKU
+ko3fVgiNBYEB2SIKGidqyvI0C3H6qKsAo4yCfxBWf3ukENdTi9U+VlFgYy7z
+6ta5QuTNilrL1FFQ4KSi7hldCOG7Hx5WtVPACjuqLlVfiHc/VXTFRing/Bij
+zjYrwubQOZ98USestBTR0DMtxtc3zPQZKSekv8xODvMsRtL43GcVWSccELRa
+VXOtGOvt5/UyFJ1woeLewNGaYqzcu7Au9oATZsRumzyXLcHE6OKbs55OcLoi
+u1SQXIISG07OTSVOgIuOc3vCO9irkW+GuzljXtpPSSi6DCLypmnl913wICZH
+RUSjEue0j5zznHTFt84wQS65D/girV9n99sV5IDX2yt2fYAZaa+i6bwrVNd/
+Q/jBD9hZtnlYkccNF44SvvxOHzBkNOs6JuaGtRVzbWvufYDz8bv2NMINyPJO
+2bL2I2zODJsyYtxwP9hGw4BUi2qTnqfUODeUS0WY8gnVYo9SC791ghsG83Nd
+a6RqsWGiqHpvmhs0Z9bGm2nVotn/5sG5XDd8cK9fOOlfiyMhe7WDvrrhn7l+
+pdtILfTjw3deUqLi5FYlm4j2Oij4Ouz6ok5F398atfDBOgib7saevVScq3Pj
+v/ynDl2kHxYjelSEn08pCBathx/VgHncmoq86rUbGVb1SNu9ombLJSrEveb6
+XdvrcVWkuykogor0A3cKnAfr4T2c3d0eRYXaBs04yp967L/vPHE9noqtp3fL
+Kgs0oJmnXHQmiwodsk+zws4GcLeGuFV0LM+3/bZrs2cDhp7b+Gz8SsXrCjXZ
+TX4NaIhQYwZ8o2JO+aKQDKsBOU4rLzf9pIJIqJ+TvtSAJO2+KMWxZb/c0oNS
+1xsQsiH/Tvg0FbVens2SsQ2gTtx40PuXijUd+SUSSQ0w++D+VGuJChs98jPx
+tAZoPCRy4rjd0cXe4WH1sgHibLGSMbI7+JqMbqe8awDJeqLaWMgdGttcS4ca
+GvBRIKV7QcwdkR+TxQPHGuDsR1rhquwObbH1H1J2fsIhs3bBEg13uHuq/x7S
++gQVuRei4vvccbv4qKzG4U+Y73TYWafvjlGXa8z37p8Qq1dsscvGHfdeknYO
+p39C+eqgBzyX3UEyGb6usakRWg2sfMOr7ohm+wXsUmnEy0hm45Vod0i/WnDZ
+o9uI+3wBnPwJ7tgrLqy7/1QjLiz6UoSeu4M2qDGhF98I1SH3zaId7hi8FHTC
+QqQJ996deCCv6IHGQhFpGkczznsrPjBp8UCy8p7nz3tbkLJuTSynkCeUJMdn
+8xw7cL49R0fW6SyykK+/S7Eb5X0xna+SvbAq93enjF0P9D/JcvK1nwNXUUVu
+6uE+5Hnle/fHeqNCWtBM4P43RIgGdVxQ80G2spZlVs0AVD4l3zPs9kGJxouj
+fVt+orO2ymrgqw8Savi2b1T6ibCa8dWX+3zgd9pxwXb3T3SVIbz0hw/krq9+
+3GL8E1dyes5pT/rgRr8fV7XXT/QkyhDqvDRQbu7NeZ73EzGuyf3SqjRwjZdK
+BJoMQcup6m6hOg3dlyUm35wYwoDDuKXdLhryJPyqZu2HsN8aH+O1aPA03Er3
+9hnC4OGe7LUGNDTfC69zuj0EqMqErbSl4aGpycVDPUMYn7svN3uJBsMnLQMb
+/Iah4PK01C2chr6mvw9es4bhXJdn1xFBQ+C8lIPF5WG0J3+KKYii4ZWpa1vU
+7WGUHOT6G3KHBpnx2coVb4bxL0vo1nQCDW9FJS6lvhuGhqikoutdGk4SuiBq
+hpE5pOFo/ICG6zfD81idw4iOdq0WekrDjIboo6mFYVT9oTldzFrGT+13ucEz
+Ak4Ke2HyBQ3bw05vUhYagb/GHdXW1zTYt2XGe8iM4MXdtA+GeTT8Xfp4gk9+
+BEM8/7m8yachVm5CJF11BFu8C5cUCmlQPrauTm/fCOw7quOTimmoCdh7tffA
+CO4caFUXLKXBiNNG75bZCBqf9NWyy5fzU1Vq7bAZgUHQHIdTNQ2vo1vnXH1H
+oCSr6CHftJyXyXbDi2kjoF7fy53YssxnznVUvhjBg5mD9wTaaYh5XO8pWDiC
+9VX2jWNdNHTwMW4mtoxg0TNmX84ADWcqqrpf8/xCbc7USr1/NFzV8fAbov6C
+56H8J3abfFGr8izFQnEUhRnq1/7U+GL4WdFoZsk4auSqnEzc/dCRLHrK3GwS
+ExJ7OUK46cjb/XVkW/MU/tjKPJPlpaPl847J0s9TICXxWleQ6ZgJZPy2752C
+sGTrCz4hOjTKRTj/NzoFFUnf09FidLw8qr+BlzwNb8lnxUlKdDx3f0T80J7G
+mOSmoFwrOjISfW9nZExj1o5PwdqWjnKdkkS9rGksJo21/DtFR3+vQMrX7GkI
+ShUp6jjRISuX/mRD6TSUpGy7y8/SkZLdXhLeNQ0vqbj9jSF03KvVHnYTmcEv
+KfLcyFM64pZ4IcecwaWa5jDH53Ts8Lg9an5xBuLnk1e3/kdHUfOWu4HhMzBq
+2K1QnEPH4CPiX+OtGaSFuFrfKKFD5zgzO/DpDLSU1b6vKKOjqYjslPlyBo2d
+C94XKuhwl78j0pQ3A5Jm3BWnGjpiF7O95CpmYPujLFezmY4fmaNyTd0zmLwV
+rfe4lQ7WmsC2hf4ZXIFtvXQHHUJB/GFyQzPY+Gub7a1OOh4OxmtYjM8gJ35y
+gPcLHfss5PoDZ2dgalBEY/XQsSVRaVx2YQbfJiMWx/voGHaSzy1cMYvVJpvW
+f/5BR8CM9MGJ9bN49GckxWyIDhSJCVzbOAs8zFMsG6GDJ3xt0xa5WXgtHjn4
+dGLZr+hKR6u9s6h+EeQXNEfHU60ZVrHtLE6fOkSaWqDDl3tcz9p5FrPk9dfd
+SP7YVTu0cspzFlucnqUeXeGPcvueO9uCZhG8rqtxs5A/ei5+yI5MnsXuC3tV
+Kzf7Y01Vyojt91k81Jv+JXTIHxeOm9n98foNNYaONnXaHyPVmwezyv6C2ZB6
+mXHrPPxzx6p6xufQnfD9pocyAyRHUda2NYs4IH1dRUiNgZzrYulUyUWkp6jV
+vdJgwD1PvOHx1kV4Z7LJC3sZaBGS2qK8ZxHcOWLB0foMPCva9HH3qUXs+GR6
+NtuaAWvJHZLGGYsI4M0xXAxl4GWbdsEZrSV8uWr3/UEYA1Qu3YFn+kvLdxNX
+qGEEAxLKEB43XYLAuqNFMVEMhIcdcPY7vYTkzUMasvEMOGgaCgReXkKltvRm
+oywG+G8dtYuqX8I6v7D5G+0MqGWoBrWrkgg+Z5EL5E4G5hW7IhR2kYh5i6Tf
+wd0MVGaHxbH2kYhv6i8nz/UxYF/a+VRGj0RkT3UPmo4wcK37cif1OInI7Ke6
+VowycNJZ5Ue+FYlIaprq3z/BwKbhz5MCp0hE6Cvy1x2zy/n8UV75nwuJ8E+N
+tUv9w0Aw+/M6Lg8S4XFr42fxOQYO81zedMKLRNiHPra8ucDA+khlxQwaiTD3
+1WwhkwKwcFfXlus8iTBwKjG/yBmARZVMoieQROyzONzwhzsApHJhucJLJGKT
+uuOHH+Tlfqh32v8miRifvP6uYk0AOHddihp6RiKiad+eXdwegJV1Ve8+fSMR
+IZRzO/7KB4DPUTUza3jZn/m/TO+dy/h0fNS1yWU/asJpDqoBEBA/Y3uQxEEo
+TWolaGsFYLXrqpk8CQ7io8+tsL9mAdiweEwu2ZyDIPsccPDxD8AWpc4orxIO
+opF1Sjps0wWItd5LdEviIl7/O/6AVX0B3WVHul6dW0FYJLlt3OHKBG1bnOpd
+WV5irVNtViOViYTc7OYlBV6iVV5d58IZJsqNms9T1HgJm9xFu2pvJjacWVO0
+neAlKI1xCW5MJoqf3zj00p6X8OYrX5cWwwR5b5RTZTwvEeknIyD1lon7h8Pj
+JoT4CDOtsMTyQibed6XvOb6BjxDmHFHwLGEu/2vvO3Ok+YjY6FzjtxVM6Mes
+2MxS5COSHpuFWzcwMdIcmsVzmI943MPivP2dCU374EqJMD7CM6PvhvYgEw5j
+9z2CIvkIJS+jTd+HmIgILl7VG8tH/De3BhrjTHx+sGiRnspH5K1/Etj4jwn2
+D1aPyjs+otKk44+gMAsfvQP+HpznI0SDZakRq1mothgW3sFFJqivzrZxrWOh
+fNcpOeGVZGKlOGfOHzEWiudh+XkDmbAxNdnqK8nCm68vvYqlycST4Nuxv6RZ
+yC3dEpa2lUzMv+rhom5iwUjGvN5zB5kw+aHg2yfLAiWUn8NOhUzcFaf32W1j
+IXigXO2wJpkYNS0+1ibHwl3jIOd9+8hEdLaFykdF1vL+TlSK6pOJxousX693
+L+sltUa1WJKJLzkb++wcWFhd5/m4Kp1MzMq4fnicxUK6anxvlv5KQtetniJ3
+KBCv6u8uHLzAT9gX/O9k52QgVtwSuiVfI0Ds0WTqGcQEYVWYyfhtLkGilXlA
+YcWtIHRL7vITJAsS9FKySHlcEJ6/2vjnsqAg8fLInS9EYhCO9U4u+YkJEjs9
+Xgdopwfh9v54IQtlQULm/thzjYIgSE99VxKyFSTIZGdJ2cEgqJ5mnw1/KUhk
+HtnB1TcUBK7f1InFXEHC4Pbkz+RfQWiKNKf7FwoSl2Qv5kpPBeH8262BLlWC
+xKL2PXPxxSC8Xf/xut4XQWKS1n5FZC0berWiT5fIQkTMm/vnGtazscaZU+W8
+kBChTHI7GS3Gxvd/w69G1woRnpEzsqs2shEuV/y2e6MQMZCxuphPgY2PoS4f
+3moKEZdGOx5W7mQjSfzIEXUtIUJWM+V6mDIbXv/taXoMIeJ0qbINtyYbwl/5
+O+MPCxGLfL9RtpuNHvqMvcgxIeLukaLtIfvYeCnwte/KSSFi/+3LgoQ2G5dS
+q1xJdkLE5y6TmSVdNo7vezl03lGI+D+rp8is
+ "]]},
+ Annotation[#, "Charting`Private`Tag$53917#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]],
+ ImageMargins->0.,
+ ImageSize->Automatic,
+ ImageSizeRaw->Automatic,
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0, 500.}, {0, 257071.}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260794910377*^9},
+ CellLabel->"Out[65]=",ExpressionUUID->"7a89971a-d470-4aba-b097-89238335c823"],
+
+Cell[BoxData[
+ RowBox[{"914.5652349321464`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.0021137341020296026`", " ",
+ SuperscriptBox["x", "3"]}]}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260794917577*^9},
+ CellLabel->"Out[66]=",ExpressionUUID->"c024bf23-b077-4190-b9e3-f1d5fb19ed2f"],
+
+Cell[BoxData[
+ RowBox[{"0.002124924552859501`", " ",
+ SuperscriptBox["x", "3"]}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260794921052*^9},
+ CellLabel->"Out[67]=",ExpressionUUID->"c87b3cd2-72e1-4211-9c33-d98771a9e76c"],
+
+Cell[BoxData[
+ GraphicsBox[{{{},
+ {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
+ 1.6], PointBox[{{0., 0.}, {50., 547.}, {100., 2942.}, {150., 7483.}, {
+ 200., 17045.}, {250., 35325.}, {300., 57890.}, {350., 90039.}, {400.,
+ 134877.}, {450., 206100.}, {500., 257071.}}]}, {{}, {}}}, {{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
+ Opacity[1.], LineBox[CompressedData["
+1:eJwVlIc71Q0DhpGREUlxIscWOiEzwu85svdMZiErycpeFVkJGVkVUtryUplR
+qFCRsiISKWVknpJXvvd7ruu+7uv+Bx4RN38rDwY6Orq5//i/pxf/NdHznNTy
+uzo43/tORyPoRoSiTmkrIambW1W3bUwrnH3Wc2fpe0Ja8+JFi21bCVUdwYeZ
+gSNETUPT+3vkPURUUzkdY+kEwSvaQL9rG4ihIa2bRMoUoVNrssfI3ZxQ/9Vv
+GhU4S1jayFYFkh2JNymqkcOUBSKvc8pOItmDWM+LN10tWSKyONfq6LcFEJTy
+bmG+HTTiVR7NpPhzKOH0UGBZKeU3McaiJSDiHkektXi9tFr/Qwwp5Pi5TCQQ
+jW+rCwMC1wlep0QRG/J5YmZ0wy99coM4f8ZCW0/zIpFOuyHcT6FHeR+LGndy
+LlG+bsw26ckAvplYt/yoQqKJcXFpqWQTjFslLi1zlxD97PkjDMOM8KumP5us
+V0bMbdN6yb2DGZa7r95N/1xOMPN/qRQ2Z8HbjecdW77fIcgiqYVyKZvRKaiT
+zeH+gFCRkk/QamUFxz+Bn9plqggzuX4/03U2dB2qobeaeEh4qkTbOalyIC9g
+kF1itIaI0RSl+gZuwbuT6va65AYiR6ddJvIuJxafaes+Lm8i7hmf3J4yyQVF
+v7u5mprPCDdpto1XGVthtv1ktbFZKzFHGQl+T+HGGc7L0izJz4lI+cqpoQ5u
+MGyfurEw/ZJgVop3HvfcBrYRxv60qE6CfEBaf6GEBwffaDLOcb8l7mj92/Bb
+czsexQlWdxT3ECra3fJ0w9txmNGY74zee8LMMISfawcvSpeXHRI/9xNDJgYZ
+vFW8iCOJT9kODBKeFgKMZHM+rMYyJzJ+HyJi7Z7NUlJI0EowMmdw/0SwOea4
+KUnuRImfXI7P1zHikovXwIHWnbi5+FylVWacqPDY8sxonR9nnnW+Mp74Qqj7
+jClbFQrA32tb7oHDX4kXJ6rv2KvugqDQTm3y6DdiJNg+xztQEJNRvCua5GnC
+O4zCGsBJxq6Yrz0HPswQy5EbMWF3yTA2kEJF+RzBcfaGV+KkEI78sSfUNBeI
+19oac3pUYWwtmM5qwSKR1XbjVmeGMAbCuZj1zZYIcnu44DuKCFrtvokwJK8Q
+XwzHB2yjREBj3KxS8JBG3HllnPWhQwSO5jmYmf5FqHSTWT57iqKXr4MrKeoP
+YdbfNv+zRAy7Y40afnDTIe6Tsz0nTQx+fFtGUr7SoXKK9oxiLA5CrWDUqYUe
+3GtS2T4r4rhZ/MZxZ+YmaDO2rCUZSeDNrT4dnGVE0BbHY+XFEihq9ZzaEc2E
+XqELyhOGknCumVAzSGIBk7TkVfpiSQzbyNmO52+GikIzs/CyJEQvtDKVV7Ei
+T2dhwOnqbojanaOX2GCHg49tZP+iFLySbR9UxG3F+aC58WV9aciLNnK9leFG
+Y1SSMc8VaURmJe44M8QNwfS6XRb6MhBuKI/t1ufBWJVgc0fRHlxPq2p75cgL
+7sbHu6fm98BNvd+UtJcP2s/NM5n1KGjWF7Tz30TC9YEzrgfnKZjUDbGLbN4J
+r38nNz3RkUWn3DRHVagg8pniTgwXyOK4ensOXRAZ7ZykvtU5WbTtTQ7rDRKC
+jIhRuUqBHEoNk0eutwjjl6id+GCoPIo/zguk/RJF5s2yw16l8hhQUu8UShOD
+FGU+jfZKHqvPbbKrxcRxWDllZbvIPpiG3Kf8cZRAvX7DC8tX+7B3f2Pk0MJu
+WL1mWRtb2YfmJJe/usVSmLawkQsQVsC73n1sP82lscthNi89RAEVhgKBpAYZ
+xJwQ8nklpAjdrvbI4rq9wMV4dt1TSjD5vEldQE4BL0d5tRguK2F1s9rCZIEC
+zCh3AppbleCwO7HInFkRzi/f9qnxKOOLV68hxxdFRK4LlshWKWOoTznzbLUy
+HvrUKpHmVVBjXT1MvqGGAzXGXn18quC9wtNjvkcdLYyfCrIIVUw6ajRYVquj
+p5hpgyNDFfH21nO97Qcw12fVQS+7HwkKaVbybFqQ0p51nvZVA03cOzfqFBUP
+Mk5n3spWg9fbfzQGXlChMsLT6tGghvkV1SNK/NrQDVeXGmNTh2Cz3KHVVm24
+VSQt9t5WR3ut/psPYjq4zC+a1PTtANKezkxb8epDzPtRXRSXBm5PWb85E6GP
+O48MZvarauBAZ7fMqxF91Fn4W1YnaqCw40Bh9W0D9Cc2CtyS0ASP1BEOFnMj
+cC8dqrzorgXl4XJD3h5TkJ1FbJJStXCajpXPTscMlJfTv6L/0cK88IhXc60Z
+DIpOE94bWgh83xDGccMcsQfvdGkVEdBGw/Ox5xagdcTSQnyA8fi/9wM6rLD+
+1719PhqgW/JMvcFhDUYlw0LfTED8qOF8hIU1uK/yaLnWANmnThgxDlmDEnTr
+nAkTFct6T/qql23gzv9uu1gpFX/z+JTFDO1w3Lzm65WHVPQc1990+5IdAhIu
+15LaqSBrVIkOfbFD7JynE+dPKrT5pfWp8YdR2LJWtqqhjchze9tU2+3x9riE
+4ttBbUwKCkUdD3aCVkO4ZcxWHbxuSxVmkXGF8LvvXVcldFA7dJ0x6qgr6L87
+mDxV18G575KFrnmuaOPV1N/koYM+WkZ9MrMbjILoNVPqdKC8JL9q/MMNh6RT
+pXLddMF6PukBV/sx+OcVbdx7qIfQX+Zc/Z+8YVHBEdPVoQeJS6oKKRI+UHge
+8+fnqB6e2P7kavL1AW3xyIoCqz5uafz7sWLVB9Fm4tO1zvowff1isk7AF8lM
+9/vbmA2whf330mi4H0qCm+5/PGwI74mOZDvTQKzOWcnknjBENVO564eQQFgd
+/1ZuetoQZfDTLrwaCEbXrSVNNw1x/pDppw/zgfA2c8sqoRniiLPeJ9v8IMhL
+M4cdyzECb0VFs+9SMJpHTTHTbYwcnp9aHsOhIDmMN16fMEY9PalbkiMMAX2h
+as6/jBFXVxG/VzMMoq+LFbrIJiB9fCTIXhKGxLoF8Uo/E+gaCJ7k8AmHWU4u
+6yl2U6RnT+hbbY7EqOHIuzU9M1Td/yJAjYnBtpvrfxyczBD1xDjhU0MM9BjJ
+YvWBZjAdNbDu/xOD+00uweGXzRBhMCfYFRGLaMUxnpUFM2wO0VGajYrDTsEJ
+m7nL5ij7yTqT0X4aMuGnfAMiLOCmSTM8RxePtvKEDaEEC7Tq0eTyJOLh0peT
+3Z1uAQ/ZScoHo3hkKTxqkL1uAQkexqnZ3Hiszqywz3ZZIOtCSKezbALaXcPu
++YhbwpZ8LSLI+xw8jCNn3botUR/w28SQIRnC1MErYx8s0XTapbybkoyPKipm
+Ll8sYRg6Skq2S4aV6GKF/aoleugWmjLuJwOrPgEWYlaQ29Wqv+6Ygl037Zc0
+w6xw6IEcl29LKt4zqK2ShKyR7fr6wpHHF5D++9LtS9LWeDj8bofbtwswmlu2
+3670X1fxexSS0vH0Q2U9l6E1dnoqdt+LSkdFpVQ0c7A1RH2nWZ10MpDqQtpY
+emGN2yTdub/+maDW/2LsPmmD/ceyktKFs7Df7ZtSfrgNeCwunClXz4I828Ax
+17M2uK28ETFgkwWyw+O2pVwbUCq3XUpIycKf1VMJpCc2YKiK7+BYzsJDtcVN
+buy2YDo2dfHTm2xI1s0wrNy0RZl9pvF4Ti7Yaz/TCXw+hDCz1fDVoALMW+Ql
+1kwfghVzZm/QpQL0fjfhsKEdwqZvG3xb6gtwRaCW7wK7HeJfOmRfpy+EXFy6
+7IayHVITUpldswphrXfAaSLVDttnNBUF64tQ1JtTc1fpMDIcbQy3iF3FngX9
+kxrJ9lBJLn629UEpTDQygsWz7CE5dnpPRWspTiT1h3NctkepbF6O42Ap7gl6
+xH98YI+hekrMV/proBidzY8esEfh5zO2T2yvQbassaVR0gFui8wZp+jKoGC7
+j0/zuQMsArcmKbldh3od/1NNBicc92rNsz18Ew8Mj0i88HfBoGJwIffKfTxh
+2/qXO+Uo7C3Y9bpVqsFfWz5c2eoK5pAjwwLvayAavxZYT3JHpbxxYm3+E7go
+sGYleR2DWNHRb8pbWsAtbXq9rdgDxT0RPAHRz+Gvae5/YtETfg2nAn7e64BO
+QRIlQdYb2TCx5uXoQtu22GvM53xAMrjA5nmrB2EBe6+Z9B1HZsp37z+JvSjd
+wZPDwHUC7UW0F5bhAwgbfKwl5u6HS6ExEeO0IbSNZw5Xl5xEdb7+o+DEUej0
+iDFsHvRHm076adfdn1F7sj5gIicAAkzyvkJHJ5BCiv0QqRCIx9M+1ZZXJiHf
+U3JVfyQQhW6za9fVpzC/VixFSwiC3LFlX42/P3DCqP6uk0gwgvoZxX4+ncWT
+m4rnf3cGY/3FRBpT5Dw6pdrdTXxO4XeJj/AU9yIWBNTozzKG4NmUAFdM/RJm
+BVnXZu6FoO3rSNTTshXcOLg8y2UUCg7pyqG+pF9QCNfS9F4Oxe/1uqz86lVE
+vS07F54dBl/apFXU4BpGCiezjsuFw9/5mlkg11/sOJX478XBcHhSMtLajemo
+rIHaRwJDI1ChcHtoXyo99V20MzlRJBJSJL6UnSsM1Ed/bK5Fd0TiMaeR2Q9f
+Rqr1ZS+hPZ5R8L7xz4+zQ0zUlyYffnNujcbIfpLrUiQLlSbs+epORTQqK9wv
+z3GzUgmvbjcpoxgM7wpYta9io7o05h0aXozBmoVk/c5UDup+5aiDepmxuOtd
+Hetvy0ntj9KWYcqOBWU0meeKMyc1pIWVuy03FoNPE4Vfe3BSq8zzR6lFsdg+
+e7ZMNpSTSjn+KEKzPBYrjbKWTHmcVOHinw+UGmMxRprwXh3kpLKyHtslNvXf
+jz5SDl135qLeMt+zafxHLCSZ0ywdPLmoepcWv5fMxkK++eDt2pNc1ASxMzXk
+pVj0pbh0RcRxUf9qXrXi/xuLXc5Li1tKuaiTQ13pSixxoPv/nnBR/wcrUqsB
+
+ "]]},
+ Annotation[#, "Charting`Private`Tag$53999#1"]& ]}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0, 0},
+ DisplayFunction->Identity,
+ Frame->True,
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImageMargins->0.,
+ ImageSize->Automatic,
+ ImageSizeRaw->Automatic,
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0, 500.}, {0, 257071.}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.8612607949648123`*^9},
+ CellLabel->"Out[68]=",ExpressionUUID->"9b57112f-d238-4317-89cb-371ba4a2c235"],
+
+Cell[BoxData["formula"], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260794976637*^9},
+ CellLabel->"Out[69]=",ExpressionUUID->"8a451dcb-573e-4f9f-97e1-ed70aded0195"],
+
+Cell[BoxData[
+ RowBox[{"914.9059240288545`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.0021137341020296026`", " ",
+ SuperscriptBox["x", "3"]}]}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.8612607963488626`*^9},
+ CellLabel->"Out[70]=",ExpressionUUID->"71c50b88-43c3-43d1-9b99-9504c5bd5f96"],
+
+Cell[BoxData[
+ GraphicsBox[{{{},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{0., 0.}, {50., 547.}, {100., 2942.}, {150., 7483.}, {200.,
+ 17045.}, {250., 35325.}, {300., 57890.}, {350., 90039.}, {400.,
+ 134877.}, {450., 206100.}, {500., 257071.}}]}, {{}, {}}}, {{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
+ Opacity[1.], LineBox[CompressedData["
+1:eJwV02k41VsbBvAIEW1TJGWODPsgYwr7/ktkyBxRVCpDKZTioK0kxbtt2xQZ
+t4whSeakgaKckjpEpaQ0mWeSvP/zYV3r+n1a9/U865bz9Hc4yrlixYoF8vx3
+D03+tjbzGjRu+CKxh5bKwKmCv7VNc5tp9soSrv85hH/Ea33ua5qlpsiZ/6xv
+KlXFCuyjBe/lePifw5oKV3Dlfqbd+P3RCaTfvjUuosV8p90JKd5FkN421707
+LHCEdlR5T5UJ6ecx+qHvqBO0BO/+W6akl1Iv7l5gT9FWJ5o6mpOmFnbIrhOb
+pbFXhtdYkt5ftWFaJ2aepihxYcKGNOORd6vD0i/acTWbjU6kG1/eSQ8IXKKZ
+XuuzcSM9/GH5BHNwmXb+nkruIdLM2QLZbioHpqaoasdIFy5ZrR704oRf2ieu
+INJNXJNTU+yVuM9jYhZBups/rY/zHRca03etYpAeFTFuFRbjgW7F2IF00jyS
+XypkbVfh9/UtPiWkpeVi0zVieDHwgndrI2k9Zc0o42Y+NMT7f+sgbaPRfWL3
+0mo4EQeZg6S99MJd9usLIJLWZbpE+pyRPHE8cA3WfW2TX5fGQLJpm2poKQWf
+WbrQJl1mdXJtzKAg6jLEqu1Je6qsXm6PF4K35+Frp0iPUvtOv6YKoxnrua+S
+DtWs+P72qTCyErcINZLm0bnoPuAlgtY7ha++kJbermI+wRaF3WtWn/E1BkqM
+f9+dN1oLh5hfewJI65l0aK54txZD50oG80nbWJyRFBQTx6bEJyXr0sn9Wu+K
+F68Uh6/vZiFn0l52G7ikbdchdrR2OJU03eXhCDVGAsWB9seVMhhYvS/ZU0dp
+PSw22xqdJn3Vw/vN9ub1WPPr6Ndm0uVH1zy0XJKEqVebVGAm+V98+3Ud0jfA
+rZb3/XPST/zulLjqb8S7ZKtO9SwG+k67JvsESsHjyKMHS6R9gql8ARRpcFOG
+fh7PZmA6dPlccKk09t1ZLv1AWiCywDt6UAYHDnY7vMph4B8Tw1EzQhYVMnE+
+jmwGElsKip/Fy2LOYv2ZXtLSbSFSr6hyuGWT8Wo6l4EvFgNv9oTJobn/kmPs
+dXJe7VaJvU/lILZbQ00xj5xXh/SqT17yqFYoNj6eT86ru2V8jK2A3tdJKduL
+GIj46O5KmVWAlpmguGAxAxXfZx9SrTbhW1HVgx+khReVk3xnNmHl3kpKdQkD
+JlyPFi9bKqJJV3GsoJTs45p9RwpzFBEiN3c6u4yBf2XidD9bKIFBjHwpLGeA
+W0UpmyNHCQbcVErtLTKP1n0e2WklxMz82dNRwUCq6cSb/dmbURt69a7EHQbc
+fPeEdk8q48nIsq5IHQP/OzU6MG2uAr4Rx1KverJPYZetRLNUYOBcqN3SwIAU
+s36jnbkq/kSFzaXfY6C/Uur+0ww15Kruy2toJvM31mz+Pq6GJltx3n2PyfyP
+bVk8ZlQIbdwWxN3KQP6bC4d2jFMx1Tb+PuQZA96/B1feM1XHVkumeV8nA2nc
+EX7vrqnjdAQnrfM1A20Uia6FUXWoXrPQetnFgKqcZaHeNQ1Upl2KHutlYE7e
+ZVPPWU0UZCsb1Q4wwCrK2+udqwm8KDrGM8iAMnWcMduuCbbMkSuHvjGwVzdm
+Zq3cFjiZPaUYDjPQYH73iX37FnCG1mdfmmXA4Z9Vi/0zW2DCTCnQX2BgyM5J
+I0BWC0yO9QmziwxsdBtJZZ7RwrSCFSuDIw7n/GR822W0cVz9ZfSlNXFAwkX+
+nUE6+LXmt+D05ji0fhA35szUwU/a8OBOtTjYUEsC7jfroKVzITdfPQ7urS+7
+DER1EcP+oRGjG4fQJSm2eqUuSusv7pvYEYcq3zodiXE9jDv1VzkejsP2Wivv
+rnX6COg1TonwjsMjro/XEmn6UB8q+1F/PA6dOdzLAvH6qCV0HNyC4jDa5fCU
+Q30rXGNd3lpHx0HZZMR96LgBznJpxFJuxuFW/HlWcZIBnldIO/1VGQe9PtHm
+o3cNULNOSHZ/bRx2hmxT7l+9DSnsILmfD+PgWX558t8b2/DmRFnkszdxyJSU
+v9z0bTsEAsUiK3mYUPCprg8TNESkZP3aPgEmSqp3DW/VN0R/qZ3+elEm6u38
+7e9EGyJfuCf+iQwT3dGNG4oVjVBYd8ts3oAJ4SnnioTDxtAde8B8HsiEtLuc
+0+VYY/RsPj84F8IEtXVoLvy2MTxFWBk655nYlXGe5rNsjO1zBy8OMpmg7yh5
+YZxBw4Xu5c7NN5mYfUqfPeMLGObMD5uMMLH053DbeDjgYbpJN3uGCS4di/Tj
+LKD8Yqbjmj/k+9mixodqge/PtgRuFowH9VTxJWtuAqYOyvd3a8XjsOSrtQq5
+BMLm+ZWDw+NxzLb2a1YVAQbTs1MyOh4BUZl1Em0ERIo42l7Hx4M+6rWfMkYg
+zrXn16W8eKQ/WsxbMDTBg3TZVaPt8Xh5TFH7ZY8JFtgTWQFCLBjfDbE/J2QK
+u0PaIr9PsCD76seLbEVTVF5hHHoYxALHDzfrB9tMUVraNJUcxkKLuJH5yqOm
+8D8ZudE7hgXLUxxGMfWmCLnpIl9fwIKzSqxyiudOJO+oFZP7xIJ/asZyWZUZ
++g4Y2voeToBducC5F0/NkN9dNC3qlwCtx+d+jX0wg9U11t0XQQmYnTwwo8Vn
+DjNG+Y+g6ASE22waqnM3h8rYkO+lkgRc4b7Z3cKzC7lvfwq1zCSAfbrp5vu9
+FnDu+Vkmey0RC6MOqil+FvD9QgnXzkuEw7FvhbvPW0Bx+9jcnpuJ4DokxG4q
+soDjdLTSs4eJ8LHxTGTPWuBJ64U7AUOJ0FThCT6SbIkXUdKaD4kk3P+wG8Md
+VmgdfNDR8isJEm4DjfmfreAdvNjyhScZAV1nDdznrFB4e+WwmGgy5P/J0Xoh
+bY02K5kVZWrJiK6f2FRxgvSuyeRi92TYJKfwBfHvRuTc+bWjLcn4YNH3atHM
+BrSaNZeX2SnkHpd+ue23QVTNdp7EihSYcUkrNATaoOrxjgvbHqTgZpPH6ZBM
+G8T6thU//5iCcO1+0ZkJG0jojJ/8I3MV66U+O41m2mLGUMozNf8qVEOCjgf8
+bYegA7z6ovdT0VIYtSwTZQcRPf6/LnamwqMrOamDaQfXT5IU/i+pSNSqvque
+b4cMinmHJ18aFoZn+Ede2GFSU2ZZe08a2g4Fl/lusofq0pacYxNpOGoVOuLZ
+YY/Imd/aKYbpkCV6svp77eGUcKDmrn063uvp2Xh8sUfLSIzColc6HOQny10X
+7MG11DbfkpAOLPgG2Ck4oJ9rVjn6ezo2FrlOGQU7IGjr1oD29Ay85jRYkJBx
+RKj8ww1tIllgzl+9cVXFEW6PXZ2V1bJgOTrtulbHEdrPHezydmThQW9Fg6CF
+I2xkFxp/BGWhvEI5nOe0I4SObBRt6MlCrIfE8tQTR8j3/4g8U5ANomGOq+Ok
+E37bcC58UGFjq+c3nbQQJ4Tqyh/o1WNDc/WbI4cinUCn52v372BD2q2mZSrF
+Cd8OpdBEPdj4tRAUJXHPCTpJjBjBJDaqDCZXevLvwfSTCQmvZTaU6oc5Z4r2
+4EkZu6nqUy746z6t2PDJGRS8Hdn0Ig/jdqnRtUPOiDwjUPn0Yx7+/WEt4DTr
+jMq+36/pE3nI2lC3Lo7fBeLc3raSYvnQiGCqL+u64NS3y/Pi7vlwNNu+/3Os
+C7prdKv/Gs9Hxr/JtaU6e7HisOAAt0Ih1CbMTxpeccV5HtW9fPeKYW0Yf3pT
+oiue6enMxXYWw+9yd4hApivKnAciNn4tRpnU0Yvvb7liL/drL3/BG6BaRqaF
+v3FFC/26fpfnDajnNT5qVHID59f3FoUCJdDas2Wd0WM3+BS+cYnxK8W2eskH
+Rpz78WqiwKHMoxy3LA4oPvH3gPRWcRna35W4t1roj3DMQRjv+/Ci41YNJOsK
+31U0H8LHUhelwZ13IX9xMbBB4jDyLzR/fH/hATy0+BIvex/B20bWbcemZgir
+7M5vyTmK+XDhS8PKrfA3svX3m/RC9ZGBhceO7TC9dpkape6DsZxbFN6bHWgR
+oV/nueSLhJJjzfZnXiE44K/r1l3HcJue3L7Krgu5ZGk5Bf2gAI0r3kY9CO6p
+MVY4fAIuK8/rmNS+Q8sA690d9kkEPZWl85h8hGmnAidvjz8c72+kZkd+Qt3J
+hoDPyQFgxO9ycq/7jBgJem+oViDeL+T3xE4OQrOTnW3eFwhvPYMWF8Z3jC/m
+KM9GnUKXXhB0rYfgZ9lQul/uNPi+iG7V4B/FvSLt/80/O43zOBa4lDmOZ8pt
+h619gyDMpSTToDWJiQ0GHJFcZyBvfaFApHcKI1J8i8NlZxD41vLso/szKNgx
+PSJoeRbp2p91rHLnoBVibOQzfRYdt2+XyD5bQNjLvEshScHwnHU/ITO8iL70
+wcRjGiEwk7Jfs172D8SCon8n9IQgb4jrirfDCoIv0ORA4Nm/YRgbzlKI5yBe
+hbtLR8uFQrxDYUlunpOo/uV0PfxpKIam+wMX/LgIx0xvGTWvMJR6pbzK6+Um
+Wq175ylC4ajWff92IHgVMSvr1V5SHg5WO+FTL8BH0Lw7PJUtz+FfS4rHVMlq
+wqMx1fnd5Dmc9IyV0T8vQGzVDdthxqJjPNkhV86CQnSHmahyJ9ExsLlYw9Se
+Qpx5xCfckkLHdl41HR9XClFpm/aByKDDVZLGrvKlENRj1X8bFdIxcWQ374FY
+CiGbM3ZLp5GOqjRf3V/tFIKP78hGhe90OOX1jFraCRLFtmorB37SIfJ+8mLm
+XkHC7OrkD/YIHaJlJ5LGDgoSUQoXaqWn6FAM45dPDxQk/hhlO0j+oWNDTTIH
+R5IgMXmq54rw2ggE5pt+E+sWJFj1Of4vxSNwpVBZK+KDIKGxwts5fn0Eer5E
+L/z4Kkj4xc0orJGJgG3E1j/Nc4LE1yKR+7yqEdgczZxoERAiokZ7C1qpEdj7
+/X7sspAQoaCby4jWiMBAZ9XANjEh4uAjDTcu3Qhc9ad23JESIv7wzqFZPwKU
+ppeHJ+SEiCzbps2R2yIQ3hZWq6EkRBhevUQhjCKwar/xs5OqQsTb99Yzy7QI
+vN6pklmuLkT8H5cWJlE=
+ "]]},
+ Annotation[#, "Charting`Private`Tag$81847#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]],
+ ImageMargins->0.,
+ ImageSize->Automatic,
+ ImageSizeRaw->Automatic,
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0, 500.}, {0, 257071.}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.8612607963738747`*^9},
+ CellLabel->"Out[71]=",ExpressionUUID->"db2bab01-4618-4db7-8683-117d6150b911"],
+
+Cell[BoxData["nonlinearmodelfit"], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260796380981*^9},
+ CellLabel->"Out[72]=",ExpressionUUID->"ba354193-5beb-4a8c-962b-96de2fd88bc5"],
+
+Cell[BoxData[
+ TagBox[
+ RowBox[{"FittedModel", "[",
+ TagBox[
+ PanelBox[
+ TagBox[
+ RowBox[{"0.002124924552859501`", " ",
+ SuperscriptBox["x", "3"]}],
+ Short[#, 2]& ],
+ FrameMargins->5],
+ Editable -> False], "]"}],
+ InterpretTemplate[
+ FittedModel[{
+ "Nonlinear", {$CellContext`a ->
+ 0.002124924552859501}, {{$CellContext`x}, $CellContext`a \
+$CellContext`x^3}}, {1}, {{0, 0}, {50, 547}, {100, 2942}, {150, 7483}, {200,
+ 17045}, {250, 35325}, {300, 57890}, {350, 90039}, {400, 134877}, {450,
+ 206100}, {500, 257071}},
+ Function[Null,
+ Internal`LocalizedBlock[{$CellContext`a, $CellContext`x}, #], {
+ HoldAll}]]& ],
+ Editable->False,
+ SelectWithContents->True,
+ Selectable->True]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260796505725*^9},
+ CellLabel->"Out[73]=",ExpressionUUID->"b590e101-f372-4eaa-b07a-74c6853e96a8"],
+
+Cell[BoxData[
+ RowBox[{"0.002124924552859501`", " ",
+ SuperscriptBox["x", "3"]}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260796514821*^9},
+ CellLabel->"Out[74]=",ExpressionUUID->"6b5e6dbe-960f-4c2f-b7df-540c1741735c"],
+
+Cell[BoxData[
+ GraphicsBox[{{{},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{0., 0.}, {50., 547.}, {100., 2942.}, {150., 7483.}, {200.,
+ 17045.}, {250., 35325.}, {300., 57890.}, {350., 90039.}, {400.,
+ 134877.}, {450., 206100.}, {500., 257071.}}]}, {{}, {}}}, {{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
+ Opacity[1.], LineBox[CompressedData["
+1:eJwVlPc/lY3jh9GhjBwiTsmxInRCMiLH/b4lsjcRCllJVvaqyErISGmgRFMe
+KjMKFRpSVkQipcfILnnk+/n+cL2u1/UPXBKufpbubCwsLEv/4/89PvufsZ7H
+qLbvtd7pzve6WoE3w3fpFjYRMvtyyqs3DGmHcU96bCr8QMgxz58338BHqOuK
+PswIGCAqa+s/3KNvJyLri1kohSOEkGQt65YNIPr6tEuI5DFCt8p4u6GbGaH5
+q9skMmCSsLBWKA+gHyTeJKtH9DNmiNy2MTvpJHdiJTfOZKlgjsjkXa5m3eBP
+MIrbxYU3LhKvcheN87+EEI4PReZVkn8TQ2u1RSTcYonURs+Xlit/iD7lbF/n
+kXii7l1Fnn/ACiHkmCBhTT9LTAyu+qaNrhJnT5nr6DHPE2mLN8W7Gawo7lqr
+wZ+UQxSvGHGNerBBeCLG9WJkHlFPmZ2bK1gDoybpC/P8BUQ398UBtn4KfCtY
+Tyfp3SCmNmi/5N/IAYtt1+6mfSkmODZ/LRM3W4t3q89b1/+4Q9AlUvIUk9eh
+TVQ3i8ftAaEmqxSv3cQJnn8CPrfIlxOmit2+JitceGtbyWo58pDwUIuyc1Tn
+Qa5/L7f0YCURzZQkfQLW4/1xTft99FoiW7dFPuIuL2af6ex7XFxP3DM6Lpg8
+SsUu37s5TOYzwlWOa/VVOh9MBY9XGJk2EVOMgaAPDH6c4r0itzbpORGhVDbW
+18oPNsGxmzPjLwkOlTinYY8N4BqgdKdGthH0PXL6MwUC2PuGSZnif0fc0f6v
+9jdTEI9iRSta8zsINZ12JZZ+QRygGAmf0vtAmBoEb6ZuFELh/LxDwpduos94
+f7pQuRBiaVvHbHp6CQ9zEQrdTBhLMRwJlB99RIzds0lGMg3a8YZmbG6fCa6D
+2a4qMptQ4KuY7f1tiLjg7Nmzp2kTSmafqzXJDxOl7uufGa5sxqlnba+MRr4S
+mt5DqpZ5IvDz3JCz58A34sWxijv26lsgKrZJhz74nRgIss/2ChDFaKTQApM+
+TniFMjj9eenYEv2tY8/HCWI+YjU69C4dRvtlUVo8RfCcvumZMCqGQ3/sCQ3m
+DPFaR2tKjxQH36XxzEbMEpnNN2+1pYujJ4zKoW86R9BbwkTfMyTQZPddgi1p
+gfhqMNxjEymBRco6tUsPF4k7r4wyP7ZK4KBZNibGfxFq7fS1Xzwk0SncSk2M
+/EOYdjdP/yyQwrYYw9p/+VkQ+9nJnndRCr7C6weSv7GgbGzxGcNoKwiNS4OO
+jazgX5bN8l7YipL8Nwc3ZayBDqVxOdFQGm9udeniNAWB6w8eKc6XxuUmj7GN
+UezoFDunOmIgA6fKEY39iWvBLidzjTVfBv3WijbDF9dBTbmBQ3xeBpLnmtiL
+yzmRqzvT43htGyTtzrBKr3LDwdsmontWFp5JNg9KY/lwNnBqeF5fDkqSddR3
+8vyoi0w0Ergqh4jMhI2n+vghmla9xVxfHuK1xTHt+gIYKhdtaL28HUWp5c2v
+DgqBv+7xtrHp7XDV7Dah7RCGznOzDA49Bhr0Re381tBQ1HPKZe80A6P7gu0i
+GjbB87/RNU90FdCmOM5THiKKi+yxx/ovKeCoZks2SyAdLby0rqUpBTTvSArt
+DBSDvIRhsdolRRQaJA0UNYrjl6Td1t4QJeR/mhZJ/SWJjJIbBzwLldCjotkm
+lioFWcZ06uIrJSw9t86qkNqKA6rJC4ISO2ESfJ/x56A0avRrX1i82okdu+si
++ma2wfL12uWhhZ1oSHT+uy9fFuPm1or+4sp437mT66eZHLY4TOamBSuj1EAk
+gFYrj+hjYt6vxHZh39uWiPzqHcD5OO59J1Rg/GWNpoiiMl4OCmmzXVHB0jqN
+mdFLyjBl3PFvaFKBw7aEy2Ycu+D08l2XhoAqvnp2GvB83YWIFdEChXJV9HWp
+ZpyuUMVD7yoV2rQaKq0q+uk3NbCn0sizS1gdQlcFOsy2a6KR8vlSJqGO0YNa
+tRYVmujIZ1/lSVdHnL3VVGfLHkx1WbayKuxGvHKqpRKXNmR1Jp3GfTSwuNUr
+J/IEiQfpJzNuZWnA890/Wj0vSKgNCDS512pgekH9kMpmHewL05Qd4tKEaIOi
+7VKTDlxLE2c7b2uipUr/zUcpXVzZLJlY/30PUp9OjFsK6UPK61F1JFULt8es
+3pwK18edR/sndqtrYU9bu/yrAX1Um/tZVCRoIa91T17F7f3oTqgTuSXNhIDs
+IZ61Zobgn7MtO++mDdX+YgOhDhPQnSSsE1O0cZKFU9hO1xSMl+O/ov7RxrT4
+gGdDlSn2Xz5JeK1qI+BDbSjPTTPE7L3zVvsyAR3UPh96bo7F1pjFYG9gOO7v
+ff9WS6z8dWuZjgJY5jxSbvJYgaJikOeTAWw9bDAdbm4F/msC2i6VQNaJY4aU
+PiswAm+dMWYnMa/3pKti3hpum98LShWS+JsrrCplYIejZpXfrj4k0XFUf83t
+C3bwj79SRWshQdcql+z7aoeYKQ9H3p8kdDbL6ZNxB5DXuHxjSUsHEWd2NKu3
+2OPdUeld73p1MCoqFnk0yBHatWEW0Xy6eN2cIr5W3gXi73+8vSati6q+Ikrk
+YRew/nAwfqqpizM/ZPJccl3QLMTUX+Oui67F9JokDlcYBrIyk6t1oTqntGT0
+ryts5VJkc1z3gfNs4gNqyxH45V5evfdQDyG/zKjdn71gXsoT/bZVD9IX1JWT
+pb2h/Dz6z89BPTyx+Umt9/HG4uyhBWVOfdzS+u9T6ZI3oky3jlc56cPk9YvR
+ahEfJLHf727m2I/13L/nBsN8URBUf//TAQN4jbQm2ZkEYGnKUj7nmAEq2Itd
+PgYHwPLo92KTkwa4AV+dvGsBoLjwFdSXGOCsrcnnj9MB8DJ1zSxYNMAhJ73P
+NhcDoSTHEXok2xBCpaUNPnNBaBg0wUS7EbIFfmq794eA5jBcVzRihBpWWrsM
+Tyj8u0I0nH4ZIba6NG4HMxSSr/OV39KNQfv0SJS7IBQJ1TNby3yNsW+/6HEe
+7zCYZudwnuA2QVrWiL7luggMGgy8X9YzRfn9ryJkdDQ2lKz8cXA0ReQTo/jP
+tdHQo9ClagJMYTK436r7TzTu1zsHhV0xRfj+KdG34TGI2jUksDBjinXBuiqT
+kbHYJDpiPXXFDDd+ck6kt5yEfNgJH/9wc7gyFw3OsMShuTh+VSzeHE16i4q5
+0nFw7srOak8zh7vCKOOjYRwylR/VKhSZQ1qAMjaZE4eliQXuybfmyDwX3Oak
+EI8Wl9B73lstYEO/Hh7odQbuRhGTru0WqPH/bWzAlgRxsvfq0EcL1J90Lm5n
+JOGTmpqp81cLGIQM0pLskmApOVtqv2SBDpaZ+vT7ScCSt7+5lCUUtzTprxxM
+xpYS+zlmqCVsHyhSfRpT8IFNY4kmZoUsl9fnDj0+h7TfF25fkLPCw/73G12/
+n4Ph1Ly9oMr/unyzex4tDU8/ltVQDaywyWNX+73INJSWyUZxBFlB0mec01E3
+HSnOtNW5F1a4Tds39dcvA2TNL0r7cWvsPpKZmCaeid2u31UuhllDwPzcqWLN
+TChx9RxxOW2N26qr4T3WmaA7PG6ey7EGo2zDhfjkTPxZOhFPe2INtvK4Vp75
+TDzUmF3jym0D9iNj5z+/yYJM9QTbQokNbthnGA1n54C76guLyBdbhJouhS0F
+XsK0eW5C5bgtLDkyOgMvXELnD2Me60VbrPm+Kry+5hKuilQJn+O2Q9xLh6wi
+1jwoxqYprKraISU+hcMlMw9WenscR1LsIDjB3CVacxmXO7Mr76ocQPpBa4P1
+UtewfUb/uFaSPdSS8p/xPSiEsVZ60NZMe8gMndxe2lSIY4ndYTxX7FGokJt9
+sLcQ90Td4z49sEdfDSP6G+t1MAxPX4zqsUfel1M2T2yuQ+FGXWOdjANcZznS
+T7DcgLLNTmHmcweYB/AlqrgWQbN681MmmyOOejbl2hwowQODQ9Iv/JzRuyso
+j3/hPp5w8f3lTz4Me3NuvXa1CmyuKu4va3IBR/ChfpEPlZCMWw6oobmhTMko
+oeriEzgrc2Ymeh6B1OXD31XXN4JfzqSoOd8d+R3hAv5Rz+HHNPM7NusB39oT
+/j/vtUL3UiIjXsELWTC2EuJ5i+YNMdc5zniDtv8cl8etDoT677hu3HUUGck/
+vP4kdKJwo0A2G/UYWi4vvrAI60Fo72NtKTdfXAiJDh9e7EPzcEZ/RcFxVFzU
+fxSUMAjdDim2db1+aNZNO+my7Quqjtf4j2T7Q4RdyUfs8AiSaTEfI5QD8Hjc
+u8Li6iiUOgqu6Q8EIM91crlIcwzTy/myi/GBUDwy76P1918cM6y56ygRhMBu
+itTPp5N4UrLr7O+2IKy8GEllj5hGm2yLm7H3Cfwu8BYf45/FjIgG62lKMJ6N
+iVCja+YwKcq5PHEvGM3fBiKf3ljAzb3zk1TDEPDIlfV1Jf6Ccpg202s+BL9X
+qjMvViwh8t2NM2FZofBZHLWM7F3GQN5o5lHFMPg5XTcNoP7FxhMJ/53vDYMH
+Iz21xYiF5AzQORQQEo5S5dt9O1NYyfdRTvQEiQjI0oSTNy2wkY/+WF+Pao3A
+Y15D0399KKTVFU+x7R6R8Lr5z7+n+9jJl8Yff/PyRWFgN81lLmItuSju8epO
+aRTKSt2uTPFzkoRnu6usYTT6t/gv2Zdzkc51ubb9s9FYNpep2ZTCQ+5Wjdyr
+lxGDu14VMX42vGR3pI48e1YMGINJAledeMngRk7+5pwY9D5NEH/tzkuWm10c
+JC/HQHDy9A2FEF6ScfRROLM4Bgt1ChbsubykeP7PByp1MRiijXgt9fKSnJxH
+tkiN/e+jj1RDVpyo5C2z7WuG/42BDEeqhYMHldS7MPujYDIGSg17b1cdp5Lx
+Uqcq6XMx6Ep2fhseSyX/Mq9Zbv4bgy1Oc7PrC6nkbGBvEr9gLHb3yTZFf6WS
+GdX5fu+EYsFzyOfE7ASVVGTxtE3fFIvh1u1FXgtU8ti5Ban1YrEIrupuYKzh
+I7+VbGhYJx8L6WnlHBlBPjJ+6uPNl4xY+FYV/fCg8ZFSqoWpCYqxEM36tFKy
+hY883KjoQFGNhQt12J0hzUf+XfcLTeqxeBvWUe0nx0deNavfdlozFrbxbW8q
+dvCRWhfO8JLMWHzdOFj4eycf2ffJeGGViIUbv6iathof+X+cc/aI
+ "]]},
+ Annotation[#, "Charting`Private`Tag$81961#1"]& ]}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0, 0},
+ DisplayFunction->Identity,
+ Frame->True,
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImageMargins->0.,
+ ImageSize->Automatic,
+ ImageSizeRaw->Automatic,
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0, 500.}, {0, 257071.}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.86126079657021*^9},
+ CellLabel->"Out[75]=",ExpressionUUID->"f64ed0f3-5f81-46ef-b0d2-0deaec21c948"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ "0.`", ",", "281.38443089256236`", ",", "817.0754471404989`", ",",
+ "311.37963409918393`", ",", "45.60357712399127`", ",",
+ "2123.053861570297`", ",", "517.0370727934715`", ",",
+ RowBox[{"-", "1067.140203851115`"}], ",",
+ RowBox[{"-", "1118.1713830080698`"}], ",", "12466.250120677956`", ",",
+ RowBox[{"-", "8544.569107437623`"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260796584264*^9},
+ CellLabel->"Out[76]=",ExpressionUUID->"1ad22f7c-dddb-4448-9317-229eaab684eb"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
+1:eJxTTMoPSmViYGBQAGIQDQEf7BlQgQPXJ8aFatMKHSBcDgeNE+wtszo6oXwB
+B4F2k99CZcVQvogDg8gTZqezblC+hMOD1H2TpactgPJlHBxkLr3x1miA8hUc
+HHRnTuxfM+EAhK/kwPCbrX59xcQDMPtRnaPm4GDSfMNjw4ED909asmYYKjtU
+zA3weOKx20Fmd1HmpFYVOB/mXlT9Amh8ETS+BBpfBo2vgMZXwnAfKn+whaeK
+w4fAL8wKkSccYO6FhScAM8lexg==
+ "], {{{}, {}, {},
+ {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3], LineBox[{19, 8}],
+ LineBox[{20, 9}], LineBox[{21, 11}]},
+ {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3], LineBox[{10, 2}],
+ LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}],
+ LineBox[{17, 6}], LineBox[{18, 7}]}},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ PointBox[{22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}]}}], {{}, {}}},
+ 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]],
+ ImageMargins->0.,
+ ImageSize->Automatic,
+ ImageSizeRaw->Automatic,
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 11.}, {-8544.569107437623, 6984.891728437848}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.05],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+ 3.860953469098629*^9, 3.860953709361183*^9, 3.860953820838641*^9,
+ 3.860953948078908*^9, 3.860954013883754*^9, 3.860954046377944*^9,
+ 3.860954151038829*^9, 3.860954255700719*^9, 3.860954350633729*^9, {
+ 3.860954414483062*^9, 3.860954437320591*^9}, 3.860954583772027*^9,
+ 3.8609546361711683`*^9, {3.860954685049466*^9, 3.860954723270211*^9}, {
+ 3.860954914169093*^9, 3.860954938685191*^9}, {3.860954982682733*^9,
+ 3.860955010729517*^9}, {3.860955047851603*^9, 3.86095510246842*^9}, {
+ 3.86095527369858*^9, 3.860955302695095*^9}, {3.860955345454904*^9,
+ 3.860955369948269*^9}, {3.860955402566491*^9, 3.860955428206354*^9}, {
+ 3.861123438131472*^9, 3.861123456327256*^9}, 3.861127055114929*^9, {
+ 3.861127264611608*^9, 3.861127274891913*^9}, 3.861127311959764*^9,
+ 3.861181688408037*^9, 3.861259438722706*^9, 3.861260796613441*^9},
+ CellLabel->"Out[77]=",ExpressionUUID->"f67cbd93-c669-4bc7-87c6-cf7ae689c11a"]
+}, Open ]],
+
+Cell[TextData[StyleBox["\[EAcute]tude de la convergence de la solution num\
+\[EAcute]rique vers la solution analytique du champ \[EAcute]lectrique de la \
+BEM en fonction du nombre de points de gauss utilis\[EAcute] pour l\
+\[CloseCurlyQuote]int\[EAcute]gration", "Title"]], "Text",
+ CellChangeTimes->{{3.861258741265164*^9,
+ 3.86125880430346*^9}},ExpressionUUID->"a9e8cb00-e27d-4ce1-93f1-\
+c63f24dce0c4"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*",
+ RowBox[{
+ "convergence", " ", "de", " ", "la", " ", "solution", " ",
+ "num\[EAcute]rique", " ", "g\[EAcute]n\[EAcute]ralisation"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dataelectricfieldgauss", "=",
+ RowBox[{
+ "Import", "[", "\"\</Users/Kevin/BEM/build/Debug/gauss_square.csv\>\"",
+ "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"dataelectricfieldanaly", "=",
+ RowBox[{
+ "Import", "[", "\"\</Users/Kevin/BEM/build/Debug/analytique.csv\>\"",
+ "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"dataelectricfieldgauss", "=",
+ RowBox[{
+ "Import", "[", "\"\</Users/Kevin/BEM/build/Debug/gauss_hole_48.csv\>\"",
+ "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"dataelectricfieldanaly", "=",
+ RowBox[{
+ "Import", "[",
+ "\"\</Users/Kevin/BEM/build/Debug/gauss_hole_analytique.csv\>\"",
+ "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"dataelectricfieldanaly", "=",
+ RowBox[{"dataelectricfieldanaly", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"abserror", "=",
+ RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"relativeerror", "=",
+ RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"For", "[",
+ RowBox[{
+ RowBox[{"i", "=", "1"}], ",",
+ RowBox[{"i", "\[LessEqual]",
+ RowBox[{"Length", "[", "dataelectricfieldgauss", "]"}]}], ",",
+ RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"AppendTo", "[",
+ RowBox[{"abserror", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"2", "*", "i"}], ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"dataelectricfieldgauss", "[",
+ RowBox[{"[",
+ RowBox[{"i", ",", "j"}], "]"}], "]"}], "-",
+ RowBox[{"dataelectricfieldanaly", "[",
+ RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], ",",
+ RowBox[{"{",
+ RowBox[{"j", ",", "1", ",",
+ RowBox[{"Length", "[", "dataelectricfieldanaly", "]"}]}],
+ "}"}]}], "]"}], "]"}]}], "}"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"relativeerror", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"i", "*", "2"}], ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"dataelectricfieldgauss", "[",
+ RowBox[{"[",
+ RowBox[{"i", ",", "j"}], "]"}], "]"}], "-",
+ RowBox[{"dataelectricfieldanaly", "[",
+ RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], ",",
+ RowBox[{"{",
+ RowBox[{"j", ",", "1", ",",
+ RowBox[{"Length", "[", "dataelectricfieldanaly", "]"}]}],
+ "}"}]}], "]"}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dataelectricfieldanaly", "[",
+ RowBox[{"[", "j", "]"}], "]"}], "^", "2"}], ",",
+ RowBox[{"{",
+ RowBox[{"j", ",", "1", ",",
+ RowBox[{"Length", "[", "dataelectricfieldanaly", "]"}]}],
+ "}"}]}], "]"}], ")"}]}], "]"}]}], "}"}]}], "]"}], ";"}]}],
+ "]"}], "\[IndentingNewLine]", "abserror", "\[IndentingNewLine]",
+ "relativeerror", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{{3.861120198227779*^9, 3.8611202086509027`*^9}, {
+ 3.861120476136898*^9, 3.861120519489415*^9}, {3.861121142471794*^9,
+ 3.861121397677162*^9}, {3.8611214473307447`*^9, 3.8611217038415203`*^9}, {
+ 3.861121977612794*^9, 3.861122033978256*^9}, {3.861122363404669*^9,
+ 3.8611223692759743`*^9}, {3.861122481670773*^9, 3.861122549413241*^9}, {
+ 3.861122748564005*^9, 3.861122817288172*^9}, {3.861122981637671*^9,
+ 3.8611229828416443`*^9}, {3.861123153290061*^9, 3.861123155911878*^9}, {
+ 3.8611289012277*^9, 3.8611289088187933`*^9}, {3.861129299526593*^9,
+ 3.8611293058475227`*^9}, {3.861173521581609*^9, 3.861173527697165*^9}},
+ CellLabel->
+ "In[259]:=",ExpressionUUID->"3022f7f2-8c9c-43ae-9732-d602151de8a8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"2", ",", "95004.77856950945`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"4", ",", "36205.63944299908`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"6", ",", "12316.897572120495`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"8", ",", "2753.571943809188`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"10", ",", "1108.913267961656`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"12", ",", "326.093452993495`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"14", ",", "99.14905399558761`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"16", ",", "30.407862601472058`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"18", ",", "9.580813127287266`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"20", ",", "3.011998313412531`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"22", ",", "0.8988662191894848`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"24", ",", "0.2548494065129372`"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.861122551406989*^9, 3.861123161460887*^9,
+ 3.8611289120849953`*^9, 3.861129326381927*^9, 3.861173532512989*^9},
+ CellLabel->
+ "Out[265]=",ExpressionUUID->"953df72a-406a-4325-a6b7-b588ecdbd337"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"2", ",", "6.722461226945124`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"4", ",", "2.561881739182639`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"6", ",", "0.8715337018995811`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"8", ",", "0.19484052177773273`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"10", ",", "0.07846580519592629`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"12", ",", "0.02307410876712432`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"14", ",", "0.007015706801379136`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"16", ",", "0.0021516357430706665`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"18", ",", "0.0006779305813935762`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"20", ",", "0.00021312656249943826`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"22", ",", "0.00006360304605405775`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"24", ",", "0.000018032937708914684`"}], "}"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.861122551406989*^9, 3.861123161460887*^9,
+ 3.8611289120849953`*^9, 3.861129326381927*^9, 3.861173532566594*^9},
+ CellLabel->
+ "Out[266]=",ExpressionUUID->"505cf359-5431-4db8-b379-4278c65326ec"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"plot", " ", "part"}], "*)"}]}]], "Input",
+ CellChangeTimes->{{3.861122068014279*^9,
+ 3.8611220747751293`*^9}},ExpressionUUID->"5184b6ce-6f3e-4ace-8f94-\
+4112569cfa78"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"g1", "=",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"abserror", ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
+ RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",",
+ RowBox[{"Joined", "\[Rule]", "True"}], ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g2", "=",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"abserror", ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{"Show", "[",
+ RowBox[{"g1", ",", "g2"}], "]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g3", "=",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"relativeerror", ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
+ RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",",
+ RowBox[{"Joined", "\[Rule]", "True"}], ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g4", "=",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"relativeerror", ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{"Show", "[",
+ RowBox[{"g3", ",", "g4"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.8611220359218893`*^9, 3.861122092969523*^9}},
+ CellLabel->
+ "In[267]:=",ExpressionUUID->"131c83d3-03c9-4c25-8f61-e5f9f199818d"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {{}, {},
+ {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
+ 1.6], LineBox[{{2., 11.461682470049317`}, {4., 10.496970171398734`}, {
+ 6., 9.418727384930653}, {8., 7.920654236492377}, {10.,
+ 7.011135776863383}, {12., 5.787184005910186}, {14.,
+ 4.5966243137764415`}, {16., 3.414701213177399}, {18.,
+ 2.259762465968268}, {20., 1.1026037499814914`}, {
+ 22., -0.10662106627415432`}, {
+ 24., -1.367082470968909}}]}}, {{}, {}}}, {{},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 11.461682470049317`}, {4., 10.496970171398734`}, {6.,
+ 9.418727384930653}, {8., 7.920654236492377}, {10., 7.011135776863383}, {
+ 12., 5.787184005910186}, {14., 4.5966243137764415`}, {16.,
+ 3.414701213177399}, {18., 2.259762465968268}, {20.,
+ 1.1026037499814914`}, {22., -0.10662106627415432`}, {
+ 24., -1.367082470968909}}]}, {{}, {}}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{1.5416666666666667`, -2.3710061312278032`},
+ DisplayFunction->Identity,
+ Frame->{{True, True}, {True, True}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->FrontEndValueCache[{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {
+ Automatic, Automatic}}, {{{{-2.3025850929940455`,
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.1\"", ShowStringCharacters -> False], 0.1,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {6.907755278982137,
+ FormBox["1000", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ FormBox[
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm ->
+ SuperscriptBox], TraditionalForm], {0.01, 0.}}, {
+ 11.512925464970229`,
+ FormBox[
+ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm ->
+ SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-4.605170185988091,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.506557897319982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.2188758248682006`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.2039728043259361`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.916290731874155,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5108256237659907,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.35667494393873245`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.2231435513142097,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.10536051565782628`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.0986122886681098`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.3862943611198906`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.791759469228055,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.9459101490553132`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.0794415416798357`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.1972245773362196`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.4011973816621555`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.6888794541139363`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.0943445622221,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.248495242049359,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.382026634673881,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.499809670330265,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.703782474656201,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.991464547107982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.396929655216146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.551080335043404,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.684611727667927,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.802394763324311,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.600902459542082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.006367567650246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.294049640102028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.517193191416238,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.699514748210191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.85366542803745,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.987196820661973,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 9.104979856318357,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 9.903487552536127,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 10.308952660644293`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 10.596634733096073`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 10.819778284410283`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.002099841204238`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.156250521031495`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.289781913656018`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.407564949312402`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 12.206072645530174`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 12.611537753638338`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 12.89921982609012,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.122363377404328`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.304684934198283`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.458835614025542`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.592367006650065`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.710150042306449`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.815510557964274`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.9108207377686,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.997832114758229`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 14.077874822431765`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 14.151982794585487`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}, {{-2.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
+ 2.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {5.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
+ 7.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
+ 10.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01,
+ 0.}}, {-5.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 9.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 9.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 10.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 12.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 12.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}, {
+ Automatic, Automatic}}],
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{1.5416666666666667`, 24.}, {-2.3710061312278032`,
+ 11.461682470049317`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}]], "Output",
+ CellChangeTimes->{{3.861121495823804*^9, 3.861121503028514*^9}, {
+ 3.861121598448876*^9, 3.861121612760919*^9}, {3.861121651882359*^9,
+ 3.861121708912607*^9}, {3.861122010692439*^9, 3.8611220241323547`*^9},
+ 3.861122096424819*^9, 3.861122537165831*^9, 3.861123164008923*^9,
+ 3.861128916416933*^9, 3.861129335734619*^9, 3.861173536753436*^9},
+ CellLabel->
+ "Out[269]=",ExpressionUUID->"d727041d-b24d-4120-99a1-a4716f0510ef"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {{}, {},
+ {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
+ 1.6], LineBox[{{2., 1.9054543414901217`}, {4., 0.940742042839539}, {
+ 6., -0.1375007436285417}, {8., -1.6355738920668188`}, {
+ 10., -2.545092351695813}, {12., -3.7690441226490092`}, {
+ 14., -4.959603814782754}, {16., -6.141526915381797}, {
+ 18., -7.296465662590927}, {20., -8.453624378577704}, {
+ 22., -9.662849194833349}, {
+ 24., -10.923310599528104`}}]}}, {{}, {}}}, {{},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 1.9054543414901217`}, {4., 0.940742042839539}, {
+ 6., -0.1375007436285417}, {8., -1.6355738920668188`}, {
+ 10., -2.545092351695813}, {12., -3.7690441226490092`}, {
+ 14., -4.959603814782754}, {16., -6.141526915381797}, {
+ 18., -7.296465662590927}, {20., -8.453624378577704}, {
+ 22., -9.662849194833349}, {24., -10.923310599528104`}}]}, {{}, {}}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{1.5416666666666667`, -11.927234259787001`},
+ DisplayFunction->Identity,
+ Frame->{{True, True}, {True, True}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->FrontEndValueCache[{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {
+ Automatic, Automatic}}, {{{{-11.512925464970229`,
+ FormBox[
+ TemplateBox[{"10",
+ RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-9.210340371976182,
+ FormBox[
+ TemplateBox[{"10",
+ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-6.907755278982137,
+ FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-4.605170185988091,
+
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.010\"", ShowStringCharacters -> False], 0.01,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01,
+ 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.100\"", ShowStringCharacters -> False], 0.1,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {-13.815510557964274`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-13.122363377404328`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.716898269296165`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.429216196844383`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.206072645530174`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.02375108873622,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.86960040890896,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.736069016284437`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.618285980628055`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.819778284410283`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.41431317630212,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.126631103850338`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.903487552536127,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.721165995742174,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.567015315914915,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.433483923290392,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.315700887634009,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.517193191416238,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.111728083308073,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.824046010856292,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.600902459542082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.418580902748128,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.264430222920869,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.1308988302963465`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.013115794639964,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.809142990314028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.521460917862246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.506557897319982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.2188758248682006`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.2039728043259361`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.916290731874155,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5108256237659907,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.35667494393873245`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.2231435513142097,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.10536051565782628`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.0986122886681098`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.3862943611198906`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.791759469228055,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.9459101490553132`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.0794415416798357`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.1972245773362196`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.4011973816621555`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.6888794541139363`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.0943445622221,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.248495242049359,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.382026634673881,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.499809670330265,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.605170185988092,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}, {{-10.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01,
+ 0.}}, {-7.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01,
+ 0.}}, {-5.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01,
+ 0.}}, {-2.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
+ 2.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01,
+ 0.}}, {-12.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}, {
+ Automatic, Automatic}}],
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{1.5416666666666667`, 24.}, {-11.927234259787001`,
+ 1.9054543414901217`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}]], "Output",
+ CellChangeTimes->{{3.861121495823804*^9, 3.861121503028514*^9}, {
+ 3.861121598448876*^9, 3.861121612760919*^9}, {3.861121651882359*^9,
+ 3.861121708912607*^9}, {3.861122010692439*^9, 3.8611220241323547`*^9},
+ 3.861122096424819*^9, 3.861122537165831*^9, 3.861123164008923*^9,
+ 3.861128916416933*^9, 3.861129335734619*^9, 3.8611735369093018`*^9},
+ CellLabel->
+ "Out[272]=",ExpressionUUID->"bbcb174f-e6ea-4287-b0fd-9ee0a29f0795"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*",
+ RowBox[{
+ "pour", " ", "le", " ", "carr\[EAcute]", " ", "uniquement", " ",
+ "comparaison", " ", "par", " ", "rapport", " ", "\[AGrave]", " ", "la",
+ " ", "vraie", " ", "valeur", " ", "analytique"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ "erreur", " ", "entre", " ", "la", " ", "solution", " ",
+ "num\[EAcute]rique", " ", "de", " ", "gauss", " ", "et", " ", "la", " ",
+ "vrai", " ", "solution", " ", "analytique", " ", "du", " ",
+ "carr\[EAcute]"}], " ", "-", " ",
+ RowBox[{"exemple", " ", "100", "*", "100"}]}], ",", " ",
+ RowBox[{"20000", " ", "\[EAcute]l\[EAcute]ments"}], ",", " ", "triangle",
+ ",", " ",
+ RowBox[{"200", "V", " ",
+ RowBox[{"d", "'"}], "un", " ", "c\[OHat]t\[EAcute]", " ", "et", " ",
+ "100", "V", " ", "de", " ",
+ RowBox[{"l", "'"}], "autre"}], ",", " ",
+ RowBox[{
+ "probl\[EGrave]mes", " ", "sur", " ", "les", " ", "bords", " ", "du", " ",
+ "aux", " ", "\[EAcute]l\[EAcute]ments", " ", "constants", " ", "de",
+ " ", "la", " ", "BEM"}]}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"datasquareanalytique", " ", "=", " ",
+ RowBox[{"Table", "[",
+ RowBox[{"100", ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"Length", "[", "dataelectricfieldanaly", "]"}]}], "}"}]}],
+ "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"abserror", "=",
+ RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"relativeerror", "=",
+ RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"For", "[",
+ RowBox[{
+ RowBox[{"i", "=", "1"}], ",",
+ RowBox[{"i", "\[LessEqual]",
+ RowBox[{"Length", "[", "dataelectricfieldgauss", "]"}]}], ",",
+ RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"AppendTo", "[",
+ RowBox[{"abserror", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"2", "*", "i"}], ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"dataelectricfieldgauss", "[",
+ RowBox[{"[",
+ RowBox[{"i", ",", "j"}], "]"}], "]"}], "-",
+ RowBox[{"datasquareanalytique", "[",
+ RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], ",",
+ RowBox[{"{",
+ RowBox[{"j", ",", "1", ",",
+ RowBox[{"Length", "[", "datasquareanalytique", "]"}]}],
+ "}"}]}], "]"}], "]"}]}], "}"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"relativeerror", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"i", "*", "2"}], ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"dataelectricfieldgauss", "[",
+ RowBox[{"[",
+ RowBox[{"i", ",", "j"}], "]"}], "]"}], "-",
+ RowBox[{"datasquareanalytique", "[",
+ RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], ",",
+ RowBox[{"{",
+ RowBox[{"j", ",", "1", ",",
+ RowBox[{"Length", "[", "dataelectricfieldanaly", "]"}]}],
+ "}"}]}], "]"}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"datasquareanalytique", "[",
+ RowBox[{"[", "j", "]"}], "]"}], "^", "2"}], ",",
+ RowBox[{"{",
+ RowBox[{"j", ",", "1", ",",
+ RowBox[{"Length", "[", "datasquareanalytique", "]"}]}],
+ "}"}]}], "]"}], ")"}]}], "]"}]}], "}"}]}], "]"}], ";"}]}],
+ "]"}], "\[IndentingNewLine]", "abserror", "\[IndentingNewLine]",
+ "relativeerror"}]}]], "Input",
+ CellChangeTimes->{{3.8611230061599903`*^9, 3.861123006703861*^9}, {
+ 3.8611230866723146`*^9, 3.861123125388547*^9}, {3.861123206040749*^9,
+ 3.861123206521308*^9}, {3.861260836376354*^9,
+ 3.861260877461598*^9}},ExpressionUUID->"d24f20d6-729f-4ebb-9bdc-\
+788273f1e3f9"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"2", ",", "94942.80299918952`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"4", ",", "36143.53185124503`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"6", ",", "12257.188553966953`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"8", ",", "2686.854589001577`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"10", ",", "1092.1147355483317`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"12", ",", "337.37939925116`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"14", ",", "133.75233133719817`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"16", ",", "94.47331513035483`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"18", ",", "90.44860982366231`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"20", ",", "89.91014036466134`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"22", ",", "89.89450332422635`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"24", ",", "89.8862246056054`"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.8611231276753063`*^9, 3.86112316929661*^9,
+ 3.86117354759518*^9},
+ CellLabel->
+ "Out[277]=",ExpressionUUID->"87820575-f7aa-4bd3-8d26-eb8329c9e90d"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"2", ",", "6.713469982558538`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"4", ",", "2.5557336468047334`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"6", ",", "0.8667141144792165`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"8", ",", "0.18998930999452093`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"10", ",", "0.07722417353399785`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"12", ",", "0.023856326104313885`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"14", ",", "0.00945771804880428`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"16", ",", "0.006680272176984757`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"18", ",", "0.00639568253552078`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"20", ",", "0.006357606994928636`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"22", ",", "0.006356501289195709`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"24", ",", "0.006355915895388069`"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.8611231276753063`*^9, 3.86112316929661*^9,
+ 3.861173547600374*^9},
+ CellLabel->
+ "Out[278]=",ExpressionUUID->"c9d67024-7484-400e-99a3-606c54038a95"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"g1", "=",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"abserror", ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
+ RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",",
+ RowBox[{"Joined", "\[Rule]", "True"}], ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g2", "=",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"abserror", ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{"Show", "[",
+ RowBox[{"g1", ",", "g2"}], "]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g3", "=",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"relativeerror", ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
+ RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",",
+ RowBox[{"Joined", "\[Rule]", "True"}], ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g4", "=",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"relativeerror", ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{"Show", "[",
+ RowBox[{"g3", ",", "g4"}], "]"}]}], "Input",
+ CellLabel->
+ "In[279]:=",ExpressionUUID->"c0d3d828-445a-4391-980f-255c7b107643"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {{}, {},
+ {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
+ 1.6], LineBox[{{2., 11.461029915570789`}, {4., 10.49525328630111}, {6.,
+ 9.413867864592913}, {8., 7.89612649066494}, {10., 6.995871219968924}, {
+ 12., 5.821208110900904}, {14., 4.895989816182697}, {16.,
+ 4.548317415050113}, {18., 4.504781842167219}, {20.,
+ 4.49881073116398}, {22., 4.498636797497378}, {24.,
+ 4.498544699543141}}]}}, {{}, {}}}, {{},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 11.461029915570789`}, {4., 10.49525328630111}, {6.,
+ 9.413867864592913}, {8., 7.89612649066494}, {10., 6.995871219968924}, {
+ 12., 5.821208110900904}, {14., 4.895989816182697}, {16.,
+ 4.548317415050113}, {18., 4.504781842167219}, {20., 4.49881073116398}, {
+ 22., 4.498636797497378}, {24., 4.498544699543141}}]}, {{}, {}}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{1.5416666666666667`, 3.9536907190774175`},
+ DisplayFunction->Identity,
+ Frame->{{True, True}, {True, True}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->FrontEndValueCache[{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {
+ Automatic, Automatic}}, {{{{4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {6.907755278982137,
+ FormBox["1000", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ FormBox[
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm ->
+ SuperscriptBox], TraditionalForm], {0.01, 0.}}, {
+ 11.512925464970229`,
+ FormBox[
+ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm ->
+ SuperscriptBox], TraditionalForm], {0.01, 0.}}, {
+ 2.302585092994046,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.4011973816621555`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.6888794541139363`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.0943445622221,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.248495242049359,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.382026634673881,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.499809670330265,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.703782474656201,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.991464547107982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.396929655216146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.551080335043404,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.684611727667927,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.802394763324311,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.600902459542082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.006367567650246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.294049640102028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.517193191416238,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.699514748210191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.85366542803745,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.987196820661973,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 9.104979856318357,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 9.903487552536127,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 10.308952660644293`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 10.596634733096073`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 10.819778284410283`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.002099841204238`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.156250521031495`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.289781913656018`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.407564949312402`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 12.206072645530174`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 12.611537753638338`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 12.89921982609012,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.122363377404328`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.304684934198283`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.458835614025542`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.592367006650065`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.710150042306449`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.815510557964274`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{
+ 4.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {6.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {8.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
+ 10.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {2.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 9.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 9.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 10.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 12.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}, {
+ Automatic, Automatic}}],
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{1.5416666666666667`, 24.}, {3.9536907190774175`,
+ 11.461029915570789`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}]], "Output",
+ CellChangeTimes->{3.861123181547842*^9, 3.861173551563908*^9},
+ CellLabel->"Out[281]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
+eJztXQeYVUWyvjBzhyCKOe+KWVFXZV13V9cs6rpm97lmRRRBJI2CZBhJkgUk
+SBLJAiJBRTExBkRFREUx66BiVkAUw2i9/qu7+vQ599zQh0F4+zzfdy5M37p/
+dXWorq6u7j670c1Nr2vR6OZmjRvVO720UeumzRrfVO+0VqUqqahaKlV9eSpV
+bWG9FP5PqZR8BM8r+HBTftOE8fxPMW3YsIE++ugj+uSTT+iXX34ZbJLVf2n1
+6tX8lSLp6yR/8cUXVFFRQd99910/k/ztt99y0pdffkm//vprd81iLP9TxD8Y
+MWIENWnSJFWdP4uoRYsWNHXqVKqsrEz1NHQ33ngjvqVvvvlGYeo0hUb3338/
+NW/e3P72hhtuoPvuu48pusb8Nm3SnnzySbrppptCfLt160bvvfceU9xi6CBU
+06ZNmaIGf5bQ7bffTu7z6aefUo8ePYoMzK233spFE2QhNYb/qU3ff/89derU
+iXODt1+/fix9s2bN+O/+/ftD6h6GuSR/9dVXVug5c+Zw2vXXX68yPmTIEJWm
+/s9pzz33nBU687e16PHHH7es27RpQ6NHj6YuXbrw36Bfvnx5qr35fVlZmdAq
+kfFZJyQ4qrVVq1ZM0759exozZgz/i7+7d+8OMULCF9P8+fMtd1XM1U0ySlzV
+ICcvWrQoTvYipz0Kz8WLFwvCM888w0mlpaXIVpesCFvRTz/9ZJmh4H/++WeW
+Bv9CApFG0ZkmUEwrVqyw+X766afT3C7rcMuQB60QX6tWgKbPafgXTQHpSvRQ
+YRTRoEGD+Jvhw4fbqp09ezan3XbbbansxVCEUuI0VXX2t507d+Y0VcWp7AVQ
+TG+//bYVZtWqVZK8fv16201ee+219iZ54sSJ0tiovLy8hgE2HYeef/55mynV
+9qRdpSKyrlmzhjWA+tfm9+WXX2by1q1b55QVegBps2bNsr9V/+e0cePG5ZC1
+iCsbquuDDz6w/b5nz55M99hjj5mmXsJ6ZMqUKbZcgK/Sik0hoKXLVz/++KMU
+2Q8//GCTP//8c52R1ETDZ+nSpQXJN3LkSE579NFHrXyPPPIIpw0cODBWvq1M
+GvSVyNKR09K2DeFF90ZDFl5QSkhXXciWh3SnN9980/Cy1aaEomeffZZeeukl
+m7Vhw4aJ4sopVp8+fThN/d7+VvVYTlNVkLOJojrQPKCt1q5dK8nQE6LoVq5c
+2ckIjM4gyUOHDkVPTlU36NJzO3bsaAXu0KEDpykOYYFr0MKFC23ZzZgxg95/
+/31ut2hnMkagQMyTKstRANLOlNC2AFR3EfWYowC24gJo2bIlp6Nfoy2hHaOL
+tW3bltO7du3KddvZlM6LL75oi+Gee+6REpBupqS2JYCfIk39JFrlqlyt0k8b
+ie+66y4r8a05JFZaS3S4lVg0Ve/evWMlFjqMg8K32PCFNkcNgEL/tqbFg6Rm
+pIa64jSllERC0U+vvvpqWMKarOikjh966CFuMqirsWPHokDKTFN44oknaNKk
+SWye4IFZERUYP0WaUv5WkAceeIDTMC53KACr2GRr2rRpnHbHHXfQ3Xffzf0H
+QwRU0bp167obMilj9HI8KB8pD6uxgiJWRSTyi70lQzS+6mUyKKMXMoZOF1e7
+oleUArDCqrGL02bOnGmFzYUlv1ODqC0kMVdUm6V27drhX1soCtcWCh6lfG0b
+VzpdFIMaxmwhKAMrIjB+LM2yl0mDZoOppRsaPmsig+Q+b7zxBv8Oxp/SQmJr
+qP9amVTpd8iKWOQiWo0EdWIaqxG9mObNm2fNF2VaCCfYF0px8VfTp08XBMMF
+LcZWDgrP6D8Ze0X8uXPnimWiejRKt4htd8mYlD90DnqXa0tnClDTGkm9evVi
+WwIaA+ae6eWdvOCK2e6S4lRDcLHJIUZAIW1nWtbHH39sSdXIyNpw2bJlqGDD
+ohZGMVuBGO1Aj2bx8MMPczNRdpjNjlIOlkfncKEBNqoG1Shoybub3L/wwgtW
+mSjppH3DYJC5hTQGWP1GAVidHfm5aC/X8hZlCENSuMvURBlkUiCWDYSFDtIU
++lO6pEtnaJgi0mGQe5SXepXw+CyyqoucUQ+jJcwBpVHN0FLC2hXQsDwwbiCL
+Cq9b1p8UYc5h2RUbdkuWLLHsxEhDD0NPgaK+8847eR6kqrSEv07zKAAbDkY9
+5n+q+5pq2lyT6PwJf9Z/oW7wwYZgTecrXVu2JHaJSdttC0/bYwvKy5Ykx1Yx
+abop/171W1ja71W/2Yvsv0UOz6pvHpPWNyatf4F0XWLStiD2bOvc8P9L5shX
+ZJ9hv/kPWaRaeWyQzZnBLe+Hxe43REO3uAz+/sPfa69KfrgD/11Mlb/8QhWf
+ruVX/f8or+Q6ebhHKmQ7Q1C+bBU17/8IXVn2AL/4v0prsFFfew7F/PlWvFgN
+DD04GS6KCJ86TTD+VMV0NROI8GbuUjnC/A4Smq/V3Fqzxt+Ves0rdVgV0yUR
+ZWJ8bRzMybWJNmwggsfpww+V2Eru5cuJFi8mevRRonnziKZPp/KhU0s4N0dS
+eafBRO3aEbVtS3TzzUSlpURt2hC1bk3UsiVRixZEN95I1FyZCM2aETVtSnT9
+9UTXXUd07bVEjRsTNWpEdPXVRFddRXTFFUSXX0502WVEl1xCdPHFRP/5D9FF
+FxH9+99EF15IdMEFROedR3TuuUTnnEN01llE//oX0ZlnEp1xBtHppxOddhrR
+qacSnXIK0cknE510EtEJJxAdfzzRcccRHXss0THHUEXDc1Up6pKtOEn9/s9/
+xpvaCZ9qDnHkkfjihDNsiyoRYpWmvmWKnQwdHaEawuGH403tyJ+K7rjTM3+r
+ilzqpEZMPeWrwrtzt8Zt+OvdsTpLtGYNEfyW77xD9MorRHARPf44ll6JZswg
+mjCBaMQIogEDiOAsa9+eqFUrXT+og/PP1+WJMkPZHKwayl57Ee2khN5KaYPq
+1Wsir2is1atT83ZTw41V/Y10UBxm6Cp2qZdZIiqNXT2K4tCqoCushHczfSES
+a1EjPjlO9/HnBPNFpubZhsp7jCTq1El3CjR8NHA04n/+UzfIv/yF6JBDiPbe
+m2gX1eK2UdVXXLyPZyEUWvgbRVeY5qlrvsIyEb6eOHGi9VqakA+kW4eyG/dR
+VCBdLXwG4944+XFlJVWq1t282322tFzp6vNnMVGJyuu22xLtvjtVHHV8TaPM
+Ki5vopUNlA6UDzoAlBHqDMoJSgrKCkoLygudBFmAUoNyu+EGreyg9KD8oARR
+71CKUI5QklCW6GQdOhB17KjbRhc13+nalahbN6KyMt0RlfTUqxdR795EffoQ
+9VXzpH791HxDTTgGDiQaNIhosFK+iC0ZqoywYcOofMAEK3b54ElEd96JN7Uz
+PnclGjMGXwyZnDk8qjT1LVPsjE9FPHYsfzEl51jK6xE1nMmPVP6DDz7ItTNh
+wgQbRlNA6ItZ4CiMtla2/qgXLdOIJSHCkt+VVxJtvz06TqDsnU5Ulz+VwixS
+TWjrrXU/RH9Ev0T/RD9Ff0W/RVtAP0a9ou5QR6iHUaPU2KoG11mzSElPtGgR
+0fPPE61YQYQlV9Wiad06NFFp5PlG98Nzq/lNZsjlqsMCInZsHRZCm7UORxkd
+TJ9/rvq36uBnn62m2bWKsupFVb2XqG556aW6a6L7oZuhK2FswxiHsQ5jHsY+
+jIEYCzEmYmzEGImx8scf/5hVm4fb/hEmh5vKts9eDfkjiaoXSJe1+IdL8aNs
+UH7/+AfG+hIZHlRPad5xRtKmO99Palmxjo0oSkcjikBmBo00r327j6K1Awpo
+w9xjCkKmt/TCC7q/H3IILApVCmk9jMA4QuP6+GNIFujf/C3l/iSlEBeOVOKG
+I7nfx0UrxY3c/DlIqvynn4gWLtSj2Z571pAxE4YJBsZp04jWri3OXcNfJJMt
+M/KoxI08cr+PC0xi2Uos09tEIujde+7RY3rdulYiNfrzsK0MFdVQasbX0pfJ
+JMmMICpxI4jc7+MCjLLWkpUJCgtjDiY8JSVWpvr1tVmhOrmyWX9OlnknNshm
+3gkOyhc7lDXzvSTzK1dqo+avfyWqVq1EMg8zDRMz2DlvvUXZM1/H/IHAHugz
+BH0sWLBABBGFERvnU8ON84mSpOJigbLKUyby/PqrniTDuDvwQFsZNWvqySlM
+q88+458UxWBFhJJYHQiHAKiIULHhPDWj4TwFRv1kFU2ibJTGJELUA2zdXXe1
+om23nTaFYO6sX88/idOhIdGKEHIp8bJWDU+YMMGSFxqtUyhd1vGtk4j3zTdE
+kydr30KdOla8P/5RmxAqv2RineOwjHhb8z9pjvcYoEZLGY2CIbskW1yNhOA4
+YTVeIThxs1v+lFhk9WueHLAnJJ2uYUZw9lNgvrFsmabfOrt42zgtTwI0lWjS
+9fMFylQvkC5rW2xq+Ec0s1QI23Cw8xo0SNkKhCl/4onaNDcRj9tml1CU4ddf
+f82RbwgHLzGVGhcik+u7rG6C6w3HLEOmxE1jEkvl5XqGsc8+VqLatbU3Bt3l
+Sx6VjHvZz3nUxHyRad6mtdGidAfNmaMnuzvuGJTojjsSXXMN0dy5mkY9Oyfg
+f535Inb203kWVW5VhznaQWHffUmNLkRPPklk9g7ELRIXyheNJ5dHpbp0kKOO
+0pNwNaAxwB+qlGlaM02rTtSwIRFCNT/8UP+o3kaX6sJwqXa5lyonT4Gu08T7
+bgQD1UWo/LJWIQaurZuYwbX83zQiSIkOOIDro/zIhvDfqDoJphiGmf7R/gkY
+NRZJlGZlJ5CtdKVhTjmVKt76UDQM0x+YgMc1wmPIEK2K3IYFV7geUzTxwQkY
+XC0MYKxjaHYZFKteM3JkQHxIAgZXCQOEMML/4TLYfns9gRbiQxMwuFIYwEEC
+Z4vLAF5mzDyFmOvA9TNlhb1CYOfP174cFxY+nLVrA+I/xaDky/flwgAOOeNX
+tAygp8wUmIkPT8DgUmEAywueK5cBZpzjxwfERyZgcIkwgEvq738PM4Bf/+mn
+A+IGCRhcLAwQ+/uHP4QZ/EkV+gcfBMRxKPkY/EcY3HuvXoVwGWBl6NtvA+Kj
+EjC4SBjAG1utWpgBplcw+IX4LwkY/FsYYCSFy9llgGmDMios8V8TMLhQGMBj
+jqHMZbDbbnqCKMR/S8DgAmEAJycAXQZYKTKueib+ewIG5wuDqVN1kbgMsByo
+jRBNfEwCBucKA1QmKtVlgErXweOa+B8JGJwjDDBBQrN0GcCcw+RJiI/LwyBY
+7ThLYCsqtBnvwqK7LVsWwB6fIN+WARTBzjuHGfztb1pxCPEJCRj8Sxhgj1RJ
+SZgBZpVQfUJ8YgIG/xQGUMZYfXEZQGn37RsQn5yAwRnCAMMJ1p1dBhh2sFQu
+xKckYHC6MMAwWL9+mAGGSz0H1MSnJmBwmjB44gk1kdghzACr5GbXBRM3TMBA
+fsNeKti5LgO46GG6RHPjw0CKlY0pOCtdBkXG+IpWmA8DaRiweTmYwGVQt652
+HEabnA+Dk4QBbN799w8zwN9ID1VyQTaQ9JhMC7dIywF5on3RJ98nCAPMrqPm
+LRY/XfP2rAQMRBlyG0FbyWXenpOAgahzbuVo7bnM23MTMDhWGKCfRs1b9GfX
+vD0vAQMZ8VjTRA1daCTX0D0/AQMZs9lRGzV0sZrtGroXJGAgZg1re2j9qKGr
+d9CGDSYfBkcLgzhDF+Oaa+j+Tx4GwfgrBiWPs/nM24vywMbl+whDFfF3aXuh
+dm1ZA2WTQvtew2axD6+sK3Xd51B5g9Msr86dw0bvxQl45YzQU1N9Y/hq4ssS
+MMgZN9d+OlUufjYg3hgGsU4kJ+aIPy/dkhlUbtjA7rZsK7iJi0h8AezGvOAC
+VGzsomhiBocIFZqjVhv8srOo08ysvqIrNoYXlgkNH36VNqlcu6466sS0t9Dv
+kvCqL1SIEnJ5IaoQyxQU+K58cA8WKkxnXFw4WcwS+LUJcA8SKkQiubj77MOr
+4XiuS4B7oFCNHh3G3WMP68pvkgD3AKHC1FqPZ/rFSIAFSRIXfSGDwH7yHVzl
+sEgEDfYWYmbJOOkK2hpi0WCx1agRoNWpo8NU1NMsgcz7CtVTT+kZp+BC08Lw
+V0/c1qF8uPsIFaIiEBgguLDzzZJO3J6gfLh7CxWsJj0p0S+MzJkzmebGBLj1
+hOrtt7GKGeBimm/WH1skwN3LfMFTcawZuqaAOX7BEifJuAQj0SefZM4Qbrst
+TJxEAlnV4JjvQw8NM+jUKUzcMgGDPYUB7NGoIwqRxi5xqzwMgv63u8AisAzB
+yS5s48ZhY6V1gnxbBoggQjS5ywBxMO5A2SYBA1nE4slS1DuEsHZ3ElWagMGu
+wgA5RVxcdBroelluSsygRMfAupoaMRwmKKBtAtxdhEp7boK3QQMdpKeedglw
+dxYqrHu7uJiPmaMabkmAu5NQITbXxcXSpTk0pH0C3B2FCrNdFxeTDj3JoA4J
+cHcQKsSrau+2fhH3ao4C6ZgHN+iJst+InfHaGaBfTKNf4TMbqFMetLhcWtwF
+C8RJqF9MduF0Vk/nBLjbChXW2GvVCnDxf6SpJ8n+07pCBc+6npDrF3nXniLq
+mgB3G6F6+WUdduOOiShzMq2gIN/Q1oKGekZ9uyPhpElM0z1BLiXCh9vlnnuG
+lY321gTE3RIwkLAK7lDoWC6D/v3DxPkkCFqvDSJB/4/6Wbt0CcOW5YGNy7dl
+AMUFBeYyKC0NE9+agIGEzbDGPeaYMIMocY8EDCTEiMeLqBsUWyTckbBnAgYl
+wgAjHuK8o8t57kjYKwEDiVTinGLsdhlgbNdRwpq4dx4GQdspEljYGrA5XFjY
+JDroXcP2SZBviR1jO8kdAGBHaf8exW2fz4dbJFRo4C4uDEBz3FS/BLjVhQqW
+qYsLyxUWLJn98p641YQKJrWLC5N7lfYpDMiOqzVzodu8siTXzpY5cMEUwh1I
+McXAVEM9A7PnS5rlptwpVSgdaxFu2r9IFrFVwh3PMR9DsAZJrHhOoX6LHUA+
+tHHRhVZUTFn1EpV+MaVdupSJBicTtao3yvjQxolaKRnHwoZeTdcvvALwDqjn
+9iSiVt1mlELp4sTbYDKb4TLHuaN16litDN8K9jZI5/UUWWenineipIXWhbSs
+Iphx8b7fm2xn+PD7LKDyY88NLZzBXSXCD0kifIINKF77U+IE/M6kZV04gDtP
+Fg6GJZPKe+uJ184Ulop3pqw138auUWCv6p2jgxpKKIv35hOvvSlxNbTepBW0
+bpHjyJBcUnnvSvHatLIppRK7aFNtV/Hf0pJLWm6ZPeblXhrK0TJF2k24jyXp
+dpc4sb81aRxroIoo54IVW3PuRFsGrd96Z0uhdHGD5TqpLexJ0r5TfnkF7ZZp
+WVfQhmevcxkBf5MdMMl3y8hM05VAFDIbfKHl/DQHole+9rprUuiiGJm9KGQf
+xybeLVMoXVyTXyMiwwEYDa1E7Ih2smpRR2cXVWSqim0zub6Lm3t9LTJgnRlb
+ZXTugxBdV1uNiQHIMen8SrCxzwb7ptzyQbwxpkaCPc4PW/aTsjsvGhiEv5Eu
+2OP9sGXXLecvGhcNz42e22vsu/ywPxNslCsOr3DLG36sysoAe4If9qeCjXYX
+jaZE+9SOSY090Q/7E8F+/XXZVxKOltXzPI09yQ97tWBjT1Q0BguKVW/61NiT
+/bDt9B3OJR2GHpQ3oh3d8MkpftgfCjbi5LGnLBp5NWZMgD3ND3uVYMP/gQM0
+ooHnixcH2NP9sCsEG+507QoPsLGXWIcdaOx7/LA/EOy4fR3Y9+auls3ww35P
+sDFhj/ofMSvTS8Uae5Yf9ruCDcc7QkVcbOzmwEEkgn2vH/Y7gg2nAfb/udjw
+ZVdUBNiz/bDfFmwcYKMDKAJsrFa64f33+WG/KdioM+xjjEYGDxgQYM/1w35D
+sOE4O/roMDaWvFz3wjw/7JWCjcBEHaYQYMM3++67AfZ8P+zXBRuHAkVj7nGw
+jbtnJsfRFHHYKwQbOgmH47jY8IsqM0jpMY39oB/2q4KNIE6cQuJiw083f36k
+LvOtg70iiFhEjC5VHXhgOOr6Ib/cvizYd9+daVnhKAA3KvdhP+yXBBvLIXpF
+IFzKiNEUA/WRPNjs6n1REGHn4JS8qJ3jblB51C+3FhvBUPXqhbERIuZuYHjM
+D3upYE+fLmFNATa207p2zuN+2M8LNuwcnOfg2jkIe3btnCf8sJ8TbITz4eAO
+N99YfnZ3fZX7YS8RbGU/Z0QKYZ3kxRcD7Cf9sJ8VbNwQGLVzsDlUhxFq7Kf8
+sJ8RbNg5OATNtXNwmJq7+Pe0H7aQ8wEwOC3SzTdcwePGBdiL/bCfMAQZHmcc
+XFK/vhUBh8w864QdP+vH5nFDkOHb7fUAfLuWDcLbdaiJZrPEj410wEwPa7H2
+sMJF0LixrJTS837wojuyOj2Hjwiy/kIy7IKcdAnzvSmxuUx6zs/tbktYJjAY
+yo85J/dufU9sPbKk9WCP0/EK2aj/YkIe2FDtLPhWDh2Wyhp07cljofDAaX3u
+4u1552m8V/3wHhYCTEJgeLvRWnrHlS7qfBHBDwkQBMS5tW7Aj96yQitifpcx
+vC8QCaOR3z17aglf85NwgRDgKA53ZRguElMbnpAPCgFGbG2L6RdB2SZi4PUk
+kGkdQ+lGNz30kJZ6pR/eA4KH7YRuKbZtq/He8MO7XwgwILtxbZjA6km9L+R8
+IYANr8d+/WKTogmZfzMJZFoH+LhSz5ihpX7LD2+e4MEn7uI1aaLx3vbDmysE
+iNzXri79YppkjqfxhJwjBDgCW++r1i8szNe4YdM7SSDT+swPV+oxY7TU7/rh
+3Sd4iPtz8S6+WOO954c3WwjgPHBjCxFgZwKM8kGyqpklybDWdBCafhFV8QKr
+PXrfL2/3iqza2Ri8AwdqWT/ww7NZxCV5rr7H0eE6WtwXcqYQYG7qBlPC6DMB
+xRV+kDOEADnSYef6hUvK7NhYlQQynRmV1bWrLsgP/fDuEQKYte7WF+yj1bMj
+X8jpQoCJEY4Xd2OOdIQSfZQEMq19G67U8+drqT/2w5smeNFg7FatNN7qPHjc
+T6ZIMrz8bhgOTswwtjU3wnxODAsEl+JBBwVAmJ6Z0LNPYn6XQ8IpIiG8na6E
+ElnxqR/eZMHDrNbFu/pqjfeZH94kIYB4boA1xDehUJ6QE4UARY8qEEhUjV6I
+oc+TQKZlTSp4hw/XUuc4GjUO727Bg5/LxbvwQo2X44DSOLwJQoBu5W6xQrcz
+2ww9Ie8SAnR+vZlev1AO5uLnr/JAcu8YL7JGN2j06aNl/ToPSuSr8UIAxelu
++YNiNSrfE3KcEEC9Q80LJNS/PheFvvGDHCsEyBEGI9doNTe6rkkCmc7cm9m+
+vS7ItX54Y4QAQ7kbKAm3gzkf0xNytBDAzNDx/PqFGWI2t6xLApmWJZbgvfde
+LfW3efC4EY4SFDiHXJRmzTTK+jwoka9GCQFMSHcPJkzMDRuSQI4UAhi6etOe
+fmEIm62s3yWBTOu7DFypx4/XUn/vhzdC8LAU7eJddpnG2+CHN1wIMJ2pWzfA
+w3RHL13kgsxy0wfvCONaHybUmIFhJib4mKFp1yn9kB1/Yy692DEG9g4pvltu
+CRff4MG6+H7Mn5ekEdhx+Rkm+cHKq2s8n3OO0ykKvQmikCDmuFwMFTHhGdAH
+U+kXngOzb+GnJAWTP+g4LjtDBBy+Dx0mol/4Rp5kHzslOoE7S4BxRjDwDlkz
+ldYXU7gtp6xM11RlkhzFRf2G43Y5L9yVBgskfFWumwi+LOMmSpiJzCDdcJht
+XIHY7MAHp+O79AsfnTmn4Jdk2cmMsw1HymbPTlq2/JId6R98UNfPr8nykhkd
+G45vjcvLIMlLdF9NaWmK7BOfl405gj0cixqXs4HCCkdIugciwOFsnGQFZC5J
+CGpG0KiUplxvP2vWrNhDngdIDjAcmRNs+cUqtV6510+1fBmvunDSEpO2dOlS
+Tps5c6bOO8ei95X6x+VGbv1Pn+7Uv/CKye5GH3weDs+U1pGR2wj3/pJvrLK7
++W7c2Ml3UcwvTb69TzQvdmMqMW4VU7t27VQWRAU2b94cKawK406K7yfsse+2
+Tp0gywiRMv7KfLn2PaVcoEpLSxmudevWquH45buvZAChNDq8SL9Yrja7wfgp
+jvmxyXc98xWKUBqrNKp8VW2bKE7jd6t61CinqtP5mNdk/SRNdIXJuMM8jrdc
+VxFa4r1vjl1zvegiS1pQOejTTWpw/Smbgtq2bcsDfb4y0Htqa2WuAd8yLVic
+RejomjVORkqyZ0SOb3lJaVd8PXLkyHxl0cOkxW7BOeqM8Hmy+fjvayoVDdZo
+qpwFINuiY5ePy+aGl0oLZf6TGkbKysqszsrHvKA1YH5ytEZ90E+xsjs+5q6X
+o8SrlK8clL5o0aKcY5gtaaWS8h4Plq+kDzBf/WpcLfgrLpRbttWzE69hw9w7
+MPIxjZs8dhcCjMz6MHN+8x0Zxo/nJavdRBjEMocOHdRH/VeuX5+5nYAf1hz5
+/L5yggRPd6LH6cB55Iap8pPjYo84BnL0Bcf0RE8Xxs2rbtwxP9v4MZAzO3gS
+Fz1xATc0uQE//NT1YyCHjfAVttFIKESDZrThHDeDxDGQs1GUcZsZwo/wR/fs
+IX6282Mgh7qwpzt6wmTLlpYuYLC9HwM5jYaD4qOHd7drF8MgzkjPwUCO0WEn
+evQIaXh3MxjETbBzMJDzfzh8H2G3LgPcmZnBYCc/BnJwETuwtcMpYDBoUAwD
+z9tQbhYCnDnjWoSYDI4YEeB63nZykxDAdez6G+EA1wFv+tndD7dUCGAIu0tX
+mOJPnhzg7uGH20YIEFzoxkPAz2zOfONnTz/c1kKAIFF3mRLTSX08t348L3Zp
+JQSYfLjuDVjE5pwffv7oh9tSCHDuobtYAaeuPo5YP3v54bYQAlwC5bruMC01
+4UT81PPDvVEIoqde4QREbQ3qZ+88uOw0ukGSceWOi4ZtB/pAe/3s45dLi6sP
++A9erNc4uwh976xpJgSRCDU+pVIHkOtnPz9cOYGSxxAdNRKoHSzRuedGJ2HQ
+RBhgFIwerY11GHdPBz+el+zYm4KwGhg91hnh9e7FEPwc4MdADitlQwFzsOgu
+Cfd6An72wke+sLvGAou14GiwMG5615duObAH+eX7GmGARR9cReMywE4Svfrq
+MPC8GaiRMIAdHd22iK0T7uYDfur7MbhaGCCeOnroIry77mnU/HhePXSVMEBR
+6FWYgAFuWnU3BfHjefWQvXUIlRk9jQsBgxnm82F+DOz9Q9j6d9hhYQa4ZDDD
+fPa8hMjePwTXtQ78CJ/G5e5P4MfzEiI5k5kVwX77hRkgNCTDfD7Cj4G94Ag+
+UR3sEzDAQcsZ5rPnLUf2giP42qCPXQZt2li6gIHnLUf2giP4kaL7tDp0iGEQ
+h5KDgb3gCO7v6Ma7Hj1iGHjecmQvOMIeqOhOSn05SoSB5y1Hcpw+PfOMnBAc
+MNAXc0QYHB2DkmEmXCjJiOiIGs2jRgVonjcOWVwcwOweCglDLPC7e180dIEQ
+IHrHXceAQTptWoB7rB/u2YYgY/cJAkPTaVvS6bScEZlKzOssQ5Dhfuw5H66/
+0Iaa+++P8PK8N0luI8l60g/qZuFCh4HnBUdnmrRYV+It06jSvfhjYxgU7rbL
+d/PT5mJQ+dnn1LxT9kveExeRvZ0J+lmZnPn9fXxBWT7X2BnCF0vv2iXAL3v5
+Os/K7eU70U8Eez0TLifT/Trw8qkhplLZpvFevpP9GJ0mBNhC687eMPMcNizA
+PT0PLqvPUyTbMJ11mGd4w6e7mbYg2MhXlgFMzehZoXA0ubsQ+fG8mEmKj62T
+6Hnl+HtVtGY9L2aydzLBsRR1jWFvaYYRfaYfA2lp7IOIHtLRuHGM/9PziqYT
+hADNw3UkoPkErjHvi5PspUzo/9H9x+gDejxLJWZgL2XC/CV6IjpCVfU5hQ4D
+z5uZ7KVMmCHqrWsBA5i6+tJ5h4HnzUz2UibE+kU3PWNbhHupGj+eNzPZS5lw
+MXn0ai/MhXVAocPA82YmuQqSjZ7orW3t28cY5xfmYcCK52hJjp44Czto9OgA
+zfO+JLFKedJ++eXh7CJG3L2iLQkDe9kTooei9+Ai7Mw9rocfz1uYJI1nQ9H5
+HNwO7pkm/HhevSRzG75HRO9LDB/25B78wM8lfgxkdsanBWjbOWCAk2oyZqSe
+FxfJfVjsaXTHQCi3gQMDXM9rd2TmzRnUN/yEt+NnWM75GHBbtzcgoWCjpxlh
+LURf6BKt0XzmjYVFg4ge9IKGozf6ObBX+RWH+Gq4SUfPxUDTd68N5OdqPwbi
+beJOGT1GAJ3XPYabn0Z+DMRfxmecRM+U6d7d0gUMrolBycFA7gJnLWgOhwjN
+tfRU0WHgebPSAcIAejzq24S+z5ieeF6xJM5cHomip8VjxHr99QiDJnkYcJsX
+7zmPoFGnEUbaDJ9svquWIl9ZBrABoteVwlZwz1rnp6kfA1lXyLToi/T5Zhmz
+Hs8LmezdRvDf5LLkPe8J2ksyDrsR9mPUpnevok3CwN5BBMu3YcMwg1ibPt9F
+RNxk7MVA2Sz5jIWIHNcP5Yrvj/zC8kW2CzLwc9xKVNVx/7J2WvjkIMfdRpti
+I4BeRa+R6XjCg1ZcVBQ+lKhPn0iGc1xltCn2DMglOhneq/4Lqbxt3yLJK7o8
+un4orzclyWuyzQQSYJHzBJZgEqSfHLcrVdHuAu6qEr6S9fiW/Q+A5ncKLsf1
+TBu9ySACK6Evsf6wlRWWbiNLLdnmg5yZi3XWJcxckq0IkrnYao119CWs1iR7
+E7L3h2xOwhyZq7rNCiISIsfRWr/44otUXIRddrXziJv9nBd4bcwuhswTsvHg
+XzVEIU1GJASHP2UcKxycyTsDtjfYsWoeD0cvuVOWqt65UN2IgYB2pLVu3Zom
+T56MaFnBx6ib9VoWfoZlL9wq3LqwevVqI2oNJpFHmj2yi6sg4uLrC8qr93aF
+ktB2Bdy60Lt3bxo7dqy0GXQAhJ8b3ZU4Z75bEqS6hg8fznCgT8xcm+w6tN99
+ENkto8by5csT4+uAqNo8XEJdtWjRgoXCs1ZZiWiK+BkCudesWZOYz96mwGSf
+Bl5Ujmp6tgst1MeKGok3ilENuv3226WfsdEHwaBcli5dGhsV7gFeRLNnz+av
+lyxZkoqL3PUCk10JU6dOjQWLu2Q27kasuFun4uhyXPwnWcJlLdLbiqEajFkv
+5HG18xtmU+axfZThDUNeveov/TnSuYhvM2czbqK5mdnvEpMWF3u7JaXFxdpu
+SfnbXHLEabHfq36LTPu96jd7kf23yPF71f+fSfutq570N+pjJD7MpDVV7X8B
+pd578w==\
+\>", "ImageResolution" -> \
+144.],ExpressionUUID->"97b112e4-ab45-4d66-a9b3-928d93705112"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {{}, {},
+ {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
+ 1.6], LineBox[{{2., 1.9041159533146328`}, {4., 0.9383393240449559}, {
+ 6., -0.1430460976632426}, {8., -1.6607874715912152`}, {
+ 10., -2.561042742287231}, {12., -3.735705851355251}, {
+ 14., -4.660924146073459}, {16., -5.008596547206042}, {
+ 18., -5.052132120088936}, {20., -5.058103231092176}, {
+ 22., -5.058277164758778}, {
+ 24., -5.058369262713015}}]}}, {{}, {}}}, {{},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 1.9041159533146328`}, {4., 0.9383393240449559}, {
+ 6., -0.1430460976632426}, {8., -1.6607874715912152`}, {
+ 10., -2.561042742287231}, {12., -3.735705851355251}, {
+ 14., -4.660924146073459}, {16., -5.008596547206042}, {
+ 18., -5.052132120088936}, {20., -5.058103231092176}, {
+ 22., -5.058277164758778}, {24., -5.058369262713015}}]}, {{}, {}}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{1.5416666666666667`, -5.603223243178739},
+ DisplayFunction->Identity,
+ Frame->{{True, True}, {True, True}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->FrontEndValueCache[{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {
+ Automatic, Automatic}}, {{{{-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01,
+ 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.10\"", ShowStringCharacters -> False], 0.1,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {-6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.809142990314028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.521460917862246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.506557897319982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.2188758248682006`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.2039728043259361`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.916290731874155,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5108256237659907,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.35667494393873245`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.2231435513142097,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.10536051565782628`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.0986122886681098`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.3862943611198906`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.791759469228055,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.9459101490553132`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.0794415416798357`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.1972245773362196`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.4011973816621555`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.6888794541139363`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.0943445622221,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.248495242049359,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.382026634673881,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.499809670330265,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}, {{-4.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01,
+ 0.}}, {-2.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {2.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01,
+ 0.}}, {-6.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.5,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}, {
+ Automatic, Automatic}}],
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{1.5416666666666667`, 24.}, {-5.603223243178739,
+ 1.9041159533146328`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}]], "Output",
+ CellChangeTimes->{3.861123181547842*^9, 3.861173551653295*^9},
+ CellLabel->
+ "Out[284]=",ExpressionUUID->"d62a01ba-286a-47ed-b239-185edba12dd4"]
+}, Open ]],
+
+Cell[BoxData[" "], "Input",
+ CellChangeTimes->{
+ 3.861173940573041*^9},ExpressionUUID->"69447a35-9817-4522-9f86-\
+97bb0194d98b"],
+
+Cell[TextData[StyleBox["Plot d\[CloseCurlyQuote]une coupe de potentiel du \
+domaine BEM", "Title"]], "Text",
+ CellChangeTimes->{{3.861258541228631*^9, 3.86125858675126*^9}, {
+ 3.8612589640592527`*^9,
+ 3.861258967152192*^9}},ExpressionUUID->"d4c6205f-288d-4ba9-9e4e-\
+bc0171921df9"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"data", "=",
+ RowBox[{"Import", "[",
+ RowBox[{
+ "\"\</Users/Kevin/Downloads/phi.msh_Levelset.txt\>\"", ",",
+ "\"\<Table\>\""}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"data", "=",
+ RowBox[{"Import", "[",
+ RowBox[{
+ "\"\</Users/Kevin/Downloads/double_hole.txt\>\"", ",",
+ "\"\<Table\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"data", "=",
+ RowBox[{"Import", "[",
+ RowBox[{
+ "\"\</Users/Kevin/Desktop/phi.msh_Levelset.txt\>\"", ",",
+ "\"\<Table\>\""}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data1", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data2", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data3", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data4", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "4"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data5", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "5"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data6", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "6"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data7", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "7"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data8", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "8"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data9", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "9"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data9", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "9"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data10", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "10"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data11", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "11"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data12", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "12"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data13", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "13"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data14", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "14"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data15", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "15"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"data16", "=",
+ RowBox[{"data", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "16"}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"length", "=",
+ RowBox[{"Length", "[", "data16", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"potential1", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"data6", "[",
+ RowBox[{"[", "i", "]"}], "]"}], ",",
+ RowBox[{"data8", "[",
+ RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "length"}], "}"}]}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"potential2", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"data14", "[",
+ RowBox[{"[", "i", "]"}], "]"}], ",",
+ RowBox[{"data16", "[",
+ RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "length"}], "}"}]}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"potential", "=",
+ RowBox[{"Join", "[",
+ RowBox[{"potential1", ",", "potential2"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g1", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{"potential", ",",
+ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"rescale", "=",
+ RowBox[{
+ RowBox[{"RescalingTransform", "[",
+ RowBox[{"CoordinateBounds", "[", "potential", "]"}], "]"}], "@",
+ "potential"}]}], ";"}], "\n",
+ RowBox[{"new", "=",
+ RowBox[{"FindCurvePath", "@", "rescale"}]}], "\n",
+ RowBox[{
+ RowBox[{"g2", "=",
+ RowBox[{"ListLinePlot", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"potential", "[",
+ RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", "new"}], ",",
+ RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{"Show", "[",
+ RowBox[{"g2", ",", "g1", ",",
+ RowBox[{"Frame", "->", "True"}]}], "]"}],
+ "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{{3.8611851956862497`*^9, 3.861185302243578*^9}, {
+ 3.861185349637801*^9, 3.861185369291651*^9}, {3.861185419887733*^9,
+ 3.86118546737477*^9}, 3.861187912937941*^9, {3.861187984360655*^9,
+ 3.8611879922982883`*^9}, {3.8611880322634363`*^9, 3.861188048614867*^9}, {
+ 3.861188096279683*^9, 3.861188138790277*^9}, {3.8611881750587587`*^9,
+ 3.86118834581749*^9}, {3.861188399757311*^9, 3.861188473593074*^9}, {
+ 3.861188511707906*^9, 3.861188550238516*^9}, {3.861188647426079*^9,
+ 3.861188954510017*^9}, {3.861189078808382*^9, 3.86118911851886*^9}, {
+ 3.861189410491591*^9, 3.861189413179975*^9}, {3.861189633611978*^9,
+ 3.861189660756143*^9}, {3.861189697543219*^9, 3.8611896984885674`*^9}, {
+ 3.8611897900042667`*^9, 3.861189803558625*^9}, {3.861189840651662*^9,
+ 3.861189867869316*^9}, {3.861190246562645*^9, 3.861190301065031*^9},
+ 3.861190342461088*^9, {3.861190428180133*^9, 3.861190553086246*^9}, {
+ 3.861190900168805*^9, 3.861190941666606*^9}, {3.8611954752493477`*^9,
+ 3.8611954755274143`*^9}, {3.861195713486902*^9, 3.861195716839321*^9}, {
+ 3.861195857565535*^9, 3.861195861741111*^9}},
+ CellLabel->
+ "In[1326]:=",ExpressionUUID->"b039c25c-3c81-424e-b355-8af2a1fea5a1"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ "2", ",", "1", ",", "52", ",", "49", ",", "7", ",", "3", ",", "30", ",",
+ "35", ",", "103", ",", "43", ",", "41", ",", "38", ",", "20", ",", "32",
+ ",", "22", ",", "26", ",", "24", ",", "28", ",", "46", ",", "54", ",",
+ "114", ",", "59", ",", "57", ",", "11"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ "8", ",", "4", ",", "31", ",", "34", ",", "102", ",", "42", ",", "40",
+ ",", "39", ",", "21", ",", "33", ",", "23", ",", "27", ",", "25", ",",
+ "29", ",", "47", ",", "55", ",", "115", ",", "60", ",", "58", ",",
+ "12"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ "10", ",", "9", ",", "19", ",", "51", ",", "66", ",", "5", ",", "65", ",",
+ "13", ",", "53", ",", "48", ",", "8"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"18", ",", "17", ",", "62", ",", "2"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"18", ",", "10"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.861185259766171*^9, 3.861185302922409*^9},
+ 3.861185352523041*^9, {3.861185428923902*^9, 3.8611854677912807`*^9},
+ 3.861188049002152*^9, {3.861188118104989*^9, 3.861188139327779*^9}, {
+ 3.861188180943853*^9, 3.86118834213377*^9}, {3.861188425687414*^9,
+ 3.861188436288494*^9}, {3.861188503504902*^9, 3.861188512232707*^9},
+ 3.861188550741851*^9, 3.8611887322200603`*^9, {3.86118878471275*^9,
+ 3.861188861712639*^9}, {3.86118891927712*^9, 3.8611889553269978`*^9}, {
+ 3.861189097359291*^9, 3.861189119265131*^9}, 3.861189221033667*^9,
+ 3.8611894137688503`*^9, 3.8611896614846*^9, 3.861189805499155*^9,
+ 3.8611898706038837`*^9, 3.8611902659300528`*^9, {3.861190343287168*^9,
+ 3.8611903641335173`*^9}, {3.861190431354424*^9, 3.86119055360843*^9},
+ 3.8611909427969017`*^9, 3.861195486997033*^9, 3.861195717614942*^9,
+ 3.8611958634851627`*^9},
+ CellLabel->
+ "Out[1350]=",ExpressionUUID->"75c96493-d7f7-4956-b2cf-f98cdd66fda1"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {{}, {},
+ {RGBColor[1, 0, 0], PointSize[
+ NCache[
+ Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
+ LineBox[CompressedData["
+1:eJxTTMoPSmViYGCQAGIQHbRwAq9KyM79FR8t/l8TzXa4eMPQ2Nj48H5HHaCk
+Q5YDAxhc2A+mgPy7XC4rdZou7S/vyUm/ppjpwHFD7snR3Zf3Zzw8PitkWobD
+O5leTs7VV/crf9C+1Lkr3SG1Ss3w7qNr+2++X3Kx1CDdQftxTco19pv7NZyX
+xC2xS3NIOhEgFPb+5v7fLlGtr2+kOjw7Km5ekXFn/7q2vDsbjqQ4KOb4Vmd8
+uLM/pvSV3ITOFAfxyt2WEw/f3z/z8zbZ4sBkh/+f7LZwf7m/X6i64OFMm2SH
+xMQUPuYrD/bveL4xrbEpyWHRcuGtLLUP9/9WPXGQ/1OiQ19ek/Ll/of777Hw
+L5V5lOjwcNdTO1bGx/vnv7CfeWdlgsNp9o7cu9aP9xvc5rTJqUhwuCh4eiVz
+8ZP90TH3Hpo8j3PwuK5Xzr36yf4G5/0WGzrjHAxfayheWf10/zHVazlr7sY4
+NFu8WG349On+k4GSDCl1MQ4TetOP8u1+tv9HrQf7daloaHi+gIQnQ6QDANwo
+uO8=
+ "]]},
+ {RGBColor[1, 0, 0], PointSize[
+ NCache[
+ Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
+ LineBox[CompressedData["
+1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAACNge5MW70z8sn/DnPPpsQOocjQkJ
+q9U/24+hfurNa0BjeiYx3eLWP+W6MitGEWtAJ+N8ZNYH2T/2VyIxA8dpQF/I
+UBJW79k/dnIDqxs8aUDkxRc3eGjcP7E+IToUw2dAHWxNe2jw3D8CRyHpY3Jn
+QBd5uzmRw98/sxj4bqzIZUD/8j60C/TfP3aekTU+rGVAX2FkDgPU4D8h6unT
+lq5kQKCnE7UEfeE/mClhl7HpY0CMboIj04/hP6U174H202NA4brlPgUB4z8q
+dudKmypiQMsHiG3dO+M/M5xqoknnYUDSEcupA3PkP2I0jsUwhGBASdcudwur
+5D85Ti8cjERgQDHrKCHUq+U/Z/pCzpNCXkCDOOirMeXlP93X7KLtwF1AkI1n
+xQ675j/YyLCDHN1bQAAAAAAAAOg/AAAAAAAAWUCndJX9
+ "]]},
+ {RGBColor[1, 0, 0], PointSize[
+ NCache[
+ Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
+ LineBox[{{-0.005541704640846631, 229.0153249535908}, {
+ 0.02881512838732802, 233.6160342365152}, {0.03597247053500965,
+ 234.5721069260967}, {0.04189221989451287, 235.3707250988907}, {
+ 0.07256871407405026, 239.4982910187085}, {0.09613814558468319,
+ 242.6884857924242}, {0.1149695112192741, 245.2413719521836}, {0.15,
+ 250.}, {0.25, 250.}, {0.2891952183710324, 237.7777554985219}, {
+ 0.3083357551325894, 231.8199348163265}}]},
+ {RGBColor[1, 0, 0], PointSize[
+ NCache[
+ Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
+ LineBox[{{-0.0465353753516164,
+ 223.5857702997704}, {-0.04885286659846285,
+ 223.2779014698886}, {-0.05092566205446281,
+ 223.0053827702079}, {-0.09894013720680064, 216.6824947464154}}]},
+ {RGBColor[1, 0, 0], PointSize[
+ NCache[
+ Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
+ LineBox[{{-0.0465353753516164,
+ 223.5857702997704}, {-0.005541704640846631,
+ 229.0153249535908}}]}}, {{}, {}}}, {{},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
+ AbsoluteThickness[1.6], PointBox[CompressedData["
+1:eJyllGtMk1cYxwtlQSSTiHdEl07xRiN09YLa9DxT4mWJRpiXuCLQGwV6wWBE
+nOAEd5EFFDQ6URxCSkgtIaCz4RI9GmRiiE6oKxBapNLSAnNgZ4yBLKxyePnw
+9sP5sJO8OfnlPTk5z5P/7+HJMuKV/hwOJ9v7fdw7ugVCobAFf8n3AqRDfEXx
+pysPNOLstzGTlgVq+Du8KCjI+CdeMRbZWdCkgmHCqPdixZnhZ2qQrI/KyC9r
+QJ/tksybdUjnw7O6lztam8041f7k+oGrqQwjfvmYSzSugb7BTedNeTfRJamu
+yCTUgmh8JXfwThb+6Y9HP+fe0gBnarkx2Y8wjBgWTq0WwpDBMDnvrUd1cNK7
+XNgd5jd1fprR0FnC21JM0WKuAXdeKS9xuNXQGJyzMMdcjTUhkooHHjUII/w7
+JtIr0Qt+1N198VqY9Ih/C373CoeePmYvFckZRlm/lmwU1yihsnrevYBcO56I
+aHsU4pHCLcLo2lrpL/VDcrA3OcWf+A3gcjcqtRqSGUbrslxf3Vgngwu6/BXm
+i3bcFxBSFf5aCoWEUdXG0bz3Zjm0B57X2rYN4OjeIJEmO5lhJCxLr9zjkoLy
+21UC22sL7hnVd5yIVoGcMHI2fRG5c64apFLFHO7Lftzgqk/Jy5dBEmHEGx4y
+X61VwOqBHIUlsAe9P/y5gPskDSIJ4zU79Il6cQq1vkWnmreUtLzCpf+Ylh2P
+m2F0d/EHXU2bEpZp9p5OHbMi/128IXmmCniEccKJ4eXFBQpwtC7anJ1qRfVi
+3tb5LSoYJIxrf9RZ6x7T39cxt93APe7AkoQ++wZXInQSRrINF1qjv0+G3tmx
+Bn5+J/I8+y5poEELNsL4ZKFGZeGlwfz+KR9QgNkbE5QB0ubnemdmFTr81j5u
+VWun8/diJl/TPJO/3V3rTwYbHfjsDhxTV5AIewijLfuiwgtjk33yVFykap3T
+PIg/5O4O7AqTMIy62+rOhdskcC7GbRQ4nfhp3BKO4kwCw8jW9Vflm4dHfXyN
+iwi7/Sb0Nl79MGcxv19N9a92f2O8XncflS2piWus1kFRpOFf6+U7qL3aj+MZ
+9e0Pu39sX9n+0Pxj95s9j2j9YdfL9pk9X2j5/L/+0fym5ZM2b2nzh+07ex7Q
+/Gf7yPaV5mdS2/7QQ6M9KCuTa1wqSgMZYTwR+80PI91K6n+aP1+fIr4tNJG8
+TDMeefqR06l5Zp9n3ycYWcN7aXTi3yMsmhpbAsNINb79+eXtiT7zgOYn7b7/
+AMLFk6k=
+ "]]}, {{}, {}}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0, 0},
+ DisplayFunction->Identity,
+ Frame->True,
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& )}},
+ PlotRange->{{-0.75, 0.75}, {0, 250.}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.861185259766171*^9, 3.861185302922409*^9},
+ 3.861185352523041*^9, {3.861185428923902*^9, 3.8611854677912807`*^9},
+ 3.861188049002152*^9, {3.861188118104989*^9, 3.861188139327779*^9}, {
+ 3.861188180943853*^9, 3.86118834213377*^9}, {3.861188425687414*^9,
+ 3.861188436288494*^9}, {3.861188503504902*^9, 3.861188512232707*^9},
+ 3.861188550741851*^9, 3.8611887322200603`*^9, {3.86118878471275*^9,
+ 3.861188861712639*^9}, {3.86118891927712*^9, 3.8611889553269978`*^9}, {
+ 3.861189097359291*^9, 3.861189119265131*^9}, 3.861189221033667*^9,
+ 3.8611894137688503`*^9, 3.8611896614846*^9, 3.861189805499155*^9,
+ 3.8611898706038837`*^9, 3.8611902659300528`*^9, {3.861190343287168*^9,
+ 3.8611903641335173`*^9}, {3.861190431354424*^9, 3.86119055360843*^9},
+ 3.8611909427969017`*^9, 3.861195486997033*^9, 3.861195717614942*^9,
+ 3.8611958635176287`*^9},
+ CellLabel->
+ "Out[1352]=",ExpressionUUID->"1674e868-ef4e-477c-b5e8-342b479f4694"]
+}, Open ]],
+
+Cell[TextData[StyleBox["Calcul des matrices G, gradG, gradH de \
+mani\[EGrave]re analytique", "Title"]], "Text",
+ CellChangeTimes->{{3.861258663748384*^9,
+ 3.8612586958361387`*^9}},ExpressionUUID->"c6929cf8-3e79-4e5a-a751-\
+f0adefbedc6a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*",
+ RowBox[{
+ "calcul", " ", "de", " ", "G", " ", "par", " ", "changement", " ", "de",
+ " ", "coordonn\[EAcute]es", " ", "\[Xi]"}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{
+ RowBox[{"j", "'"}], "ai", " ", "du", " ", "proc\[EAcute]der", " ", "par",
+ " ", "\[EAcute]tapes", " ", "car", " ", "m\[EHat]me", " ", "en", " ",
+ "mettant", " ", "des", " ", "assumptions"}], ",", " ",
+ RowBox[{
+ "mathematica", " ", "refuse", " ", "de", " ", "me", " ", "calculer", " ",
+
+ RowBox[{"l", "'"}], "int\[EAcute]grale", " ", "entre", " ", "2", " ",
+ RowBox[{"bornes", ".", " ", "Je"}], " ", "passe", " ", "donc", " ",
+ "par", " ", "le", " ", "calcul", " ", "de", " ", "la", " ", "primitive",
+ " ", "que", " ",
+ RowBox[{"j", "'"}], "\[EAcute]value", " ", "ensuite", " ", "aux", " ",
+ "bornes", " ",
+ RowBox[{"d", "'"}], "int\[EAcute]grations"}]}], "*)"}], "\n",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"x", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "+", "xj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "-", "xj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"y", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "+", "yj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "-", "yj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-",
+ RowBox[{"x", "[", "\[Xi]", "]"}]}], ")"}], "^", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-",
+ RowBox[{"y", "[", "\[Xi]", "]"}]}], ")"}], "^", "2"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"matG", "=",
+ RowBox[{"Integrate", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"lj", "/",
+ RowBox[{"(",
+ RowBox[{"4", "*", "Pi"}], ")"}]}], "*",
+ RowBox[{"Log", "[",
+ RowBox[{"r", "[", "\[Xi]", "]"}], "]"}]}], ",", "\[Xi]"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bornesup", "=",
+ RowBox[{"matG", "/.",
+ RowBox[{"\[Xi]", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"borneinf", "=",
+ RowBox[{"matG", "/.",
+ RowBox[{"\[Xi]", "\[Rule]",
+ RowBox[{"-", "1"}]}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"matG", "=",
+ RowBox[{"FullSimplify", "[",
+ RowBox[{"bornesup", "-", "borneinf"}], "]"}]}], "\[IndentingNewLine]",
+ RowBox[{"formec", "=",
+ RowBox[{"CForm", "[", "%", "]"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.861257483289976*^9, 3.861257488134403*^9}, {
+ 3.861257895179406*^9, 3.861257996199999*^9}, {3.8612580708324127`*^9,
+ 3.861258085264085*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"aba879f4-4fa1-4a20-84ae-7797ad362ead"],
+
+Cell[BoxData[
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"4", " ", "\[Pi]", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}], "2"]}], ")"}]}]],
+ RowBox[{"lj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}], "2"]}], ")"}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "xj"}], " ", "yi"}], "+",
+ RowBox[{"xjp1", " ", "yi"}], "+",
+ RowBox[{"xi", " ", "yj"}], "-",
+ RowBox[{"xjp1", " ", "yj"}], "-",
+ RowBox[{"xi", " ", "yjp1"}], "+",
+ RowBox[{"xj", " ", "yjp1"}]}], ")"}], " ",
+ RowBox[{"ArcTan", "[",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}]}]}],
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "xj"}], " ", "yi"}], "+",
+ RowBox[{"xjp1", " ", "yi"}], "+",
+ RowBox[{"xi", " ", "yj"}], "-",
+ RowBox[{"xjp1", " ", "yj"}], "-",
+ RowBox[{"xi", " ", "yjp1"}], "+",
+ RowBox[{"xj", " ", "yjp1"}]}]], "]"}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "xjp1"}], " ", "yi"}], "-",
+ RowBox[{"xi", " ", "yj"}], "+",
+ RowBox[{"xjp1", " ", "yj"}], "+",
+ RowBox[{"xj", " ",
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}]}], "+",
+ RowBox[{"xi", " ", "yjp1"}]}], ")"}], " ",
+ RowBox[{"ArcTan", "[",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xj"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}]}]}],
+ RowBox[{
+ RowBox[{"xjp1", " ", "yi"}], "+",
+ RowBox[{"xi", " ", "yj"}], "-",
+ RowBox[{"xjp1", " ", "yj"}], "-",
+ RowBox[{"xi", " ", "yjp1"}], "+",
+ RowBox[{"xj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "yi"}], "+", "yjp1"}], ")"}]}]}]], "]"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xj"}], ")"}]}], " ",
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}]}]}], ")"}], " ",
+ RowBox[{"Log", "[",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xj"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], "2"]}], "]"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}]}]}], ")"}], " ",
+ RowBox[{"Log", "[",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xjp1"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}], "2"]}], "]"}]}]}],
+ ")"}]}]}]], "Output",
+ CellChangeTimes->{
+ 3.8612578087441063`*^9, {3.861258073184415*^9, 3.86125808640173*^9},
+ 3.8612581448196383`*^9},
+ CellLabel->"Out[7]=",ExpressionUUID->"1a498cc3-ec98-4fb7-9364-dcc415205357"],
+
+Cell["\<\
+(lj*(-2*(Power(xj - xjp1,2) + Power(yj - yjp1,2)) + 2*(-(xj*yi) + xjp1*yi + \
+xi*yj - xjp1*yj - xi*yjp1 + xj*yjp1)*
+ ArcTan(((xi - xjp1)*(xj - xjp1) + (yi - yjp1)*(yj - yjp1))/(-(xj*yi) \
++ xjp1*yi + xi*yj - xjp1*yj - xi*yjp1 + xj*yjp1)) +
+ 2*(-(xjp1*yi) - xi*yj + xjp1*yj + xj*(yi - yjp1) + \
+xi*yjp1)*ArcTan(((xi - xj)*(xj - xjp1) + (yi - yj)*(yj - yjp1))/
+ (xjp1*yi + xi*yj - xjp1*yj - xi*yjp1 + xj*(-yi + yjp1))) + (-((xi - \
+xj)*(xj - xjp1)) - (yi - yj)*(yj - yjp1))*Log(Power(xi - xj,2) + Power(yi - \
+yj,2)) +
+ ((xi - xjp1)*(xj - xjp1) + (yi - yjp1)*(yj - yjp1))*Log(Power(xi - \
+xjp1,2) + Power(yi - yjp1,2))))/(4.*Pi*(Power(xj - xjp1,2) + Power(yj - \
+yjp1,2)))\
+\>", "Output",
+ CellChangeTimes->{
+ 3.8612578087441063`*^9, {3.861258073184415*^9, 3.86125808640173*^9},
+ 3.861258144830161*^9},
+ CellLabel->
+ "Out[8]//CForm=",ExpressionUUID->"b3ea9741-9cac-4165-ac03-4789f7b7458a"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*",
+ RowBox[{"calcul", " ", "de", " ", "gradGx", " ", "par", " ", "\[Xi]"}],
+ "*)"}], "\n",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"x", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "+", "xj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "-", "xj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\n",
+ RowBox[{
+ RowBox[{
+ RowBox[{"y", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "+", "yj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "-", "yj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\n",
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"x", "[", "\[Xi]", "]"}], "-", "xi"}], ")"}], "^", "2"}],
+ "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"y", "[", "\[Xi]", "]"}], "-", "yi"}], ")"}], "^", "2"}]}],
+ "]"}]}], "\n",
+ RowBox[{
+ RowBox[{"g1", "=",
+ RowBox[{"Integrate", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"lj", "/", "2"}], "*",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-",
+ RowBox[{"x", "[", "\[Xi]", "]"}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", "*", "Pi", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "2"}], ")"}]}], ")"}]}]}],
+ ",", "\[Xi]"}], "]"}]}], ";"}], "\n",
+ RowBox[{
+ RowBox[{"g2", "=",
+ RowBox[{"g1", "/.",
+ RowBox[{"{",
+ RowBox[{"\[Xi]", "\[Rule]", "1"}], "}"}]}]}], ";"}], "\n",
+ RowBox[{
+ RowBox[{"g3", "=",
+ RowBox[{"Integrate", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"lj", "/", "2"}], "*",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-",
+ RowBox[{"x", "[", "\[Xi]", "]"}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", "*", "Pi", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "2"}], ")"}]}], ")"}]}]}],
+ ",", "\[Xi]"}], "]"}]}], ";"}], "\n",
+ RowBox[{
+ RowBox[{"g4", "=",
+ RowBox[{"g3", "/.",
+ RowBox[{"{",
+ RowBox[{"\[Xi]", "\[Rule]",
+ RowBox[{"-", "1"}]}], "}"}]}]}], ";"}], "\n",
+ RowBox[{"FullSimplify", "[",
+ RowBox[{"g2", "-", "g4"}], "]"}], "\n",
+ RowBox[{"CForm", "[", "%", "]"}]}]}]], "Input",
+ CellLabel->
+ "In[1359]:=",ExpressionUUID->"70e041ab-7a76-4842-a412-090b3714cc63"],
+
+Cell[BoxData[
+ FractionBox[
+ RowBox[{"lj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], " ",
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"ArcTan", "[",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xj"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}]}]}],
+ RowBox[{
+ RowBox[{"xjp1", " ", "yi"}], "+",
+ RowBox[{"xi", " ", "yj"}], "-",
+ RowBox[{"xjp1", " ", "yj"}], "-",
+ RowBox[{"xi", " ", "yjp1"}], "+",
+ RowBox[{"xj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "yi"}], "+", "yjp1"}], ")"}]}]}]], "]"}], "+",
+ RowBox[{"ArcTan", "[",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xj"}], "+", "xjp1"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "yj"}], "+", "yjp1"}], ")"}]}]}],
+ RowBox[{
+ RowBox[{"xjp1", " ", "yi"}], "+",
+ RowBox[{"xi", " ", "yj"}], "-",
+ RowBox[{"xjp1", " ", "yj"}], "-",
+ RowBox[{"xi", " ", "yjp1"}], "+",
+ RowBox[{"xj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "yi"}], "+", "yjp1"}], ")"}]}]}]], "]"}]}],
+ ")"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Log", "[",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xj"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], "2"]}], "]"}], "-",
+ RowBox[{"Log", "[",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xjp1"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}], "2"]}], "]"}]}], ")"}]}]}],
+ ")"}]}],
+ RowBox[{"4", " ", "\[Pi]", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}], "2"]}], ")"}]}]]], "Output",
+ CellChangeTimes->{3.861257820955475*^9},
+ CellLabel->
+ "Out[1366]=",ExpressionUUID->"fb22a801-d9c9-4302-a409-04f757cc31d5"],
+
+Cell["\<\
+(lj*(-2*(yj - yjp1)*(ArcTan(((xi - xj)*(xj - xjp1) + (yi - yj)*(yj - \
+yjp1))/(xjp1*yi + xi*yj - xjp1*yj - xi*yjp1 + xj*(-yi + yjp1))) +
+ ArcTan(((xi - xjp1)*(-xj + xjp1) + (yi - yjp1)*(-yj + \
+yjp1))/(xjp1*yi + xi*yj - xjp1*yj - xi*yjp1 + xj*(-yi + yjp1)))) -
+ (xj - xjp1)*(Log(Power(xi - xj,2) + Power(yi - yj,2)) - Log(Power(xi - \
+xjp1,2) + Power(yi - yjp1,2)))))/(4.*Pi*(Power(xj - xjp1,2) + Power(yj - \
+yjp1,2)))\
+\>", "Output",
+ CellChangeTimes->{3.861257820963357*^9},
+ CellLabel->
+ "Out[1367]//CForm=",ExpressionUUID->"0edfe664-e358-4b8b-8c1e-f77d428b251b"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*",
+ RowBox[{"calcul", " ", "de", " ", "gradGy", " ", "par", " ", "\[Xi]"}],
+ "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"x", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "+", "xj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "-", "xj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\n",
+ RowBox[{
+ RowBox[{
+ RowBox[{"y", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "+", "yj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "-", "yj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\n",
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"x", "[", "\[Xi]", "]"}], "-", "xi"}], ")"}], "^", "2"}],
+ "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"y", "[", "\[Xi]", "]"}], "-", "yi"}], ")"}], "^", "2"}]}],
+ "]"}]}], "\n",
+ RowBox[{
+ RowBox[{"g1", "=",
+ RowBox[{"Integrate", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"lj", "/", "2"}], "*",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-",
+ RowBox[{"y", "[", "\[Xi]", "]"}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", "*", "Pi", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "2"}], ")"}]}], ")"}]}]}],
+ ",", "\[Xi]"}], "]"}]}], ";"}], "\n",
+ RowBox[{
+ RowBox[{"g2", "=",
+ RowBox[{"g1", "/.",
+ RowBox[{"{",
+ RowBox[{"\[Xi]", "\[Rule]", "1"}], "}"}]}]}], ";"}], "\n",
+ RowBox[{
+ RowBox[{"g3", "=",
+ RowBox[{"Integrate", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"lj", "/", "2"}], "*",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-",
+ RowBox[{"y", "[", "\[Xi]", "]"}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", "*", "Pi", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "2"}], ")"}]}], ")"}]}]}],
+ ",", "\[Xi]"}], "]"}]}], ";"}], "\n",
+ RowBox[{
+ RowBox[{"g4", "=",
+ RowBox[{"g3", "/.",
+ RowBox[{"{",
+ RowBox[{"\[Xi]", "\[Rule]",
+ RowBox[{"-", "1"}]}], "}"}]}]}], ";"}], "\n",
+ RowBox[{"FullSimplify", "[",
+ RowBox[{"g2", "-", "g4"}], "]"}], "\n",
+ RowBox[{"CForm", "[", "%", "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.861258155747745*^9, 3.861258156239802*^9}},
+ CellLabel->"In[9]:=",ExpressionUUID->"4421bad8-e670-4d02-a48b-904eeb29edfb"],
+
+Cell[BoxData[
+ FractionBox[
+ RowBox[{"lj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"ArcTan", "[",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xj"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}]}]}],
+ RowBox[{
+ RowBox[{"xjp1", " ", "yi"}], "+",
+ RowBox[{"xi", " ", "yj"}], "-",
+ RowBox[{"xjp1", " ", "yj"}], "-",
+ RowBox[{"xi", " ", "yjp1"}], "+",
+ RowBox[{"xj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "yi"}], "+", "yjp1"}], ")"}]}]}]], "]"}], "+",
+ RowBox[{"ArcTan", "[",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xj"}], "+", "xjp1"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "yj"}], "+", "yjp1"}], ")"}]}]}],
+ RowBox[{
+ RowBox[{"xjp1", " ", "yi"}], "+",
+ RowBox[{"xi", " ", "yj"}], "-",
+ RowBox[{"xjp1", " ", "yj"}], "-",
+ RowBox[{"xi", " ", "yjp1"}], "+",
+ RowBox[{"xj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "yi"}], "+", "yjp1"}], ")"}]}]}]], "]"}]}],
+ ")"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Log", "[",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xj"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], "2"]}], "]"}], "-",
+ RowBox[{"Log", "[",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xjp1"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}], "2"]}], "]"}]}], ")"}]}]}],
+ ")"}]}],
+ RowBox[{"4", " ", "\[Pi]", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xj", "-", "xjp1"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yj", "-", "yjp1"}], ")"}], "2"]}], ")"}]}]]], "Output",
+ CellChangeTimes->{3.861257873532209*^9, 3.861258173520028*^9},
+ CellLabel->"Out[16]=",ExpressionUUID->"c8795095-361d-4b25-bcd0-742fae5fbfde"],
+
+Cell["\<\
+(lj*(2*(xj - xjp1)*(ArcTan(((xi - xj)*(xj - xjp1) + (yi - yj)*(yj - \
+yjp1))/(xjp1*yi + xi*yj - xjp1*yj - xi*yjp1 + xj*(-yi + yjp1))) +
+ ArcTan(((xi - xjp1)*(-xj + xjp1) + (yi - yjp1)*(-yj + \
+yjp1))/(xjp1*yi + xi*yj - xjp1*yj - xi*yjp1 + xj*(-yi + yjp1)))) -
+ (yj - yjp1)*(Log(Power(xi - xj,2) + Power(yi - yj,2)) - Log(Power(xi - \
+xjp1,2) + Power(yi - yjp1,2)))))/(4.*Pi*(Power(xj - xjp1,2) + Power(yj - \
+yjp1,2)))\
+\>", "Output",
+ CellChangeTimes->{3.861257873532209*^9, 3.861258173530663*^9},
+ CellLabel->
+ "Out[17]//CForm=",ExpressionUUID->"a7803c49-73b0-4652-a89a-bc89a1cb4cec"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"x", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "+", "xj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "-", "xj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"y", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "+", "yj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "-", "yj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-",
+ RowBox[{"x", "[", "\[Xi]", "]"}]}], ")"}], "^", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-",
+ RowBox[{"y", "[", "\[Xi]", "]"}]}], ")"}], "^", "2"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"gradHx", "=",
+ RowBox[{"Integrate", "[",
+ RowBox[{
+ RowBox[{
+ FractionBox["lj",
+ RowBox[{"2", "*", "Pi"}]], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox[
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"1", "/", "2"}], "*",
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "2"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-",
+ RowBox[{"x", "[", "\[Xi]", "]"}]}], ")"}], "^", "2"}]}],
+ ")"}]}],
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "4"}]], "*", "nx"}], "+",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-",
+ RowBox[{"x", "[", "\[Xi]", "]"}]}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{"yi", "-",
+ RowBox[{"y", "[", "\[Xi]", "]"}]}], ")"}]}],
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "4"}]], "*", "ny"}]}],
+ ")"}]}], ",", "\[Xi]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bornesup", "=",
+ RowBox[{"gradHx", "/.",
+ RowBox[{"\[Xi]", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"borneinf", "=",
+ RowBox[{"gradHx", "/.",
+ RowBox[{"\[Xi]", "\[Rule]",
+ RowBox[{"-", "1"}]}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"gradHx", "=",
+ RowBox[{"FullSimplify", "[",
+ RowBox[{"bornesup", "-", "borneinf"}], "]"}]}], "\[IndentingNewLine]",
+ RowBox[{"formec", "=",
+ RowBox[{"CForm", "[", "%", "]"}]}]}], "Input",
+ CellLabel->"In[30]:=",ExpressionUUID->"c1f1582f-6978-4e3e-9743-4da5fa3fe712"],
+
+Cell[BoxData[
+ FractionBox[
+ RowBox[{"lj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"nx", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["xi", "2"], "+",
+ RowBox[{"xj", " ", "xjp1"}], "-",
+ RowBox[{"xi", " ",
+ RowBox[{"(",
+ RowBox[{"xj", "+", "xjp1"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}]}]}], ")"}]}], "-",
+ RowBox[{"ny", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"xj", " ", "yi"}], "+",
+ RowBox[{"xjp1", " ", "yi"}], "-",
+ RowBox[{"xjp1", " ", "yj"}], "-",
+ RowBox[{"xj", " ", "yjp1"}], "+",
+ RowBox[{"xi", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], " ", "yi"}], "+", "yj", "+", "yjp1"}],
+ ")"}]}]}], ")"}]}]}], ")"}]}],
+ RowBox[{"2", " ", "\[Pi]", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xj"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], "2"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xjp1"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}], "2"]}], ")"}]}]]], "Output",
+ CellChangeTimes->{3.861258377252224*^9},
+ CellLabel->"Out[36]=",ExpressionUUID->"8918a234-b86f-421c-aab8-2633de35a885"],
+
+Cell["\<\
+(lj*(nx*(Power(xi,2) + xj*xjp1 - xi*(xj + xjp1) - (yi - yj)*(yi - yjp1)) - \
+ny*(xj*yi + xjp1*yi - xjp1*yj - xj*yjp1 + xi*(-2*yi + yj + yjp1))))/
+ (2.*Pi*(Power(xi - xj,2) + Power(yi - yj,2))*(Power(xi - xjp1,2) + \
+Power(yi - yjp1,2)))\
+\>", "Output",
+ CellChangeTimes->{3.8612583772630167`*^9},
+ CellLabel->
+ "Out[37]//CForm=",ExpressionUUID->"7827bc67-ba5a-419b-a3b4-d82b0dca4cef"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"x", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "+", "xj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xjp1", "-", "xj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"y", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "+", "yj"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yjp1", "-", "yj"}], ")"}], "/", "2"}], "*", "\[Xi]"}]}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]_", "]"}], ":=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-",
+ RowBox[{"x", "[", "\[Xi]", "]"}]}], ")"}], "^", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-",
+ RowBox[{"y", "[", "\[Xi]", "]"}]}], ")"}], "^", "2"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"gradHy", "=",
+ RowBox[{"Integrate", "[",
+ RowBox[{
+ RowBox[{
+ FractionBox["lj",
+ RowBox[{"2", "*", "Pi"}]], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xi", "-",
+ RowBox[{"x", "[", "\[Xi]", "]"}]}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{"yi", "-",
+ RowBox[{"y", "[", "\[Xi]", "]"}]}], ")"}]}],
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "4"}]], "*", "nx"}], "-",
+ RowBox[{
+ FractionBox[
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"1", "/", "2"}], "*",
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "2"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-",
+ RowBox[{"y", "[", "\[Xi]", "]"}]}], ")"}], "^", "2"}]}], ")"}],
+ RowBox[{
+ RowBox[{"r", "[", "\[Xi]", "]"}], "^", "4"}]], "*", "ny"}]}],
+ ")"}]}], ",", "\[Xi]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bornesup", "=",
+ RowBox[{"gradHy", "/.",
+ RowBox[{"\[Xi]", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"borneinf", "=",
+ RowBox[{"gradHy", "/.",
+ RowBox[{"\[Xi]", "\[Rule]",
+ RowBox[{"-", "1"}]}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"gradHy", "=",
+ RowBox[{"FullSimplify", "[",
+ RowBox[{"bornesup", "-", "borneinf"}], "]"}]}], "\[IndentingNewLine]",
+ RowBox[{"formec", "=",
+ RowBox[{"CForm", "[", "%", "]"}]}]}], "Input",
+ CellLabel->"In[38]:=",ExpressionUUID->"03f15880-2958-4e18-9bb8-16c122fc0a39"],
+
+Cell[BoxData[
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"lj", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"ny", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["xi", "2"], "+",
+ RowBox[{"xj", " ", "xjp1"}], "-",
+ RowBox[{"xi", " ",
+ RowBox[{"(",
+ RowBox[{"xj", "+", "xjp1"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"nx", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"xj", " ", "yi"}], "+",
+ RowBox[{"xjp1", " ", "yi"}], "-",
+ RowBox[{"xjp1", " ", "yj"}], "-",
+ RowBox[{"xj", " ", "yjp1"}], "+",
+ RowBox[{"xi", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], " ", "yi"}], "+", "yj", "+", "yjp1"}],
+ ")"}]}]}], ")"}]}]}], ")"}]}],
+ RowBox[{"2", " ", "\[Pi]", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xj"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yj"}], ")"}], "2"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"xi", "-", "xjp1"}], ")"}], "2"], "+",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"yi", "-", "yjp1"}], ")"}], "2"]}], ")"}]}]]}]], "Output",
+ CellChangeTimes->{3.861258380590827*^9},
+ CellLabel->"Out[44]=",ExpressionUUID->"a3781fd5-d327-4440-918d-e56f72684d55"],
+
+Cell["\<\
+-(lj*(ny*(Power(xi,2) + xj*xjp1 - xi*(xj + xjp1) - (yi - yj)*(yi - yjp1)) + \
+nx*(xj*yi + xjp1*yi - xjp1*yj - xj*yjp1 + xi*(-2*yi + yj + yjp1))))/
+ (2.*Pi*(Power(xi - xj,2) + Power(yi - yj,2))*(Power(xi - xjp1,2) + \
+Power(yi - yjp1,2)))\
+\>", "Output",
+ CellChangeTimes->{3.8612583806008244`*^9},
+ CellLabel->
+ "Out[45]//CForm=",ExpressionUUID->"f99fcb66-bf4a-41a0-b4d3-08c71e8326bd"]
+}, Open ]]
+},
+WindowSize->{1440, 768},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)",
+StyleDefinitions->"Default.nb",
+ExpressionUUID->"62450a5e-61bb-4842-a3e4-6a2b62f893d3"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 223, 4, 73, "Text",ExpressionUUID->"2a4634af-38af-46df-ba82-22e16ff7cedb"],
+Cell[CellGroupData[{
+Cell[806, 28, 11065, 286, 799, "Input",ExpressionUUID->"4ed55133-bec1-4475-ad1f-833b36b2d4c6"],
+Cell[11874, 316, 1718, 38, 34, "Output",ExpressionUUID->"65fdfe1a-aa66-4933-962e-56e19b792ce1"],
+Cell[13595, 356, 998, 14, 34, "Output",ExpressionUUID->"89f7ea64-7da5-4498-b160-d9b88f8879d8"],
+Cell[14596, 372, 10273, 185, 232, "Output",ExpressionUUID->"7a89971a-d470-4aba-b097-89238335c823"],
+Cell[24872, 559, 1114, 17, 34, "Output",ExpressionUUID->"c024bf23-b077-4190-b9e3-f1d5fb19ed2f"],
+Cell[25989, 578, 1052, 16, 34, "Output",ExpressionUUID->"c87b3cd2-72e1-4211-9c33-d98771a9e76c"],
+Cell[27044, 596, 7500, 140, 232, "Output",ExpressionUUID->"9b57112f-d238-4317-89cb-371ba4a2c235"],
+Cell[34547, 738, 992, 14, 34, "Output",ExpressionUUID->"8a451dcb-573e-4f9f-97e1-ed70aded0195"],
+Cell[35542, 754, 1116, 17, 34, "Output",ExpressionUUID->"71c50b88-43c3-43d1-9b99-9504c5bd5f96"],
+Cell[36661, 773, 7697, 143, 232, "Output",ExpressionUUID->"db2bab01-4618-4db7-8683-117d6150b911"],
+Cell[44361, 918, 1002, 14, 34, "Output",ExpressionUUID->"ba354193-5beb-4a8c-962b-96de2fd88bc5"],
+Cell[45366, 934, 1716, 37, 46, "Output",ExpressionUUID->"b590e101-f372-4eaa-b07a-74c6853e96a8"],
+Cell[47085, 973, 1052, 16, 34, "Output",ExpressionUUID->"6b5e6dbe-960f-4c2f-b7df-540c1741735c"],
+Cell[48140, 991, 7759, 144, 232, "Output",ExpressionUUID->"f64ed0f3-5f81-46ef-b0d2-0deaec21c948"],
+Cell[55902, 1137, 1365, 22, 34, "Output",ExpressionUUID->"1ad22f7c-dddb-4448-9317-229eaab684eb"],
+Cell[57270, 1161, 2871, 62, 249, "Output",ExpressionUUID->"f67cbd93-c669-4bc7-87c6-cf7ae689c11a"]
+}, Open ]],
+Cell[60156, 1226, 407, 6, 197, "Text",ExpressionUUID->"a9e8cb00-e27d-4ce1-93f1-c63f24dce0c4"],
+Cell[CellGroupData[{
+Cell[60588, 1236, 4682, 111, 472, "Input",ExpressionUUID->"3022f7f2-8c9c-43ae-9732-d602151de8a8"],
+Cell[65273, 1349, 1194, 30, 56, "Output",ExpressionUUID->"953df72a-406a-4325-a6b7-b588ecdbd337"],
+Cell[66470, 1381, 1227, 31, 56, "Output",ExpressionUUID->"505cf359-5431-4db8-b379-4278c65326ec"]
+}, Open ]],
+Cell[67712, 1415, 245, 6, 52, "Input",ExpressionUUID->"5184b6ce-6f3e-4ace-8f94-4112569cfa78"],
+Cell[67960, 1423, 1468, 39, 224, InheritFromParent,ExpressionUUID->"131c83d3-03c9-4c25-8f61-e5f9f199818d"],
+Cell[69431, 1464, 15945, 392, 238, "Output",ExpressionUUID->"d727041d-b24d-4120-99a1-a4716f0510ef"],
+Cell[85379, 1858, 15836, 389, 238, "Output",ExpressionUUID->"bbcb174f-e6ea-4287-b0fd-9ee0a29f0795"],
+Cell[CellGroupData[{
+Cell[101240, 2251, 4431, 108, 373, "Input",ExpressionUUID->"d24f20d6-729f-4ebb-9bdc-788273f1e3f9"],
+Cell[105674, 2361, 1145, 30, 56, "Output",ExpressionUUID->"87820575-f7aa-4bd3-8d26-eb8329c9e90d"],
+Cell[106822, 2393, 1171, 30, 56, "Output",ExpressionUUID->"c9d67024-7484-400e-99a3-606c54038a95"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[108030, 2428, 1400, 38, 224, "Input",ExpressionUUID->"c0d3d828-445a-4391-980f-255c7b107643"],
+Cell[109433, 2468, 23699, 472, 238, 9980, 246, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"97b112e4-ab45-4d66-a9b3-928d93705112"],
+Cell[133135, 2942, 10339, 254, 246, "Output",ExpressionUUID->"d62a01ba-286a-47ed-b239-185edba12dd4"]
+}, Open ]],
+Cell[143489, 3199, 129, 3, 30, "Input",ExpressionUUID->"69447a35-9817-4522-9f86-97bb0194d98b"],
+Cell[143621, 3204, 284, 5, 73, "Text",ExpressionUUID->"d4c6205f-288d-4ba9-9e4e-bc0171921df9"],
+Cell[CellGroupData[{
+Cell[143930, 3213, 6943, 204, 1045, "Input",ExpressionUUID->"b039c25c-3c81-424e-b355-8af2a1fea5a1"],
+Cell[150876, 3419, 1948, 37, 56, "Output",ExpressionUUID->"75c96493-d7f7-4956-b2cf-f98cdd66fda1"],
+Cell[152827, 3458, 5964, 122, 244, "Output",ExpressionUUID->"1674e868-ef4e-477c-b5e8-342b479f4694"]
+}, Open ]],
+Cell[158806, 3583, 240, 4, 73, "Text",ExpressionUUID->"c6929cf8-3e79-4e5a-a751-f0adefbedc6a"],
+Cell[CellGroupData[{
+Cell[159071, 3591, 3247, 89, 299, "Input",ExpressionUUID->"aba879f4-4fa1-4a20-84ae-7797ad362ead"],
+Cell[162321, 3682, 4424, 136, 138, "Output",ExpressionUUID->"1a498cc3-ec98-4fb7-9364-dcc415205357"],
+Cell[166748, 3820, 932, 18, 106, "Output",ExpressionUUID->"b3ea9741-9cac-4165-ac03-4789f7b7458a"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[167717, 3843, 2745, 91, 293, "Input",ExpressionUUID->"70e041ab-7a76-4842-a412-090b3714cc63"],
+Cell[170465, 3936, 2984, 91, 68, "Output",ExpressionUUID->"fb22a801-d9c9-4302-a409-04f757cc31d5"],
+Cell[173452, 4029, 595, 11, 70, "Output",ExpressionUUID->"0edfe664-e358-4b8b-8c1e-f77d428b251b"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[174084, 4045, 2822, 91, 293, "Input",ExpressionUUID->"4421bad8-e670-4d02-a48b-904eeb29edfb"],
+Cell[176909, 4138, 2979, 89, 68, "Output",ExpressionUUID->"c8795095-361d-4b25-bcd0-742fae5fbfde"],
+Cell[179891, 4229, 614, 11, 81, "Output",ExpressionUUID->"a7803c49-73b0-4652-a89a-bc89a1cb4cec"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[180542, 4245, 2852, 90, 258, "Input",ExpressionUUID->"c1f1582f-6978-4e3e-9743-4da5fa3fe712"],
+Cell[183397, 4337, 1564, 49, 62, "Output",ExpressionUUID->"8918a234-b86f-421c-aab8-2633de35a885"],
+Cell[184964, 4388, 397, 8, 63, "Output",ExpressionUUID->"7827bc67-ba5a-419b-a3b4-d82b0dca4cef"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[185398, 4401, 2803, 88, 258, "Input",ExpressionUUID->"03f15880-2958-4e18-9bb8-16c122fc0a39"],
+Cell[188204, 4491, 1628, 50, 62, "Output",ExpressionUUID->"a3781fd5-d327-4440-918d-e56f72684d55"],
+Cell[189835, 4543, 398, 8, 63, "Output",ExpressionUUID->"f99fcb66-bf4a-41a0-b4d3-08c71e8326bd"]
+}, Open ]]
+}
+]
+*)
+