burger.nb

这个是burger方程

      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}], "2"], " ", 
   RowBox[{
    SuperscriptBox["\[Tau]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "2"}], ")"}],
      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"}], "]"}], "2"], " ", 
   RowBox[{
    SuperscriptBox["\[Phi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "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[{"2", " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "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[{"2", " ", 
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}], "2"], " ", 
   RowBox[{
    SuperscriptBox["\[Xi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   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[{"1", ",", "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["\[Phi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "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[{"2", ",", "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[{"2", ",", "0", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Phi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "t", ",", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.432894238890625*^9, 3.43289539025*^9, 3.432896253328125*^9, 
   3.432896318984375*^9, 3.432974811390625*^9, 3.43297551084375*^9, 
   3.4329758154375*^9, 3.43298012071875*^9, 3.432983602828125*^9, 
   3.433017802953125*^9, 3.433024705359375*^9, {3.43302473878125*^9, 
   3.433024761921875*^9}, 3.433025021578125*^9, 3.433025305390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f0", "=", 
  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"}], "]"}]}]}], ")"}], ",", "t"}], "]"}], "+", 
   RowBox[{
    RowBox[{"\[Xi]", "[", 
     RowBox[{"x", ",", "t", ",", 
      RowBox[{"u", "[", 
       RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"\[Tau]", "[", 
     RowBox[{"x", ",", "t", ",", 
      RowBox[{"u", "[", 
       RowBox[{"x", ",", "t"}], "]"}]}], "]"}], 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.432894265734375*^9, 3.432894336453125*^9}, {
  3.43302468334375*^9, 3.433024686015625*^9}, {3.43302473525*^9, 
  3.4330247598125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      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[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         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[{
      SuperscriptBox["\[Xi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "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[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "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[{
      SuperscriptBox["\[Tau]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t", ",", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Phi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "t", ",", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.43289435184375*^9, 3.432895391828125*^9, 3.43289625434375*^9, 
   3.4328963198125*^9, 3.4329748114375*^9, 3.432975510890625*^9, 
   3.432975815484375*^9, 3.4329801216875*^9, 3.432983602921875*^9, 
   3.433017803*^9, 3.433024707109375*^9, {3.43302474228125*^9, 
   3.433024763578125*^9}, 3.433025022296875*^9, 3.433025305453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{"f0", "-", 
    RowBox[{"2", "a", "  ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}], "*", "f1"}], "-", 
    RowBox[{
     RowBox[{
      SuperscriptBox["b", "\[Prime]",
       MultilineFunction->None], "[", "u", "]"}], "*", " ", "\[Phi]", "*", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"b", "[", "u", "]"}], "*", "f11"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.43289437228125*^9, 3.432894381265625*^9}, {
  3.43289539684375*^9, 3.43289540603125*^9}, {3.43289627046875*^9, 
  3.432896294703125*^9}, {3.432896324875*^9, 3.432896325484375*^9}, {
  3.43298350746875*^9, 3.432983513421875*^9}, {3.433024478609375*^9, 
  3.43302456309375*^9}, {3.433024775046875*^9, 3.4330247995*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[Phi]"}], " ", 
   RowBox[{
    SuperscriptBox["b", "\[Prime]",
     MultilineFunction->None], "[", "u", "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "t"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u",