nonlinearwaveequations-source.nb

Simulate Nonlinear Wave Equations in Mathematica

                $CellContext`u[$CellContext`t, $CellContext`x], \
$CellContext`t, $CellContext`t] == D[
                 $CellContext`u[$CellContext`t, $CellContext`x], \
$CellContext`x, $CellContext`x] + Part[{0, 
                  Sin[
                   $CellContext`u[$CellContext`t, $CellContext`x]], (
                   1 - $CellContext`u[$CellContext`t, $CellContext`x]^2) (
                   1 + $CellContext`u[$CellContext`t, $CellContext`x])}, \
$CellContext`f$$], $CellContext`u[0, $CellContext`x] == 
              E^(-($CellContext`x - $CellContext`a$$)^2) + 
               E^(-($CellContext`x + $CellContext`a$$)^2), 
              ReplaceAll[D[
                 $CellContext`u[$CellContext`t, $CellContext`x], \
$CellContext`t] == 0, $CellContext`t -> 
               0], $CellContext`u[$CellContext`t, -$CellContext`x0$$] == \
$CellContext`u[$CellContext`t, $CellContext`x0$$]}], $CellContext`u, \
{$CellContext`t, 
             0, $CellContext`x0$$}, {$CellContext`x, -$CellContext`x0$$, \
$CellContext`x0$$}, 
            Method -> {
             "MethodOfLines", 
              "SpatialDiscretization" -> {
               "TensorProductGrid", "DifferenceOrder" -> "Pseudospectral", 
                "MinStepSize" -> 
                0.2}}]]]], {$CellContext`x, -$CellContext`x0$$, \
$CellContext`x0$$}, {$CellContext`t, 0, $CellContext`x0$$}, 
        Mesh -> $CellContext`mesh$$, MeshFunctions -> {#3& }, ColorFunction -> 
        "Rainbow", PlotPoints -> 30, MaxRecursion -> ControlActive[1, 2], 
        ImageSize -> {475, 325}, ImagePadding -> 15], 
      "Specifications" :> {{{$CellContext`f$$, 3, "equation"}, {
         1 -> "wave", 2 -> "sine-Gordon", 3 -> 
          "Wolfram"}}, {{$CellContext`a$$, 5., "initial peak separation"}, 0, 
         10}, {{$CellContext`x0$$, 13., "solution range"}, 5, 
         20}, {{$CellContext`mesh$$, Automatic, "show mesh"}, {
         False, Automatic}, ControlType -> 
         Checkbox}, {{$CellContext`ct$$, True, "plot type"}, {
         True -> "2D", False -> "3D"}, ControlType -> SetterBar}}, 
      "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{519., {251., 256.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->164463502],

Cell[CellGroupData[{

Cell["THIS NOTEBOOK IS THE SOURCE CODE FROM", "Text",
 CellFrame->{{0, 0}, {0, 1}},
 CellMargins->{{48, 10}, {4, 28}},
 CellGroupingRules->{"SectionGrouping", 25},
 CellFrameMargins->{{48, 48}, {6, 5}},
 CellFrameColor->RGBColor[0.691905, 0.790311, 0.300252],
 FontFamily->"Helvetica",
 FontSize->10,
 FontWeight->"Bold",
 FontColor->RGBColor[0.691905, 0.790311, 0.300252]],

Cell[TextData[{
 "\"",
 ButtonBox["Nonlinear Wave Equations",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/NonlinearWaveEquations/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/NonlinearWaveEquations/"],
 "\"",
 " from ",
 ButtonBox["The Wolfram Demonstrations Project",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 "\[ParagraphSeparator]\[NonBreakingSpace]",
 ButtonBox["http://demonstrations.wolfram.com/NonlinearWaveEquations/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/NonlinearWaveEquations/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/NonlinearWaveEquations/"]
}], "Text",
 CellMargins->{{48, Inherited}, {0, Inherited}},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.5]],

Cell[" ", "Text",
 CellFrame->{{0, 0}, {0, 1}},
 CellMargins->{{48, 10}, {4, 28}},
 CellGroupingRules->{"SectionGrouping", 25},
 CellFrameMargins->{{48, 48}, {6, 5}},
 CellFrameColor->RGBColor[0.691905, 0.790311, 0.300252],
 FontFamily->"Helvetica",
 FontSize->10,
 FontWeight->"Bold",
 FontColor->RGBColor[0.691905, 0.790311, 0.300252]],

Cell[TextData[{
 "Contributed by: ",
 ButtonBox["Stephen Wolfram",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Stephen+\
Wolfram"], None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Stephen+Wolfram"],
 " and ",
 ButtonBox["Rob Knapp",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Rob+Knapp"], 
    None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Rob+Knapp"]
}], "Text",
 CellDingbat->"\[FilledSmallSquare]",
 CellMargins->{{66, 48}, {2, 4}},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.6],
 CellID->30176070],

Cell[CellGroupData[{

Cell[TextData[{
 "A full-function Wolfram ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6 system is required to edit or run this notebook.\[IndentingNewLine](",
 StyleBox["Mathematica Player",
  FontSlant->"Italic"],
 " runs only Demonstrations published on this site.)\n",
 StyleBox[ButtonBox["GET WOLFRAM MATHEMATICA 6 \[RightGuillemet]",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.wolfram.com/products/mathematica/"], None},
  ButtonNote->"http://www.wolfram.com/products/mathematica/"],
  FontFamily->"Helvetica",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0.42, 0]]
}], "Text",
 CellFrame->True,
 CellMargins->{{48, 68}, {8, 28}},
 CellFrameMargins->12,
 CellFrameColor->RGBColor[0.865507, 0.90634, 0.680751],
 CellChangeTimes->{3.3750111182355957`*^9},
 ParagraphSpacing->{1., 1.},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.411765],
 Background->RGBColor[0.986023, 0.991363, 0.969818]],

Cell[TextData[{
 "\[Copyright] ",
 StyleBox[ButtonBox["The Wolfram Demonstrations Project & Contributors",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
  FontColor->GrayLevel[0.6]],
 "\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
 StyleBox[ButtonBox["Terms of Use",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/termsofuse.html"], None},
  ButtonNote->"http://demonstrations.wolfram.com/termsofuse.html"],
  FontColor->GrayLevel[0.6]],
 "\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
 StyleBox[ButtonBox["Make a new version of this Demonstration \
\[RightGuillemet]",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/participate/upload.jsp?id=\
NonlinearWaveEquations"], None},
  ButtonNote->None],
  FontColor->GrayLevel[0.6]]
}], "Text",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellMargins->{{48, 10}, {20, 50}},
 CellFrameMargins->{{6, 0}, {6, 6}},
 CellFrameColor->GrayLevel[0.6],
 FontFamily->"Verdana",
 FontSize->9,
 FontColor->GrayLevel[0.6]]
}, Open  ]]
}, Open  ]]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{710, 650},
WindowMargins->{{Inherited, Inherited}, {Inherited, 0}},
WindowElements->{
 "StatusArea", "MemoryMonitor", "MagnificationPopUp", "VerticalScrollBar", 
  "MenuBar"},
WindowTitle->"Nonlinear Wave Equations - Source",
DockedCells->{},
CellContext->Notebook,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 216, 4, 70, "Section"],
Cell[809, 29, 6769, 168, 70, "Input",
 CellID->583658225]
}, Open  ]],
Cell[7593, 200, 4808, 94, 70, "Output",
 CellID->164463502],
Cell[CellGroupData[{
Cell[12426, 298, 373, 9, 70, "Text",
 CellGroupingRules->{"SectionGrouping", 25}],
Cell[12802, 309, 911, 24, 70, "Text"],
Cell[13716, 335, 337, 9, 70, "Text",
 CellGroupingRules->{"SectionGrouping", 25}],
Cell[14056, 346, 706, 23, 70, "Text",
 CellID->30176070],
Cell[CellGroupData[{
Cell[14787, 373, 967, 27, 70, "Text"],
Cell[15757, 402, 1198, 33, 70, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature lT4Yns5S1zcdyBpN@Jz7Mr0T *)