AlgebraicSigmoid.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     35094,        739]
NotebookOptionsPosition[     33179,        699]
NotebookOutlinePosition[     33513,        714]
CellTagsIndexPosition[     33470,        711]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Sigmoidal", " ", 
    RowBox[{"function", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"S", "[", "x_", "]"}], ":=", 
   FractionBox["1", 
    RowBox[{"1", "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "x"}]]}]]}]}]], "Input",
 CellChangeTimes->{{3.8249196398599997`*^9, 3.824919705546925*^9}, {
   3.82491980482764*^9, 3.824919805590909*^9}, {3.824919929098596*^9, 
   3.8249199330709753`*^9}, 3.824919981733512*^9, {3.824920019968329*^9, 
   3.8249200201563883`*^9}, {3.8249201314220133`*^9, 3.824920134674994*^9}, {
   3.824920243542808*^9, 3.824920254457478*^9}, 3.824920299086957*^9, {
   3.8249205626777067`*^9, 3.824920618939399*^9}, {3.824966219796109*^9, 
   3.824966257992029*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"518f6077-55b6-4aa2-a54c-e623b2bdb114"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["S", "algebraic"], "[", "x_", "]"}], ":=", " ", 
  FractionBox["x", 
   SqrtBox[
    RowBox[{"1", "+", 
     SuperscriptBox["x", "2"]}]]]}]], "Input",
 CellChangeTimes->{{3.8249196398599997`*^9, 3.824919705546925*^9}, {
   3.82491980482764*^9, 3.824919805590909*^9}, {3.824919929098596*^9, 
   3.8249199330709753`*^9}, 3.824919981733512*^9, {3.824920019968329*^9, 
   3.8249200201563883`*^9}, {3.8249201314220133`*^9, 3.824920134674994*^9}, {
   3.824920243542808*^9, 3.824920254457478*^9}, 3.824920299086957*^9, {
   3.8249205626777067`*^9, 3.824920618939399*^9}, {3.824966219796109*^9, 
   3.82496627234492*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"a3239192-e5be-42e6-b98d-5a5fe7af7e6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["S", "algebraic"], "[", "x", "]"}], "/", "2"}], "+", 
      RowBox[{"1", "/", "2"}]}], ",", " ", 
     RowBox[{"S", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.824920621358253*^9, 3.824920629435174*^9}, {
  3.824966277694089*^9, 3.824966413654457*^9}, {3.824966472167869*^9, 
  3.8249664906361113`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"b2e16782-63c5-4d9e-966d-b71a6f6afe81"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2Hk01N/7APAZjWUk1CD6UJYs2bJVpDzvFrQpZSsk2RIlEaWsWZNQIqFC
kq0syRbe77KGkC07hTGYza5BvvM75/fXPa/zPPe595znPOeec6Xsbl1w5MDh
cOZ4HO7/Vr9Jo7mNDRI22lA6kfUnGMgPRBYH1kgY7tap2gpKMJwVHFku/cuO
R1TZt9GDQVLHff3WPAmTDB2Zwa0Gw7fIZzyjZBIW6BR7LpQUAjyqv3ZiP9j5
aZmDQvoh8PyO7enAZBKWGqUnaJUTArl4zwzcAXb9mXOnKH6hwOloqCF2eRtm
ayt7f8UrHEi9dTfSn27FRscHgriePIILNUn2e5oEMZyjv5vI78fwgHH4RuyY
AIZNA022IRrK7ia55J/jx2IbOJJy5mPh7DMzyX8v+TDB7+fKyqnPwPBV1dkT
VF4M4UnHee+LB+aTwTUCmRcb1doClXrxkOS/mvN1hBezfcPryXMiHqhXdLh1
O3mx2OCqtiLLeHgm/RlVqeDFCoqVp84FxsPw+zw1UgQvJtiTKFLQEg/eRcnb
hmXYcXTxhIpLAmQ2+PR4WhExyWpDRbPyF/BSw/tYtikRK7hIFVCrewFRrzwK
ho2IGFJyOYP08wV4eLpGnkSIGPPZd9YC5QUc3nVZb5cs2wo9hlJiidDljWQ2
0XkwY5pPp/yDROCQ4/aWesiDjWbqnFY0eAk2Ic+F27K4sVHERU6YlQStsMR9
L50bwyEzvbe4kwFWLViSKdxYqvx5zS6hZJD0+G/EI4btHB5Cxd5k+HMlPUvE
mxtz/0MSXnVMBifdAl2bY+x6JN/tVl3J4DbXfJU2xIXZ9rEmustSwN9208fN
JC5MUuDh5FL6ayhoM4zu4uPCMGPf/rKi1/BHL8rtFRcXhjCPJoZ9ew0GEsJ7
97I4MZxQe5r+n9fA3y9XcOE3JxZbJbDXRPoNvDY5VfQynxMryGu6VZLxBlCD
pyXyZzgxtR2g5HMpFXAqu9BjoQQsVlzk5WbfNPAVOWIT6k/AIoZoLtfC0mB5
w269/i4Bk7ylIdkSmwb0jkzdUy4ELNBE27rgXRoM3FMtMz5HwBKLIvdOtKVB
Se3hwstiBIyZaSpGlEuHm9bWb+9+2IRRvpTcD+5Lh/7HL8Nzuzmw2CUlbvRK
BnTWSebZtnFgyGibYotrBrRsvG8X/s6BZXF/jh27mwHVniVigZUcWKN85zn1
2AxIt+rMNX3LgZ245NVz8msGuChtaV9358C0KyT4fWTfwWpToKgxHweGw7lG
yiy9gwUCz2FOLg6MZ10iM2ZTJtD1Yq5WbOAxUQ3/UO6tmTBa9Cpn9zweS32e
W7NDORNqkyoO/e3DY8xk/YJ2u0yIclmwTX+Px2zrfETDOjJBnNc5e+EoHkPO
0Yx9vrwHm+qWKOlDeAwbSI/50vwe0jzU3Y334TH3tsbSLYPvQW6AtT9PHo/1
riiQ/qy9h715T2rt+fAYT3injBFkwdGzn0Y6unFYr9N9H72GLLj+7J9woTMO
k5QSTpAez4Y8A/u/w1dxGEbpto5cygY6q2GQzwqHrQSuVhKIOeBh//StsxEO
4zkw+15dNQd8tXarS2rgsNTa2Do3nxzY+SEucefyBspMWvB9TMoF132KnAPi
GyjScucq3iIPPDjL33sLbKBZfstZka55cL/b8NQ2jg10Zc32r0JgHkR6Ocac
nPyHSj51l3yXnQc5n1PFygr/oc5iE4Gv1/Ngat921XiDf2hqH9r/IfsDXNtP
sDjnvo5qaxoQeUn54MYV93fabh2NENsa7aqYD949UilhZuuo+2dKw8SRfAjz
ht9VB9fRiyZLA7tv50NmyX1XZc51VFQ7UfRnez5M7J8NICatoUJt0dEBpwrA
/sBwVk3NKipq8bu2Q7QQnLIOmBuUrqJlB88tn5AtBBexp5u+56yighpTHc3q
heC+esym9ekqqkDMrF0+VQi+aDap78oqymelZjztVwjPDb386asstGtoD3KC
XAj1FnymYlostOzYMYLN1yL43uiIT5FnoS0eiTGP2oqgRQf9uPM/FpqlrEGp
GSqCjv88iLs5WKgyr9gZR1YRjIz8qlZt/4uK1uYyrbU+wcq1t3uO3/iLRrEM
49RyP4HivYMbbhkraMZBO56ljGLAhs4qjiWsoCnUfQ8DS4rB/Ji9mcUjtvO/
OO5qLIaH/FG54LaC5tVcHUiaKYa+jCELQe0VtHaEkfFY8zNE/AwsKGxeRtt5
b1u7NXwGsmLD1YW5JXZ/bzfy40rBN3YgynliCT1z+kGurVApbFtilA7+WkJN
3z7sbVIoBb2vovx1lUtosWRVIuV8KcRbuFTEh7H3K617Gb0rheMhW0gHdiyh
IUJfrw0Yl0HakEmtz5FFdOWHPcpTWQ4a4xqsLq1FlGDK8UG4oxxqp7eqqSks
olm1is26lHIgL7clk/kXUZ4MqniXUAUobjvjaTK4gAaqyFVo36qAIoPj0ip3
F9D2mrJQhsIXqM3XChzNm0dbUpSCiIWVYFZCKtFNnUfFw6UDApoqgVw5N5MQ
N48yxeclSOOVwNNUYGF0fx7N4Ej/Fbe9CozGlfdWGM6jQup+dzcCqqBHVHY4
7s8c2ijBO5xmXg2TQcKHDEXnUPcrJH5Rfgx4/fIZcbxzqA05flZgJwaq906+
HV2bRYc9cSCuioG3mx/v/d+zqGrK7XCPsxhwWU305uXMoryrz8dFYzHYrfXZ
a9vhWZTqJTHquP0r2JFN84euMlGnA5uM2/Z/g7DfdDtFUyYqfZ3ZEnXyG+QM
RojcNWCi6U84XOysv8FcR6WfoBITFRK//dD84TfgCDiZGEZhoLweaLpj2zcA
9amf57cwUIcV9Te6bjVQEa+gTzGnoU5Uk4octBZ4rCbt8YdoqBbPJY7j3bVg
Lpn5cIcUDa1AEx+sTNfCXI4MdmaGio5q3Qv6JFIHe7CduoUBVPTOMXtLr1t1
kDgtpH4/awbVrgsyOS5XD16Al+BjTaHO7m7OzOwG+EbAdGVHplD3dt4NlZoG
EGzyt9SrnUKdbl9ujBxsgDzTtRfu0VNoWPb72+kCjTB+fXlbt/QUqvo3JNbo
biNceE7jeX2agtZeHzH8eOY7qE31Lex9RUa3NYZudRNshjtMlT3bQ8ioqRrx
Z6dSM5QtB13+50Jmz3/usoVhMxzhUqxv0Sajrcs5HV/8m+GCzP0X17sm0B3d
1yQX6M3gdXnHwbebJ9AQV42HOt0tUPHTMkDk/hgqTdsn+6a8Ff71fvy0bjuG
agcRyld6W+HoKAdl3HAMDaPk8HmutEIzPcf4k/AYmlVzX7npQBsMbl6VMi78
gzrXmzVtKmuDDf3k2keU36jQaHSKxZV2OF4xQFw3H0WTaKOazz1+wsecdzoN
uqMox4Oriz2hP0E0+db1p5Kj6CXPmTiVlz+hZ5nr2emuEZRXVtFFBPsJsg/M
BV+xhlEeniyvHv4O+Ba0yIcYDqGaDGo6f0EHrEVrcoWN9qHCkaknAd8F7tn5
K1tJnWjC46h3yoM9YO4kk9bhW46eLLo05Nw1CA0tfZGaJmUgFhp/507wbzio
8rXI+EUnbBAPI9Mfx2FfV09C9fdO9pzPnaOWj4PaA+p95bVO2CqhyDtZOw5y
37cf47naBWGPnpjW948DydGtE1XshtizfHuUuCaAmvLfgmp1D9DTOgtDrSbg
DZ/3vi0TfbDtKv9hQxwZkj49FnuwvR8qkpKEz/KSIcEybZ1ysh+MQ9yyzgiR
ISqrpa72Yz/gngjMqCmQ4d5xGXPfewPwSSvHPf4cGS74tnvPbB6CkL9eN5pT
yMDhLTzoIDYKN/cGM/rVJsHSNqejTGsUTtqffBp3cBKKTsF3PuNR0G+0Vz16
fBLsdl0vKQ4bBdX6IOsgi0n41lgZS1gYhdzCl2/C/SYh+D8H/YzW37A0Is/9
uWESCF+LPo4Fj8ESDxb/zpQC1rmG7w68GYOYowfjpS5ToDh+MPlxxRiIUu5M
xzlSwMGF65Hm7BjIxe3PsfKmQB3J0j7YZhxox0W23ntBgTAnvKiMzgSoGmja
Tv2iADefcZAdnQyEiYy8vvNTcFHeEttPnIQXXxjFxEtTkHPUYYN39yS0Hhzf
q247BWd97vl9ujQJ/cbCSU5uU5BATvUh1E3CGbwMz43IKZD7Ons7M5kCEjqE
wklsCvS94+ymT0yDReTmHb/kpyHh6au0avtpCFkWHdikOg2UvPejz/ynYYmq
h9+jNQ1RY19sdIunwQMXnmKNTEOX8bhl1K4ZUAl3oF2/OA0OSvtMVJdmoFpe
likTPg3Boz3HPN7SwDNTy8BoZBqGy0/fvFdJgye9rQa649NwMA5L8O+mwU7N
G2EyU9PA1M+ZiuSmQ96I4uCfuWmwyfWLeetKh6MNYXESXDNw0Hv3QJcmA1ht
SqURSjPwl1On/D87JgTIqJtd9ZiBTI/5H6/dmPDx53Gzt94zYDry4Y/UAybk
q8tZjt6fgYIyaT6F50z4Y0aMPB08A06ufFe06plg43pJfjJuBrraRwhGirOg
2GZ4W7uYnZ8cZuw/Nwt6LScEXGdnoJkUNimAm4NnzntlnBdngPw41D9tyxzQ
TS+q2f6dAXHfkLxahTnIuhBx/gieChHWD3k2X5mD+XwX10ZBKthK+GMvmufg
VNWtOoYqFQTfeKkVZsyDbOTvtrZrVFDa7tVwtGgekgQ0U7VdqWAQc8emC50H
ma+3tF65UcE3wDNquX8e0ksEsEteVKBcuU05vHUBeH5s5Up7SAVM8mZqk98C
NO22NbiZQoVb6Q6C4+aLcPEEiyz9gwrRPi9Tou0X4dGeu5ZDbVT4aNyqoOO+
CHcExIqfd1CB/u/AkehHi5CXyNzD+kWFG1abPbQrF2F7emtM6h8quAgVdUZJ
LYHoqfAim2UqOIVtJOyjLsH48Au0YicNwi5ryYyuLMGAuJSLmBQNMrWu50dy
LsOc2k0PLxkaTPzpaBjZuQysuxvZsgo0cIDMlUfnl+HQ0UnSNXUa2K2csRwu
WYZTz+oq3I/RwMYlSSI8aAVKyD8/fHakwWofsXX2yQpMNL1hfblGg8STPv7W
SSuQx3griV2nwU+FiyPqn1bgMY/apm83aXB8UjhtcHwFtPsKb+Z50WCPw9Pd
Gif+wlSWpfzOUBosXI5QGuJnwdKTYFpYOg1ifywPGP7HAkEdPnujDBqoHL4W
VSTPAt1aWY5tmTRwEjeghSMsOLJDuz4+mwZ9/ZvyNTxY4LvP/l14AQ2qLQI0
IrpZUF9BLBKppsGj8946mimr0Ku2ncX8RYNnLYo38rJXAbmp15beR4MUw5HX
sqWroCZ/venCAA0KDp8giHasQrll5qEPwzTo3bOjbY17DV6q4czOTNBAgaPa
od5zDbyDPVz3zdGgvogz9tLpdRD/PaVUw0uHdpWKbx0X1+HvJl0DPT469Ge5
LZ52WocUldHW0i10oL/+ZakXtA6hVHPNTEE6iDzOlpUpXQfBgDdB7iJ0cLQ3
+kKV/gelmDqjUooOBKF4cgDrH1TOnDE7eoAO2+j+/Nu4N2CpcE/VPW06SDU6
788gbUBMfdTqBx066PkeCmtU3gA5NTe88CE6+IyPyW69sgGHftEtuhH2+cUa
juk1G/Bj3cpa8hQdqIqU23YGOKR9ob6RYkWHX82hzBABPCLoZ00J9aXDc71X
+mYieCR+Itkm1o8OFwqLk2Ql8IhDALntpT8dWhPGjtcr4hH86/Ss7EA61F89
8pLbAI/YSNw1qwqhQ8ny2pFIXzziEtqc9zmKDgkyd+JipvDIP8XG+3PJdDB7
YLc/qYYDEde0+Nhbyo6/EuJa/s6BfIhfGUwpo0MPWt9t0s6BxPgo2duW08Gc
oOS1ZYgDifbf7TNRQYeLT+Y/BS5xIGc7DUYmq+hg+SZE/dqeTUiC2U211ho6
2NZkKmvFbEL2vTj5UraNDjc2z0i3WhKQVPs6N+lxOsz4VBA2XyUgZj53g6rZ
dqE8IhteIyBS5cqilhN0uFankPPVk4DkNCZ2xpDpYBfgpP45ioAoHtkZu0ih
w6X535BSTUB4Dyo9zqHRwWCg19pFmhO5cXS2rmqJDrty6xO4pjkRg0PhXmnc
DDB9U1bexORE1voymMo8DIiMyxmMXuZErBt5WaVsLzyIlt7OyYVYv4oqbyEy
oOmM+Ud5SS6kOuTCCnMzA7zpE3UnzLmQlE7z/t2CDPihzrkY+Y0LScM91Tss
yoAHZcdMBJK5kfktQQaG8gzQsG5nXknjRqQHC4lFbE9vWEcXvOdGFIs1A8UV
GGBp6P39fDE3EmtkGMFk+2BPFjz/wY1c1Hfii1dkwMr8FmUxHA+i9vWoVLsK
+/y9vQQZRx7ksUqviaAWA9wzb5Ts30tELt36nVEPDBhu+y+efz8RYcnkVMgj
DDD62+RJPkRENu+qiIhgW/HMHvWEU0TEofvb2ZNHGDA+O5G76EhEhk9MP2o4
ygCLw1fSilOIyCBRYblEnwF6XeejNHh5EdGmIA/70wzg4zhgpzrBi3jzCynj
zBmgf9M0XjGOD+koX2g2c2aAaLnELf3d/IhewWkrujcDnnlEPFX7JYBg1kR6
eAgDLoSdU3lVIojYdNwZDoxh38cqxCzDbysS6F4UMJ3IgB4yMT3ObBtSn2ZS
OJTGgFa7iSPbdpGQ70kzdw9kM+A34f1KvDQJWXvXa2rO9kKmc76YHAlhtPtL
ebEtNjMjLqVCQrSqZCKL2HbwnFveq0tCjE14k5Rz2O9m8MYHIwsSogP/qiRy
GSD3TmzHoxgSgnHvt1vIY4CO4UA7XxwJSY1+cHrrBwacmUoJj00gIVSZDllV
tm+rSC6+eEVChCQHPlxju/KzXHtmLgk5veUuXz/bF+o1w2obSMjz6Fi+yo8M
cHRePHSimYTEriVu7mX7Hm/pfHMrCck4dn5tnu1XZw9e7ewmIQWM5SKlfAZQ
epBDf8ZICIJX9E5im3WPY95xkoQEFVVtKmF7y3+12VPTJKTymVHwT7Y1rhhu
n50lIaJe4Rd5Ctj9wBNb7yySEG3V4x9l2L74tilkZYWEOIRIL+mx7aIfpeu7
RkIaUSU1S7b//z8VGZW8bu3F9v8Ad6m2wg==
       "]]},
     Annotation[#, "Charting`Private`Tag$17518#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt13lUzP33APCRapoa08x8hAptRFFaPHpSue8KJUVJEZFC2oRKetTT9rRL
aJE2LUobldAmetNeFG2WQqIRmc+nRZSo7/zO+f3xPve8zj333Hvu/eut4HRq
z3EhGo3WLnj/F//9bDExP0/g5eWZb364+gPPf8lU/28C14r7Hz0S5A+72O9/
Vs4QuJzVGvUm0R/kdU//OTVJ4HWV6f007A9PYuLFBnkE1rTcI7Z0aQCIqb9c
iZ8ROOFDR4dPSwAk+hzZGZxG4CnadOKevwOheIF3Lk2HwDY2lURHfjD8bV0k
mqJN4Dx1kccf7wdDU+4HF00NAvd6m20RaQiGQRNLNScVAs/yqjrdB4NhSZxa
Rb0sgdvXthxpkQ6BUJmR5ggagV8wQ782x4XAfu1Do8w2Lt7iyK1YExoKIsdN
tKQPcfFQn/HKR5fDoOuw5r5ROy5+se1h9URWGFzfLxvw0Fbg1PFp7TthsMmc
anS05GIrE/XogRdh4KydbFdkzMUTQb9ozUQ4tCz4HKynysUmoXuHGanhEHs9
ovPQTw7e31VSdbEsAohXjR45Vzj4jmdFy0t6NOB12VFhcRy8/oiliJJsNHgE
BeQ6X+DgQuaj8QD1aGhS1h5QDedgv4elIodsouH82aydd/04eOrYS/POG9Ew
xPVXbXDg4ORHg2IRxjFQbqExMqzGwZLGhvsvxF2APfWpR1Xa2HhlhNXTKJs4
WNXz6V1zExvzZ3Ryej3j4Mcn9QPO9WwcvdQB6UTFQYpoveWNWjZ2VspZqvsg
DgZ3jBqsKGXjszOSwrqKl+Dkc71lnEQ2dlB8ffHv75cg6u3A0+lDbDycPee4
r+cy+FMGHpc/SmKx1K0p5cXxkO6oM4LeSmKduTX31GriobZb49h4nyS2XhTV
c7clHuYqlez3tElir5iF2z8Mx0NoMMN88R1JvHLF747H8gkQw+lddy1QEt+X
9riRdS0BUrU9RjOlJbGrw9J2ySuJUHUu1a10Nwvf6teH1JtXQfHYmbxXpiwc
+qbH8Ur1VbhoaTq4wIiFVX6JM649vQpOKj9s9m5k4acalVI9E1dBot/KcGYZ
C5PMkgAxlAyHtzCWGQ8twhLhvYYn3ybDQhG/xj6fRbhpmDwduCoFdsXbyM+l
MPGlSnunVF4anNeS3GGSwMTJrxyr3f6kwc2uljOXY5lYS2+npsXidJjj6tcr
BjFxXSutxtQoHW4nKDqbHGPi1mi7W7KZ6cBMooovqzNxQWbicgP7DGhLjtZR
qpfAVa6Vus8/XQeTjIe7TL+J4/1j5wu1pLNh7OLAb2GeOP6VZVi7RjkbUgNn
ix6/F8cvuxx2KGtnwzcHXbpetzj+rL37G1hkQ7zi/Tq1GnE8HOTH4IVkw7v8
WxpElDhO2XrdciE/G3zL07jvlMTxZp+snWVtOXCz+Z8+74MMvHZraIpVXi6k
aPkaF+5l4JnwShHVilyIzfAqe2fBwAUX69Ikm3PBy9s9Zgdi4N7kPDehL7lg
IHdoi9xqBj7FOpsaqZYHPb7oZhsphpPs5aKWVeeBkDLdVyFUDO+lZ/Qmv7kJ
h8MSpToL6LiGvShj045C6IAfdL8cOj4jNiBvZl8IMLvvl3w6HRvdszN1P1UI
8l6y770u0XF7TX9uX1IhDDnkFCzxpWN+zaqIPR8LwVmvTO+wMR1bDRhF8oKL
wHOi3ZH/VhRb9mzQeNhUDIFHFpZIEKJ43+Xf5iuDSoCmJldnHC6MXSfRjQzT
cnhzISWyuFcI0wOLR921K2C5uEvhd6MF2KvwwuT5iBpw/0tVpH/5fN0MVtg/
LIzhqM67gvr62bpjfZa6uzTqQdVv87xn7nTdU/uoEOFrTZD91rrhH8Opur3S
FfkTz9rgc4iUvsmyiborB81i2XqdUJO0dtuILb+uIOCOwxaTLtD48vr7hgxe
nZdJHHf1ql7YWtPP+GM7WNdurOzWTnsFpwtLpzlEd93vVNJPY2s/2DorZXcF
VNetP2vxO8rlHTQ/fR2jbV0FFwYDVXyeDMJmtcfllsndsPBGcyjbcwiEfKUG
jkkPwmQv7Zfy+EegMy1DnEgeXJpSn+wPGob/BvuMvW7wYTDrbvKPUR6UpUVY
Bk6Mg8zHBr6R0gicyjnG/mQ7BSedzF8nW3+Bw26pKyJDpmFEwfHbi91fIdrK
V1c7fRb6ZsiNHSqjILw4iRf0aw64G26Ub/45Ci/bw8fCJBeg3S9G7n1M+wY2
/k6bUuuFkOHvqp5ubT54SIwqdhwQRh7UAeJSMR9G/6kRlnAURr1BLpUGt/ng
NhLNMzkhjNzXd+qPlvDhROPaosfewiirdwlpVM4HpyBnzfuxwmim9/Lspyo+
2E1+gPRHwuiEYcuO74182N7/yt5NUQRt2xs+YvyeD3LFTVdFv4qgqdBbti0s
EvZmVlW3jYmg7ZmvG/ewSYhJKBqI+ymC4ur/Zg9wSPjuH6e4VEQUzVBeuqOL
SWgzty1ZIy+KgjB7YlaGBF9yuNHUVhQ1TQylf1Ym4ZmmyFTME1HUduKvrm8G
JPhXGVtLptHRmuGlab0uJGjZPx9zyKYj8bzPaaJuJHydt48ry6ejfi25hk3u
JBww8W21ukdHAZnDsYknSdjcVwCJz+josWYOa7sXCdOTi9ZL08TQNaNbpiH+
gv4bXgkrHRdD5za56NpfJOH0TY+KTRsY6NGl5fa4hIR3nbJJrE0MxDQwvtBT
SoLFTJs3T5+BdAeHPnwuI0HVXEXzqhkDvb/2nc68S8Kn8eHiqeOCfOAqU7NK
EvYZOGTfS2egOI3qFZl1JGzpsYrVEhdH8iplG0s6SWAK6TipD4sjjVO8qhA+
CdXnFlrzRsXR+iMW6kdIEpz5ncbXJ8RR4bWsKQOKBPzKZTWLJoFa9YUDfo6R
4F2aOsKXkUDenufPOn0n4Y39nOdtSwn0T/OfyGWzJBRUNvqvr5VAemkzoWJi
FGw7uTdJNYGJqujN6Rx5CnziH9BOpTDRXPz0/AOBcysVPe5mMlFet9LwcQUK
hITGjfRvMdHI4qZNVYoU4KsXxywamajTp4G2bzUFm3HTzjM/mUi21dr/X1UK
1AldoaqDi5CPyplDpzdSsKx6xaltq1goJHplw/x2CuaO5sty1rFQlWikXIoJ
BZ9Ymi0Dmiy00bFmTtOUgrJjWxV8gIUWBNLMnHZQYMJ27845wEIH871XPtxJ
ge+JKh3aFRYK5rty7C0p6JWypj34w0JFlbN5hnYUxHtFXdF4KYl0EwzIR64U
/Hp6qyrqrSSK8o+v0XajwGnNi/eDHyXRtNNTtQKBtQek1a+MCezznXHZnYKv
OTbD08Js9GJGI+vgSQpimZ9D7FaykfnJ/ICh0xR0vGc8kLFiI6JcprTsHAV7
InarZVSwUe6Pgwb2YRTctBvbUV3NRhnjrKYagWfWX3HurWUjleWJdOlwCrK6
uzIX1bPRmv8+3e8RmC9vyw3sZCPyvFGjaSQFUQ/sfx4eYSOWa36/UgwFj8Zc
H8vLcJBbct62/EsUqB4Ms8n9l4OWjZCJ/BQK7M5UcIVDOEhn2NDPKFVQHznS
eTSMg7rS3kklCzx819xM6QIHnVPpCYY0QX+mFORc46DbBnWyF9MpkHqUtzbr
LgcVcaKSZDMpoCk0z6Z94SCnABabnktBH4+Rk2DDRfL6TfuUblPQtDc6vXo/
F817GnUcFbjiiVjy+4NctKhPhsgV+Op1euw6Jy5SHjortqqEAhtbEd96Ty6a
PMfLUyiloKeRZjYZyUXP5XntxB0KunJ/ju+p4aLedZm4555gv07Dhlw5Aq0r
OtL//AEFH4Tzp5MUCcTn5akyayn4ftOlVFqZQBdXPdluIrD06OhyBTUC3aCr
8WoFPuY98XODHoFKvUOb8h4K7v/f/G2LfQRayXXV8qyjQDlPWib6EoHQ1/nX
b55QoGvS/5yZQKDW3fFS7HoKzL+kR16+SqDiv1YrbRP4jJr8VHIGgZJ+jNwr
Ebj2vvLzm8UEWnt6bWVQg+D+TdoRDc0EiuuU2y/dRMFxlyl903YC+VQ+a9wp
sJ945WR7B4G+RbynBwqcsWuzY3cvgVin6hlDAo/0If2hjwQqK0sSK2gWzOsn
NHn8M4GsfnmseC3wItmGwi9fCfTXpg66eAsFWg4mS8fHCeRhVnfIXeBtCxgd
PlMEyt6c3Jom8P4bbWHT0wTiWERLPBXYbVusXsBvAikaVyv9Fvj//ycoA5tx
17dS8D9euRtm
       "]]},
     Annotation[#, "Charting`Private`Tag$17518#2"]& ]}, {}},
  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->{{-5, 5}, {0., 0.9933071477189689}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.824966376489388*^9, 3.824966414005579*^9}, {
  3.8249664770650387`*^9, 3.824966491043757*^9}, {3.825079393841167*^9, 
  3.825079397771027*^9}},
 CellLabel->"Out[62]=",ExpressionUUID->"bb9da851-4fcc-49a7-9360-f6381763bc1a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Scaled", " ", "up", " ", 
    RowBox[{"version", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", " ", 
     RowBox[{"s_:", "0"}]}], "]"}], ":=", " ", 
   RowBox[{
    SuperscriptBox["10", "s"], 
    FractionBox["x", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["10", 
        RowBox[{"2", "s"}]], "+", 
       SuperscriptBox["x", "2"]}]]]}]}]}]], "Input",
 CellChangeTimes->{{3.8249196398599997`*^9, 3.824919705546925*^9}, {
   3.82491980482764*^9, 3.824919805590909*^9}, {3.824919929098596*^9, 
   3.8249199330709753`*^9}, 3.824919981733512*^9, {3.824920019968329*^9, 
   3.8249200201563883`*^9}, {3.8249201314220133`*^9, 3.824920134674994*^9}, {
   3.824920243542808*^9, 3.824920254457478*^9}, 3.824920299086957*^9, {
   3.8249205626777067`*^9, 3.824920643750936*^9}, {3.8250795189817123`*^9, 
   3.8250795255147123`*^9}, {3.82507956526532*^9, 3.825079628426066*^9}, {
   3.8250796679181137`*^9, 3.8250797124060583`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"5a6f5f20-b136-48ed-b4d2-6bf44a044b67"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", " ", "0"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8250794109745007`*^9, 3.825079535203184*^9}, {
  3.8250796345726633`*^9, 3.825079717493457*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"f70d3d46-bbca-46f2-98f5-13b9fac71f33"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt1ms4lAkbB3DnIVE5bSiFpUVv6aAcu58yYqMkKqSlYkks2bLSpY2cbUgo
Iis5JUnaRLinknRYpCQpcpjDM2MeY4whx9d7Xe+H//W/fl/uL/eXv+7xkAN+
UhISElmL+V+fqEofXVigMSJs3FfkH6FQbUbL0GqWxrgumuXrLbp5d7FX+BSN
cfvcy+wyTwoN++pejQhoDKnyI041HhRylw4V9QzQGLmpXvSWwxSGBpq51zyn
MVIqfPYNulJ4weAz49cEGiNQ49TMmCOFuTf0M/5VpjGYE7bzAVYUFvQnhrgo
yDHW62SW2KlRqNHh6mykLst4WbopdA2Pj637XelvDGQYC6VPoxiNfHQwMjij
ryfNiIzvNxLG8dHynldJ+0YpxqWUmOPX9vBxOvlX1c1GkozGBfqpHgk+Tkze
zvplnQTjkrO1v0rlCDbrZWxtCp7H0Eb/354cGEEr2T9rTHxnMcOFUfnkGw8z
ie3bd0ZN45Mlvj+s8eXhiTx3JrdgClv3vn7r1MXF9lIdBclcMbJYWVxTHS76
8BmSZzLEGEEf3L5bm4vCzSemWcliRLcXVzxWclGtqZT39rwYrziZ+0WqcNH9
g2nb9aNirJDmed+W4+KghO1VU10x6tD3/XydIlHs4b/ap2wC60t+fydqIFFn
6f1N+EiEpTGrH+u7kvjb8E9f0u6JMEfeRd7PmcSmhsJ4nxIR5m8JSStyJPFo
8NVeyWwR2j+XtlhJJzGvLTyOflaEkav21fZvJVHzik3Pqy0iXGW7yYGpTqKa
xpuLH+6P46xAM6uui4NL1rLayTtCTFM45jzpyMEvefJvvt0SYs/GF+0J9hys
1DRp6c4VYjY/QFLdloP7VUMbXiQLsbjkQbCBJQez5abLCgOFGOP9VEfnJw7q
8ZViPIyF2JkdcDFImoNW9WZbX5WP4ffvovaTtWwMcou7XlYmwGtBKYSdGhsL
5+u3GBcK8MH3M+YOy9j4sUzQVpEjwBfGxffsl7CRmDsiW5UswPyqJkVrCTaq
lWwO+ydIgLsf9Oyc5rGwcbLf8ZmpALVNlh5//YyFq7adna89PYrq8TePlAaz
0Od5/xudDD5KL9SYM2qZaG8z5fc1mo+bo+g79lYzcUPtcom803w0fvyDV9cd
Js7e2blV04WPKS5RnR/zmXg9oyhPdTkfa5L77G9eYmLHMf9g+dQRLDasB+t9
TNwpMaosTOJhWpFd4Y3+YdSzmXd5EU1i+8/fqnWFQ9ixwmZ9ThiJQRrOzK/c
IbzAOi8XfILEqyW2yllDQ/g57Xu9mh2JinZRZqIPQ3h1UKTvK0+ihW9Z8tna
IZRJ5E1IpXGwuMu7P/r8ELI6P+UQeWz8PfQXceXCIJYH1Aw8ecTE8RMoxMkB
DByv9krJHUCeMXNOrqcPN1yQ9ZDT78WVrxJ1umY+oeq5D4rZN95jRFvqa1/s
xG7fIOOqoRZ8Osjs25DYgn9EGqe+yrqHy7Tz8XPCPbyTZk7cNq2EOTuNvvgf
KyH1ZPRHn5iXUDHV9PbompegJHKyuuvyHupCjDfdudAJ3860bA2P7YWI7lWd
BfY9QNXtffZH6wAsqbRUzNboh5KEQh/fJCZcsXFhTHwdAJ/q4Kq7OUyYlKfO
72APgFavxbyonAkvtc+VXhQMQOqGzhtxr5kgWZ3tMSY1COFdUt0liiwwybx+
LnbdIOzW991LXmaBIO/w1jMhg8BqMrT8LYMNB+mOz1KnB8FAXKEacYOEmrYE
wnd+CFa+cNGruEPC64zstnzZYViSOWnaV0eCs6qie+fSYRBsst1H/0SC0fak
gPXaw9AQ/DlxuToX7to1t9/ePgxuTPn5slQueBqKzctDhiHmgx+nJ5oHEwYb
b6l9GYa+B2sarQL4UGA1IbuylAn/mocZ6/3BB5HZ5N/ylUxoaGq+Jh/PB3sQ
a008YMKN1yfDuor4YMN9/OhpExPcB2vWhfTzgb6j45PRRya8W+GQcesQBcQP
7rrmMixoDg31V7AbBX5a4Gnvoyw4eO1bIi9dAPcLe7tOybAh1b5GSTJHAGtt
LBK7FNjQOhmXoVEogJRjpXpWy9hg6W6St7NaAG5Kx1dNa7JBRzO86to7ATxk
3j9vv5ENnFzFj7YqY2BS6F2q58GGyJvb9POujsHvppUOgnI23Cz+q9EpWwie
u7vL0ggOnPnJ6VZ3vhAO3+q40ETnwM8VignHi4Vw+b3ZSa4DB0T3k/dHPBTC
E8W1sRYuHHBsSBwq6hRCM9N4+T/HODDVGaswozwOu3zWB+rHcMBFIupgecI4
/GkwpT/C4IDMkWC+7DkRFN1Umfl7GwnajofWbokWwahKwrLTliRstgJXnyQR
0OtsnXfsIMFHe0VdfY4IzEPUPDvsSGjsfRgbUi8Cnae6/Z1uJIR7zWr3zIjA
oXtbtWsYCeTRlD13L0xAbbLJr24VJLT5lJceiBXD91WNxW8W//6PktbRyaAp
aLmfZV/ZzAXDXF0OzWkafK1kxP6HeDAdHjtX4ToLNzeuO/XuCw9409rKZebz
0JuqEzBmPwJ/+yd80NaXIIhw/fTMihFI3/n2L00DSUK+3vRB3sIIKIdU7Hqu
LkWoNOGnRls+NNEfNz7SkiYaZjcNWcfyYS7Ye9shZRlC6cd4Nak6PkjSOnNM
5mSIWJUBiQ4WH7Y5hD3bIyFHFFQlXutSoWD6y12OulCOGO0ISz20nQJ6UGv6
XrEc0cPwuyhY9OWZIfO4aTmiuK7FMNmcgrVa2kkiKRox/UvGlQYLCuwPJxm9
V6URCqVxw6utKch85xeYbkYjjHqUyzsJCja06IwsOUcjsHWWkt1DQcRBy8xd
UTTCv+xza/ainw4ftI6MphFBT/q91jlS4CZ9+S8yiUY8q1R6aO9EwXliZn1r
Lo1YMflQP24fBa313cFxDTTCwansP+MHKFDZM67eyFi8P7am6U9XCrx6lJtE
zTTiRzJAcakbBaOTdsq+/9KIuVm1r/oHKdAwe3hvVx+NMLfwPLb/MAU+ze2H
IgdpBPlq4MvnRZe78uarWTRiinVJw8+dAuswPWfdURqhubq+OcKDgnjJHZPu
4zSCp15gIeVJQUe6R0H6JI3o9CSCUxattfasfesMjQhe3uKtdoSC/+8n4v/7
Cf4LbOHuNw==
       "]]},
     Annotation[#, "Charting`Private`Tag$27794#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->{{-3, 3}, {-0.9486832941783367, 0.9486832941783367}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.825079425313826*^9, 3.8250795355836163`*^9}, 
   3.8250795786897182`*^9, {3.8250796108438253`*^9, 3.825079717869248*^9}},
 CellLabel->"Out[96]=",ExpressionUUID->"fbed503c-77a1-44f8-83a1-907ceb1bfbfa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"1", ",", "0"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.8249199839765053`*^9, 3.824919996953165*^9}, {
  3.824920048112665*^9, 3.8249200791145277`*^9}, {3.824920140796884*^9, 
  3.824920141032391*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"8024ddca-60aa-43d3-b6e9-ba31c967c23b"],

Cell[BoxData["0.7071067811865475`"], "Output",
 CellChangeTimes->{{3.824919987449379*^9, 3.824920079646785*^9}, {
   3.824920137075926*^9, 3.8249201415272284`*^9}, 3.824920257172876*^9, {
   3.8249202880329103`*^9, 3.824920300532629*^9}, 3.8249205659274607`*^9, 
   3.8249206476751757`*^9, 3.824948833675132*^9, 3.825077595896694*^9, 
   3.825079367489459*^9, {3.825079692518222*^9, 3.825079720385269*^9}},
 CellLabel->"Out[97]=",ExpressionUUID->"2c8634c2-d815-4772-8808-b76ac89d4d07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{
    SuperscriptBox["10", "6"], ",", "6"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.824920146106556*^9, 3.8249201866320877`*^9}, {
  3.824920259865172*^9, 3.8249202743968067`*^9}, {3.824920307230966*^9, 
  3.824920351854434*^9}, {3.824920548429294*^9, 3.8249205491291656`*^9}, {
  3.82492058028564*^9, 3.824920580555295*^9}, {3.824920651193899*^9, 
  3.824920663253302*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"5720d417-3884-4784-8810-3fbb5a874203"],

Cell[BoxData["707106.7811865476`"], "Output",
 CellChangeTimes->{{3.8249201466284733`*^9, 3.8249201870343733`*^9}, {
   3.824920261227281*^9, 3.824920352426283*^9}, {3.824920549677957*^9, 
   3.824920581197875*^9}, {3.824920654013257*^9, 3.824920663820841*^9}, 
   3.8249488343847723`*^9, 3.8250775967864723`*^9, 3.825079368229103*^9, {
   3.825079693159915*^9, 3.825079722786334*^9}},
 CellLabel->"Out[98]=",ExpressionUUID->"adc9d984-607f-4f62-a87a-921a0b9b352b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", " ", 
    RowBox[{"s_:", "0"}]}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{
    SuperscriptBox["10", "s"], 
    FractionBox["x", 
     RowBox[{"2", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["10", 
         RowBox[{"2", " ", "s"}]], "+", 
        SuperscriptBox["x", "2"]}]]}]]}], "+", 
   FractionBox[
    SuperscriptBox["10", "s"], "2"]}]}]], "Input",
 CellChangeTimes->{{3.825077615355365*^9, 3.825077637772203*^9}, {
  3.825078723711089*^9, 3.825078744919796*^9}, {3.82507885858641*^9, 
  3.825078860631049*^9}, {3.825078970053814*^9, 3.825078990631559*^9}, {
  3.825079025079949*^9, 3.825079026961459*^9}, {3.8250790876211147`*^9, 
  3.825079097483241*^9}, {3.8250791810400457`*^9, 3.82507918740095*^9}, {
  3.825079352789095*^9, 3.8250793619142027`*^9}, {3.825079729369114*^9, 
  3.825079769897829*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"cfbae00c-82c4-47f5-98b0-0c24ad55170f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{
    SuperscriptBox["10", "6"], ",", "6"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.825078802876177*^9, 3.8250788522468777`*^9}, {
  3.8250789369150467`*^9, 3.825078952019394*^9}, {3.825078996793414*^9, 
  3.82507899886224*^9}, {3.825079115941654*^9, 3.825079129781618*^9}, {
  3.825079196577938*^9, 3.825079197472226*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"4ad957f5-2bc2-4363-a6bc-2c52d055d0e0"],

Cell[BoxData["853553.3905932738`"], "Output",
 CellChangeTimes->{
  3.825077644368093*^9, {3.825078732644825*^9, 3.8250787509323072`*^9}, {
   3.825078804674692*^9, 3.825078852567616*^9}, {3.8250789376588993`*^9, 
   3.8250789524029903`*^9}, {3.82507899223341*^9, 3.8250790287853823`*^9}, {
   3.825079099538146*^9, 3.825079130172374*^9}, {3.825079188619637*^9, 
   3.8250791978135977`*^9}, 3.825079327352215*^9, {3.8250797335914783`*^9, 
   3.8250797716888323`*^9}, 3.825088284572427*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"2e03dc25-75c4-4e6a-812e-c1c75d6b255b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{"x", " ", 
      SuperscriptBox["10", "6"]}], ",", "6"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8250786412386417`*^9, 3.825078691621335*^9}, {
  3.825079035050007*^9, 3.8250790376654778`*^9}, {3.825079142978197*^9, 
  3.8250791731588697`*^9}, {3.825079336048911*^9, 3.825079343473463*^9}, {
  3.8250797433326273`*^9, 3.825079744038603*^9}, {3.8250797796047907`*^9, 
  3.8250797935375443`*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"4fb87c74-0864-440e-82fd-2eb38d935b81"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt1nk41PseB/AZ289e2c6hTVwxM6brSBI53+9HCqWQiJO6c0Kla09STouu
LVuOnaZFiywVRQvhN2VJFCoHgwhxGgzTmMbW6LrPc/94P+/n9c/77/e6w0F7
faUoFErmUv7X3qWpUz9+EByB009ZWapcrLGgs97qO8FpF2nZ9mtycf2OO17h
swRHl7NTgbaai9f3V76eEBAcFmvNp1cMLh5THr7FHSQ4lIeHp+gOXBx8fJNH
eR3BuRCY/FN8NBefM+jhHIkjOM5b/EaKJVycd0U/7a3q0l7U5g1zcz34+kB8
kIuCHCf1iNjc2Okj1mp3daJpynJuuOxJWFY3gJucXW1bDGQ4uiPJTQ+sBrE9
zSBMX0+aY/If+/bQkSFs+cCroO2fUhxWQ3KjQ/FnPJ9wRN2URuUcMzu9ZaRv
FH+buZ15yJDC6ZasnV3uxcP1emlmtQGLZHujY91ulQlsJXu+nOHznbyhLaWr
fGIKZ+DNm+HsPPkm0M1gMOMr9mZ7jIxdnyULYxQsyh9P47a7axSoeWLSJ1E3
1ixYjFl8DjUsTUxWjIdM74sUY6Gp9/xogpjsu//x3R+xYqxRe3f8TaSY9PfH
c0NsMfboMGnNOSgm21V6MhWaxXiIsi3dZJ2YtGf1mTYYzGCx59HVrMJvpOO2
F/t1h2fwGuWyX8gnItKRP6PyOnwOB3426rv8QETe/j3cUC1mDtdW58eyCkRk
mZfhoG/6HD4YkN5LzRKRPplUT2bZHGa3hsfYnhSRF35y2m89Noe1/7Tmvt4o
IoMzWhL9WPNYQ6vlQkfZNFloSUNmbgtYUXe0jVcsJGd94MiTwxLcx5Zv+XRT
SN7+LXIh/4QE39dmNHblCUljRtuGvGgJdlYPrm5IWLJJZU5ZgQRnyc0X5h8X
kqtOvc0NH5dgPb7KRU+6kDSR8/MLPrWIrao2mb0u+kqaqNz5t2/uD+y/Lyan
sFBANq34w6Ffmgr5i1Ub6fkCcpX+CvnDKlToLBS0luQKSBn5ifAJLSpgyQHZ
0gQByd5YGaFJp4JGgWnoY38BOXlOK+OZMxVqZgZ2vTQRkMctmf5216mwyvzk
4tOQKbJDyV6vGKSAVTfQsiaNT9pMdY9cZUuDnfWs78coPqk1mT48VigNG54u
p7BD+KTtUPBWeCwN34vBTNuFTzrz3HQUW6UhJ+0WW305n5T5M9JGhSID7b8f
DZBPmSDnt6QbDPjKAFCmVIWXxsmbn98Gf7KQBT3rRZeGKB5p7h9a8kEiB+0r
rI1zQ3mkHBkheqBEwLnRSLkAbx4ZTAz3pGsT0HN5rkpjO480ov2WeWYTAelD
In0feR6ZQ73hXh1AgEz8+Depy1/I5rPFDzU/ETD6vjsXs/8mNUoDT9u+kYei
Y+WDz5+MkDeHd/z7Xp0iHJ9+6JWYN0gO9Mu+a726DDack/WU0+8lk4rDq6ry
1ED9dIdS1pUPZGr57xdn0zWhy8efXjrcSA4ftlayMdCGU2foKa8zH5BSj/1i
bz1aBcWXLfBtk/uoVP/k7mxdXUjxi+pkXXyFvnMVqz5L64GKyNHqnssHtLrr
EVWzRB8+hTWahUf3Ii+b0lwzBwOYrNz98lTTIHJkTSdWlqyHgrh8ls+lEaRq
PfnM/pUhsB4GlN7LHUFShmEKT1oMQad3y6KoaAS9ONtrodtuCCkb3l+JaR5B
wlXFW8a7DSH8L6muAqVRtH/bNt6BMUPYoe+zm5c8ikSBqzcXKRvBaO16y8C0
v1FfXH6BZI8RGIhL1COu8JCqzdui4WYj+LnBRa+kmIcS7ZNy3VqNQDFjxqS/
kofmT5H/aHhnBIJftu2x7eYhQY1A7Wq3EVQH9MQv1xxDVIO8MJNRI9g3Ir9Y
mDKGspyUzo9SaHCxw/cLN2ocHRuo2ZNrRoP+R2trrI7xUaFDnOnRTBq8tQil
653io5/XudhtzaFBdW19tnwsH0UgTZ9lV2hwpdkv9K9bfJQ/+6iq9AYNPIbK
DYMG+GjvH7YUbgkN3q2wT7vpPol2uHYqtb2gQX1w8FGF7VNI6+VL5b0TNHDL
/hQ/nipA5yvOl89Z0SHFrlyFmitARr2TJ1J+pUPTTEyaVr4Agdk9vA7oYOnB
YMNDAUKVq2RhBx3WaIeXZr8ToL9/zHr7OdPhS55S5za1ryh+/8amQz50OHPN
XJ+d/hXZ3ok7OZpAh2t3kmocs4SoODyVUvmeDmFGjje7rgqRgkfH1acddHAo
UYo7fEeI8pSvd1Z00kFUluAcUSFE3Zel1pb00GFXdfzwrfdCFJ0RZBQ3RIfZ
99EKC6rTaJGtRSx+pYML5axbUdw0cnldqz25jAEyBwL4sqdFiBc7m6Jqz4CV
u9x1N0aJUEy4p2TAgQGmVsiVdUmEVLmGamW7GMBauaKyKleEgtUyNjo6MaCm
tyI6qEqEjjXSToa5MyDc6/tK7oIInchxn4jxYQDvYOLOe+e+IcbUdduK8wxo
ZRXd3RstRjqvdmdGPGLAYxWdgzP+s6jhkOOxPlljWJ+37gvhOI/ynJOvee4y
hvnwaEmJ63d0YlOza0iiMYzPr1QttFhElkPZOrG1xnDjaFzHSn0K7pHX/yg/
aQyp8CZJ24CKNThTd3S0mKAaVGJTpymFl1+7vTXbnAm1ts9qnuhIY3FLsrOH
GxMkAf8yd1eVwexD/B9RgUygEu9zGRIZXLBX6YBnNBPM7UNf7qTI4T0tVqv3
5zJhvu/eF02hHL79fFafLGaCrX9T6m6xHF4eo50kX8KE5IVhi5h5ORwS+Eu7
y5J1dVZeEkkROEWSPzG8ZLv9l2gf1AlMqaOelrvPhIx3vsdTNxE4Xsyati1l
wobGNROKpwkcst1JvrCcCRFulhk2Zwl8w3WvDn/JLz67bT0TRWBlQ0LJtIIJ
+6STk3iXCFzP5MY/X3IkXjBuyiNwBIc1++YxE5qqugJiqglscrz3Ge8pE9R2
TmvWcAgclp1FGj9jghdXtVZUT+DIN/YFQUuemtmu6vOWwIpJg+rflqy1qeKB
TT+B2V1KoYuVTGDVt7mfGSKwtt7dM7iKCUWu44sPRwnsEdLpfXHJW0P1nNZN
EVgU+2u37HMmxFJ/nfGYJvDNj1e97Zbcnup5PXWGwK2e/W3xS9bRPWnXtEDg
l2vVVzcv+f//CV/Y7rRLqZoJ/wUwxnmF
       "]]},
     Annotation[#, "Charting`Private`Tag$32388#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->{{-3, 3}, {0., 974341.6470891684}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.825078660408334*^9, 3.8250786920057163`*^9, 3.825078733414296*^9, {
   3.8250790199420433`*^9, 3.825079038012825*^9}, 3.825079100528771*^9, {
   3.825079138971817*^9, 3.825079201108852*^9}, 3.825079344036889*^9, {
   3.825079739308161*^9, 3.825079794018697*^9}, 3.825088285395341*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"aa69e339-eeb7-468e-a1c5-611a164631d0"]
}, Open  ]]
},
WindowSize->{808, 753},
WindowMargins->{{Automatic, 298}, {6, Automatic}},
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 869, 18, 72, "Input",ExpressionUUID->"518f6077-55b6-4aa2-a54c-e623b2bdb114"],
Cell[1430, 40, 744, 15, 60, "Input",ExpressionUUID->"a3239192-e5be-42e6-b98d-5a5fe7af7e6b"],
Cell[CellGroupData[{
Cell[2199, 59, 649, 17, 33, "Input",ExpressionUUID->"b2e16782-63c5-4d9e-966d-b71a6f6afe81"],
Cell[2851, 78, 13608, 245, 247, "Output",ExpressionUUID->"bb9da851-4fcc-49a7-9360-f6381763bc1a"]
}, Open  ]],
Cell[16474, 326, 1121, 25, 84, "Input",ExpressionUUID->"5a6f5f20-b136-48ed-b4d2-6bf44a044b67"],
Cell[CellGroupData[{
Cell[17620, 355, 422, 10, 31, "Input",ExpressionUUID->"f70d3d46-bbca-46f2-98f5-13b9fac71f33"],
Cell[18045, 367, 5133, 103, 243, "Output",ExpressionUUID->"fbed503c-77a1-44f8-83a1-907ceb1bfbfa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23215, 475, 349, 7, 31, "Input",ExpressionUUID->"8024ddca-60aa-43d3-b6e9-ba31c967c23b"],
Cell[23567, 484, 485, 6, 35, "Output",ExpressionUUID->"2c8634c2-d815-4772-8808-b76ac89d4d07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24089, 495, 521, 10, 39, "Input",ExpressionUUID->"5720d417-3884-4784-8810-3fbb5a874203"],
Cell[24613, 507, 464, 6, 35, "Output",ExpressionUUID->"adc9d984-607f-4f62-a87a-921a0b9b352b"]
}, Open  ]],
Cell[25092, 516, 971, 25, 65, "Input",ExpressionUUID->"cfbae00c-82c4-47f5-98b0-0c24ad55170f"],
Cell[CellGroupData[{
Cell[26088, 545, 474, 10, 39, "Input",ExpressionUUID->"4ad957f5-2bc2-4363-a6bc-2c52d055d0e0"],
Cell[26565, 557, 572, 9, 35, "Output",ExpressionUUID->"2e03dc25-75c4-4e6a-812e-c1c75d6b255b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27174, 571, 682, 16, 39, "Input",ExpressionUUID->"4fb87c74-0864-440e-82fd-2eb38d935b81"],
Cell[27859, 589, 5304, 107, 282, "Output",ExpressionUUID->"aa69e339-eeb7-468e-a1c5-611a164631d0"]
}, Open  ]]
}
]
*)