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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      8291,        218]
NotebookOptionsPosition[      7610,        196]
NotebookOutlinePosition[      7948,        211]
CellTagsIndexPosition[      7905,        208]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Dispersion : u_t = D u_xx, D > 0
Instructions : Evaluate notebook to see module!
\
\>", "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.760367867735339*^9, 3.760367880408307*^9}, {
  3.760367964551446*^9, 3.760368145805211*^9}, {3.761298984245697*^9, 
  3.7612989898447638`*^9}, {3.7612990211633663`*^9, 3.761299022235156*^9}, {
  3.761299213755405*^9, 3.7612992201482964`*^9}, {3.761301038351472*^9, 
  3.761301041951597*^9}, {3.772544310629469*^9, 
  3.772544311259244*^9}},ExpressionUUID->"3c2e54c7-cbff-4cdc-818a-\
281726aafa50"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"uDispersion", "[", "d_", "]"}], "[", 
    RowBox[{"x_", ",", "t_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"20", "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"4", "*", "Pi", "*", "d", "*", "t"}], "]"}]}], ")"}], "*", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", "50"}], ")"}], "^", "2"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"4", "*", "d", "*", "t"}], ")"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"uDispersion", "[", "d", "]"}], "[", 
      RowBox[{"x", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2.75"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "u"}], "}"}]}], ",", 
     RowBox[{"Ticks", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"25", ",", "\"\< \>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"50", ",", " ", "\"\< \>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"75", ",", " ", "\"\< \>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"100", ",", " ", "\"\< \>\""}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".8", ",", "\"\< \>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.6", ",", " ", "\"\< \>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2.4", ",", " ", "\"\< \>\""}], "}"}]}], "}"}]}], 
       "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"d", ",", "5", ",", "\"\<dispersion coefficient D\>\""}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "20"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", "1", ",", "\"\<time t\>\""}], "}"}], ",", "1", ",", 
     "100", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Open\>\""}], ",", 
     RowBox[{"AppearanceElements", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<InputField\>\"", ",", "\"\<StepLeftButton\>\"", ",", 
        "\"\<PlayPauseButton\>\"", ",", "\"\<StepRightButton\>\""}], 
       "}"}]}]}], "}"}], ",", 
   RowBox[{"ControlType", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"SetterBar", ",", "Automatic"}], "}"}]}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], 
  "]"}], "\[LineSeparator]"}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.760367867735339*^9, 3.760367880408307*^9}, {
  3.760367964551446*^9, 3.760368145805211*^9}, {3.761298984245697*^9, 
  3.7612989898447638`*^9}, {3.7612990237643747`*^9, 3.7612990624292192`*^9}, {
  3.761299126526223*^9, 3.761299126788579*^9}, {3.761299170997761*^9, 
  3.761299201236229*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"7580e5d3-780f-49ba-adce-1ee1fac5c0da"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`d$$ = 5, $CellContext`t$$ = 
    34.95592670440674, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`d$$], 5, "dispersion coefficient D"}, {5, 20}}, {{
       Hold[$CellContext`t$$], 1, "time t"}, 1, 100}}, Typeset`size$$ = {
    360., {123., 127.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`d$3486$$ = 
    False, $CellContext`t$3487$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`d$$ = 5, $CellContext`t$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`d$$, $CellContext`d$3486$$, False], 
        Hold[$CellContext`t$$, $CellContext`t$3487$$, 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`uDispersion[$CellContext`d$$][$CellContext`x, \
$CellContext`t$$], {$CellContext`x, 0, 100}, PlotRange -> {0, 2.75}, 
        AxesLabel -> {$CellContext`x, $CellContext`u}, 
        Ticks -> {{{25, " "}, {50, " "}, {75, " "}, {100, " "}}, {{
           0.8, " "}, {1.6, " "}, {2.4, " "}}}], 
      "Specifications" :> {{{$CellContext`d$$, 5, 
          "dispersion coefficient D"}, {5, 
         20}}, {{$CellContext`t$$, 1, "time t"}, 1, 100, Appearance -> "Open",
          AppearanceElements -> {
          "InputField", "StepLeftButton", "PlayPauseButton", 
           "StepRightButton"}}}, 
      "Options" :> {ControlType -> {SetterBar, Automatic}}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{405., {194., 200.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`uDispersion[
         Pattern[$CellContext`d, 
          Blank[]]][
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`t, 
          Blank[]]] := (20/Sqrt[((4 Pi) $CellContext`d) $CellContext`t]) 
        Exp[(-($CellContext`x - 50)^2)/((
           4 $CellContext`d) $CellContext`t)], $CellContext`u[$CellContext`x, 
         0] = $CellContext`u0 $CellContext`x >= 0}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.761299036981187*^9, {3.761299070670208*^9, 3.7612990963184023`*^9}, {
   3.7612991302914124`*^9, 3.761299174034308*^9}, {3.761299204608905*^9, 
   3.761299223846139*^9}, 3.761301046292102*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"ad54c16a-8309-4fd5-ae33-e5e4888efc8e"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7612990063252172`*^9, 3.761299006335598*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"1888a5b7-8800-4bbc-9538-07af647b96da"]
}, Open  ]]
},
WindowSize->{808, 911},
WindowMargins->{{Automatic, 265}, {Automatic, 73}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 549, 12, 143, "Section",ExpressionUUID->"3c2e54c7-cbff-4cdc-818a-281726aafa50",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[1154, 38, 3135, 87, 19, "Input",ExpressionUUID->"7580e5d3-780f-49ba-adce-1ee1fac5c0da",
 CellOpen->False],
Cell[4292, 127, 3115, 61, 413, "Output",ExpressionUUID->"ad54c16a-8309-4fd5-ae33-e5e4888efc8e"]
}, Open  ]],
Cell[7422, 191, 172, 2, 30, "Input",ExpressionUUID->"1888a5b7-8800-4bbc-9538-07af647b96da"]
}, Open  ]]
}
]
*)