⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 burger.nb

📁 这个是burger方程
💻 NB
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     75873,       2572]
NotebookOptionsPosition[     73411,       2484]
NotebookOutlinePosition[     73752,       2499]
CellTagsIndexPosition[     73709,       2496]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"f1", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Phi]", "[", 
         RowBox[{"x", ",", "t", ",", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "t"}], "]"}]}], "]"}], "-", 
        RowBox[{
         RowBox[{"\[Xi]", "[", 
          RowBox[{"x", ",", "t", ",", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], "-", 
        RowBox[{
         RowBox[{"\[Tau]", "[", 
          RowBox[{"x", ",", "t", ",", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}], ",", "x"}], "]"}], "+", 
    RowBox[{
     RowBox[{"\[Xi]", "[", 
      RowBox[{"x", ",", "t", ",", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"x", ",", "t", ",", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.432893486359375*^9, 3.432893523109375*^9}, {
  3.43289355603125*^9, 3.432893764984375*^9}, {3.432893797609375*^9, 
  3.432893800640625*^9}, {3.432894027015625*^9, 3.432894032625*^9}, {
  3.433024636609375*^9, 3.433024648515625*^9}, {3.43302472034375*^9, 
  3.433024753796875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}], "2"]}], " ", 
   RowBox[{
    SuperscriptBox["\[Xi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Tau]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Phi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Xi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Tau]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Phi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "t", ",", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.4328935756875*^9, 3.432893656390625*^9, {3.432893730046875*^9, 
   3.432893765859375*^9}, 3.43289380125*^9, 3.432893995875*^9, 
   3.43289403334375*^9, 3.432894123328125*^9, 3.432895365890625*^9, 
   3.432896252796875*^9, 3.432896318390625*^9, 3.43297481128125*^9, 
   3.432975510734375*^9, 3.43297581534375*^9, 3.4329801200625*^9, 
   3.432983602609375*^9, 3.433017802859375*^9, {3.4330246913125*^9, 
   3.433024703984375*^9}, {3.43302473784375*^9, 3.433024761234375*^9}, 
   3.433025020578125*^9, 3.43302530528125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f11", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Phi]", "[", 
           RowBox[{"x", ",", "t", ",", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "t"}], "]"}]}], "]"}], "-", 
          RowBox[{
           RowBox[{"\[Xi]", "[", 
            RowBox[{"x", ",", "t", ",", 
             RowBox[{"u", "[", 
              RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
           RowBox[{
            SuperscriptBox["u", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           RowBox[{"\[Tau]", "[", 
            RowBox[{"x", ",", "t", ",", 
             RowBox[{"u", "[", 
              RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
           RowBox[{
            SuperscriptBox["u", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}], ",", "x"}], "]"}], ",",
       "x"}], "]"}], "+", 
    RowBox[{
     RowBox[{"\[Xi]", "[", 
      RowBox[{"x", ",", "t", ",", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"\[Tau]", "[", 
      RowBox[{"x", ",", "t", ",", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.432894144546875*^9, 3.4328942378125*^9}, {
  3.433024670609375*^9, 3.433024672625*^9}, {3.433024733*^9, 
  3.43302475671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "3"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Xi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Tau]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Tau]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Phi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}], "3"], " ", 
   RowBox[{
    SuperscriptBox["\[Xi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -