Homec4science
Diffusion MSM (master) Browse

msm/ShoulderModel_HHT/curve_fitting.nb
73754adfee53master

Last Change
Raw File

curve_fitting.nb
View Options

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 10.4' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 56993, 1381]
NotebookOptionsPosition[ 54295, 1293]
NotebookOutlinePosition[ 54654, 1309]
CellTagsIndexPosition[ 54611, 1306]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"a1", "/",
RowBox[{"(",
RowBox[{"a2", " ", "+", " ",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-", "a3"}], "*", "t"}], " ", "+", " ", "a4"}], "]"}]}],
")"}]}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"-", "5"}], ",", " ", "8"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"a1", ",", " ",
RowBox[{"-", "5"}], ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"a2", ",", " ",
RowBox[{"-", "5"}], ",", "5"}], "}"}], " ", ",",
RowBox[{"{",
RowBox[{"a3", ",", " ",
RowBox[{"-", "5"}], ",", "5"}], "}"}], " ", ",",
RowBox[{"{",
RowBox[{"a4", ",", " ",
RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.6742792548865023`*^9, 3.674279256889377*^9}, {
3.6742795112149982`*^9, 3.674279522389614*^9}, 3.674280500791389*^9, {
3.674302374538746*^9, 3.6743024204642277`*^9}, 3.67430245631816*^9, {
3.674303042037678*^9, 3.674303063124609*^9}, 3.674304570836679*^9, {
3.678599681532015*^9, 3.6785997051791983`*^9}, {3.678599803006962*^9,
3.678599875168523*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674304569276498*^9, 3.6743045692837543`*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.67430456474069*^9, 3.674304567444666*^9}},
NumberMarks->False],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674304563510085*^9, 3.674304563518058*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.6742804991271133`*^9, 3.674280499135016*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "a"}], "*",
RowBox[{"Log", "[",
RowBox[{"1", "-",
RowBox[{"t", "/", "b"}]}], "]"}],
RowBox[{"HeavisideTheta", "[", "t", "]"}],
RowBox[{"HeavisideTheta", "[",
RowBox[{
RowBox[{"-", "t"}], " ", "+", " ", "0.0035"}], "]"}]}], "-",
RowBox[{"a", "*",
RowBox[{"Log", "[",
RowBox[{"1", "-",
RowBox[{"0.0035", "/", "b"}]}], "]"}],
RowBox[{"HeavisideTheta", "[",
RowBox[{"t", " ", "-", " ", "0.0035"}], "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"-", "0.001"}], ",", "0.008"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.674393648657289*^9, 3.674393736802031*^9}, {
3.674393782517476*^9, 3.674393848942972*^9}, {3.674393931853944*^9,
3.67439397992791*^9}, {3.674394010666267*^9, 3.674394013946047*^9}}],
Cell[BoxData[
GraphicsBox[{{{{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[{{-0.0009999998163265306, 0.}, {-0.0009972395388276275,
0.}, {-0.0009944792613287247, 0.}, {-0.000988958706330919,
0.}, {-0.0009779175963353075, 0.}, {-0.0009558353763440847,
0.}, {-0.000911670936361639, 0.}, {-0.0008233420563967474,
0.}, {-0.0006318248012584243, 0.}, {-0.00045299907019519296`,
0.}, {-0.0002776811901125095, 0.}, {-0.00008750381482128601,
0.}, {-2.8698979591836737`*^-6, 0.}}], LineBox[CompressedData["
1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAY3c6nZeWFz+qGi/dJAZxPHXnP+Cq
gDI/FHsUrkfhijwzI0C+1eA+P6xmZmZmZpY8sXT6dgk2RT9SzczMzMyePIu4
tpROeEs/xQ4tsp3vozzPoKZtDqhQP6HVeOkmMag84aE1Cj+FUz+ddZMYBFas
PFOTtenCoFY/7Q4tsp1vsDxip6JdC4dZP6+oxks3ibI806uAFKerXD+URrbz
/dS0PMtsokSMwV8/CVGNl24StzwwqJgEG1FhPyChGi/dJLk8K5JYiJngYj9a
9f3UeGm7PHUNT1Z6VWQ/8tijcD2KvTzvAL7FhOllP/N2kxgE1r88rdLO8TN2
Zz/BQDVeugnBPLo1FmhF6Gg/tw0CK4cWwjz3ENZ/gHlqP8Dc+X5qPMM8gn3M
4R3waz+ZzszMzEzEPFVCYW0Dpmw/yv2p8dLNxDx4LZqX
"]],
LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQHXQihSEhPte+3X3b579XjtgEdZceOP02D86/kB/3
9IxBAZzPH2a32+MXgl+gnf9e7EAhnF/hudtjWkURnD9j8eGiVQ7FcH682/OD
+b8RfM8b0fntm0rgfO9lPW+NK0vh/C97bkyYaFQG52/lf8jS8hvBl13NMk99
ezmcv9y0cqpsfgWc7/VnZewKs0o4fwr3N68nHxD8b2H/OLbuqoLzqyaGq95o
qIbzl4qcSVtjWQPnv7z8p0KUqRbOv3LbY4P+XgT/4aWnrnNK6uB8Njb7NXOt
6+H8S42bzQO+IvhNz22/VOk1wPlSfIvO+CYh+AAZfe5d
"]]}, {}}, {{}, {}, {}}}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange->{{-0.001, 0.008}, {0., 5.782041512248294*^-16}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.674393671769047*^9, 3.674393740458437*^9},
3.67439378550004*^9, 3.674393856011279*^9, {3.674393993420579*^9,
3.674394031736126*^9}}]
}, Open ]],
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{{3.6743031336521387`*^9, 3.674303189136506*^9}, {
3.6743045587728987`*^9, 3.674304561642219*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"Log", "[",
RowBox[{"1", "-", "t"}], "]"}]}],
RowBox[{"HeavisideTheta", "[", "t", "]"}],
RowBox[{"HeavisideTheta", "[",
RowBox[{
RowBox[{"-", "t"}], " ", "-", " ", "0.0035"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"-", "10"}], ",", "20"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
CellChangeTimes->{{3.6743930927248*^9, 3.674393291289514*^9}, {
3.6743933526471777`*^9, 3.674393394927549*^9}, {3.674393432058641*^9,
3.674393510240602*^9}}],
Cell[BoxData[
GraphicsBox[{{{{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQbX275PX//8oHGKBg3ecl7z1/I/hKPFc/T/6G4HPZ
mv5Rf4vg35r3lSfgFoJfkVSmt2ALgr/lZXmhQyaCr/ej6nvDJSU4f3mC5Nml
3Ypwfjf3iqXFUQpwfsGiDMOaODk4/+qRjasirkrD+QI5tzXbyyXh/PBVpjZ/
n4nB+QZy3c05SSJw/j2xgxd0OYXgfH1f/6TcX3xwvk/ZXT1lSy44v48rKfV0
Pyuc//yM+yGmRgY4/5rh3dA9E7/vh/FlfG49V1r7Cs4vafHXj446Bee7nGdd
2XKoC84HAGQlYww=
"]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwA2IQXXAsxumU1w17BiiY/j3UapL1BzjfZtWkM5rbf8L5
kQ1snRf/MTrA+AUOZw9Kc7HD+Xe/XXp3cB83nD9z/+6qnBwBOP9dne4P1XNC
cP5GjiUOz5RF4fyM3y+/xq0Rh/M9M/2XtnJKwflyDi0HU2bKwPmJD/eu8JKV
h/Nf1HG7vt+lgLD/oHzOVAYlOP/+QecJkwyU4fwY9VeSk6NU4Pxgxx83389V
hfMfSIhNX3xaDc5/vmR212YhDTi/+Z1BtZSLJpwfNtfjYku+Fpy/mOFErPcW
bTi/TTH8ecZjHTj/8Tff5Y+09eD8csPjZ+Lz9OH8CyIrvs/0NYDzlbIVVDZ9
QPDtFyic/9phCOd/Z3+kYy1nBOe/8by+VO8Agr8mK2Sub7gxnL+DaVvah0gE
/8gscYPJMQj+7VO3Dt1IRPC5tBNfJOcg+Bmvc42rGhF81Zz2k8tWI/gGLC8n
ea5D8G3meMW82YDgh5zhfW+4DcFv0ZkisvcAgv/ozYL4y1cR/HctTJplNxD8
XzIpnyRuI/iCvuqtcQ8QfIe1a1e9fIXg+7jyl/S8RfAj7hbY6n9A8PN5TS6U
fEXwq5ZOnSn+A8Fvs/2etOsXgj/paoRO7F8Ef17urq///yP4ANy2xNU=
"]]}, {}}, {{}, {}, {}}}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange->{All, All},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.674393156115858*^9, 3.674393179303792*^9},
3.6743932205675583`*^9, {3.674393261761694*^9, 3.6743932939780073`*^9},
3.674393348237265*^9, 3.674393396731091*^9, {3.6743934359862137`*^9,
3.674393466619253*^9}, 3.6743935138573923`*^9}]
}, Open ]],
Cell[BoxData[""], "Input"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.67430455718123*^9, 3.6743045579564457`*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674304540476536*^9, 3.6743045415802402`*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674280492424096*^9, 3.674280492438333*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674306787337021*^9, 3.674306796027491*^9}, {
3.674306834293017*^9, 3.674306834817852*^9}}],
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{3.674279637778983*^9, 3.674280488798901*^9,
3.6743045912815037`*^9}],
Cell[BoxData[
RowBox[{
RowBox[{"a", " ", "=", " ", "0.0035"}], "\[IndentingNewLine]",
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.674280484071822*^9, 3.674280522160658*^9}, {
3.674280573994214*^9, 3.674280580426278*^9}, {3.674280668055052*^9,
3.674280668589226*^9}}],
Cell[BoxData["0.0035`"], "Output",
CellChangeTimes->{3.674280583578227*^9, 3.6742806919457827`*^9,
3.674306708949259*^9}],
Cell[BoxData[
RowBox[{"b", " ", "=", " ",
RowBox[{"7.4172", " ", "*",
RowBox[{
RowBox[{"10", "^", "7"}], "/", "a"}]}]}]], "Input",
CellChangeTimes->{{3.674280571642888*^9, 3.674280571649242*^9}, {
3.6742806140284348`*^9, 3.674280625131343*^9}, 3.67428070528268*^9, {
3.674306133940284*^9, 3.6743061381399317`*^9}, {3.674306359652177*^9,
3.674306372780793*^9}, {3.6743068174858427`*^9, 3.674306820660534*^9}}],
Cell[BoxData["2.1192`*^10"], "Output",
CellChangeTimes->{3.674306375761525*^9, 3.6743067118732643`*^9,
3.6743068237140913`*^9}],
Cell[BoxData[
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{"b",
RowBox[{"(",
RowBox[{
RowBox[{"t", "*",
RowBox[{"HeavisideTheta", "[", "t", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"a", "-", "t"}], ")"}], "*", " ",
RowBox[{"HeavisideTheta", "[",
RowBox[{"t", "-", "a"}], "]"}]}]}], ")"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"-", "0.009"}], ",", " ", "0.009"}], "}"}]}], "]"}],
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.674304702682229*^9, 3.67430483776713*^9}, {
3.674306027529729*^9, 3.674306030960342*^9}, {3.674306064052073*^9,
3.674306096218514*^9}, {3.674306172815593*^9, 3.674306239919509*^9}, {
3.674306282025997*^9, 3.67430633731565*^9}, 3.674306382573327*^9}],
Cell[BoxData[
GraphicsBox[{{{{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAmIQXbZ8Q8P0vKb9DFDwLfpu96ZsBL9cgGv62QwEv6Iy
eS1zMoJf5S12Kz8cwa97X23s4YDgt5m7P/shiOBPO37XO2prI5w/d7WfW8eb
Bjj/r9sSaVZDBL/0WaBq/Kc6OP/AsUeFXcm1cP5eUduS4PfVcH7nG7mrn6Kr
4HzBp3GVb89XwPnePhmXW+PK4fwQ65/dX86Wwvn8M4N/MUSUINwvwbMm42UR
nH9G3mfPsuhChH3aq1lYL+bD+ZLqZ30z1+TA+Yppq2VbpmXC+T1NMpG3tqYh
wmPdnMC705LhfJYd67dKr02A85UWLV7LyxUN52tHJ/wNuB4C53+Z2+ohJueH
cP+Rti7bKY6I+Pjmfi8zFcF/o8FpNM0MwT/V233z3Q0HOL8lfILGAlkE/9NV
415WP1s4/5hyFOuEYnM4f3HHnTUvRBH8hrdxIY47zOB86+3Jiz/9MYXzN3jl
Ooa2mcD5swobaqVmGsL59+p8X3vWqsP5ZZGMd1YcVUP4z2TrGXY+BN/hpcy6
o/NU4PyFwW8KHA8owvknAsTeFrJJwPk/WevO6U8Xg/O1dj9d/1ZdFM7vVt1a
lOkpBOfP+bL8w0EJTjj/X1z5ZlsrNjg//qRb2c5oZjjfxeb090Tb3/tgfHbB
rNrIhq9w/pTTgmyL2t7D+VKl/oITeZ7A+R4T54jxC9+A8wGXEur3
"]],
LineBox[CompressedData["
1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAASJGcFg8T2D6n4OUUXLL9QKgc75lD
w9w+NniJrG29AUHO5LnBstvpPvvcYh6k5Q9BpB0+2+Gq8j7gIB5I7QYXQeFI
n1XqZ/g+QtMKgQgbHkEedADQ8iT+PtLC+9yRlyJBTGVh4oHPBD80degVrasp
QSAJ8+XR4RU/X5/N/Az+OkEK27vn+WomP3Q0QPA8p0tBijzExy8yJz/xYw6x
+JxMQQqezKdl+Sc/b5PccbSSTUEKYd1n0YcpP2ryePMrfk9BCef+56ikLD8w
2Fh7japRQYT5IPQrbzE/JZaRfnyBVUGCBWT02qg3PxASA4VaL11BwA51ehwO
Qj/zBPNIi0VmQTCxr8yMrE0/FfwD0k9NckGRClcVJSJVPzg/E82cEXpBnLXd
tpZQWz+qDAW+ztiAQfBSn8BIimA/kPgMKSVnhEFyu8BomapjPzlJ1/pcQohB
kUZPpa6VZj+6GC7g6tuLQTmOIVsNcmk/uLN4n1Jjj0EamwQjeH5pP7nnEMSj
co9B+qfn6uKKaT+3G6no9IGPQbrBrXq4o2k/tYPZMZegj0E69TmaY9VpP7FT
OsTb3Y9BO1xS2bk4aj/U+X10MiyQQT0qg1dm/2o/zZk/mbumkEEeN2Yf0Qtr
P82ziytkrpBB/kNJ5zsYaz/Mzde9DLaQQb5dD3cRMWs/ywFw4l3FkEE+kZuW
vGJrP8lpoCsA5JBBP/iz1RLGaz/FOQG+RCGRQSAFl5190ms/xVNNUO0okUEA
Enpl6N5rP8RtmeKVMJFBwCtA9b33az/DoTEH5z+RQUBfzBRpKWw/wQliUIle
kUEgbK/c0zVsP8AjruIxZpFBAHmSpD5CbD/APfp02m2RQcCSWDQUW2w/v3GS
mSt9kUGgnzv8fmdsP76L3ivUhJFBgKwexOlzbD+9pSq+fIyRQUHG5FO/jGw/
vdnC4s2bkUGshxkuVZhsP7oMNiHzopFBMJubqf6fbD+IxvrorKeRQUZrXrU=
"]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQfch80w7BHTn2QGaD5PqJjm9Ob98jthvBP+inWOh0
CcGfdrFLNe8lgu9wPbbvqHgunP/qjsF3GTcE3/7FtROnFyH4Uz7XzKr6j+Db
cp20vbEjD85/piD60LQoH843eTwphbepAM7/Zjr7xn+vQjj/RM4jLvdDRXD+
vcbTP42MSuB8FX7dLo+DpXD+Tt2jKQdMy+H8uiNXHySerIDz2y07JFeEVsH5
9+0L5wQcr4bz0/ddOqAUUQvnBx2T+2EjXIfwz7ks/fBzdfaMUL7XUfajh1vr
7f///18P4uvEBenOkGuA8/d9r3sg0YTgB05cPXnmUwRflldB3md+I5zvFfXi
/Ee2Jji/bPmGhul5CD4APYjB6A==
"]]}, {}}, {{}, {}, {}}}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange->{{-0.009, 0.009}, {0., 7.417200000000001*^7}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.6743060508390503`*^9, 3.674306100618202*^9}, {
3.674306164850041*^9, 3.674306189963132*^9}, 3.674306243429236*^9, {
3.67430628951616*^9, 3.674306325417461*^9}, 3.674306385630604*^9,
3.6743068374256477`*^9, 3.6743905517146482`*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"LaplaceTransform", "[",
RowBox[{
RowBox[{"b",
RowBox[{"(",
RowBox[{
RowBox[{"t", "*",
RowBox[{"HeavisideTheta", "[", "t", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"a", "-", "t"}], ")"}], "*", " ",
RowBox[{"HeavisideTheta", "[",
RowBox[{"t", "-", "a"}], "]"}]}]}], ")"}]}], ",", "t", ",", "s"}],
"]"}],
RowBox[{"(", " ",
RowBox[{"0.1", "/",
RowBox[{"(",
RowBox[{"s", " ", "+", " ", "0.1"}], ")"}]}], ")"}]}], " ", "//",
RowBox[{
RowBox[{
RowBox[{"InverseLaplaceTransform", "[",
RowBox[{"#", ",", "s", ",", "t"}], "]"}],
RowBox[{"HeavisideTheta", "[", "t", "]"}]}], "&"}]}], "//",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{"#", ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"-", "10"}], ",", "100"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", " ",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"8", "*",
RowBox[{"10", "^", "7"}]}]}], "}"}]}]}], "]"}], "&"}],
" "}]], "Input",
CellChangeTimes->{{3.6742797113167152`*^9, 3.674279745260811*^9},
3.674280014344021*^9, {3.674280058569131*^9, 3.674280061807644*^9},
3.6742801134434013`*^9, 3.674307205084366*^9, {3.674390603805962*^9,
3.674390673519423*^9}, {3.6743907199843693`*^9, 3.674390722423966*^9}, {
3.674390753584868*^9, 3.6743911811053267`*^9}, {3.674391696082098*^9,
3.674391724534623*^9}, {3.67439176097528*^9, 3.674391772761993*^9}, {
3.674391884565172*^9, 3.674391892956113*^9}, {3.674392402404367*^9,
3.674392500715063*^9}, 3.67439254067227*^9, {3.674392604125165*^9,
3.67439260426015*^9}}],
Cell[BoxData[
GraphicsBox[{{{{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQrVe5Zsv//8oHGKCgsZb9yM53CP6VxqTLxXcR/Oou
iU/PdyH4J2a36F8oRfCT9sWsWvBaCc6fxsy7wPG6Ipz/V/q2GHusPJx/8kiK
qSiDGJzvtnJB7ddmLjh/8rkVj5LtEfwHnze4X/rFCedX2R0UXF+I4K+9/HBp
RjwHnC/yT+ncbSs2OP9R0FK5Qx8Z4Xz9irXNBmsR/Jq5W1/My0DwxV4c3VR9
nwHOn/TrTG/WrP/7YfxEf/97AYG/4fx/P4LrZfd/gvO7dpdsiNJC8MXrpj6c
PvUjnG/AfN1ZKOcDnH9EaosAn9EbOL/H+YDSw6eP4PylJxhbo/c8hPP3+To/
vzrpAZz/YH1P+NT6O3D+yhszMjOML8P5tx9J68U+uADnS92yfbpY6iyc/5jJ
63vZucNwfp/eAoaDAfvg/PDwNUJTWLbC+fYMhZ7nCpbD+U9/zuw5o7UAzgcA
ufuoog==
"]], LineBox[CompressedData["
1:eJwV1Hk0VG8YB3CkkpCQJdmXQoTJkmie174NM5aZqeylkkKRpex7EXMtJSGK
CmVNJFkiaV9UP6HFWilFqOy/d/6653Pe7zn3fp/3OVfOy9/Bm4uDg8OKk4OD
/dzwX3MGpfUK2SZXS2JTsSBKWqlQIrO1ijzX4rnQ0iCJ5ncntBp6tZHfblN+
d0ZRA+nE69rZLL4ib7XL17JVJyMHiXXZr60HyX/rF4K+Mu3RwL5T+ueO/SZX
GogqCLe7oeHYGyzfhd/kSxkHrRPz3dFo0YevkDRF9ijzkyzY6YF+fCJf+J43
TS4tVA3ZIeKJ/uzlnoOuP+QR8a2vBNq8EJ/T2bvfpefJYSJqzifXHECSl+0v
yY5yQnyJ0b1QxhFkluEpH5zJCyOWYqoaC4Ho6chkbtVHXiic5OR/pRaEnHbE
Cn9XWQu7B/13WOwNQvs/X+b2aF0LFX5pohV3glC8xvCo1Tgf9PtR/A8HnUAd
jw+US1msgwOfyEltA8HoMqdurtfieugxixrnyA9DcgY7FXirRaF7tj6JtyAS
RS4rtv99KwpvXjzZuKI9EvV2COwbmROFsa7+i++/RKIs+8HLraZisEY6YERW
KwrxeJ+WD+kRg10PvZYk70ehifT/5IaXxUE7ZUP2L79o1DISKNtsJwkCOZ37
6iJjkCtxQ+r4DxnoviZv4X0sDqUfnNl2fLUs3FceVhaNikP+iSK0cnFZeJsR
gu6mxiHNDodMqZ2yYJ6VYD94LQ5Vk1+IcUXLAvNywNfiD3Holm6X7JM1cnBW
/3cjt0U8alRs1HaVkof4n/zZx9cnoE6OAnqMqSL0L80a8SYlouuCfYc1GIog
JPtLlyszEZ2RFY/q81GEry+nVv8qSER2kHFNJ10R1EUb9167nYjeRSX++/Ze
EXa3cX3PHElEo0t+uQ7+SvA3KSjdGyWhVYvkjwq5yqDEv8dIczIJWcwOeHf+
2gIT/va0ANJptMfM6okOpwrkfp73szI8jfyIKs0SIRUQjvN6v9HsNDqnEjUf
p6MCfrybK6/ST6PR3ZsIdEoF/rq3ie8LO40SG+lNTatUoSlv1ZWge6dRx6kn
QrVSapBgkeu1Gc4gtHSr5ZKNOpwwkqHIaqUgefFxer2LOqyXURfeqJ+CuLSV
fj4/qg6e966M8JNT0H3v7E1L6eqwxVq0Y8g2BZk+OxHm8kYdjseoT1seSkGW
ebokCVcNmPJdE76Yn4LsDBquZvhtg0q5USWtlalI/e6HzvtdmuDo8DL9QXsq
KmjlSeV5rQli5vkag49SkWAniWbXpwnpakZKsy9S0e+Xp/vej2vCtOughmh/
Kro9qjMxIaQF8tfUzfinU9EuoTQJGVctWMcVNDslfxbZ+ew6cmpSC0p+bvTp
DD+L/MQurd++kQTvzyVyJsuloX8G7su98iS4/q6CQ0A5DcW6yYzHqJGgW6BQ
jKWahs6VXOp6YUiCfOE9ucmkNNRMKozydSfB0+Apqo1ZGhKgFo1fLibB/lMJ
BzceSkM3k688Wr9tO5wUrn06U5aGfsxei/llogODYYXbKMrp6O+Gv4eoFB34
LW8vDarpeJ7m1Gq6Drx7WrBnm0Y6Ejs8LB3oowNcgTOPuHTTkXGvbNOfNB0Y
z88dijBLRxcaL/xZfK8DrBL52Yf70pH5qRRfvgBdkPzJaLqfn44uLfg5q+Tp
wWSDdBkHNwuxoq46u5XowVSYlObplSwUy/XRObNCD2LOuFAEV7PQfh4KfbFV
D0TGuhw28rLQFhE1xqsRPVgIdrgpJchCVWpfmGHb9MG1U+TeoCQLte5xd3l0
Xx8KWyPG/LRZaKDBfp/Ptx2gfSxl4eVeFhrbvSl1eXIH3PgQ1j3lwkLTc19v
Zc/tgHkT8eoNbizEYxS76v5aAzg20RhH92AhzbZbpRs1DEBa5En+0/0sFP1I
YuLJcQMokHBzSTnKQrK9Q+EaCwbw1M3sAjOShTzmQ85NCRjCK7/SLJd8Fvqe
1d1gIm4I1pmjfHsLWChYY1tfppwhrF2ZncO8xEIpnqMy27cbQgf91ji1iIVu
P3QqDdptCMDouapbwkL8WVpNM1cMwYxrXvC/GyzUuPX7wF99I7jtfyLy2F0W
EnFzU1/w2gWlFZ/l9d+xUMMG+9Cbvrsgkw8xprFdnpHb3YJ2QYer/dfK/1jo
iqHc7raEXfDs9A15pfcspC05HJ94fReoZj5ezdPPQtQen37Bn7uAKSrBXzXA
QmcdTqQohZFBTPB+feoPFopT6Ay6ZgGQklNWl8VBoHPzK8VcbQFoTicf6XMS
6Hq32R0hGoAdebVJP/bTuAeLEXsAjmbn+citIJDocEei01GAtGH/rOKVOF/c
nsOZCRB2sr8/jRfnldqa9n4ECLkxu/RHGOe3NHELnkBANVgtra1EoDxSQG1l
GIIzKzgPV2PLkRW97CMR/PULA01lAm2lp7akJSEg7z+ftnUzgYzjXU7y5yI4
UGN7V0aFQEc/L/zibUEgpRVRO7GVQB05Rn0r1xiDpBLpN3k7gY6taamezzOG
5DoVkVJEIK7ie9M2Rcawpt/debUxgbJ2NenllRhDeckhM2/shsA79wwrjMHy
2hqSrAmBOD7WPopoMYa5URnbDFMCsWquDywPGMPvJaL6oAWBKvZmrOfebALc
Jw2l3tsSaOym9zG+ahNI91ZxG6YTqKlDrfpOnQlczP/SoMsgUFrf5MSBRhM4
Kn+/MxmbtCYyoK3dBEqSxhbUmAQK33/OP/idCfza0d3rt5tA6yQfHv08j/Pr
QnNH9xJoe/KWw7fMTcE+N3h1oQeBIr2+e7n0m0LwPE+bpQ+BXHkWdBs/m4LP
zwcFCdiGFXxrxUdMwYZx3OI+9uysem33uCkcmHSYMzhMoCAiYIXNsimMhuh/
V/El0OHWmSs75M1gTNpIbukIgRjSHCOih8zgWM1J4ZgAAmn2ihx8NWUG5isr
YS6YQLG1Fywk/pnB/vjb+qohBHqTKr3Fc8EMfnM0r96DHUre8m2C2xy+zDPV
7mC3FO/0FRQ1h8nY1NQToQSy8/fyt9c3h5UX/70ZDcP3yV0V8izcHDS0Dhy6
EU6gMg2b5EcrLSC/+EzG4xjcJ/68tx+vBTiZb8qaxn7+fshYeJ0FqE3c9ZOO
JdBUfPiii7gFFEvdrjyGbdh38/iEqgVMv4neLxpHoBdJgq5iVAtwt2Y2MOMJ
NP35rZZ3rgWUS7TPtiUSaFemRx/HNkt4pTW1QiOFQB9C/trSSZbg7VMpTsEO
d0lrLtezhNKpRKEj2HeUmoroYAmyRsN1pdjbG8QO3aBZwpHNn+4ppBJI7cPz
aUaQJdSpPx4VOksg8c1GApV3LOHzdQn9j2kEmmyUQK6mVjBUdTpUPYNALyVD
K9dZWUHTPbnzlthV4e+k7lOs4MSCTd4+bL9dmXPKDCtIGarbcwF7rI3v1oSP
FahxBJetyCTQcNeycny6FXSkCZZ1Y/e8G+Er77WCxbKzXZ7ZBGr+Xd3zL8Aa
3geJ6+7MIZBgUrxj9glraM6JMqFie0kynmudtIa1LglG3tirTRfaD8dZQ8V4
7d80bGq2eWV/tjXwhKUmDmAP6fUltDZaw3b5QKm4CwTiieAmJXPbwP5gwWsN
uQRyXM04K5ZjA5+dGion8ghUoxqUtz/PBsonxy048vH77Yjy6kIbaLdoeb0O
+3nWk0c2pTbA1eTVqoFtLQ+rohtt4NrSjwVfbDBSifrabwOFGd+5h7G3Bs4H
3JGzhdtCsfmPCwi06tMlp73ltjDIk2MQVEigksh4j5VVthAcf/dDDLaptM+R
ylu24CW8NSgdO85VO35Fsy0cdVc8VYbN0d9RW/4Snw82/P6EPdfzTWhhxhaK
LxIZlkUEGn9NepUHFOgVejkkeBnve+dDyse3FOC5XSsXfYVA0TN/xvV7KSDJ
w6t3BnuronJa5kcKuFHyTLKw42Lin1t+ocBFj0zj69jahsi+9h8Fkl4W9LzA
Tq9upCZL2gFHb62vVDHun3fTUdvTDji9H3vUYLcey9yd+MMOrqht5X1QQqBP
3bqrnkzYAYmoWnyKvaTTW7Nuxg6qU/3G3mDvnJPlu7BoB2orblYOY9+OrWgu
F7AHtb3vvq24SqCbmY8UXmnaAww8lUPYuXXL45In7MGDmOy8jR046xtbvWgP
x/wc+FjXCPTN93u2CicV3JwZ3OexJfoKD59cQQV7z7GZfOzQO2tFNvFQgbOv
+0E5tm7wwAH39VQ4NMSUeIhd+yuVb1SBCuYvzbIWsG8ODjGmLKmw29KLc991
AhV1ET/5M6nAVd81Il1KIHrUEX69bCqcqvMQUMTm07XY6nGeCjujE7RVsEOv
LPjUXMTn7+OOkrCpkQdH6MVU+LOttcICe4lk1H+pjgrRNdGe/tgul74+0uqh
wgXK66K72GLB5BJnKRoYdsrTLMsI9HMswvimDA1Uh/a9tsXucG/6xC1PA5kT
fvY07ACrHRtvKdPAsvGX4R7srk2kdCFNGuhOCo76Yoe2K4e9MKZBc6laUBp2
j6AAxeoQDbqecue+xM4t7582rKWBNMfWbqtyAv05CP1H6mhwoMNyMwXbQbG4
Pa+eBmXkiFAq9tp834yFuzR4uKQnxMAOT5vb1tRBAysuA4X92G7HxH13vqPB
4+MF9yKwFfScBnbM0qDSfGC4AvvG/SfPdMkOQIrcG7nmBoHu5/jc3YscoHTg
hhQfdo/f6tJoEwfYJ9TSKIDNLWkS/9jCAeRFtv0Uxt4b2GjgRnWAnenHDKSx
eRVLryV4OsC8kdJhbeyDCYkxb+IcwHxMmbQbW94S6RzvcgC1zvBnhdjMfuOi
B48dwGcVn8QV7LQAU36JZw5g9C7MqwR7LsdipOWVA7jN/P1Ziv36GyWbv88B
DtjV/6zBjkvZM3N93AFoLlNnOrCHnwfWfRJyhKj1mSaj2CXOV3Uoro4wsCVA
QvEm/n9pPfse6u4ITR8EnyphS/NPFxV7OkLhgH7EZuxzHUhgwdsRNo0r9Kli
J5M+jJb5OcK9qeQELezD60VyeKIdIcn2avYubI1nMXPtlx1heWN9OQO73tS1
xeCrI8ScEp5IwM76+GUqa8wRPL5L+iZhB4Qe3/LrhyNUOrYOJ2Or3Egirkw6
gn/ZYHcK9kXhmn18845gS6sqIrCjBlfxfOR3gn0eaQt52BbRVdQYkhO8usLb
UIP9390Vgw8jnSDL51tSL7aff9cmsRgnUBRYW9GHza1wlnEgzgn6CqW6+7E1
z4g+4052Av9z4hs/sfsxVRoQ4QQrH8ZeHMLWn7FLu3vFCU4oLx75gZ2jkWtQ
2eUEB1oFaIvYe4o0M88JOUNb5xr7TRUECs7bKN4s4gzOzX1bpLAzznPnj4g6
g4P5b05p7Cdne65ul3SGhpFf1TLYhiejG18rOMNhzl1rFLBlHF8OCOg4w+W1
Vdkq2MPcAZpJDGeIuSSnqot99FDls5A8Z5ipt/SkYJfJLb58VuAM09vKZOyw
R3ut3ygUOcM57z0f2HanjPa+KHEGDdHrdCo2TVvq6+ZKZ3hA4UeO2DoLZ7h6
2pyhMTFlhom9mH5AT/8L/t7pqwP7sM/WSxX906KD+0vuLyHY1AbWT+XtdFgO
bwkMxRa6s8LQWZcOF7uXl9nOafz2rtqADnPcQmInsS/fq+PzNaFDt8cZcjh2
Qzsl9IMTHUwCFU9Gs/u9iLC/H0KHvoVHOcnseXz9sJhyjw4NFbzEeXaeK4VW
2UIHp7DZZba3S+mXvG6jw2Dzab8cbHWHDFuJTjp4B6RbX8CWbjK/ePU5HVqX
9ZZysTlZlfptn+hwgjBxKsDu1IsJ/MPJANVPnveKse2TFL95mDOgUeh1ZhX2
D3eduzWWDNARWJ5mO1nf/Cy3DQNOzLxyrsZu+3ZQ67o9A6pUfEVrsEm25WG/
mAwI7A7MrMUWW6/NG+nLgLBopYjb2J9yyWoXWQy4t6izvgnbv2LP0be9DKAF
R9l2svfjOev0cj8Demk+WWzf+tlZovKJATVrNvSzPadB+hgxxICQoZrDD7Hj
K9faK/9gQN8Uf0IXdm5Vk2bIIgN8RPwrHrP71UhPi8syYVLS/O1z9jzqB0+6
eDPh+PXfEe+wI2Nf8Tw8yATVunPNbH+ktJ7TOswEQm9hie2C4fyaVf5MoBzk
j/qPvY9Cu8eqQpnAqqKE92DLHn2xe2UqEyJLw3x7seUVmvQraphw5ug66Y/Y
sT/LOsXrmLB5P5PB9uCdC05x9Uw40uPDYvsyNSSA2cSEWeOvnJ+wFSK1r3N1
MqE0nD7ItuL762KM90xQ+LDlwgC7b/H5krY+JmSbir5ge9g/kbT1IxMm7F5w
D2IXr9pvzznEBLfiq/5sK22XSSr/wYQi8XHjIezEZf4Nor+Y4BFODmF79PHC
5ehJJqTVupezfdWzt9n5DxPmN6wRHsZepf7ItvUfEwz/yzBn+8C/+l7VeSb0
N46Fsd3ZfvVQ9iIT1Mnrb7KtnJ79Z3mZCamZqz6z/T/sP4Wx
"]]}, {}}, {{}, {}, {}}}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange->{{-9.99999775510204, 99.99999775510204}, {0, 80000000}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {0, 0}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.674391123043659*^9, 3.6743911849846907`*^9}, {
3.674391697623227*^9, 3.674391734111743*^9}, 3.6743918237664347`*^9, {
3.674391888246004*^9, 3.674391895057135*^9}, {3.674392404928413*^9,
3.674392504472193*^9}, 3.674392543034844*^9, 3.674392607314497*^9}]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.6743906765192823`*^9, 3.674390679606717*^9}}],
Cell[BoxData[
RowBox[{
FractionBox["1",
SuperscriptBox["c", "2"]],
RowBox[{"2.1192`*^10", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "c"}], " ", "t"}]], "+",
RowBox[{"c", " ", "t"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "1.`"}], " ", "c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]], "+",
RowBox[{"c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]}], ")"}], " ",
RowBox[{"HeavisideTheta", "[",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], "]"}]}]}], ")"}]}]}]], "Output",\
CellChangeTimes->{
3.674280065782197*^9, {3.674280118587888*^9, 3.674280122276692*^9},
3.674280164130344*^9, 3.674280330072204*^9, 3.6742805428950787`*^9,
3.674280589446755*^9, 3.674280720641659*^9, 3.6742807869337597`*^9, {
3.674306521269266*^9, 3.674306524070619*^9}, 3.674306863364583*^9,
3.674307026575305*^9, {3.674307209493897*^9, 3.674307213922024*^9},
3.674307444418167*^9, {3.6743906585995493`*^9, 3.674390665143158*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
FractionBox["1",
SuperscriptBox["c", "2"]],
RowBox[{"2.1192`*^10", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "c"}], " ", "t"}]], "+",
RowBox[{"c", " ", "t"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "1.`"}], " ", "c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]], "+",
RowBox[{"c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]}], ")"}], " ",
RowBox[{"HeavisideTheta", "[",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], "]"}]}]}], ")"}]}]}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"-", "1.1945063128522657`"}], ",", "1.1945063128522657`"}],
"}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"c", ",",
RowBox[{"-", "1.1945063128522657`"}], ",", "1.1945063128522657`"}],
"}"}], ",",
RowBox[{"{",
RowBox[{"d", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
NumberMarks->False],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`c$$ = 1.025, $CellContext`d$$ = 2.,
Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`c$$], -1.1945063128522657`, 1.1945063128522657`}, {
Hold[$CellContext`d$$], -2, 2}}, Typeset`size$$ = {360., {115., 120.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`c$137933$$ = 0, $CellContext`d$137934$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`c$$ = -1.1945063128522657`, \
$CellContext`d$$ = -2}, "ControllerVariables" :> {
Hold[$CellContext`c$$, $CellContext`c$137933$$, 0],
Hold[$CellContext`d$$, $CellContext`d$137934$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[(1/$CellContext`c$$^2) ((2.1192*^10 $CellContext`d$$) (-1 +
E^((-$CellContext`c$$) $CellContext`t) + $CellContext`c$$ \
$CellContext`t - (-1 +
E^((-$CellContext`c$$) (-0.0035 + $CellContext`t)) + \
$CellContext`c$$ (-0.0035 + $CellContext`t))
HeavisideTheta[-0.0035 + $CellContext`t])), {$CellContext`t, \
-1.1945063128522657`, 1.1945063128522657`}],
"Specifications" :> {{$CellContext`c$$, -1.1945063128522657`,
1.1945063128522657`}, {$CellContext`d$$, -2, 2}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{405., {173., 178.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{3.674307446709332*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
FractionBox["1",
SuperscriptBox["c", "2"]], "2.1192`*^10", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "c"}], " ", "t"}]], "+",
RowBox[{"c", " ", "t"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "1.`"}], " ", "c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]], "+",
RowBox[{"c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]}], ")"}], " ",
RowBox[{"HeavisideTheta", "[", "t", "]"}]}]}], ")"}]}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"-", "1.1945063128522657`"}], ",", "1.1945063128522657`"}],
"}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"c", ",",
RowBox[{"-", "100"}], ",",
RowBox[{"-", "2"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"d", ",", "2", ",", "200"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.674307310759053*^9, 3.674307323167408*^9},
3.6743074127884417`*^9},
NumberMarks->False],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`c$$ = -27.299999999999997`, \
$CellContext`d$$ = 200., Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`c$$], -100, -2}, {
Hold[$CellContext`d$$], 2, 200}}, Typeset`size$$ = {360., {112., 117.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`c$118571$$ = 0, $CellContext`d$118572$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`c$$ = -100, $CellContext`d$$ = 2},
"ControllerVariables" :> {
Hold[$CellContext`c$$, $CellContext`c$118571$$, 0],
Hold[$CellContext`d$$, $CellContext`d$118572$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[(1/$CellContext`c$$^2) ((2.1192*^10 $CellContext`d$$) (-1 +
E^((-$CellContext`c$$) $CellContext`t) + $CellContext`c$$ \
$CellContext`t - (-1 +
E^((-$CellContext`c$$) (-0.0035 + $CellContext`t)) + \
$CellContext`c$$ (-0.0035 + $CellContext`t))
HeavisideTheta[-0.0035 + $CellContext`t])), {$CellContext`t, \
-1.1945063128522657`, 1.1945063128522657`}],
"Specifications" :> {{$CellContext`c$$, -100, -2}, {$CellContext`d$$, 2,
200}}, "Options" :> {}, "DefaultOptions" :> {}],
ImageSizeCache->{405., {170., 175.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{3.6743072205424232`*^9, 3.6743073256635103`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674306881312904*^9, 3.674306901463379*^9}, {
3.678599739140647*^9, 3.678599760247061*^9}},
NumberMarks->False],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`c$$ = -11., Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`c$$], -11, 1000}}, Typeset`size$$ = {
360., {109., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$,
Typeset`skipInitDone$$ = True, $CellContext`c$86060$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`c$$ = -11},
"ControllerVariables" :> {
Hold[$CellContext`c$$, $CellContext`c$86060$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[(1/$CellContext`c$$) (
2.1192*^10 (-1 +
E^((-$CellContext`c$$) $CellContext`t) + $CellContext`c$$ \
$CellContext`t - (-1 +
E^((-$CellContext`c$$) (-0.0035 + $CellContext`t)) + \
$CellContext`c$$ (-0.0035 + $CellContext`t))
HeavisideTheta[-0.0035 + $CellContext`t])), {$CellContext`t, \
-1.1945063128522657`, 1.1945063128522657`}],
"Specifications" :> {{$CellContext`c$$, -11, 1000}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{405., {153., 158.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{{3.674306866387827*^9, 3.674306904313236*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
FractionBox["1", "c"],
RowBox[{"2.323984989341589`*^6", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "c"}], " ", "t"}]], "+",
RowBox[{"c", " ", "t"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "1.`"}], " ", "c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]], "+",
RowBox[{"c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]}], ")"}], " ",
RowBox[{"HeavisideTheta", "[",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], "]"}]}]}], ")"}]}]}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"-", "6.312443552573438`"}], ",", "6.312443549952036`"}],
"}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"c", ",",
RowBox[{"-", "5.71982064429201`"}], ",", "6.9050664582334615`"}],
"}"}]}], "]"}]], "Input",
NumberMarks->False],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`c$$ = -5.71982064429201, Typeset`show$$ =
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`c$$], -5.71982064429201, 6.9050664582334615`}},
Typeset`size$$ = {360., {109., 114.}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`c$70676$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`c$$ = -5.71982064429201},
"ControllerVariables" :> {
Hold[$CellContext`c$$, $CellContext`c$70676$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[(1/$CellContext`c$$) (
2.323984989341589*^6 (-1 +
E^((-$CellContext`c$$) $CellContext`t) + $CellContext`c$$ \
$CellContext`t - (-1 +
E^((-$CellContext`c$$) (-0.0035 + $CellContext`t)) + \
$CellContext`c$$ (-0.0035 + $CellContext`t))
HeavisideTheta[-0.0035 + $CellContext`t])), {$CellContext`t, \
-6.312443552573438, 6.312443549952036}],
"Specifications" :> {{$CellContext`c$$, -5.71982064429201,
6.9050664582334615`}}, "Options" :> {}, "DefaultOptions" :> {}],
ImageSizeCache->{405., {153., 158.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{3.6743065332588387`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
FractionBox["1", "c"],
RowBox[{"(",
RowBox[{"2000.`", "\[VeryThinSpace]", "+",
RowBox[{"7.4172`", " ", "e"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "c"}], " ", "t"}]], "+",
RowBox[{"c", " ", "t"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "1.`"}], " ", "c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]], "+",
RowBox[{"c", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], ")"}]}]}], ")"}], " ",
RowBox[{"HeavisideTheta", "[",
RowBox[{
RowBox[{"-", "0.0035`"}], "+", "t"}], "]"}]}]}], ")"}]}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"-", "8.981066253204192`"}], ",", "8.98106625071537`"}],
"}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"c", ",",
RowBox[{"-", "8.387201606703684`"}], ",", "9.574930897215879`"}], "}"}],
",",
RowBox[{"{",
RowBox[{"e", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
NumberMarks->False],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`c$$ = -5.280000000000001, $CellContext`e$$ \
= -2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`c$$], -8.387201606703684, 9.574930897215879}, {
Hold[$CellContext`e$$], -2, 2}}, Typeset`size$$ = {360., {109., 114.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`c$42393$$ = 0, $CellContext`e$42394$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`c$$ = -8.387201606703684, $CellContext`e$$ = \
-2}, "ControllerVariables" :> {
Hold[$CellContext`c$$, $CellContext`c$42393$$, 0],
Hold[$CellContext`e$$, $CellContext`e$42394$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[((1/$CellContext`c$$) (2000. + 7.4172 $CellContext`e$$)) (-1 +
E^((-$CellContext`c$$) $CellContext`t) + $CellContext`c$$ \
$CellContext`t - (-1 +
E^((-$CellContext`c$$) (-0.0035 + $CellContext`t)) + \
$CellContext`c$$ (-0.0035 + $CellContext`t))
HeavisideTheta[-0.0035 + $CellContext`t]), {$CellContext`t, \
-8.981066253204192, 8.98106625071537}],
"Specifications" :> {{$CellContext`c$$, -8.387201606703684,
9.574930897215879}, {$CellContext`e$$, -2, 2}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{405., {167., 172.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{3.674280789715344*^9}]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.6742807526244717`*^9},
NumberMarks->False],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674280749025256*^9, 3.6742807490355167`*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.674280757264738*^9},
NumberMarks->False],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`a$$ = -8, $CellContext`b$$ = -2, \
$CellContext`c$$ = -2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`a$$], -8, 8}, {
Hold[$CellContext`b$$], -2, 2}, {
Hold[$CellContext`c$$], -2, 2}}, Typeset`size$$ = {360., {109., 114.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`a$40830$$ = 0, $CellContext`b$40831$$ =
0, $CellContext`c$40832$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`a$$ = -8, $CellContext`b$$ = -2, \
$CellContext`c$$ = -2}, "ControllerVariables" :> {
Hold[$CellContext`a$$, $CellContext`a$40830$$, 0],
Hold[$CellContext`b$$, $CellContext`b$40831$$, 0],
Hold[$CellContext`c$$, $CellContext`c$40832$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[($CellContext`b$$
E^((-$CellContext`c$$) $CellContext`t)) ((1 +
E^($CellContext`c$$ $CellContext`t) (-1 + $CellContext`c$$ \
$CellContext`t) + (-E^($CellContext`a$$ $CellContext`c$$) +
E^($CellContext`c$$ $CellContext`t) (
1 + $CellContext`a$$ $CellContext`c$$ - $CellContext`c$$ \
$CellContext`t))
HeavisideTheta[-$CellContext`a$$ + \
$CellContext`t])/$CellContext`c$$), {$CellContext`t, -8, 8}],
"Specifications" :> {{$CellContext`a$$, -8, 8}, {$CellContext`b$$, -2,
2}, {$CellContext`c$$, -2, 2}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{405., {181., 186.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Input",
CellChangeTimes->{{3.674280759128435*^9, 3.674280759592204*^9}}],
Cell[CellGroupData[{
Cell[BoxData[""], "Input",
CellChangeTimes->{3.674280761961108*^9},
NumberMarks->False],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`a$$ =
2.4399999999999995`, $CellContext`b$$ = -0.53, $CellContext`c$$ = -2.,
Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`a$$], -8, 8}, {
Hold[$CellContext`b$$], -2, 2}, {
Hold[$CellContext`c$$], -2, 2}}, Typeset`size$$ = {360., {112., 116.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`a$13636$$ = 0, $CellContext`b$13637$$ =
0, $CellContext`c$13638$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`a$$ = -8, $CellContext`b$$ = -2, \
$CellContext`c$$ = -2}, "ControllerVariables" :> {
Hold[$CellContext`a$$, $CellContext`a$13636$$, 0],
Hold[$CellContext`b$$, $CellContext`b$13637$$, 0],
Hold[$CellContext`c$$, $CellContext`c$13638$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[($CellContext`b$$
E^((-$CellContext`c$$) $CellContext`t)) ((1 +
E^($CellContext`c$$ $CellContext`t) (-1 + $CellContext`c$$ \
$CellContext`t) + (-E^($CellContext`a$$ $CellContext`c$$) +
E^($CellContext`c$$ $CellContext`t) (
1 + $CellContext`a$$ $CellContext`c$$ - $CellContext`c$$ \
$CellContext`t))
HeavisideTheta[-$CellContext`a$$ + \
$CellContext`t])/$CellContext`c$$), {$CellContext`t, -8, 8}],
"Specifications" :> {{$CellContext`a$$, -8, 8}, {$CellContext`b$$, -2,
2}, {$CellContext`c$$, -2, 2}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{405., {184., 189.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{3.674280170340324*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.6742807653622437`*^9, 3.674280770176072*^9}},
NumberMarks->False],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`a$$ = -8, $CellContext`b$$ = -2, \
$CellContext`c$$ = -2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`a$$], -8, 8}, {
Hold[$CellContext`b$$], -2, 2}, {
Hold[$CellContext`c$$], -2, 2}}, Typeset`size$$ = {360., {109., 114.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`a$10065$$ = 0, $CellContext`b$10066$$ =
0, $CellContext`c$10067$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`a$$ = -8, $CellContext`b$$ = -2, \
$CellContext`c$$ = -2}, "ControllerVariables" :> {
Hold[$CellContext`a$$, $CellContext`a$10065$$, 0],
Hold[$CellContext`b$$, $CellContext`b$10066$$, 0],
Hold[$CellContext`c$$, $CellContext`c$10067$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[($CellContext`b$$
E^((-$CellContext`c$$) $CellContext`t)) ((1 +
E^($CellContext`c$$ $CellContext`t) (-1 + $CellContext`c$$ \
$CellContext`t) + (-E^($CellContext`a$$ $CellContext`c$$) +
E^($CellContext`c$$ $CellContext`t) (
1 + $CellContext`a$$ $CellContext`c$$ - $CellContext`c$$ \
$CellContext`t))
HeavisideTheta[-$CellContext`a$$ + \
$CellContext`t])/$CellContext`c$$), {$CellContext`t, -8, 8}],
"Specifications" :> {{$CellContext`a$$, -8, 8}, {$CellContext`b$$, -2,
2}, {$CellContext`c$$, -2, 2}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{405., {181., 186.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{3.674280128089127*^9}]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.674280149000605*^9},
NumberMarks->False],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674280147570003*^9, 3.674280147573597*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.6742801437405643`*^9, 3.6742801455622873`*^9}},
NumberMarks->False],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674280134579009*^9, 3.67428014199395*^9}, {
3.674302353102763*^9, 3.674302354038*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.6742801393473663`*^9},
NumberMarks->False],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.674280150786459*^9, 3.674280150798635*^9}, {
3.674302365335198*^9, 3.674302366681224*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.67428003723941*^9, 3.674280040910845*^9},
3.674280777689578*^9}],
Cell[CellGroupData[{
Cell[BoxData[""], "Input",
CellChangeTimes->{3.674280776561367*^9},
NumberMarks->False],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`as$$ = -6., $CellContext`b$$ = -2, \
$CellContext`c$$ = -2, $CellContext`exp$$ = -2, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`as$$], -6., 6.}, {
Hold[$CellContext`b$$], -2, 2}, {
Hold[$CellContext`c$$], -2, 2}, {
Hold[$CellContext`exp$$], -2, 2}}, Typeset`size$$ = {
360., {112., 116.}}, Typeset`update$$ = 0, Typeset`initDone$$,
Typeset`skipInitDone$$ = True, $CellContext`as$4612$$ =
0, $CellContext`b$4617$$ = 0, $CellContext`c$4618$$ =
0, $CellContext`exp$4619$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`as$$ = -6., $CellContext`b$$ = -2, \
$CellContext`c$$ = -2, $CellContext`exp$$ = -2}, "ControllerVariables" :> {
Hold[$CellContext`as$$, $CellContext`as$4612$$, 0],
Hold[$CellContext`b$$, $CellContext`b$4617$$, 0],
Hold[$CellContext`c$$, $CellContext`c$4618$$, 0],
Hold[$CellContext`exp$$, $CellContext`exp$4619$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[(($CellContext`b$$ $CellContext`c$$) (
1 + $CellContext`as$$ $CellContext`exp$$)) (-(1/$CellContext`c$$^2) +
E^((-$CellContext`c$$) $CellContext`t)/$CellContext`c$$^2 + \
$CellContext`t/$CellContext`c$$), {$CellContext`t, -2.8177895355745477`,
2.8177895355745477`}],
"Specifications" :> {{$CellContext`as$$, -6.,
6.}, {$CellContext`b$$, -2, 2}, {$CellContext`c$$, -2,
2}, {$CellContext`exp$$, -2, 2}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{405., {198., 203.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{3.674279767224827*^9}]
}, Open ]]
},
WindowSize->{808, 911},
WindowMargins->{{Automatic, 438}, {49, Automatic}},
FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 26, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1244, 33, 46, "Input"],
Cell[1805, 55, 94, 1, 28, "Input"],
Cell[1902, 58, 112, 2, 28, "Input"],
Cell[2017, 62, 92, 1, 28, "Input"],
Cell[2112, 65, 94, 1, 28, "Input"],
Cell[CellGroupData[{
Cell[2231, 70, 907, 24, 46, "Input"],
Cell[3141, 96, 2469, 53, 243, "Output"]
}, Open ]],
Cell[5625, 152, 164, 2, 46, "Input"],
Cell[CellGroupData[{
Cell[5814, 158, 629, 17, 46, "Input"],
Cell[6446, 177, 2243, 50, 238, "Output"]
}, Open ]],
Cell[8704, 230, 26, 0, 28, "Input"],
Cell[8733, 232, 93, 1, 28, "Input"],
Cell[8829, 235, 94, 1, 28, "Input"],
Cell[8926, 238, 92, 1, 28, "Input"],
Cell[9021, 241, 141, 2, 28, "Input"],
Cell[9165, 245, 136, 2, 46, "Input"],
Cell[9304, 249, 290, 6, 63, "Input"],
Cell[9597, 257, 125, 2, 28, "Output"],
Cell[9725, 261, 431, 8, 28, "Input"],
Cell[10159, 271, 131, 2, 32, "Output"],
Cell[10293, 275, 850, 22, 46, "Input"],
Cell[11146, 299, 3481, 71, 243, "Output"],
Cell[CellGroupData[{
Cell[14652, 374, 1767, 46, 63, "Input"],
Cell[16422, 422, 8358, 148, 261, "Output"]
}, Open ]],
Cell[24795, 573, 94, 1, 28, "Input"],
Cell[24892, 576, 1346, 36, 73, "Output"],
Cell[CellGroupData[{
Cell[26263, 616, 1479, 44, 179, "Input"],
Cell[27745, 662, 2236, 43, 368, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[30018, 710, 1431, 42, 136, "Input"],
Cell[31452, 754, 2193, 42, 362, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[33682, 801, 162, 3, 28, "Input"],
Cell[33847, 806, 1950, 40, 328, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[35834, 851, 1356, 40, 176, "Input"],
Cell[37193, 893, 2027, 41, 328, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[39257, 939, 1498, 45, 129, "Input"],
Cell[40758, 986, 2226, 43, 356, "Output"]
}, Open ]],
Cell[42999, 1032, 91, 2, 28, "Input"],
Cell[43093, 1036, 94, 1, 28, "Input"],
Cell[43190, 1039, 89, 2, 28, "Input"],
Cell[43282, 1043, 2438, 48, 384, "Input"],
Cell[CellGroupData[{
Cell[45745, 1095, 89, 2, 28, "Input"],
Cell[45837, 1099, 2444, 49, 390, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[48318, 1153, 115, 2, 28, "Input"],
Cell[48436, 1157, 2415, 48, 384, "Output"]
}, Open ]],
Cell[50866, 1208, 89, 2, 28, "Input"],
Cell[50958, 1212, 92, 1, 28, "Input"],
Cell[51053, 1215, 117, 2, 28, "Input"],
Cell[51173, 1219, 137, 2, 28, "Input"],
Cell[51313, 1223, 91, 2, 28, "Input"],
Cell[51407, 1227, 141, 2, 28, "Input"],
Cell[51551, 1231, 117, 2, 28, "Input"],
Cell[CellGroupData[{
Cell[51693, 1237, 89, 2, 28, "Input"],
Cell[51785, 1241, 2494, 49, 418, "Output"]
}, Open ]]
}
]
*)
c4science · Help