(* 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[      7337,        189]
NotebookOptionsPosition[      6606,        168]
NotebookOutlinePosition[      6941,        183]
CellTagsIndexPosition[      6898,        180]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"4", "*", "Pi", "*", "d", "*", "t"}], "]"}], ")"}]}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"x", "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"4", "*", "d", "*", "t"}], ")"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"d", ",", "0.1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.762589363299406*^9, 3.762589412963538*^9}, {
  3.772374001412159*^9, 3.772374007402585*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"4a35a002-9b97-4759-823d-afcf35fbc08d"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`d$$ = 0.1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`d$$], 0.1, 2}}, Typeset`size$$ = {360., {142., 146.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`d$26100$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`d$$ = 0.1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`d$$, $CellContext`d$26100$$, 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" :> 
      Plot3D[(1/Sqrt[4 Pi $CellContext`d$$ $CellContext`t]) 
        Exp[(-$CellContext`x^2)/(
          4 $CellContext`d$$ $CellContext`t)], {$CellContext`x, 0, 
         5}, {$CellContext`t, 0, 5}], 
      "Specifications" :> {{$CellContext`d$$, 0.1, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{405., {187., 193.}},
     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.762589364211475*^9, 3.7625894149670773`*^9}, 
   3.7723740079880123`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"11a0a2eb-8cde-4786-b744-e2b0f1e708b8"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7625892013813343`*^9, 
  3.762589202850165*^9}},ExpressionUUID->"05469b27-f4e8-4856-bbce-\
b79deeecf1a6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"4", "*", "Pi", "*", "D", "*", "t"}], "]"}], ")"}]}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"c", "*", "t"}]}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"4", "*", "D", "*", "t"}], ")"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"D", ",", "0.1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0.1", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.762589536643291*^9, 3.7625895835859003`*^9}, {
  3.762589623671468*^9, 3.76258963209733*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"ee69b4d5-eeb4-45e0-a970-2a4393da9ab3"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 3.6500000000000004`, D$$ = 
    1.378223361968994, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[D$$], 0.1, 2}, {
      Hold[$CellContext`c$$], 0.1, 5}}, Typeset`size$$ = {360., {141., 145.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, 
    D$14475$$ = 0, $CellContext`c$14476$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0.1, D$$ = 0.1}, 
      "ControllerVariables" :> {
        Hold[D$$, D$14475$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$14476$$, 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" :> 
      Plot3D[(1/Sqrt[((4 Pi) D$$) $CellContext`t]) 
        Exp[(-($CellContext`x - $CellContext`c$$ $CellContext`t)^2)/((4 
           D$$) $CellContext`t)], {$CellContext`x, 0, 5}, {$CellContext`t, 0, 
         5}], "Specifications" :> {{D$$, 0.1, 2}, {$CellContext`c$$, 0.1, 5}},
       "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{405., {200., 206.}},
     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.7625896324978447`*^9, 3.762589636813385*^9}},
 CellLabel->"Out[20]=",ExpressionUUID->"ef0c8841-67e9-4910-aedb-e9d0d8410848"]
}, Open  ]]
},
WindowSize->{808, 911},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
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, 890, 24, 52, "Input",ExpressionUUID->"4a35a002-9b97-4759-823d-afcf35fbc08d"],
Cell[1473, 48, 1868, 38, 433, "Output",ExpressionUUID->"11a0a2eb-8cde-4786-b744-e2b0f1e708b8"]
}, Open  ]],
Cell[3356, 89, 154, 3, 30, "Input",ExpressionUUID->"05469b27-f4e8-4856-bbce-b79deeecf1a6"],
Cell[CellGroupData[{
Cell[3535, 96, 1058, 29, 52, "Input",ExpressionUUID->"ee69b4d5-eeb4-45e0-a970-2a4393da9ab3"],
Cell[4596, 127, 1994, 38, 425, "Output",ExpressionUUID->"ef0c8841-67e9-4910-aedb-e9d0d8410848"]
}, Open  ]]
}
]
*)