(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 42319, 1049] NotebookOptionsPosition[ 38224, 946] NotebookOutlinePosition[ 40001, 998] CellTagsIndexPosition[ 39958, 995] WindowTitle->EconomizedRationalApproximation | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell[TextData[{ "Economized rational approximation of degree (2,4) of ", Cell[BoxData[ FormBox[ SuperscriptBox["\[ExponentialE]", "x"], TraditionalForm]]], " over the interval ", Cell[BoxData[ RowBox[{"0", "\[LessEqual]", StyleBox["x", "TI"], "\[LessEqual]", "2"}]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.762495868561133*^9, 3.7624960571565742`*^9}, { 3.76249608911675*^9, 3.762496120189823*^9}, {3.7627968833157835`*^9, 3.762796899807432*^9}, 3.762797030580474*^9}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EconomizedRationalApproximation", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EconomizedRationalApproximation", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/EconomizedRationalApproximation"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "EconomizedRationalApproximation"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["EconomizedRationalApproximation"], BoxID -> "EconomizedRationalApproximation", Selectable->False], "[", RowBox[{ RowBox[{"E", "^", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", "2", ",", "4"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762495463393235*^9, 3.762495493221981*^9}}, CellLabel->"In[108]:=", CellID->443871870], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"679583", " ", "\[ExponentialE]"}], "691200"], "+", FractionBox[ RowBox[{"4679", " ", "\[ExponentialE]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "14400"], "+", RowBox[{ FractionBox["23", "720"], " ", "\[ExponentialE]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{ FractionBox["679583", "691200"], "-", FractionBox[ RowBox[{"9479", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "14400"], "+", RowBox[{ FractionBox["143", "720"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "30"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "3"]}], "+", RowBox[{ FractionBox["1", "360"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "4"]}]}], ")"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.762495496595845*^9, 3.7625099720783567`*^9}, CellLabel->"Out[108]=", CellID->573803875] }, Open ]], Cell["\<\ The difference between the true function and the approximation:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.762509886894566*^9, 3.762509962261361*^9}}, CellID->814521048], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"%", "-", RowBox[{"E", "^", "x"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762509894434848*^9, 3.762509902577467*^9}, 3.762509969318182*^9}, CellLabel->"In[109]:=", CellID->1196201824], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwl13k4lH0XB/BBi1cSUfZSJBVSKan8EJWlRKlUCEmbkCQtZF+yTSXrjC3L jGQnDMeQUAgVla1CRStFRap37vP88zzX5/qec37Lfc/taomD655j/DQa7Snv P9T/TY4Nd3BHjhEarXyXwu4SmGEg4/ZK2lCXRmv3+rqzBNalxDOKpS15pgum m5SAaevzIqa0I8+08cJtJaAUIZ/5b/FJnguS5xmUwLTJ0Th7ZReq39RCrwQO OP6sviHtwfNrY79NJVBvIHPvPsOTZ4URV60S0FDUKRhffJFn8+UGmiUgOOCf vl/Zh5onG69WAn2rQwwipQOp+qW0xSUQkyLFXXY4iNrPhKRsCZjMy9kCjGCe RxkLJEug7EvL+q+Lw6j1afdFSiDq7nwVC+Uoyts/TBdD6oLdwdekY6j61+HP iuFya1z9/krK3PL5bcWwP+g1v+LhW9R+avweFoPwxNmrHEYsz6KfpaAYvJ7F eH1anMCzW8fqrGKwuNl9ykw5mZpXuNi9GFRNFdkyjZTd0jedLgZBAef3746n 8KwhqOdYDEcq/hbWWKby7FsntL8YFqygq1vFplHrPbu9sRj8BIuXh0ln8Kxn IDBVBCt3XA8tcqPsprxsrAieBLmO9DRSFjXXGC4CJQHVO+qemVS+TKCrCBr+ ZKg/e5JFnTclpaAIhL/Hrl8cwabuL/WlfRHE910yKP2bRzngUmkh6MsdzOjf l0/Vz5PKKYQPh7RmCt6lrKCSkVwIiz5dPHpXrYB63szQkEJwPblhGa2XcupU sFUhzHfMZ2VuLKJy/Ss/C8DqYFr+6FgJtZ+FB1cWwNceS6F0mVKe7bIn5Asg 2Fbw2F4DylzNELECKD7qKlMWQ/n1JfGxfBBx0Qm6rFVGzbu+OCIfHvi/PDTL +x5Vv+Yc5MHaXLFZcoKVVH07Y8FdmPPPz3rHohoqHxBPZMMyiy/D98PrqfvT D/JKhwuPtXXjxx9S+a857bdARL307UPBR9T80dGEW5ARqRHxWw4t8fnoLejY ufyl7TbKvo2rfsXAqmaJc8tiKevNeLgkBl41fs0q0mqm6o2LL96AHbWZIq2X Wqh6hQuXo0CyRKyfj6+Nyk9lbfUH64jflkMLKfsesOnzg3THt80NqmjB415+ oLqgoiLcCm3ike8LWz3tbi0owP4/fAY+sIFxICtmdTtlxTOrvMDeNsuG1Y8u kZtxEgJNZBMSRtAiy5OOQ9YG+rNr4+gi1jon+CRyyfSMUAfliIUnj4JnzS7t tRvQLZeaD0OEwoREVSSalq6tDWUDBi1tW55QNnmvZk+6jPzGInegA9XsHMiP PFi4cw/a+QP9KNG6rG3fdBy98sHnY6RcfPUP7g20/3DMKVJhKKNQNIxWUWg5 S6qyRs/FxDzF+9uqdYn0Cqsn7ElBL1p67xKZdj8NojnoobUbLhMd3XeCkTXo be/WXCHwvIcZ9AFdFbnYh9QINjZ66j2jrP18xJfUnWLKHvyEnvfDLJAUj5w+ bfsD7WXtE0gyTmziHKV1Uj7kdDeQBDk9P+QigT7iKBREjBzEEgO2UPa1F+QG kbaDQVJ5Eej1I9IhhPti74niWPSyAIMQUnBgaXl5KnoB1zmE3NhXc+B+CXp0 KYSQ/RaTsS96cb5ahHUo6TU6s0BArYtyyMeQMNLauPmYoBZlX3bJnTAC24VK 5+qjuQptYSTFMNtSah/Wv3wjcY046L25qeaNFhFkXCPDWvvmW7Wivw3Hh5OX ZYoONs/RFwfLwsmj9d8KHd6gd/k9Cyd31kVbnJnA+fzZIhHEZfVDur/8c8ql ST4RZEJZZ97dM2ghzV2RhAxsbbzmRZk24XI8kgQzja6eCEBzdfwiyUIJy6+K CWj9uOJIsoHvdFtiPfav2SIeRXyq3EK82tAWUiujSMMFT9393Vj/I1Qvihz4 4pcvNor5BhXnKOLVEx8dKvsC3yd7iCLc2OQdTsroFUMdUURwT8Y/gzWUfS9M D0WRhKZ813/b0c6f/xdNKksbdnu6Y/3zp2bRhP9sy2xLb8ztZxyJJiaqT2rW hGK+tNklmvSk963+zETXyUZGk+no8XmOD9F8rfXRxNB0qlH/Gbq6qCOaRMyi +S5+hfOKV/dHE3nvOaPd45gPfp2IJk4bxVjl/9CFCTQ6yfu+0C5W6CXlfbNn 0Qk5tbTdQgEdt12UToKXqYSuXkXZ95DUAjp5/FpNb+4GytxdZdJ0YntAu6DJ FHOxA0vpJGu+7oms/ZgLHlKmky+thgqB9phfXbGSTq4amtN1L1DW01ZfQydN //YZyfujM49q0oko5zDtdwSuP3hMi06sPO3LX8ThvJnrN9FJ6prjbmXpOE+p YwudDH9yVom5i967SZdONFjur8+WYz/bTZ9OvI56xe++j/2bPQzohLvIx1zt MVph2zY6EewOEJzzEu0yuJ1OzG+FcYcHcT86u43oJN482qvhC85LDzWmkzdz bmlkTGJ9SbQJnaxsTBz2m9FNOcLRlE7c/VNTj8xD683eSSeVOllWOjKU9T5c 4Jl/8o6o7DLKvillPMu2bv2uuxq9sp5nzbSXnY7aWL8vi+ed593Kwwwo0zRt eD5mPDspbxfmPcO89Xzkk72fHsD1jhjzHDumaffLHuc98+HtL/9B81Z5Z6w3 D+PtvynBYdlWT8zfnuCd782ZydnHfbE/R34HnUzp0z+EX8P6kmze/YgvXN5a EIO55GxDOlH9UJ3fmfzfeTZvpZNtYHljioXeul2P9z7c+OixuBitqUzoJHqT 9KaTjf/dx3FtOmGJFMhFdWAe0rSB9zwGtv8r6sGc+28dnXy75lE//RX3d3xU jU7mHJmTvWQKz8+fw3t/lNalh22f0UPlH7SX08n+njYzuhRlLl/fYjpxzXda U7qUMs1uVJZOQgP+iHerUtY72S1JJxWrVr1U1Me8b+08OpG7Enz03kmc1/X1 ZzRZby6/vfccOiz4czQxUypR4fNBS7YMRJOrLW8+m9z4L3dsiSYDcjpe/ZXo ne1J0eT36NNDAg9wvuVgVDSReHBKR6UN85Ysv2iy/Uw8v/sg+o2uUzRhV3+P mCncS3kfd1U0qbt+zXXlQsq0DGu5aNJ9bMme3QqYz7kjHE2ERXZLJmhi/sf2 UxRxs81JU7VBO69gRZEN/+zK9uah7S+KRZGdu7j+28qx/+K9P5HkaNLi3Vp1 6Pl5I5GErtX/XqYLnfGAG0lGXA9LD/xB22WcjiSM1/uuuO3qoxxjURJBitRL jRwOUKaJr2VEkKYrEgss7TFnPg7gfZ+lnt7VOo9505Y9EcTMwvzVXwb63feP 4YSvzmRr5Cesf8AnHk6kRHNErv5AS9f8uEbUbf/X40brp+p1t3RfI4emGs9Z SlD2nfJMvUZK1m7LlN2C5ptYcY043dYVzAlH55usCSMtgZqPG1a+wu/DEvEQ smleM//19ZRp0js+BRNWgr3WYT3MpVc9CCYBeVGpX/dhfkPdM5hsejHsLuWH +U/VziDCWsWUPPUc82bLkECydcS/YNbW1/j8H4AfWUz/OMn+Qpl2c0zuAgH7 q+yi72jlkUpPYrtO/CDnF/pYrJUnYXRtKm/hf0PZSuLmeSIlf83z60L0vfwZ HmR+jsp3TV20w1i3G5lZf+xTTTSau6zAkXz8+aq/U2MA71dB2wQyPnAeiUQN 4t9TUUk/EJHP/jo0NETtz6TjZTTo7Q/oGxwZwu+X2Gw6uEcfaR74gp5SXUKH Lj6p7Ne/sH7ppn10SH4Xatsr/JbylpwqOqgXnGp9qkmZ+4Ebeh12GajfqQtE WzVI3ASfK0IJtWHovm+qN6Gg9F0wNwqtPHfbTZBQSXGAeJx3Wej8TegVFpWp zMXcWOnZTXDuGgstfIZ+URoVAxEnS51Sld5RHjkyfgs+6N0NnbOSst7+zjmx sEMqM8dzNWXadg3FWOBvjPmycxNlX4FYi1i4qOThObkbc0+5u7Hg9Gpt8J7L mBuO2caB/r6CzBlP0BHpufGQrMpqdH2O9S8vcuNhWiB1pLsX84I1z+KhvCha rfA95i5bf8eDuqhrqc0fzOcP7UgAuWa1B2Uq7ykrCPYkwA+9O0Mnrr7H59H7 PhGqMj4mXQhE63j+SAR/QdW9wWFY/3h0RhKItOfW3r6J+VjIkiRQPpKX3J+N ttp8MAn2exdaWbaj3VPrkkDuzdi8o53oWZvbkmDAcG3j2W6c97SkJwlchIvX Rw+hK7aNJ0FwUsn8R7+wXqpbkQGlFfdadJcM4++v/AoDLsn/CjBTRn/eHMIA Pb+Nm21WUab1M64zoMWogn1pPbrmZyYDhp5XBpcaY/2Kea0MyNn8W6feDL3e p4sBbimbJ57sxfojj14xYNqp6uioDbpscowBEj+q9Va5Y/3GIgkmdB/8+1P7 Anp0tjwTUqtJvtEVtOKmZUxQDaqRdwpG3123ngmGErVTqYk4b8PFvUwQ8uIr yk9B3y04xIT2Hv2TkIH1s+rtmWB9u+55Tx7mUj6uTPBYW1+y8D76vk4YE5w0 FVKvN6EfPIlmgtWGK+HCj9H3tsQyYfMmTQf+l2jx6HTefrbQd3n34/w9F1hM WEQ+bfw1iLmaZh4T+LdmzPvyBfODqyqYMG5A+31iHB14DJjwdpv1u8FJ9I9z 95nQZCxR/XLGCP7e57YyIdoi8NQDGcq+qhr9TPDd+3qfngLmZ4QGmOC+b4s+ Zxnmh8rfMmH/wXHJQg3Mv0d9YoLRYXMB1Q2YX7r3lQnaNrlfsjZjfrz4GxPk 7B0fMLajVZb9YoLIUW6B5E6s70mcYgLtmBzjhgU6b3CaCd+cvELmHkBf//eX CYMnnrmHWmO/xxdaMjw7pWEr4ID59gL+ZGhwjjD2OY75pOGMZCh3GdacdMb8 Yu7MZMhxM1TwcEdz3s1KBoZ76pyvF7A+//vsZIj0mP5x0htt+FQwGXw8rQaG /P87f9D/ksHNq6T1SCj2ywgJJYPDJdGK7kjMde15trzinLHvJrrlGs/bfZqi 2+PRJcE8a/kqXTZNxv5hS55V/H2dGm6jrSd482UCey302Wj+EzwLB2/UqcrD /rZc3n7+hsSoaJX8N+8+b7+jYaPiRRXorFzeed6E7/ynWoP9ccd5530SyfqQ XY+597hAMtRHz+ha+gi9cy/vvsqu29Uy29A/Anj3ybpZlSvVif3ngnn3nXhL Kv5mN7r0EO95hMd5BIi8RpfQeM/rSkK7S9hb7D/q9ZMJLkmqh2Z8xLyidpwJ e1KGNKYm0BoPv/B+P2l6cud/Yz0J+ciE9bcZs0dpH6i8eeEwE6SyLfvfzkHr 5rzm/b7YBQ/txNASeb1MmM4RLu1Z+AG/vwEvmPAqrz68YwmakdbG+/19nvFp 7XKsX8DXzASu6radMaroy+saeL/vnAfCB7Sw/ptoFRMcshoie3eiO+9m8vb7 dtYXnT1Y//d2ChMMlHaYpRzAfNA5gQlK6Y0iDg7oZs8IJrxjNkW/v4C+ccqN CV29gqNG3ugFP04woVHW2DzHH+dpWPK+B6yEh6JnItHLQi2YcOrWo+vf0tH3 Hq9mwueIlpt/WrG/4dkgA/qbhcdtn6KbQl8y4LHQLkvuC7TJvDYG5IW2SgQM oltvVvC+f4GPbwlO4rz3lyIYMH65PU5c6SP+3utW8L6flaK/PFag41PkGNA5 aW7VpU6Z1m02jwFlFzqkErQx372M9/32OvckYdFudGARJwl+n3qWtOISunfP 1iSw3GBzXf0q+rrruiTI5XsXvC4Q58keU0oC2/ifZ3Wi0HXdM5Og9oGMkUU6 etFYQyKEKNiPez3C/sh2/UQQ7/q8s0nmE5XHxskkgHOa59bWxWi//lkJUO/8 T+uJEtrx37d48BQQU+xVp+yr1/YoHl5qaE5+3Yp5GcsrHlLCL2VKnsZcwqw1 Dlbpz/7rxMHcrulQLBTk3Fn+gotWPKQXC5oS5hbGDWiH2mWxsOV9fMaqDuwv Fh29BWaRK01H32GuWup/C9xf7oq/OP8zlcPK1BioOBuzNuIk+vrVqhuwI33J 8ULJL1S9bz5/JGjGiyg3yKE7pWoiQCHq91D3EvTBbZcjYOpip8MMVfTn4W/h cNcizPaAHlrZ/tU1EOcb2/fnBPqs2d1QeHWEa2hcifb8vigQLsgfWfrG+ive b+ATD1D9tG/O812j+D2ra/Ug4vNGBeun0KvfL7lOZtQk5SsyxihbW/5JIt1b DI1eJaMvnlnJIPmVn14nplH2bXA9wCCHynTmz8/GvFK9kEEK777yoBVhzok8 yiS2DMVNfY1oxcj7yaT84p362O+U9Sq23EslUT/32uz5QZkrPb8llRw9Pz0x dxJt9Px1KhE5u2t50F+sv6QhlEaOnfgadu5/3yhPS1unkfkH1u02X4xeyJpO I6c1OS//Z/oN34es1bcJt70zt3wX5u6d+rfJgjOjV4+bY753dO9tUpO5TPnB Psz/Dl+4TcQl6e6+dpjLDsBtwpl0nPPzPObhz4wyyJwaEZ2hVMw9H5hmErvD K0Rv3qbMbVl5OJOU/jQY1M9CJ144lUmOaFwMS7mDnt8YmkmK0wY7D5XhvFrt +kxyOLDcpaMZ5yWab8gid4wdUuEHZV9x61nZRFN1CdGdxPxKqlg2AZHXPTW/ cd7PZrls0v7URrKW9p2qr3m+NpuM2xyMui9EmdZYY5NNiLv5laZFlPW8OXnZ pNFynozxEvSSY+XZxFzr8b2HipS5huO12cRh2vT7IxXMb9c9yyYhwTtOta5F S8hP8tZLJFZPtuN6scVbWOSg95+JPcbYz2EbssjAkaqbT00x7wvYySLjSpva npljf8XgYRaRzl+//fkhrDfZfZFF0q+PDx6wwbzZwZdFVD2K/V4cwf3TD4aw CNFeU/3SEfOw0RgWcbivqtnrgvObavNY5GPmxw7rs5iPfiphEY/QHNe+c5iz pipZJGSXyp1+L8zPVTewSO5zxaVv/NFz+3tZZH3lQI19EK63X3aARYCRZjMQ gv3+m96zSLv94oTBCKxfvWiMRSY+yoi+i8X6aC8BNolhvm9kJOB5fsoLssm6 3SVX9zLQq1OE2eRs0a6v3DR0luYCNhF1lMm+kIHzC42k2SR/wXtb9Wy00kZ5 Nvns5fs4KRfdy1Jik4iVu4L35ON6X1eosMmqXmnyvyKcNyN4FZuc1C2+63kP 67ser2ETwbGrx9Qqsd6eo8km2ek75Yeq0BH+Wmzydua7CIs6PI996hY2CbxX ZCj4AN37g7CJ4smr09CI8+KW67NJnczOkvOP0JfXGrCJfYuUs2orznOT3MYm NJ+3ioNtmNt2bWeTlNVFPQlP0KtdjdiEvPG5ad6J9S1vjNmk74ap6ewXaHl1 Uza5YiglAN14HmHLnWwi+2Oo0qMP84C9u9ikMrvQfdVrnHdK1YxNDh70WTkw gPndfp5/CZkOxL/FXPPUbjaJq5JM3D2M/vCY5w0uQxazPmJ9pbA5m3QuLvxf 9Wd0pCLPHh3etedG0WbiPIsHmFxc+R33M9zD6y/SlFzzZgLzHd48W7wbHI77 hd73k7f+aFxBqtlv9B9jnqONva1m/sX7XHWet3/138aiVbRxal6zF+98rbkL m9wF0A8teed3th28umIWZV/R/5mwyRzRAq3XgpT1Im/x7i+n9srX2Dnj+Pdl ine/xueMs3eJYP3LDbz7H1ZaeGSGGOYBprznE9I1sJAjjv0SG3nP74H2lWAV aXRGPO95O340Iq9kcX1v4U1sIsBc8OPWIuyfOMB7P/Rp+ccElNDnz/Pep9eF l+UrlbH+4A51Nrl61KjTbQXOixldySbVDW8M+9XRjU2KbGLtlTcdswb7mT8X s8nvFZdLTDWxP/CPLJtoR0ooVWhjviNKnE1K9+4QiDHE87TX0tgk1LQ8SG4H 5kn/frOItcEKwUxj7DeV/ski/OvmzC0zQ695/YlFzOa3LXxhhYbKLhZZIqSX YHcY+892tfO+P3yFsiM2OD+39RGLJI3dUJhywPy6GbDIcPv+lXJnMP8Yf5tF OE2NuRmueJ6KaAaLRHE3rlZzx/oq+1ssolkgo0ku4HraccEs4hfdr2Pnh/m8 HcdZRMbMySLjFvafK1rCIp+3PX+qGo/5ISspFuHqGO0vTcT8ywsRFnFSW3m4 IQX97+TvbFIs/MVxmI37mdP8JJvsbD7vpQqYBwVcyiaL77+bKuHi+gYdLtnk W+UBb537OH/vpEM2ScjR9jdrQpu/MMkm78L+hLs9wXmHOqSyyVWjoJSSd5iP 5N7NIk9sT1hrjOB807cpWUTpvKl07ke08eT1LPIoTezm7VGslyg5n0UkfjOD b0yhmz02ZxHW3bIzbiIT+PdgKTeTTN1PWPlJlDLNX6Igk+zqvvL+uDhlvTkD KZnk2ywD+yNS6Kl5VzPJFrs2S7OlWH/t3uZM0j5/eLPqhgn8e6qVl0GWrmj+ lb0R5xcPJWWQ87p5pYqbMXc6E5ZBZJw9Vsvq4bwd8x0ziOMDmqKQCc7zzpHM IL8uSAsN22BeLe11myzpM3lxOwjnvV62KJ1cq9ucvy8U5xU4zUwn37JVg2eH o2k+n9JInbuI5mk69ltpVKYRR8En0WuTcP6lzL1phLXu4I7aArTaK59Uon7t eFl/D873lHJhkk1agTHSa39QeZmO0y3S5SC9gamJ7nux7BY5F5X3XEELDevf xpDcty9kVLagL6w/GkMWxailbdiOLtpjfZPwj3Xd3XsI3aZpcJ0056xojPRH lzs9CiPWi9om+Z6im0IMnMnEo8gBN7+fuF/GnxsQP8PWY4/SL2p/QlH5GSDe X5rOX0+Ztq7HOh+ihL297zX8l8uG5YPQZkMr54fooa2l+cAf/2Ru12OsL82Y VQDfLL56sV9S5sZL2BZA+wOV3eZf0b8vCBVCxN2k30yZScrbt1oVgWCvQ9ce ebRQvHMRBAqtLJytQNlXos+3CC4fL3c6u4yynpMmuwhOLensMNSgTJOWmCwC o1sirI/bMH/odasYZnr7WWqfxf6NwzUlUDL2abLmHNZLFraXgKOTVcp2T8wr jr8pgfrdqz/svYweYvKXQuDSvqsuQThPeZVhKcxo2njndgL2h5TcLwV+8VE+ kTqsD3lXXAZFIYezY+rRJpvrysBhumGnbCPWL7zcXgZ1b5lxKi14Ph/OpzLw LzdVM+jC+Xk6SveAzzbbyusD9vNrR98DGts2f2D+FGWfLMtyaPj03CVlAWXa 8/X25RChYaFuLUWZey3nTDlIlhvc7ZTHvMcguBzUG1XuNKlg/9z1ZeVg/fZb Vh6hrPdaSKwClq5wdjqtj/1TH2UrYNj57TIVQ+znK1KugHPjzzPSjLG+6dPm CrgmUJ0eY4nzFskfq4CKJSHJl05hfd/JogrwOUaz1TqDfpHAqQBD9kX5cVc0 75/eFdCu4cw4cx77V4d28dbTtUi088W849evClhoKxu7PRbXE+7dWAm9aTH7 BBJwfyX2epWQ/nbuAm4Sek3rjkpQO0OL0U5Df923vxIMr7y9rpqL82s13CvB PTE/cn4dWlghsxLuTSeG1NX/Vz+WUwnTtsF+7o24nlhuQSWEKNqcf9KCefhL TiUwcoVsbjzH/bXKdVTCG5Ef+7d2Yy6t2VUJymffmH/rxfl3NHsqoWB9ueGe AczVvw1VwgM4pjr/M+bvHX5WgtASC+W6r7heYNPvSjAP2KLg/g2dJkXjQPcO cYknP7Fe6KIgB760c39f5/9NzbuhK8WBdetyJ/RnUtZT+ivLAa9bcV/HZlOm 3WEt5oDAIZdBi7mUfY/VKXNAalC2WUwKfVhEkwM222Y/qJXBfru1WhxIz/4G Z+Wxf67hJg6oOj8s6liK9SZr9DigP+GZeF0N15+9yZQDwQccYvQ1sH+iYxcH Wip2RY2txf6rB805sN9Hyd9iI/af27iPA6dmPzkpZoC5n44tB/JPVh+t3Ybz hg7acWC8mWVz1ggtd8KBA1fpVy06dmH/5sNOHIiRVtO+boX9HRlnOPDystQ6 /cO4vrOVKwcW9QuojdlgbkM7ywFWereCxVF0groHB6pXhQqKueA8OZFLHNjw TLL1hhs6d/9lDhRcyb4ucQ7X94u7wruP1gYZKS/sXydwlQOhrjPVFvvjek7h ARzYU+xvoRaL/pUdzoHmw/MX5sejLZIiOGA4I71bIwn7dSMiOaC1r/aoZirO Nz0RzQG5n//Ob87B9YvEb3Lg/SbvRGPA3CE6kQN2g8JHmrmY619L4r0P4QzF XfdxvngYg3ffvZxc8yas3xmTzIEinyk48ATrGZ/TObBq+bWAl8+wPlgigwMZ bdJGh5/jfvgMMjkQp6DdYduLjirP5sCVuguDx95hfaL4XQ5MnJrNej+M864H 5nHARTzO+eRHzGfxFXDA3rFswnkU17+wqJi3P+HtlV++Yb0Pt4QDlqWdPm4T mEu6lXFg+6yJ2R5T2K88VcEBbl5gy8Q0rl/QyeGA9gGJ6xf+oX9yq3nvH2ud zOUZ09S88aZaDoiZuKv6i1DWC8t7xIHU2nlzNomhuTtbOaChfXdkTJwy7RN/ OwfMVIaz7KUxV6vs5EBfSlCQtBzOa6t6wQFnSUXHjkWY+3T3cODaLNsl+krY v+bUAAekfX7/+6VMmdve95b3Pk3E9xeswLzMdYQDjUNPkxRWo9PGRjkw477x QtomrL8ZxFcFNze9H7+3BfMx/llVsLQo8KmrLq5/PFOoCvTSauivDDHfaCNR BW1SNq5xO7D/iId0FdjSp3btNkHrliyqAu+r6+fU7Mb+vsIVVSD888mI5x7c /+Wzq6uA4eLWpL4P8xs266ug0uZOUPIh7J9Zo18FPzYvofkcw9ytzroKgoqh f/0JzLX5HKtAYpV19edTuJ/THqerYJ1M3CUbN8xVpi9Vgdsv4YktlzGPyWNU wT/XnKfj3rj+3LzMKoh6v6Mo1xdzjw95VZDb5e8qF4zr+Syqq4KRkl8jv+mY r7r5sQq8VGObim+icxN+VIFgxrrs07E4T/cdXzUo33Rx7EnCfof90tXgcHao vzIL9+NbYloNY8N+1e5srHede7AafO0WM1bmojeXOVVDyu5DBxMLsT5g2r8a etXan16swnyRbw0v/yjmLVCD62effMybz96rHFmL+Yu0vmoYUXruldqA/an8 f6rhh2y/fGP7f/vL1AWofLm40fwp5m6KFgDecfZu3Z04z2bSAWCG+Nu6z924 f+nCEAAxoU/HJd6iI852AjxrVBNLfo/+/HgEID7ItXL5B5x/J/IvwCK+78Kb v/53Hs0VNaD6a7LQfhLnLzIOqIHt72ZP5839Q/VndC/jwv8yjDM3ilJ+HW6/ jgst9uFmdfMp22Ur6nNhb59IWqckZT1jaxsu2D1bsH16CdYvKI7ngtKNA1+D lDC/uJzFhfe7E+LnLcf5zb33uODSLPdxqSrOWz/3BRcu1ynSjTdgvWKibC0Q 32PaTzdSTv23Uq0W+En2gPVmdA+/bi2EVqxc76ZHWaHw2tFaiC1Y0x1rQpk2 T6ygFgqSdZWGbHG9H3kH6uD7pe+z7e1xPeWUM3Ww4UD2x76juJ7m64A64Myb V/z8BM5bZ1VYBw2+/frN7v/N0xK9Dz0O3keKgrF/j2v/fViku8ZgdRjOH3gy eR/sZN8q54b/wb/ftxbUw7unO79k0nHeUm2zehg1lPNOSMR+N+n6epi1nJPo m4f3lSJy/wEYC7j6/CnAeaKtQw8g4tVSh0vF2H96clYDiMVfW+FRjvXvUnY2 gNz/DpUfr8M8UK+vAdZ+/NVp1oX3I1Ep0QTnG3Mrml/gPLunOk1QftuOadSD Pnv6eBPoWDc5bn2N59srV9UERq1x39d/wDwq9fRDsMnfICb/F/frqjn0CMoO /RJpp/2lzrftn3QziMyqFA4QoEwzO2/eDFxrHcERQcp2midrmmGpkOG/EvG/ eD5GZgu8c7T4vHMF5dQnjJjHQETFP/5bhfmNns7HEMd5Nlykjv2FryTbwGi+ 1ZCUJs7/TpLbIKfGtmeIUC7Q33aoHVxknB9esaQsevlcYAf4qNSteLv/r67S wY3XnbM74P9vOuBt "]]}, Annotation[#, "Charting`Private`Tag$50736#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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {-4.209041680100401*^-6, 7.54387452062133*^-7}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.762509975147678*^9}, CellLabel->"Out[109]=", CellID->644562215] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell["\<\ Pad\[EAcute] approximation is potentially more accurate near the center of \ the approximation interval:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.762510164069096*^9, 3.7625101914347258`*^9}, { 3.7625102253936443`*^9, 3.762510246263913*^9}, {3.7625103616600313`*^9, 3.762510389153805*^9}, {3.762512075863008*^9, 3.762512098932054*^9}, { 3.762512352190708*^9, 3.762512353071138*^9}}, CellID->1439930520], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RowBox[{"E", "^", "x"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762511457757752*^9, 3.7625115103129187`*^9}}, CellLabel->"In[160]:=", CellID->454333265], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pd", "=", RowBox[{ RowBox[{"PadeApproximant", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "]"}], "//", "Simplify"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762510412029766*^9, 3.7625104120355873`*^9}, { 3.762511514600721*^9, 3.762511515942389*^9}, {3.762511859930677*^9, 3.762511863785939*^9}}, CellLabel->"In[161]:=", CellID->971783119], Cell[BoxData[ FractionBox[ RowBox[{"12", " ", "\[ExponentialE]", " ", RowBox[{"(", RowBox[{"21", "+", RowBox[{"8", " ", "x"}], "+", SuperscriptBox["x", "2"]}], ")"}]}], RowBox[{"685", "-", RowBox[{"424", " ", "x"}], "+", RowBox[{"114", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"16", " ", SuperscriptBox["x", "3"]}], "+", SuperscriptBox["x", "4"]}]]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7625104295885553`*^9, 3.7625115171141663`*^9, 3.7625115609080973`*^9, 3.7625116635156927`*^9, {3.762511855578505*^9, 3.762511864184061*^9}, 3.762512220276676*^9, 3.762512257945197*^9, 3.7625123624522257`*^9}, CellLabel->"Out[161]=", CellID->2060027434] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"era", "=", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EconomizedRationalApproximation", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EconomizedRationalApproximation", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/EconomizedRationalApproximation"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "EconomizedRationalApproximation"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["EconomizedRationalApproximation"], BoxID -> "EconomizedRationalApproximation", Selectable->False], "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", "2", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762510450279949*^9, 3.7625104514316473`*^9}, { 3.762511522815624*^9, 3.762511524317596*^9}, {3.762511871810151*^9, 3.7625118742238283`*^9}}, CellLabel->"In[162]:=", CellID->1568373917], Cell[BoxData[ FractionBox[ RowBox[{"\[ExponentialE]", " ", RowBox[{"(", RowBox[{"477071", "+", RowBox[{"180432", " ", "x"}], "+", RowBox[{"22080", " ", SuperscriptBox["x", "2"]}]}], ")"}]}], RowBox[{"1296815", "-", RowBox[{"806352", " ", "x"}], "+", RowBox[{"217920", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"30720", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"1920", " ", SuperscriptBox["x", "4"]}]}]]], "Output", TaggingRules->{}, CellChangeTimes->{3.7625104530234327`*^9, 3.762511524784836*^9, 3.7625115647145967`*^9, 3.762511671461604*^9, 3.762511874979734*^9, 3.7625122291233473`*^9, 3.762512273294409*^9, 3.7625123698421373`*^9}, CellLabel->"Out[162]=", CellID->1806074125] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], "-", RowBox[{"{", RowBox[{"pd", ",", "era"}], "}"}]}], "/.", RowBox[{"x", "\[Rule]", "1.1"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762510465679934*^9, 3.762510480725728*^9}, { 3.7625123748140087`*^9, 3.7625123987873487`*^9}, {3.762512439842135*^9, 3.762512470797274*^9}}, CellLabel->"In[168]:=", CellID->967244695], Cell[BoxData[ RowBox[{"{", RowBox[{"4.092282068768327`*^-12", ",", RowBox[{"-", "4.1463320066270626`*^-7"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.762510483032395*^9, 3.7625115306010113`*^9, 3.7625115739348173`*^9, 3.762511673828484*^9, 3.762511879520502*^9, 3.762512232469359*^9, 3.762512277834742*^9, {3.762512377318117*^9, 3.7625123995587673`*^9}, { 3.762512444841447*^9, 3.762512471964573*^9}}, CellLabel->"Out[168]=", CellID->1038937113] }, Open ]], Cell["But less accurate at the ends:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762512507904931*^9, 3.7625125188805733`*^9}, { 3.762512603969984*^9, 3.762512611513341*^9}}, CellID->226524434], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"pd", "-", RowBox[{"f", "[", "x", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"era", "-", RowBox[{"f", "[", "x", "]"}]}], ")"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "2"}], "}"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762510987423566*^9, 3.762511045676964*^9}, { 3.762511537102899*^9, 3.7625115453638144`*^9}}, CellLabel->"In[169]:=", CellID->266571725], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "8.46688711215031`"}], ",", "7.535120171246252`"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762511007079586*^9, 3.762511046182143*^9}, { 3.762511539009615*^9, 3.762511545777494*^9}, 3.7625118330344133`*^9, 3.762511888620619*^9, 3.762512662094104*^9}, CellLabel->"Out[169]=", CellID->433384987] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"EconomizedRationalApproximation | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[644, 23, 168, 7, 70, "Subsection",ExpressionUUID->"2179bdf6-e44d-4d99-96e0-517c641bcfc1", CellID->462042388], Cell[815, 32, 620, 17, 70, "Text",ExpressionUUID->"c0fe3391-762b-4ea1-a537-cc67170bc137", CellID->13078159], Cell[CellGroupData[{ Cell[1460, 53, 7508, 191, 70, "Input",ExpressionUUID->"17416e79-8b4b-4fea-a402-21073ac04eaf", CellID->443871870], Cell[8971, 246, 1368, 46, 70, "Output",ExpressionUUID->"b2658de6-732d-40db-b14d-7bc4d09d1225", CellID->573803875] }, Open ]], Cell[10354, 295, 192, 5, 70, "Text",ExpressionUUID->"61402a40-a11a-4e7e-880d-a7df3e21548f", CellID->814521048], Cell[CellGroupData[{ Cell[10571, 304, 345, 11, 70, "Input",ExpressionUUID->"675f5d6f-bde3-48b6-a035-bdf7fc5a8e9f", CellID->1196201824], Cell[10919, 317, 14052, 252, 70, "Output",ExpressionUUID->"3ccd327a-ba6e-4280-8c67-f5700fcd521b", CellID->644562215] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25020, 575, 178, 7, 70, "Subsection",ExpressionUUID->"9ceb56ba-b967-4392-a448-8f22ae298245", CellID->754506620], Cell[25201, 584, 433, 9, 70, "Text",ExpressionUUID->"13dfd922-5391-482a-b3d1-31d0ac8ed741", CellID->1439930520], Cell[25637, 595, 233, 7, 70, "Input",ExpressionUUID->"291f412f-6fb6-40fb-9600-1b259a1ea37e", CellID->454333265], Cell[CellGroupData[{ Cell[25895, 606, 534, 16, 70, "Input",ExpressionUUID->"40ad498f-e5fe-41b1-8500-e6ff14c1d5f2", CellID->971783119], Cell[26432, 624, 724, 20, 70, "Output",ExpressionUUID->"99fdc690-9e20-41d0-acab-429dcbf23dc5", CellID->2060027434] }, Open ]], Cell[CellGroupData[{ Cell[27193, 649, 8048, 197, 70, "Input",ExpressionUUID->"955b6f79-2849-494c-b858-a5e55d2d052f", CellID->1568373917], Cell[35244, 848, 763, 21, 70, "Output",ExpressionUUID->"c07fd2b1-6cf0-4330-8052-e01d251cee5c", CellID->1806074125] }, Open ]], Cell[CellGroupData[{ Cell[36044, 874, 417, 12, 70, "Input",ExpressionUUID->"2e5ecc9b-2c44-479f-a30a-c8efa591e3fe", CellID->967244695], Cell[36464, 888, 488, 11, 70, "Output",ExpressionUUID->"3e7825e5-1005-43d9-91e8-157fcb5c61ce", CellID->1038937113] }, Open ]], Cell[36967, 902, 202, 4, 70, "Text",ExpressionUUID->"1d641aa2-cbe6-4444-92ef-9fa1a70bf00b", CellID->226524434], Cell[CellGroupData[{ Cell[37194, 910, 619, 20, 70, "Input",ExpressionUUID->"dfe1c090-f291-46c0-85ac-fdd7ad79e8c9", CellID->266571725], Cell[37816, 932, 380, 10, 70, "Output",ExpressionUUID->"805d140b-70eb-4177-9097-f04ee010517e", CellID->433384987] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)