(* 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[ 488596, 8176] NotebookOptionsPosition[ 487445, 8150] NotebookOutlinePosition[ 487802, 8166] CellTagsIndexPosition[ 487759, 8163] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ Here you can input your PDE and initial data (we recommend some kind of \ decaying exponential for your initial data). \ \>", "Text", CellChangeTimes->{{3.760971826015717*^9, 3.76097182644311*^9}, { 3.760972037670197*^9, 3.7609721150134974`*^9}, {3.760972155515299*^9, 3.760972173611465*^9}},ExpressionUUID->"5a4cecdc-ddef-437c-81eb-\ a6c4f129fbe8"], Cell["\<\ \ \>", "Text", CellChangeTimes->{{3.760971826015717*^9, 3.76097182644311*^9}, { 3.760972037670197*^9, 3.7609721150134974`*^9}, {3.760972155515299*^9, 3.760972175551611*^9}},ExpressionUUID->"78c3992d-fdfa-42c0-8b6f-\ f0ef832fc2d7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"pde", " ", "=", " ", RowBox[{ "Input", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"init", "=", " ", RowBox[{ "Input", "[", "\"\\"", "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.7609721779200153`*^9, 3.760972185553413*^9}, { 3.760972295267642*^9, 3.7609723594728127`*^9}, {3.760972513895978*^9, 3.7609725321768227`*^9}, {3.760972594494754*^9, 3.760972596191679*^9}, { 3.7609726355237007`*^9, 3.760972635849203*^9}, {3.760973074772747*^9, 3.760973100500908*^9}, {3.760978148566462*^9, 3.760978151106814*^9}, { 3.760978347010127*^9, 3.760978347144599*^9}, {3.760978428846114*^9, 3.7609784289683237`*^9}, {3.760979549248534*^9, 3.76097955186764*^9}}, CellLabel-> "In[146]:=",ExpressionUUID->"cb450bdc-7d63-47d5-b49f-9c152739e99f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"U", ",", "g"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{ "Input", "[", "\"\\"", "]"}], "]"}]}], ";", RowBox[{"solnFKstudent", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"U", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{ "Input", "[", "\"\\"", "]"}]}], ",", RowBox[{ RowBox[{"U", "[", RowBox[{"x", ",", "0"}], "]"}], "\[Equal]", RowBox[{"g", "[", RowBox[{"x", ",", "0"}], "]"}]}], ",", RowBox[{ RowBox[{"U", "[", RowBox[{"0", ",", "t"}], "]"}], "\[Equal]", RowBox[{"g", "[", RowBox[{"0", ",", "t"}], "]"}]}], ",", RowBox[{ RowBox[{"U", "[", RowBox[{"180", ",", "t"}], "]"}], "\[Equal]", RowBox[{"g", "[", RowBox[{"180", ",", "t"}], "]"}]}]}], "}"}], ",", "U", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "10"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"UStudent", "=", RowBox[{"U", "/.", RowBox[{"First", "[", "solnFKstudent", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"UStudent", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "180"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "u"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"45", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", " ", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"135", ",", " ", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"180", ",", "\"\<180\>\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"33", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"66", ",", " ", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", " ", "\"\<11\>\""}], "}"}]}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "1", ",", "\"\