path-t-depend.nb

(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    244706,       6781]
NotebookOptionsPosition[    242000,       6690]
NotebookOutlinePosition[    242342,       6705]
CellTagsIndexPosition[    242299,       6702]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"V", "[", 
     RowBox[{
      RowBox[{"x", "+", 
       FractionBox["y", "n1"], "+", 
       RowBox[{"n2", " ", 
        SuperscriptBox["y", "2"]}], "+", 
       RowBox[{"n3", " ", 
        SuperscriptBox["y", "3"]}], "+", 
       RowBox[{"n4", " ", 
        SuperscriptBox["y", "4"]}]}], ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "4"}], "}"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{{3.60408169371875*^9, 3.604081717234375*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"V", "[", 
    RowBox[{"x", ",", 
     RowBox[{"t", "+", 
      FractionBox["\[Epsilon]", "2"]}]}], "]"}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["V", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", 
       RowBox[{"t", "+", 
        FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", "y"}], "n1"], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n2", " ", 
       RowBox[{
        SuperscriptBox["V", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["V", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}], 
       RowBox[{"2", " ", 
        SuperscriptBox["n1", "2"]}]]}], ")"}], " ", 
    SuperscriptBox["y", "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n3", " ", 
       RowBox[{
        SuperscriptBox["V", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
      FractionBox[
       RowBox[{"n2", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "n1"], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["V", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"3", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}], 
       RowBox[{"6", " ", 
        SuperscriptBox["n1", "3"]}]]}], ")"}], " ", 
    SuperscriptBox["y", "3"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n4", " ", 
       RowBox[{
        SuperscriptBox["V", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       SuperscriptBox["n2", "2"], " ", 
       RowBox[{
        SuperscriptBox["V", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
      FractionBox[
       RowBox[{"n3", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "n1"], "+", 
      FractionBox[
       RowBox[{"n2", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["n1", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["V", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"4", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}], 
       RowBox[{"24", " ", 
        SuperscriptBox["n1", "4"]}]]}], ")"}], " ", 
    SuperscriptBox["y", "4"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "y", "]"}], "5"],
    SeriesData[$CellContext`y, 0, {}, 0, 5, 1],
    Editable->False]}],
  SeriesData[$CellContext`y, 0, {
    $CellContext`V[$CellContext`x, $CellContext`t + 
     Rational[1, 2] $CellContext`\[Epsilon]], $CellContext`n1^(-1) 
    Derivative[
     1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
      Rational[1, 2] $CellContext`\[Epsilon]], $CellContext`n2 
     Derivative[
      1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]] + 
    Rational[1, 2] $CellContext`n1^(-2) 
     Derivative[
      2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]], $CellContext`n3 
     Derivative[
      1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[
         1, 2] $CellContext`\[Epsilon]] + $CellContext`n1^(-1) \
$CellContext`n2 
     Derivative[
      2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]] + 
    Rational[1, 6] $CellContext`n1^(-3) 
     Derivative[
      3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]], $CellContext`n4 
     Derivative[
      1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]] + 
    Rational[1, 2] $CellContext`n2^2 
     Derivative[
      2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[
         1, 2] $CellContext`\[Epsilon]] + $CellContext`n1^(-1) \
$CellContext`n3 
     Derivative[
      2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]] + 
    Rational[1, 2] $CellContext`n1^(-2) $CellContext`n2 
     Derivative[
      3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]] + 
    Rational[1, 24] $CellContext`n1^(-4) 
     Derivative[
      4, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]]}, 0, 5, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.6040817214375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"I", " ", "\[Epsilon]"}], 
    RowBox[{"hbar", "  "}]], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"m", " ", 
       SuperscriptBox["y", "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Epsilon]", "2"]}]], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"V", "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", "y"}], "n1"], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n2", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], 
           RowBox[{"2", " ", 
            SuperscriptBox["n1", "2"]}]]}], ")"}], " ", 
        SuperscriptBox["y", "2"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n3", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
          FractionBox[
           RowBox[{"n2", " ", 
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "n1"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"3", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], 
           RowBox[{"6", " ", 
            SuperscriptBox["n1", "3"]}]]}], ")"}], " ", 
        SuperscriptBox["y", "3"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n4", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           SuperscriptBox["n2", "2"], " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
          FractionBox[
           RowBox[{"n3", " ", 
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "n1"], "+", 
          FractionBox[
           RowBox[{"n2", " ", 
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
           RowBox[{"2", " ", 
            SuperscriptBox["n1", "2"]}]], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"4", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], 
           RowBox[{"24", " ", 
            SuperscriptBox["n1", "4"]}]]}], ")"}], " ", 
        SuperscriptBox["y", "4"]}]}], ")"}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.604081747125*^9, 3.6040817665*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "m", " ", 
    SuperscriptBox["y", "2"]}], 
   RowBox[{"2", " ", "hbar", " ", "\[Epsilon]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
    RowBox[{"V", "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "y", " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
   RowBox[{"hbar", " ", "n1"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "n2", " ", 
    SuperscriptBox["y", "2"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "n3", " ", 
    SuperscriptBox["y", "3"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "n4", " ", 
    SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["y", "2"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
   RowBox[{"2", " ", "hbar", " ", 
    SuperscriptBox["n1", "2"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "n2", " ", 
    SuperscriptBox["y", "3"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
   RowBox[{"hbar", " ", "n1"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["n2", "2"], " ", 
    SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
   RowBox[{"2", " ", "hbar"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "n3", " ", 
    SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
   RowBox[{"hbar", " ", "n1"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["y", "3"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
   RowBox[{"6", " ", "hbar", " ", 
    SuperscriptBox["n1", "3"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "n2", " ", 
    SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
   RowBox[{"2", " ", "hbar", " ", 
    SuperscriptBox["n1", "2"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", 
      RowBox[{"t", "+", 
       FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
   RowBox[{"24", " ", "hbar", " ", 
    SuperscriptBox["n1", "4"]}]]}]], "Output",
 CellChangeTimes->{3.6040817704375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "y", " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
       RowBox[{"hbar", " ", "n1"}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "n2", " ", 
        SuperscriptBox["y", "2"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "n3", " ", 
        SuperscriptBox["y", "3"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "n4", " ", 
        SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["y", "2"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
       RowBox[{"2", " ", "hbar", " ", 
        SuperscriptBox["n1", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "n2", " ", 
        SuperscriptBox["y", "3"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
       RowBox[{"hbar", " ", "n1"}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["n2", "2"], " ", 
        SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
       RowBox[{"2", " ", "hbar"}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "n3", " ", 
        SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
       RowBox[{"hbar", " ", "n1"}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["y", "3"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
       RowBox[{"6", " ", "hbar", " ", 
        SuperscriptBox["n1", "3"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "n2", " ", 
        SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
       RowBox[{"2", " ", "hbar", " ", 
        SuperscriptBox["n1", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["y", "4"], " ", "\[Epsilon]", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], 
       RowBox[{"24", " ", "hbar", " ", 
        SuperscriptBox["n1", "4"]}]]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.604081792296875*^9, 3.604081799953125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
       RowBox[{"V", "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], "-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     "\[Epsilon]", " ", 
     RowBox[{
      SuperscriptBox["V", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", 
       RowBox[{"t", "+", 
        FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", "y"}], 
    RowBox[{"hbar", " ", "n1"}]], "-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["hbar", "2"], " ", 
        SuperscriptBox["n1", "2"]}], ")"}]}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
           RowBox[{"V", "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
       "\[Epsilon]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", "hbar", " ", 
          SuperscriptBox["n1", "2"], " ", "n2", " ", 
          RowBox[{
           SuperscriptBox["V", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", 
            RowBox[{"t", "+", 
             FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
         RowBox[{"\[Epsilon]", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
          RowBox[{
           SuperscriptBox["V", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", 
            RowBox[{"t", "+", 
             FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], ")"}], 
     " ", 
     SuperscriptBox["y", "2"]}]}], "+", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"6", " ", 
      SuperscriptBox["hbar", "3"], " ", 
      SuperscriptBox["n1", "3"]}]], 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     "\[Epsilon]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"6", " ", "\[ImaginaryI]", " ", "hbar", " ", 
        SuperscriptBox["n1", "2"], " ", "n2", " ", "\[Epsilon]", " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[Epsilon]", "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
       RowBox[{
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "6"}], " ", 
           SuperscriptBox["hbar", "2"], " ", 
           SuperscriptBox["n1", "3"], " ", "n3"}], "+", 
          RowBox[{
          "3", " ", "\[ImaginaryI]", " ", "hbar", " ", "\[Epsilon]", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["hbar", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"6", " ", 
           SuperscriptBox["n1", "2"], " ", "n2", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["V", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"3", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", 
            RowBox[{"t", "+", 
             FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], ")"}], 
     " ", 
     SuperscriptBox["y", "3"]}]}], "+", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"24", " ", 
      SuperscriptBox["hbar", "4"], " ", 
      SuperscriptBox["n1", "4"]}]], 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     "\[Epsilon]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"12", " ", "\[ImaginaryI]", " ", "hbar", " ", 
        SuperscriptBox["n1", "2"], " ", "n2", " ", 
        SuperscriptBox["\[Epsilon]", "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
       RowBox[{
        SuperscriptBox["\[Epsilon]", "3"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "4"]}], "-", 
       RowBox[{"6", " ", "hbar", " ", "\[Epsilon]", " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "hbar", " ", 
           SuperscriptBox["n1", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"n1", " ", 
              SuperscriptBox["n2", "2"]}], "+", 
             RowBox[{"2", " ", "n3"}]}], ")"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["hbar", "2"], " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", "hbar", " ", 
           SuperscriptBox["n1", "4"], " ", "n4"}], "-", 
          RowBox[{"9", " ", 
           SuperscriptBox["n1", "2"], " ", "n2", " ", "\[Epsilon]", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
          RowBox[{"\[Epsilon]", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"3", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["hbar", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"12", " ", "hbar", " ", 
           SuperscriptBox["n1", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"n1", " ", 
              SuperscriptBox["n2", "2"]}], "+", 
             RowBox[{"2", " ", "n3"}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
          RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Epsilon]", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
          RowBox[{"hbar", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"12", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"3", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"4", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
         ")"}]}]}], ")"}], " ", 
     SuperscriptBox["y", "4"]}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "y", "]"}], "5"],
    SeriesData[$CellContext`y, 0, {}, 0, 5, 1],
    Editable->False]}],
  SeriesData[$CellContext`y, 0, {
   E^(Complex[
      0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]]), Complex[0, -1] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-1) \
$CellContext`n1^(-1) $CellContext`\[Epsilon] 
    Derivative[
     1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
      Rational[1, 2] $CellContext`\[Epsilon]], Rational[-1, 2] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-2) \
$CellContext`n1^(-2) $CellContext`\[Epsilon] (
     Complex[0, 2] $CellContext`hbar $CellContext`n1^2 $CellContext`n2 
      Derivative[
       1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]] + $CellContext`\[Epsilon] 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]]^2 + 
     Complex[0, 1] $CellContext`hbar 
      Derivative[
       2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]]), Complex[0, 
      Rational[1, 6]] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-3) \
$CellContext`n1^(-3) $CellContext`\[Epsilon] (
     Complex[0, 
        6] $CellContext`hbar $CellContext`n1^2 $CellContext`n2 $CellContext`\
\[Epsilon] 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[
           1, 2] $CellContext`\[Epsilon]]^2 + $CellContext`\[Epsilon]^2 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]]^3 + 
     Derivative[
       1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]] ((-6) $CellContext`hbar^2 \
$CellContext`n1^3 $CellContext`n3 + 
       Complex[0, 3] $CellContext`hbar $CellContext`\[Epsilon] 
        Derivative[
         2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[1, 2] $CellContext`\[Epsilon]]) - $CellContext`hbar^2 (
      6 $CellContext`n1^2 $CellContext`n2 
       Derivative[
        2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]] + 
      Derivative[
       3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]])), Rational[1, 24] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-4) \
$CellContext`n1^(-4) $CellContext`\[Epsilon] (
     Complex[0, 
        12] $CellContext`hbar $CellContext`n1^2 $CellContext`n2 $CellContext`\
\[Epsilon]^2 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[
           1, 2] $CellContext`\[Epsilon]]^3 + $CellContext`\[Epsilon]^3 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]]^4 - 
     6 $CellContext`hbar $CellContext`\[Epsilon] 
     Derivative[
       1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]]^2 (
      2 $CellContext`hbar $CellContext`n1^3 ($CellContext`n1 \
$CellContext`n2^2 + 2 $CellContext`n3) + 
      Complex[0, -1] $CellContext`\[Epsilon] 
       Derivative[
        2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]]) + 
     4 $CellContext`hbar^2 
      Derivative[
       1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]] (
       Complex[0, -6] $CellContext`hbar $CellContext`n1^4 $CellContext`n4 - 
       9 $CellContext`n1^2 $CellContext`n2 $CellContext`\[Epsilon] 
       Derivative[
        2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]] - $CellContext`\[Epsilon] 
       Derivative[
        3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]]) + 
     Complex[0, -1] $CellContext`hbar^2 (
       12 $CellContext`hbar $CellContext`n1^3 ($CellContext`n1 \
$CellContext`n2^2 + 2 $CellContext`n3) 
        Derivative[
         2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[1, 2] $CellContext`\[Epsilon]] + 
       Complex[0, -3] $CellContext`\[Epsilon] 
        Derivative[
          2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]]^2 + $CellContext`hbar (
         12 $CellContext`n1^2 $CellContext`n2 
          Derivative[
           3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
            Rational[1, 2] $CellContext`\[Epsilon]] + 
         Derivative[
          4, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]])))}, 0, 5, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.6040818155*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Series", "[", 
   RowBox[{"%", ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
       RowBox[{"V", "[", 
        RowBox[{"x", ",", 
         RowBox[{"t", "+", 
          FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], "-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     "\[Epsilon]", " ", 
     RowBox[{
      SuperscriptBox["V", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", 
       RowBox[{"t", "+", 
        FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", "y"}], 
    RowBox[{"hbar", " ", "n1"}]], "-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["hbar", "2"], " ", 
        SuperscriptBox["n1", "2"]}], ")"}]}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
           RowBox[{"V", "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
       "\[Epsilon]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", "hbar", " ", 
          SuperscriptBox["n1", "2"], " ", "n2", " ", 
          RowBox[{
           SuperscriptBox["V", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", 
            RowBox[{"t", "+", 
             FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
         RowBox[{"\[Epsilon]", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
          RowBox[{
           SuperscriptBox["V", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", 
            RowBox[{"t", "+", 
             FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], ")"}], 
     " ", 
     SuperscriptBox["y", "2"]}]}], "+", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"6", " ", 
      SuperscriptBox["hbar", "3"], " ", 
      SuperscriptBox["n1", "3"]}]], 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     "\[Epsilon]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"6", " ", "\[ImaginaryI]", " ", "hbar", " ", 
        SuperscriptBox["n1", "2"], " ", "n2", " ", "\[Epsilon]", " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[Epsilon]", "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
       RowBox[{"3", " ", "hbar", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "hbar", " ", 
           SuperscriptBox["n1", "3"], " ", "n3"}], "+", 
          RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["hbar", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"6", " ", 
           SuperscriptBox["n1", "2"], " ", "n2", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["V", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"3", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", 
            RowBox[{"t", "+", 
             FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], ")"}], 
     " ", 
     SuperscriptBox["y", "3"]}]}], "+", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"24", " ", 
      SuperscriptBox["hbar", "4"], " ", 
      SuperscriptBox["n1", "4"]}]], 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     "\[Epsilon]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"12", " ", "\[ImaginaryI]", " ", "hbar", " ", 
        SuperscriptBox["n1", "2"], " ", "n2", " ", 
        SuperscriptBox["\[Epsilon]", "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
       RowBox[{
        SuperscriptBox["\[Epsilon]", "3"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "4"]}], "-", 
       RowBox[{"6", " ", "hbar", " ", "\[Epsilon]", " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "hbar", " ", 
           SuperscriptBox["n1", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"n1", " ", 
              SuperscriptBox["n2", "2"]}], "+", 
             RowBox[{"2", " ", "n3"}]}], ")"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["hbar", "2"], " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", "hbar", " ", 
           SuperscriptBox["n1", "4"], " ", "n4"}], "-", 
          RowBox[{"\[Epsilon]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"9", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"3", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
         ")"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["hbar", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"12", " ", "hbar", " ", 
           SuperscriptBox["n1", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"n1", " ", 
              SuperscriptBox["n2", "2"]}], "+", 
             RowBox[{"2", " ", "n3"}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
          RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Epsilon]", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
          RowBox[{"hbar", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"12", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"3", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"4", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
         ")"}]}]}], ")"}], " ", 
     SuperscriptBox["y", "4"]}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "y", "]"}], "5"],
    SeriesData[$CellContext`y, 0, {}, 0, 5, 1],
    Editable->False]}],
  SeriesData[$CellContext`y, 0, {
   E^(Complex[
      0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
       Rational[1, 2] $CellContext`\[Epsilon]]), Complex[0, -1] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-1) \
$CellContext`n1^(-1) $CellContext`\[Epsilon] 
    Derivative[
     1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
      Rational[1, 2] $CellContext`\[Epsilon]], Rational[-1, 2] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-2) \
$CellContext`n1^(-2) $CellContext`\[Epsilon] (
     Complex[0, 2] $CellContext`hbar $CellContext`n1^2 $CellContext`n2 
      Derivative[
       1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]] + $CellContext`\[Epsilon] 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]]^2 + 
     Complex[0, 1] $CellContext`hbar 
      Derivative[
       2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]]), Complex[0, 
      Rational[1, 6]] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-3) \
$CellContext`n1^(-3) $CellContext`\[Epsilon] (
     Complex[0, 
        6] $CellContext`hbar $CellContext`n1^2 $CellContext`n2 $CellContext`\
\[Epsilon] 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[
           1, 2] $CellContext`\[Epsilon]]^2 + $CellContext`\[Epsilon]^2 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]]^3 + 
     3 $CellContext`hbar 
      Derivative[
       1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]] ((-2) $CellContext`hbar \
$CellContext`n1^3 $CellContext`n3 + 
       Complex[0, 1] $CellContext`\[Epsilon] 
        Derivative[
         2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[1, 2] $CellContext`\[Epsilon]]) - $CellContext`hbar^2 (
      6 $CellContext`n1^2 $CellContext`n2 
       Derivative[
        2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]] + 
      Derivative[
       3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]])), Rational[1, 24] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-4) \
$CellContext`n1^(-4) $CellContext`\[Epsilon] (
     Complex[0, 
        12] $CellContext`hbar $CellContext`n1^2 $CellContext`n2 $CellContext`\
\[Epsilon]^2 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[
           1, 2] $CellContext`\[Epsilon]]^3 + $CellContext`\[Epsilon]^3 
      Derivative[
        1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]]^4 - 
     6 $CellContext`hbar $CellContext`\[Epsilon] 
     Derivative[
       1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]]^2 (
      2 $CellContext`hbar $CellContext`n1^3 ($CellContext`n1 \
$CellContext`n2^2 + 2 $CellContext`n3) + 
      Complex[0, -1] $CellContext`\[Epsilon] 
       Derivative[
        2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
         Rational[1, 2] $CellContext`\[Epsilon]]) + 
     4 $CellContext`hbar^2 
      Derivative[
       1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[1, 2] $CellContext`\[Epsilon]] (
       Complex[0, -6] $CellContext`hbar $CellContext`n1^4 $CellContext`n4 - \
$CellContext`\[Epsilon] (
        9 $CellContext`n1^2 $CellContext`n2 
         Derivative[
          2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]] + 
        Derivative[
         3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[1, 2] $CellContext`\[Epsilon]])) + 
     Complex[0, -1] $CellContext`hbar^2 (
       12 $CellContext`hbar $CellContext`n1^3 ($CellContext`n1 \
$CellContext`n2^2 + 2 $CellContext`n3) 
        Derivative[
         2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[1, 2] $CellContext`\[Epsilon]] + 
       Complex[0, -3] $CellContext`\[Epsilon] 
        Derivative[
          2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]]^2 + $CellContext`hbar (
         12 $CellContext`n1^2 $CellContext`n2 
          Derivative[
           3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
            Rational[1, 2] $CellContext`\[Epsilon]] + 
         Derivative[
          4, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]])))}, 0, 5, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.604081850890625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
           RowBox[{"V", "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], "-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
             RowBox[{"V", "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
         "\[Epsilon]", " ", 
         RowBox[{
          SuperscriptBox["V", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", "y"}], 
        RowBox[{"hbar", " ", "n1"}]], "-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["hbar", "2"], " ", 
            SuperscriptBox["n1", "2"]}], ")"}]}]], 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              RowBox[{"V", "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ",
           "\[Epsilon]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "\[ImaginaryI]", " ", "hbar", " ", 
             SuperscriptBox["n1", "2"], " ", "n2", " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
            RowBox[{"\[Epsilon]", " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
            RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], ")"}],
         " ", 
        SuperscriptBox["y", "2"]}], "+", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"6", " ", 
          SuperscriptBox["hbar", "3"], " ", 
          SuperscriptBox["n1", "3"]}]], "\[ImaginaryI]", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
            RowBox[{"V", "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
        "\[Epsilon]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"6", " ", "\[ImaginaryI]", " ", "hbar", " ", 
           SuperscriptBox["n1", "2"], " ", "n2", " ", "\[Epsilon]", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["\[Epsilon]", "2"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
          RowBox[{"3", " ", "hbar", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "hbar", " ", 
              SuperscriptBox["n1", "3"], " ", "n3"}], "+", 
             RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "-", 
          RowBox[{
           SuperscriptBox["hbar", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"6", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"3", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], ")"}],
         " ", 
        SuperscriptBox["y", "3"]}], "+", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"24", " ", 
          SuperscriptBox["hbar", "4"], " ", 
          SuperscriptBox["n1", "4"]}]], 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
            RowBox[{"V", "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
        "\[Epsilon]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"12", " ", "\[ImaginaryI]", " ", "hbar", " ", 
           SuperscriptBox["n1", "2"], " ", "n2", " ", 
           SuperscriptBox["\[Epsilon]", "2"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
          RowBox[{
           SuperscriptBox["\[Epsilon]", "3"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "4"]}], "-", 
          RowBox[{"6", " ", "hbar", " ", "\[Epsilon]", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "hbar", " ", 
              SuperscriptBox["n1", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"n1", " ", 
                 SuperscriptBox["n2", "2"]}], "+", 
                RowBox[{"2", " ", "n3"}]}], ")"}]}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["hbar", "2"], " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", "hbar", " ", 
              SuperscriptBox["n1", "4"], " ", "n4"}], "-", 
             RowBox[{"\[Epsilon]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"9", " ", 
                 SuperscriptBox["n1", "2"], " ", "n2", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", 
                  RowBox[{"t", "+", 
                   FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
            ")"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           SuperscriptBox["hbar", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"12", " ", "hbar", " ", 
              SuperscriptBox["n1", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"n1", " ", 
                 SuperscriptBox["n2", "2"]}], "+", 
                RowBox[{"2", " ", "n3"}]}], ")"}], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
             RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
             RowBox[{"hbar", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"12", " ", 
                 SuperscriptBox["n1", "2"], " ", "n2", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"4", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", 
                  RowBox[{"t", "+", 
                   FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
            ")"}]}]}], ")"}], " ", 
        SuperscriptBox["y", "4"]}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Psi]", "[", 
        RowBox[{"x", ",", "t"}], "]"}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "t"}], "]"}], " ", "y"}], "k1"], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"k2", " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}], 
           RowBox[{"2", " ", 
            SuperscriptBox["k1", "2"]}]]}], ")"}], " ", 
        SuperscriptBox["y", "2"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"k3", " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "+", 
          FractionBox[
           RowBox[{"k2", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "t"}], "]"}]}], "k1"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"3", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}], 
           RowBox[{"6", " ", 
            SuperscriptBox["k1", "3"]}]]}], ")"}], " ", 
        SuperscriptBox["y", "3"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"k4", " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           SuperscriptBox["k2", "2"], " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "+", 
          FractionBox[
           RowBox[{"k3", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "t"}], "]"}]}], "k1"], "+", 
          FractionBox[
           RowBox[{"k2", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "t"}], "]"}]}], 
           RowBox[{"2", " ", 
            SuperscriptBox["k1", "2"]}]], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"4", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}], 
           RowBox[{"24", " ", 
            SuperscriptBox["k1", "4"]}]]}], ")"}], " ", 
        SuperscriptBox["y", "4"]}]}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.60408189871875*^9, 3.604081934*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
        RowBox[{"V", "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
    RowBox[{"\[Psi]", "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "k1", " ", "\[Epsilon]", " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
       RowBox[{"hbar", " ", "n1", " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}], " ", "y"}], 
    RowBox[{"hbar", " ", "k1", " ", "n1"}]], "+", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", 
      SuperscriptBox["hbar", "2"], " ", 
      SuperscriptBox["k1", "2"], " ", 
      SuperscriptBox["n1", "2"]}]], 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["k1", "2"]}], " ", "\[Epsilon]", " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", "hbar", " ", 
           SuperscriptBox["n1", "2"], " ", "n2", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
          RowBox[{"\[Epsilon]", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"hbar", " ", "n1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"hbar", " ", "k1", " ", "k2", " ", "n1"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "+", 
          RowBox[{"hbar", " ", "n1", " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}], " ", 
     SuperscriptBox["y", "2"]}]}], "+", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"6", " ", 
      SuperscriptBox["hbar", "3"], " ", 
      SuperscriptBox["k1", "3"], " ", 
      SuperscriptBox["n1", "3"]}]], 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", " ", "hbar", " ", "k1", " ", "n1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"k1", " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox["hbar", "2"], " ", "k1", " ", "k3", " ", 
              SuperscriptBox["n1", "2"]}], "-", 
             RowBox[{"\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "2", " ", "\[ImaginaryI]", " ", "hbar", " ", "n1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k1", " ", "k2"}], "+", 
                   RowBox[{"n1", " ", "n2"}]}], ")"}]}], "+", 
                RowBox[{"\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
             "-", 
             RowBox[{"\[ImaginaryI]", " ", "hbar", " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"hbar", " ", "n1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "hbar", " ", "k1", " ", "k2", " ", "n1"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["k1", "3"], " ", "\[Epsilon]", " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"6", " ", "\[ImaginaryI]", " ", "hbar", " ", 
           SuperscriptBox["n1", "2"], " ", "n2", " ", "\[Epsilon]", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["\[Epsilon]", "2"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
          RowBox[{"3", " ", "hbar", " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "hbar", " ", 
              SuperscriptBox["n1", "3"], " ", "n3"}], "+", 
             RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "-", 
          RowBox[{
           SuperscriptBox["hbar", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"6", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"3", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
         ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["hbar", "3"], " ", 
        SuperscriptBox["n1", "3"], " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}], " ", 
     SuperscriptBox["y", "3"]}]}], "+", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"24", " ", 
      SuperscriptBox["hbar", "4"], " ", 
      SuperscriptBox["k1", "4"], " ", 
      SuperscriptBox["n1", "4"]}]], 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["k1", "4"], " ", "\[Epsilon]", " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"12", " ", "\[ImaginaryI]", " ", "hbar", " ", 
           SuperscriptBox["n1", "2"], " ", "n2", " ", 
           SuperscriptBox["\[Epsilon]", "2"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
          RowBox[{
           SuperscriptBox["\[Epsilon]", "3"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "4"]}], "-", 
          RowBox[{"6", " ", "hbar", " ", "\[Epsilon]", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "hbar", " ", 
              SuperscriptBox["n1", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"n1", " ", 
                 SuperscriptBox["n2", "2"]}], "+", 
                RowBox[{"2", " ", "n3"}]}], ")"}]}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["hbar", "2"], " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", "hbar", " ", 
              SuperscriptBox["n1", "4"], " ", "n4"}], "-", 
             RowBox[{"\[Epsilon]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"9", " ", 
                 SuperscriptBox["n1", "2"], " ", "n2", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", 
                  RowBox[{"t", "+", 
                   FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
            ")"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           SuperscriptBox["hbar", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"12", " ", "hbar", " ", 
              SuperscriptBox["n1", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"n1", " ", 
                 SuperscriptBox["n2", "2"]}], "+", 
                RowBox[{"2", " ", "n3"}]}], ")"}], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
             RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
             RowBox[{"hbar", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"12", " ", 
                 SuperscriptBox["n1", "2"], " ", "n2", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"4", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", 
                  RowBox[{"t", "+", 
                   FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}], "+", 
       RowBox[{"hbar", " ", "n1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["k1", "3"], " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"6", " ", 
              SuperscriptBox["hbar", "3"], " ", "k1", " ", "k4", " ", 
              SuperscriptBox["n1", "3"]}], "+", 
             RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "3", " ", "\[ImaginaryI]", " ", "hbar", " ", "n1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k1", " ", "k2"}], "+", 
                   RowBox[{"2", " ", "n1", " ", "n2"}]}], ")"}], " ", 
                 "\[Epsilon]", " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
                RowBox[{
                 SuperscriptBox["\[Epsilon]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "-", 
                RowBox[{"3", " ", "hbar", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "hbar", " ", 
                    SuperscriptBox["n1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", "k3"}], "+", 
                    RowBox[{"k1", " ", "k2", " ", "n1", " ", "n2"}], "+", 
                    RowBox[{"n1", " ", "n3"}]}], ")"}]}], "-", 
                   RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox["hbar", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "3"}], " ", "n1", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", "k2"}], "+", 
                    RowBox[{"2", " ", "n1", " ", "n2"}]}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
                   RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
               ")"}]}]}], ")"}]}], "+", 
          RowBox[{"2", " ", "hbar", " ", "k1", " ", "n1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", "k1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 SuperscriptBox["hbar", "2"], " ", "k1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k1", " ", 
                    SuperscriptBox["k2", "2"]}], "+", 
                   RowBox[{"2", " ", "k3"}]}], ")"}], " ", 
                 SuperscriptBox["n1", "2"]}], "-", 
                RowBox[{"\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                   "2", " ", "\[ImaginaryI]", " ", "hbar", " ", "n1", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "k1", " ", "k2"}], "+", 
                    RowBox[{"n1", " ", "n2"}]}], ")"}]}], "+", 
                   RowBox[{"\[Epsilon]", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"\[ImaginaryI]", " ", "hbar", " ", "\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}], "+", 
             RowBox[{"2", " ", "hbar", " ", "n1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", "hbar", " ", "k1", " ", "k2", " ", "n1"}], 
                "-", 
                RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"3", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["hbar", "3"], " ", 
           SuperscriptBox["n1", "3"], " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"4", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}], " ", 
     SuperscriptBox["y", "4"]}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "y", "]"}], "5"],
    SeriesData[$CellContext`y, 0, {}, 0, 5, 1],
    Editable->False]}],
  SeriesData[$CellContext`y, 0, {
   E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`\[Psi][$CellContext`x, \
$CellContext`t], 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-1) \
$CellContext`k1^(-1) $CellContext`n1^(-1) (
     Complex[0, -1] $CellContext`k1 $CellContext`\[Epsilon] $CellContext`\
\[Psi][$CellContext`x, $CellContext`t] 
      Derivative[
       1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]] + $CellContext`hbar $CellContext`n1 
      Derivative[1, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t]), 
    Rational[1, 2] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-2) \
$CellContext`k1^(-2) $CellContext`n1^(-2) (-$CellContext`k1^2 $CellContext`\
\[Epsilon] $CellContext`\[Psi][$CellContext`x, $CellContext`t] (
       Complex[0, 2] $CellContext`hbar $CellContext`n1^2 $CellContext`n2 
        Derivative[
         1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[1, 2] $CellContext`\[Epsilon]] + $CellContext`\[Epsilon] 
        Derivative[
          1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]]^2 + 
       Complex[0, 1] $CellContext`hbar 
        Derivative[
         2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[
            1, 2] $CellContext`\[Epsilon]]) + $CellContext`hbar \
$CellContext`n1 (
       2 $CellContext`k1 ($CellContext`hbar $CellContext`k1 $CellContext`k2 \
$CellContext`n1 + 
         Complex[0, -1] $CellContext`\[Epsilon] 
          Derivative[
           1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
            Rational[1, 2] $CellContext`\[Epsilon]]) 
        Derivative[
         1, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t] + \
$CellContext`hbar $CellContext`n1 
        Derivative[
         2, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t])), 
    Rational[1, 6] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-3) \
$CellContext`k1^(-3) $CellContext`n1^(-3) (
     3 $CellContext`hbar $CellContext`k1 $CellContext`n1 ($CellContext`k1 
        Derivative[
         1, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t] (
         2 $CellContext`hbar^2 $CellContext`k1 $CellContext`k3 \
$CellContext`n1^2 - $CellContext`\[Epsilon] 
         Derivative[
          1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]] (
          Complex[0, 
             2] $CellContext`hbar $CellContext`n1 ($CellContext`k1 \
$CellContext`k2 + $CellContext`n1 $CellContext`n2) + $CellContext`\[Epsilon] 
           Derivative[
            1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
             Rational[1, 2] $CellContext`\[Epsilon]]) + 
         Complex[0, -1] $CellContext`hbar $CellContext`\[Epsilon] 
          Derivative[
           2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
            Rational[
              1, 2] $CellContext`\[Epsilon]]) + $CellContext`hbar \
$CellContext`n1 (
         2 $CellContext`hbar $CellContext`k1 $CellContext`k2 $CellContext`n1 + 
         Complex[0, -1] $CellContext`\[Epsilon] 
          Derivative[
           1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
            Rational[1, 2] $CellContext`\[Epsilon]]) 
        Derivative[
         2, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t]) + 
     Complex[0, 
        1] $CellContext`k1^3 $CellContext`\[Epsilon] \
$CellContext`\[Psi][$CellContext`x, $CellContext`t] (
       Complex[0, 
          6] $CellContext`hbar $CellContext`n1^2 $CellContext`n2 \
$CellContext`\[Epsilon] 
        Derivative[
          1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[
             1, 2] $CellContext`\[Epsilon]]^2 + $CellContext`\[Epsilon]^2 
        Derivative[
          1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]]^3 + 
       3 $CellContext`hbar 
        Derivative[
         1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[
            1, 2] $CellContext`\[Epsilon]] ((-2) $CellContext`hbar \
$CellContext`n1^3 $CellContext`n3 + 
         Complex[0, 1] $CellContext`\[Epsilon] 
          Derivative[
           2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
            Rational[1, 2] $CellContext`\[Epsilon]]) - $CellContext`hbar^2 (
        6 $CellContext`n1^2 $CellContext`n2 
         Derivative[
          2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]] + 
        Derivative[
         3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[
            1, 2] $CellContext`\[Epsilon]])) + $CellContext`hbar^3 \
$CellContext`n1^3 
      Derivative[3, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t]), 
    Rational[1, 24] 
    E^(Complex[
       0, -1] $CellContext`hbar^(-1) $CellContext`\[Epsilon] \
$CellContext`V[$CellContext`x, $CellContext`t + 
        Rational[
          1, 2] $CellContext`\[Epsilon]]) $CellContext`hbar^(-4) \
$CellContext`k1^(-4) $CellContext`n1^(-4) ($CellContext`k1^4 $CellContext`\
\[Epsilon] $CellContext`\[Psi][$CellContext`x, $CellContext`t] (
       Complex[0, 
          12] $CellContext`hbar $CellContext`n1^2 $CellContext`n2 \
$CellContext`\[Epsilon]^2 
        Derivative[
          1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[
             1, 2] $CellContext`\[Epsilon]]^3 + $CellContext`\[Epsilon]^3 
        Derivative[
          1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]]^4 - 
       6 $CellContext`hbar $CellContext`\[Epsilon] 
       Derivative[
         1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[1, 2] $CellContext`\[Epsilon]]^2 (
        2 $CellContext`hbar $CellContext`n1^3 ($CellContext`n1 \
$CellContext`n2^2 + 2 $CellContext`n3) + 
        Complex[0, -1] $CellContext`\[Epsilon] 
         Derivative[
          2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
           Rational[1, 2] $CellContext`\[Epsilon]]) + 
       4 $CellContext`hbar^2 
        Derivative[
         1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
          Rational[1, 2] $CellContext`\[Epsilon]] (
         Complex[0, -6] $CellContext`hbar $CellContext`n1^4 $CellContext`n4 - \
$CellContext`\[Epsilon] (
          9 $CellContext`n1^2 $CellContext`n2 
           Derivative[
            2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
             Rational[1, 2] $CellContext`\[Epsilon]] + 
          Derivative[
           3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
            Rational[1, 2] $CellContext`\[Epsilon]])) + 
       Complex[0, -1] $CellContext`hbar^2 (
         12 $CellContext`hbar $CellContext`n1^3 ($CellContext`n1 \
$CellContext`n2^2 + 2 $CellContext`n3) 
          Derivative[
           2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
            Rational[1, 2] $CellContext`\[Epsilon]] + 
         Complex[0, -3] $CellContext`\[Epsilon] 
          Derivative[
            2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
             Rational[1, 2] $CellContext`\[Epsilon]]^2 + $CellContext`hbar (
           12 $CellContext`n1^2 $CellContext`n2 
            Derivative[
             3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
              Rational[1, 2] $CellContext`\[Epsilon]] + 
           Derivative[
            4, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
             Rational[
               1, 2] $CellContext`\[Epsilon]]))) + $CellContext`hbar \
$CellContext`n1 (
       4 $CellContext`k1^3 
        Derivative[
         1, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t] (
         6 $CellContext`hbar^3 $CellContext`k1 $CellContext`k4 \
$CellContext`n1^3 + 
         Complex[0, 1] $CellContext`\[Epsilon] (
           Complex[0, 
              3] $CellContext`hbar $CellContext`n1 ($CellContext`k1 \
$CellContext`k2 + 2 $CellContext`n1 $CellContext`n2) $CellContext`\[Epsilon] 
            Derivative[
              1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
               Rational[
                 1, 2] $CellContext`\[Epsilon]]^2 + $CellContext`\[Epsilon]^2 
            Derivative[
              1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
               Rational[1, 2] $CellContext`\[Epsilon]]^3 - 
           3 $CellContext`hbar 
           Derivative[
            1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
             Rational[1, 2] $CellContext`\[Epsilon]] (
            2 $CellContext`hbar $CellContext`n1^2 ($CellContext`k1 \
$CellContext`k3 + $CellContext`k1 $CellContext`k2 $CellContext`n1 \
$CellContext`n2 + $CellContext`n1 $CellContext`n3) + 
            Complex[0, -1] $CellContext`\[Epsilon] 
             Derivative[
              2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
               Rational[
                 1, 2] $CellContext`\[Epsilon]]) + $CellContext`hbar^2 ((-3) \
$CellContext`n1 ($CellContext`k1 $CellContext`k2 + 
               2 $CellContext`n1 $CellContext`n2) 
              Derivative[
               2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
                Rational[1, 2] $CellContext`\[Epsilon]] - Derivative[
             3, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
              Rational[1, 2] $CellContext`\[Epsilon]]))) + 
       2 $CellContext`hbar $CellContext`k1 $CellContext`n1 (
         3 $CellContext`k1 (
           2 $CellContext`hbar^2 $CellContext`k1 ($CellContext`k1 \
$CellContext`k2^2 + 
             2 $CellContext`k3) $CellContext`n1^2 - $CellContext`\[Epsilon] 
           Derivative[
            1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
             Rational[1, 2] $CellContext`\[Epsilon]] (
            Complex[0, 2] $CellContext`hbar $CellContext`n1 (
              
              2 $CellContext`k1 $CellContext`k2 + $CellContext`n1 \
$CellContext`n2) + $CellContext`\[Epsilon] 
             Derivative[
              1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
               Rational[1, 2] $CellContext`\[Epsilon]]) + 
           Complex[0, -1] $CellContext`hbar $CellContext`\[Epsilon] 
            Derivative[
             2, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
              Rational[1, 2] $CellContext`\[Epsilon]]) 
          Derivative[
           2, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t] + 
         2 $CellContext`hbar $CellContext`n1 (
           3 $CellContext`hbar $CellContext`k1 $CellContext`k2 \
$CellContext`n1 + 
           Complex[0, -1] $CellContext`\[Epsilon] 
            Derivative[
             1, 0][$CellContext`V][$CellContext`x, $CellContext`t + 
              Rational[1, 2] $CellContext`\[Epsilon]]) 
          Derivative[
           3, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t]) + \
$CellContext`hbar^3 $CellContext`n1^3 
        Derivative[
         4, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t]))}, 0, 5, 
   1],
  Editable->False]], "Output",
 CellChangeTimes->{3.6040819735*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   SqrtBox[
    FractionBox["m", 
     RowBox[{"\[ImaginaryI]", " ", "hbar", " ", "\[Epsilon]"}]]], 
   SqrtBox[
    RowBox[{"2", " ", "\[Pi]"}]]], 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Exp", "[", 
      FractionBox[
       RowBox[{"I", " ", "m", " ", 
        SuperscriptBox["y", "2"]}], 
       RowBox[{"2", " ", "hbar", " ", "\[Epsilon]"}]], "]"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
            RowBox[{"V", "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
             RowBox[{"V", "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "k1", " ", "\[Epsilon]", " ", 
            RowBox[{"\[Psi]", "[", 
             RowBox[{"x", ",", "t"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
           RowBox[{"hbar", " ", "n1", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}], " ", "y"}], 
        RowBox[{"hbar", " ", "k1", " ", "n1"}]], "+", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SuperscriptBox["hbar", "2"], " ", 
          SuperscriptBox["k1", "2"], " ", 
          SuperscriptBox["n1", "2"]}]], 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
            RowBox[{"V", "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["k1", "2"]}], " ", "\[Epsilon]", " ", 
           RowBox[{"\[Psi]", "[", 
            RowBox[{"x", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", "hbar", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
             RowBox[{"\[Epsilon]", " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
             RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"hbar", " ", "n1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "k1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"hbar", " ", "k1", " ", "k2", " ", "n1"}], "-", 
                RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}], "+", 
             RowBox[{"hbar", " ", "n1", " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}], " ", 
        SuperscriptBox["y", "2"]}], "+", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"6", " ", 
          SuperscriptBox["hbar", "3"], " ", 
          SuperscriptBox["k1", "3"], " ", 
          SuperscriptBox["n1", "3"]}]], 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
            RowBox[{"V", "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", "hbar", " ", "k1", " ", "n1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"k1", " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 SuperscriptBox["hbar", "2"], " ", "k1", " ", "k3", " ", 
                 SuperscriptBox["n1", "2"]}], "-", 
                RowBox[{"\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                   "2", " ", "\[ImaginaryI]", " ", "hbar", " ", "n1", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", "k2"}], "+", 
                    RowBox[{"n1", " ", "n2"}]}], ")"}]}], "+", 
                   RowBox[{"\[Epsilon]", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"\[ImaginaryI]", " ", "hbar", " ", "\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
             "+", 
             RowBox[{"hbar", " ", "n1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "hbar", " ", "k1", " ", "k2", " ", "n1"}], 
                "-", 
                RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           SuperscriptBox["k1", "3"], " ", "\[Epsilon]", " ", 
           RowBox[{"\[Psi]", "[", 
            RowBox[{"x", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"6", " ", "\[ImaginaryI]", " ", "hbar", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", "\[Epsilon]", " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Epsilon]", "2"], " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
             RowBox[{"3", " ", "hbar", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "hbar", " ", 
                 SuperscriptBox["n1", "3"], " ", "n3"}], "+", 
                RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
             "-", 
             RowBox[{
              SuperscriptBox["hbar", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"6", " ", 
                 SuperscriptBox["n1", "2"], " ", "n2", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", 
                  RowBox[{"t", "+", 
                   FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
            ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["hbar", "3"], " ", 
           SuperscriptBox["n1", "3"], " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"3", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}], " ", 
        SuperscriptBox["y", "3"]}], "+", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"24", " ", 
          SuperscriptBox["hbar", "4"], " ", 
          SuperscriptBox["k1", "4"], " ", 
          SuperscriptBox["n1", "4"]}]], 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
            RowBox[{"V", "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["k1", "4"], " ", "\[Epsilon]", " ", 
           RowBox[{"\[Psi]", "[", 
            RowBox[{"x", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"12", " ", "\[ImaginaryI]", " ", "hbar", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", 
              SuperscriptBox["\[Epsilon]", "2"], " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Epsilon]", "3"], " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "4"]}], "-", 
             RowBox[{"6", " ", "hbar", " ", "\[Epsilon]", " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "hbar", " ", 
                 SuperscriptBox["n1", "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"n1", " ", 
                    SuperscriptBox["n2", "2"]}], "+", 
                   RowBox[{"2", " ", "n3"}]}], ")"}]}], "-", 
                RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
             "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["hbar", "2"], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", "hbar", " ", 
                 SuperscriptBox["n1", "4"], " ", "n4"}], "-", 
                RowBox[{"\[Epsilon]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"9", " ", 
                    SuperscriptBox["n1", "2"], " ", "n2", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
               ")"}]}], "-", 
             RowBox[{"\[ImaginaryI]", " ", 
              SuperscriptBox["hbar", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"12", " ", "hbar", " ", 
                 SuperscriptBox["n1", "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"n1", " ", 
                    SuperscriptBox["n2", "2"]}], "+", 
                   RowBox[{"2", " ", "n3"}]}], ")"}], " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
                RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
                RowBox[{"hbar", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"12", " ", 
                    SuperscriptBox["n1", "2"], " ", "n2", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"4", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
               ")"}]}]}], ")"}]}], "+", 
          RowBox[{"hbar", " ", "n1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox["k1", "3"], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"6", " ", 
                 SuperscriptBox["hbar", "3"], " ", "k1", " ", "k4", " ", 
                 SuperscriptBox["n1", "3"]}], "+", 
                RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                   "3", " ", "\[ImaginaryI]", " ", "hbar", " ", "n1", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", "k2"}], "+", 
                    RowBox[{"2", " ", "n1", " ", "n2"}]}], ")"}], " ", 
                    "\[Epsilon]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[Epsilon]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "-", 
                   RowBox[{"3", " ", "hbar", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "hbar", " ", 
                    SuperscriptBox["n1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", "k3"}], "+", 
                    RowBox[{"k1", " ", "k2", " ", "n1", " ", "n2"}], "+", 
                    RowBox[{"n1", " ", "n3"}]}], ")"}]}], "-", 
                    RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
                   "+", 
                   RowBox[{
                    SuperscriptBox["hbar", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "3"}], " ", "n1", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", "k2"}], "+", 
                    RowBox[{"2", " ", "n1", " ", "n2"}]}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], ")"}]}]}], 
                  ")"}]}]}], ")"}]}], "+", 
             RowBox[{"2", " ", "hbar", " ", "k1", " ", "n1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", "k1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    SuperscriptBox["hbar", "2"], " ", "k1", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", 
                    SuperscriptBox["k2", "2"]}], "+", 
                    RowBox[{"2", " ", "k3"}]}], ")"}], " ", 
                    SuperscriptBox["n1", "2"]}], "-", 
                   RowBox[{"\[Epsilon]", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    "2", " ", "\[ImaginaryI]", " ", "hbar", " ", "n1", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "k1", " ", "k2"}], "+", 
                    RowBox[{"n1", " ", "n2"}]}], ")"}]}], "+", 
                    RowBox[{"\[Epsilon]", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
                   "-", 
                   RowBox[{
                   "\[ImaginaryI]", " ", "hbar", " ", "\[Epsilon]", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Psi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "t"}], "]"}]}], "+", 
                RowBox[{"2", " ", "hbar", " ", "n1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                   "3", " ", "hbar", " ", "k1", " ", "k2", " ", "n1"}], "-", 
                   RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Psi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["hbar", "3"], " ", 
              SuperscriptBox["n1", "3"], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"4", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}], " ", 
        SuperscriptBox["y", "4"]}]}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{
      RowBox[{"Im", "[", 
       FractionBox["m", 
        RowBox[{"hbar", " ", "\[Epsilon]"}]], "]"}], ">", "0"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.604081987328125*^9, 3.604082007421875*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"8", " ", 
     SuperscriptBox["hbar", "2"], " ", 
     SuperscriptBox["k1", "4"], " ", 
     SuperscriptBox["m", "2"], " ", 
     SuperscriptBox["n1", "4"]}]], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
        RowBox[{"V", "[", 
         RowBox[{"x", ",", 
          RowBox[{"t", "+", 
           FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["k1", "4"], " ", 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"x", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"12", " ", "\[ImaginaryI]", " ", "hbar", " ", 
          SuperscriptBox["n1", "2"], " ", "n2", " ", 
          SuperscriptBox["\[Epsilon]", "5"], " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
         RowBox[{
          SuperscriptBox["\[Epsilon]", "6"], " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], "4"]}], "+", 
         RowBox[{"2", " ", "hbar", " ", 
          SuperscriptBox["\[Epsilon]", "3"], " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["n1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "+", 
               RowBox[{"3", " ", "hbar", " ", "n1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"n1", " ", 
                   SuperscriptBox["n2", "2"]}], "+", 
                  RowBox[{"2", " ", "n3"}]}], ")"}], " ", "\[Epsilon]"}]}], 
              ")"}]}], "+", 
            RowBox[{"3", " ", "\[ImaginaryI]", " ", 
             SuperscriptBox["\[Epsilon]", "2"], " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["hbar", "2"], " ", 
          SuperscriptBox["\[Epsilon]", "2"], " ", 
          RowBox[{
           SuperscriptBox["V", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", 
            RowBox[{"t", "+", 
             FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["n1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"m", " ", "n2"}], "+", 
               RowBox[{
               "3", " ", "\[ImaginaryI]", " ", "hbar", " ", "n4", " ", 
                "\[Epsilon]"}]}], ")"}]}], "-", 
            RowBox[{"9", " ", 
             SuperscriptBox["n1", "2"], " ", "n2", " ", 
             SuperscriptBox["\[Epsilon]", "2"], " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
            RowBox[{
             SuperscriptBox["\[Epsilon]", "2"], " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"3", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          SuperscriptBox["hbar", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "8"}], " ", "\[ImaginaryI]", " ", 
             SuperscriptBox["m", "2"], " ", 
             SuperscriptBox["n1", "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["n1", "2"], " ", 
             SuperscriptBox["\[Epsilon]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "+", 
               RowBox[{"3", " ", "hbar", " ", "n1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"n1", " ", 
                   SuperscriptBox["n2", "2"]}], "+", 
                  RowBox[{"2", " ", "n3"}]}], ")"}], " ", "\[Epsilon]"}]}], 
              ")"}], " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
            RowBox[{"3", " ", "\[ImaginaryI]", " ", 
             SuperscriptBox["\[Epsilon]", "4"], " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
            RowBox[{"12", " ", "hbar", " ", 
             SuperscriptBox["n1", "2"], " ", "n2", " ", 
             SuperscriptBox["\[Epsilon]", "3"], " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"3", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
            RowBox[{"hbar", " ", 
             SuperscriptBox["\[Epsilon]", "3"], " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"4", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}]}], 
        ")"}]}], "+", 
      RowBox[{"hbar", " ", "n1", " ", "\[Epsilon]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["k1", "3"], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "3"}], " ", "hbar", " ", "n1", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"k1", " ", "k2"}], "+", 
               RowBox[{"2", " ", "n1", " ", "n2"}]}], ")"}], " ", 
             SuperscriptBox["\[Epsilon]", "3"], " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             SuperscriptBox["\[Epsilon]", "4"], " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "hbar", " ", "\[Epsilon]", " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", 
               RowBox[{"t", "+", 
                FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SuperscriptBox["n1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "+", 
                  RowBox[{"3", " ", "hbar", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", "k3"}], "+", 
                    RowBox[{"k1", " ", "k2", " ", "n1", " ", "n2"}], "+", 
                    RowBox[{"n1", " ", "n3"}]}], ")"}], " ", "\[Epsilon]"}]}],
                  ")"}]}], "-", 
               RowBox[{"3", " ", "\[ImaginaryI]", " ", 
                SuperscriptBox["\[Epsilon]", "2"], " ", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", 
                  RowBox[{"t", "+", 
                   FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
            "-", 
            RowBox[{"\[ImaginaryI]", " ", 
             SuperscriptBox["hbar", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "k1", " ", 
                SuperscriptBox["n1", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"k2", " ", "m"}], "+", 
                  RowBox[{
                  "3", " ", "\[ImaginaryI]", " ", "hbar", " ", "k4", " ", 
                   "\[Epsilon]"}]}], ")"}]}], "+", 
               RowBox[{"3", " ", "n1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"k1", " ", "k2"}], "+", 
                  RowBox[{"2", " ", "n1", " ", "n2"}]}], ")"}], " ", 
                SuperscriptBox["\[Epsilon]", "2"], " ", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", 
                  RowBox[{"t", "+", 
                   FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Epsilon]", "2"], " ", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", 
                  RowBox[{"t", "+", 
                   FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}]}], 
           ")"}]}], "+", 
         RowBox[{"hbar", " ", "n1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["k1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", "hbar", " ", 
                "n1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "k1", " ", "k2"}], "+", 
                  RowBox[{"n1", " ", "n2"}]}], ")"}], " ", 
                SuperscriptBox["\[Epsilon]", "2"], " ", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", 
                  RowBox[{"t", "+", 
                   FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Epsilon]", "3"], " ", 
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
               RowBox[{"hbar", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SuperscriptBox["n1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "+", 
                    RowBox[{"3", " ", "hbar", " ", "k1", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", 
                    SuperscriptBox["k2", "2"]}], "+", 
                    RowBox[{"2", " ", "k3"}]}], ")"}], " ", "\[Epsilon]"}]}], 
                    ")"}]}], "-", 
                  RowBox[{"3", " ", "\[ImaginaryI]", " ", 
                   SuperscriptBox["\[Epsilon]", "2"], " ", 
                   RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}]}], 
              ")"}], " ", 
             RowBox[{
              SuperscriptBox["\[Psi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "t"}], "]"}]}], "+", 
            RowBox[{"hbar", " ", "n1", " ", "\[Epsilon]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", "k1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", "hbar", " ", "k1", " ", "k2", " ", "n1"}],
                   "-", 
                  RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                   RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["\[Psi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], "+", 
               RowBox[{"hbar", " ", "n1", " ", 
                RowBox[{
                 SuperscriptBox["\[Psi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"4", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
        ")"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.604082077484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{"8", " ", 
        SuperscriptBox["hbar", "2"], " ", 
        SuperscriptBox["k1", "4"], " ", 
        SuperscriptBox["m", "2"], " ", 
        SuperscriptBox["n1", "4"]}]]}], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", 
           RowBox[{"t", "+", 
            FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "hbar"]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["k1", "4"], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"12", " ", "\[ImaginaryI]", " ", "hbar", " ", 
           SuperscriptBox["n1", "2"], " ", "n2", " ", 
           SuperscriptBox["\[Epsilon]", "5"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "+", 
          RowBox[{
           SuperscriptBox["\[Epsilon]", "6"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "4"]}], "+", 
          RowBox[{"2", " ", "hbar", " ", 
           SuperscriptBox["\[Epsilon]", "3"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", 
              RowBox[{"t", "+", 
               FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              SuperscriptBox["n1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "+", 
                RowBox[{"3", " ", "hbar", " ", "n1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"n1", " ", 
                    SuperscriptBox["n2", "2"]}], "+", 
                   RowBox[{"2", " ", "n3"}]}], ")"}], " ", "\[Epsilon]"}]}], 
               ")"}]}], "+", 
             RowBox[{"3", " ", "\[ImaginaryI]", " ", 
              SuperscriptBox["\[Epsilon]", "2"], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["hbar", "2"], " ", 
           SuperscriptBox["\[Epsilon]", "2"], " ", 
           RowBox[{
            SuperscriptBox["V", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", 
             RowBox[{"t", "+", 
              FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              SuperscriptBox["n1", "4"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"m", " ", "n2"}], "+", 
                RowBox[{
                "3", " ", "\[ImaginaryI]", " ", "hbar", " ", "n4", " ", 
                 "\[Epsilon]"}]}], ")"}]}], "-", 
             RowBox[{"9", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", 
              SuperscriptBox["\[Epsilon]", "2"], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Epsilon]", "2"], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"3", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           SuperscriptBox["hbar", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "8"}], " ", "\[ImaginaryI]", " ", 
              SuperscriptBox["m", "2"], " ", 
              SuperscriptBox["n1", "4"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["n1", "2"], " ", 
              SuperscriptBox["\[Epsilon]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "+", 
                RowBox[{"3", " ", "hbar", " ", "n1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"n1", " ", 
                    SuperscriptBox["n2", "2"]}], "+", 
                   RowBox[{"2", " ", "n3"}]}], ")"}], " ", "\[Epsilon]"}]}], 
               ")"}], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
             RowBox[{"3", " ", "\[ImaginaryI]", " ", 
              SuperscriptBox["\[Epsilon]", "4"], " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
             RowBox[{"12", " ", "hbar", " ", 
              SuperscriptBox["n1", "2"], " ", "n2", " ", 
              SuperscriptBox["\[Epsilon]", "3"], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"3", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
             RowBox[{"hbar", " ", 
              SuperscriptBox["\[Epsilon]", "3"], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"4", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}]}], 
         ")"}]}], "+", 
       RowBox[{"hbar", " ", "n1", " ", "\[Epsilon]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["k1", "3"], " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "3"}], " ", "hbar", " ", "n1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"k1", " ", "k2"}], "+", 
                RowBox[{"2", " ", "n1", " ", "n2"}]}], ")"}], " ", 
              SuperscriptBox["\[Epsilon]", "3"], " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
             RowBox[{"\[ImaginaryI]", " ", 
              SuperscriptBox["\[Epsilon]", "4"], " ", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", 
                 RowBox[{"t", "+", 
                  FractionBox["\[Epsilon]", "2"]}]}], "]"}], "3"]}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "hbar", " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", 
                RowBox[{"t", "+", 
                 FractionBox["\[Epsilon]", "2"]}]}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 SuperscriptBox["n1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "+", 
                   RowBox[{"3", " ", "hbar", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", "k3"}], "+", 
                    RowBox[{"k1", " ", "k2", " ", "n1", " ", "n2"}], "+", 
                    RowBox[{"n1", " ", "n3"}]}], ")"}], " ", "\[Epsilon]"}]}],
                   ")"}]}], "-", 
                RowBox[{"3", " ", "\[ImaginaryI]", " ", 
                 SuperscriptBox["\[Epsilon]", "2"], " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}], 
             "-", 
             RowBox[{"\[ImaginaryI]", " ", 
              SuperscriptBox["hbar", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "k1", " ", 
                 SuperscriptBox["n1", "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k2", " ", "m"}], "+", 
                   RowBox[{
                   "3", " ", "\[ImaginaryI]", " ", "hbar", " ", "k4", " ", 
                    "\[Epsilon]"}]}], ")"}]}], "+", 
                RowBox[{"3", " ", "n1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k1", " ", "k2"}], "+", 
                   RowBox[{"2", " ", "n1", " ", "n2"}]}], ")"}], " ", 
                 SuperscriptBox["\[Epsilon]", "2"], " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["\[Epsilon]", "2"], " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}]}], 
            ")"}]}], "+", 
          RowBox[{"hbar", " ", "n1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox["k1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", "hbar", " ", 
                 "n1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "k1", " ", "k2"}], "+", 
                   RowBox[{"n1", " ", "n2"}]}], ")"}], " ", 
                 SuperscriptBox["\[Epsilon]", "2"], " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", 
                   RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}], "-", 
                RowBox[{"3", " ", 
                 SuperscriptBox["\[Epsilon]", "3"], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}], "2"]}], "+", 
                RowBox[{"hbar", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    SuperscriptBox["n1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "+", 
                    RowBox[{"3", " ", "hbar", " ", "k1", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k1", " ", 
                    SuperscriptBox["k2", "2"]}], "+", 
                    RowBox[{"2", " ", "k3"}]}], ")"}], " ", "\[Epsilon]"}]}], 
                    ")"}]}], "-", 
                   RowBox[{"3", " ", "\[ImaginaryI]", " ", 
                    SuperscriptBox["\[Epsilon]", "2"], " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}]}]}], 
               ")"}], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}], "+", 
             RowBox[{"hbar", " ", "n1", " ", "\[Epsilon]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", "k1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                   "3", " ", "hbar", " ", "k1", " ", "k2", " ", "n1"}], "-", 
                   RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]", " ", 
                    RowBox[{
                    SuperscriptBox["V", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", 
                    RowBox[{"t", "+", 
                    FractionBox["\[Epsilon]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Psi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "t"}], "]"}]}], "+", 
                RowBox[{"hbar", " ", "n1", " ", 
                 RowBox[{
                  SuperscriptBox["\[Psi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"4", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
         ")"}]}]}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Epsilon]", ",", "0", ",", "2"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.60408210703125*^9, 3.6040821518125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"\[Psi]", "[", 
    RowBox[{"x", ",", "t"}], "]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Psi]", "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["k1", "2"], " ", "k2", " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["k1", "2"], " ", "m"}]]}], ")"}], " ", "\[Epsilon]"}], 
   "-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"8", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["hbar", "2"], " ", 
        SuperscriptBox["k1", "4"], " ", 
        SuperscriptBox["m", "2"], " ", 
        SuperscriptBox["n1", "2"]}], ")"}]}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["k1", "4"], " ", 
        SuperscriptBox["m", "2"], " ", 
        SuperscriptBox["n1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"V", "[", 
          RowBox[{"x", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["hbar", "2"], " ", 
        SuperscriptBox["k1", "2"], " ", "m", " ", 
        SuperscriptBox["n1", "2"], " ", 
        RowBox[{"V", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["k1", "2"], " ", "k2", " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}], "+", 
       RowBox[{"hbar", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["k1", "4"], " ", "m", " ", 
           RowBox[{"\[Psi]", "[", 
            RowBox[{"x", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[ImaginaryI]", " ", "m", " ", 
              SuperscriptBox["n1", "2"], " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}], "-", 
             RowBox[{"hbar", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 SuperscriptBox["n1", "2"], " ", "n2", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "t"}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"hbar", " ", "n1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"8", " ", 
              SuperscriptBox["k1", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 SuperscriptBox["hbar", "2"], " ", "k1", " ", "k4", " ", 
                 "n1"}], "-", 
                RowBox[{"m", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox["hbar", "2"], " ", "n1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"12", " ", 
                 SuperscriptBox["k1", "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k1", " ", 
                    SuperscriptBox["k2", "2"]}], "+", 
                   RowBox[{"2", " ", "k3"}]}], ")"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Psi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "t"}], "]"}]}], "+", 
                RowBox[{"12", " ", 
                 SuperscriptBox["k1", "2"], " ", "k2", " ", 
                 RowBox[{
                  SuperscriptBox["\[Psi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "t"}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["\[Psi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"4", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}]}], 
         ")"}]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "2"]}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    $CellContext`\[Psi][$CellContext`x, $CellContext`t], 
    Complex[0, -1] $CellContext`hbar^(-1) $CellContext`V[$CellContext`x, \
$CellContext`t] $CellContext`\[Psi][$CellContext`x, $CellContext`t] + 
    Complex[0, 
       Rational[
       1, 2]] $CellContext`hbar $CellContext`k1^(-2) $CellContext`m^(-1) (
      2 $CellContext`k1^2 $CellContext`k2 
       Derivative[1, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t] + 
      Derivative[2, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t]), 
    Rational[-1, 
      8] $CellContext`hbar^(-2) $CellContext`k1^(-4) $CellContext`m^(-2) \
$CellContext`n1^(-2) (
     4 $CellContext`k1^4 $CellContext`m^2 $CellContext`n1^2 \
$CellContext`V[$CellContext`x, $CellContext`t]^2 \
$CellContext`\[Psi][$CellContext`x, $CellContext`t] - 
     4 $CellContext`hbar^2 $CellContext`k1^2 $CellContext`m $CellContext`n1^2 \
$CellContext`V[$CellContext`x, $CellContext`t] (
      2 $CellContext`k1^2 $CellContext`k2 
       Derivative[1, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t] + 
      Derivative[
       2, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t]) + \
$CellContext`hbar (
       4 $CellContext`k1^4 $CellContext`m $CellContext`\[Psi][$CellContext`x, \
$CellContext`t] (
         Complex[0, 1] $CellContext`m $CellContext`n1^2 
          Derivative[
           0, 1][$CellContext`V][$CellContext`x, $CellContext`t] - \
$CellContext`hbar (
          2 $CellContext`n1^2 $CellContext`n2 
           Derivative[1, 0][$CellContext`V][$CellContext`x, $CellContext`t] + 
          Derivative[
           2, 0][$CellContext`V][$CellContext`x, $CellContext`t])) + \
$CellContext`hbar $CellContext`n1 (
         8 $CellContext`k1^3 (
           3 $CellContext`hbar^2 $CellContext`k1 $CellContext`k4 \
$CellContext`n1 - $CellContext`m 
           Derivative[1, 0][$CellContext`V][$CellContext`x, $CellContext`t]) 
          Derivative[
           1, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t] + \
$CellContext`hbar^2 $CellContext`n1 (
           12 $CellContext`k1^3 ($CellContext`k1 $CellContext`k2^2 + 
             2 $CellContext`k3) 
            Derivative[
             2, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t] + 
           12 $CellContext`k1^2 $CellContext`k2 
            Derivative[
             3, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t] + 
           Derivative[
            4, 0][$CellContext`\[Psi]][$CellContext`x, $CellContext`t]))))}, 
   0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.60408215578125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", "=", 
  RowBox[{
   RowBox[{"\[Psi]", "[", 
    RowBox[{"x", ",", "t"}], "]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Psi]", "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["k1", "2"], " ", "k2", " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["k1", "2"], " ", "m"}]]}], ")"}], " ", "\[Epsilon]"}], 
   "-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"8", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["hbar", "2"], " ", 
        SuperscriptBox["k1", "4"], " ", 
        SuperscriptBox["m", "2"], " ", 
        SuperscriptBox["n1", "2"]}], ")"}]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["k1", "4"], " ", 
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["n1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"V", "[", 
         RowBox[{"x", ",", "t"}], "]"}], "2"], " ", 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"x", ",", "t"}], "]"}]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["hbar", "2"], " ", 
       SuperscriptBox["k1", "2"], " ", "m", " ", 
       SuperscriptBox["n1", "2"], " ", 
       RowBox[{"V", "[", 
        RowBox[{"x", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["k1", "2"], " ", "k2", " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "t"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}], "+", 
      RowBox[{"hbar", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["k1", "4"], " ", "m", " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"x", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "m", " ", 
             SuperscriptBox["n1", "2"], " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "t"}], "]"}]}], "-", 
            RowBox[{"hbar", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SuperscriptBox["n1", "2"], " ", "n2", " ", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"hbar", " ", "n1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"8", " ", 
             SuperscriptBox["k1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                SuperscriptBox["hbar", "2"], " ", "k1", " ", "k4", " ", 
                "n1"}], "-", 
               RowBox[{"m", " ", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["\[Psi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "t"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hbar", "2"], " ", "n1", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"12", " ", 
                SuperscriptBox["k1", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"k1", " ", 
                   SuperscriptBox["k2", "2"]}], "+", 
                  RowBox[{"2", " ", "k3"}]}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["\[Psi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], "+", 
               RowBox[{"12", " ", 
                SuperscriptBox["k1", "2"], " ", "k2", " ", 
                RowBox[{
                 SuperscriptBox["\[Psi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Psi]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"4", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}]}], 
        ")"}]}]}], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}]}]}]], "Input",
 CellChangeTimes->{3.604082189*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Psi]", "[", 
   RowBox[{"x", ",", "t"}], "]"}], "+", 
  RowBox[{"\[Epsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"V", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["k1", "2"], " ", "k2", " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "t"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["k1", "2"], " ", "m"}]]}], ")"}]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"8", " ", 
     SuperscriptBox["hbar", "2"], " ", 
     SuperscriptBox["k1", "4"], " ", 
     SuperscriptBox["m", "2"], " ", 
     SuperscriptBox["n1", "2"]}]], 
   RowBox[{
    SuperscriptBox["\[Epsilon]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["k1", "4"], " ", 
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["n1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"V", "[", 
         RowBox[{"x", ",", "t"}], "]"}], "2"], " ", 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"x", ",", "t"}], "]"}]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["hbar", "2"], " ", 
       SuperscriptBox["k1", "2"], " ", "m", " ", 
       SuperscriptBox["n1", "2"], " ", 
       RowBox[{"V", "[", 
        RowBox[{"x", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["k1", "2"], " ", "k2", " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "t"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}], "+", 
      RowBox[{"hbar", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["k1", "4"], " ", "m", " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"x", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "m", " ", 
             SuperscriptBox["n1", "2"], " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "t"}], "]"}]}], "-", 
            RowBox[{"hbar", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SuperscriptBox["n1", "2"], " ", "n2", " ", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"hbar", " ", "n1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"8", " ", 
             SuperscriptBox["k1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                SuperscriptBox["hbar", "2"], " ", "k1", " ", "k4", " ", 
                "n1"}], "-", 
               RowBox[{"m", " ", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["\[Psi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "t"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hbar", "2"], " ", "n1", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"12", " ", 
                SuperscriptBox["k1", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"k1", " ", 
                   SuperscriptBox["k2", "2"]}], "+", 
                  RowBox[{"2", " ", "k3"}]}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["\[Psi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], "+", 
               RowBox[{"12", " ", 
                SuperscriptBox["k1", "2"], " ", "k2", " ", 
                RowBox[{
                 SuperscriptBox["\[Psi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Psi]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"4", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}]}], 
        ")"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.6040821954375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"eq", ",", 
    RowBox[{"{", 
     RowBox[{"\[Epsilon]", ",", "1"}], "}"}]}], "]"}], "/.", 
  RowBox[{"\[Epsilon]", "\[Rule]", " ", "0"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"V", "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["k1", "2"], " ", "k2", " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "t"}], "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["k1", "2"], " ", "m"}]]}]], "Output",
 CellChangeTimes->{3.604082208671875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"sub1", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"k1", "\[Rule]", " ", "1"}], ",", 
    RowBox[{"k2", "\[Rule]", " ", "0"}]}], "}"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"eq", ",", 
     RowBox[{"{", 
      RowBox[{"\[Epsilon]", ",", "1"}], "}"}]}], "]"}], "/.", 
   RowBox[{"\[Epsilon]", "\[Rule]", " ", "0"}]}], "/.", "sub1"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"V", "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"2", " ", "m"}]]}]], "Output",
 CellChangeTimes->{3.604082241671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq1", "=", 
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"eq", ",", 
         RowBox[{"{", 
          RowBox[{"\[Epsilon]", ",", "1"}], "}"}]}], "]"}], "/.", 
       RowBox[{"\[Epsilon]", "\[Rule]", " ", "0"}]}], "/.", "sub1"}], ")"}], 
    "-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Psi]", "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", "m"}]]}], ")"}]}], "]"}]}]], "Input"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.60408226146875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"eq", ",", 
    RowBox[{"{", 
     RowBox[{"\[Epsilon]", ",", "2"}], "}"}]}], "]"}], "/.", 
  "sub1"}]], "Input"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"16", " ", 
     SuperscriptBox["hbar", "2"], " ", 
     SuperscriptBox["m", "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"16", " ", 
      SuperscriptBox["m", "2"], " ", 
      SuperscriptBox[
       RowBox[{"V", "[", 
        RowBox[{"x", ",", "t"}], "]"}], "2"], " ", 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"x", ",", "t"}], "]"}]}], "-", 
     RowBox[{"16", " ", 
      SuperscriptBox["hbar", "2"], " ", "m", " ", 
      RowBox[{"V", "[", 
       RowBox[{"x", ",", "t"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "t"}], "]"}]}], "+", 
     RowBox[{"hbar", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", "m", " ", 
         RowBox[{"\[Psi]", "[", 
          RowBox[{"x", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", 
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "t"}], "]"}]}], "-", 
           RowBox[{"hbar", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"8", " ", "n2", " ", 
               RowBox[{
                SuperscriptBox["V", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "t"}], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{"2", " ", "hbar", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "8"}], " ", "m", " ", 
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "t"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "t"}], "]"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["hbar", "2"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"4", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.60408228021875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{"16", " ", 
        SuperscriptBox["hbar", "2"], " ", 
        SuperscriptBox["m", "2"]}]]}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"16", " ", 
        SuperscriptBox["m", "2"], " ", 
        SuperscriptBox[
         RowBox[{"V", "[", 
          RowBox[{"x", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "-", 
       RowBox[{"16", " ", 
        SuperscriptBox["hbar", "2"], " ", "m", " ", 
        RowBox[{"V", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "+", 
       RowBox[{"hbar", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", "m", " ", 
           RowBox[{"\[Psi]", "[", 
            RowBox[{"x", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}], "-", 
             RowBox[{"hbar", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"8", " ", "n2", " ", 
                 RowBox[{
                  SuperscriptBox["V", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "t"}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["V", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"2", " ", "hbar", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "8"}], " ", "m", " ", 
              RowBox[{
               SuperscriptBox["V", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox["hbar", "2"], " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"4", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}], "-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"V", "[", 
           RowBox[{"x", ",", "t"}], "]"}], "2"], " ", 
         RowBox[{"\[Psi]", "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], 
        SuperscriptBox["hbar", "2"]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "hbar"], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "m"], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", "m"}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"V", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "m"], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["hbar", "2"], " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["m", "2"]}]]}], ")"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.604082299046875*^9, 3.604082309234375*^9}, {
  3.60408237153125*^9, 3.604082373140625*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", "n2", " ", 
    RowBox[{"\[Psi]", "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "m"], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"\[Psi]", "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"4", " ", "m"}]]}]], "Output",
 CellChangeTimes->{3.6040823813125*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.604082334875*^9, 3.604082336296875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"%", "\[Equal]", "0"}], ",", "n2"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"n2", "\[Rule]", 
    FractionBox[
     RowBox[{
      SuperscriptBox["V", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}], 
     RowBox[{"8", " ", 
      RowBox[{
       SuperscriptBox["V", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "t"}], "]"}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.60408240078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}], "\[Equal]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"V", "[", 
          RowBox[{"x", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Psi]", "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", "m"}]]}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}], "=", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"V", "[", 
           RowBox[{"x", ",", "t"}], "]"}], " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], 
        RowBox[{"2", " ", "m"}]]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "1"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.604082465640625*^9, 3.6040825234375*^9}, {
  3.604082664859375*^9, 3.604082670078125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "t"}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"V", "[", 
       RowBox[{"x", ",", "t"}], "]"}], " ", 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], 
    RowBox[{"2", " ", "m"}]]}]}]], "Output",
 CellChangeTimes->{3.60408267846875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["V", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"V", "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "hbar"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"2", " ", "m"}]]}]], "Output",
 CellChangeTimes->{3.604082678484375*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.60408267565625*^9, 3.60408267571875*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.604082673390625*^9, 3.60408267346875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"V", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "+", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "t"}], "]"}]}], 
      RowBox[{"2", " ", "m"}]]}], ")"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6040825688125*^9, 3.604082595171875*^9}, {
   3.604082684984375*^9, 3.6040826853125*^9}, 3.60408272415625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"V", "[", 
         RowBox[{"x", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}], "hbar"]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"2", " ", "m"}]]}]], "Output",
 CellChangeTimes->{3.604082727984375*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.60408272596875*^9, 3.604082726046875*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.604082688671875*^9, 3.604082688734375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"x", ",", "t"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["V", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"V", "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "hbar"], "+", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "hbar", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "t"}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[Psi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "t"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[Psi]", "[", 
              RowBox[{"x", ",", "t"}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["V", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "t"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{"V", "[", 
              RowBox[{"x", ",", "t"}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[Psi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "t"}], "]"}]}]}], ")"}]}], "hbar"]}], "+", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "hbar", " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "t"}], "]"}]}], 
        RowBox[{"2", " ", "m"}]]}], ")"}]}], 
    RowBox[{"2", " ", "m"}]]}], "]"}]], "Input",
 CellChangeTimes->{{3.6040826255625*^9, 3.6040826406875*^9}, {
  3.60408270240625*^9, 3.604082738234375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["V", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"V", "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "hbar"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "m"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"\[Psi]", "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"2", " ", "m"}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"V", "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"2", " ", "m"}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hbar", "2"], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"4", " ", 
    SuperscriptBox["m", "2"]}]]}]], "Output",
 CellChangeTimes->{3.604082740234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "t"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"x", ",", "t"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["V", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"V", "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "hbar"], "+", 
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["V", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "m"], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"\[Psi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["V", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], 
    RowBox[{"2", " ", "m"}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"V", "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], 
    RowBox[{"2", " ", "m"}]], "-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["hbar", "2"], " ", 
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["m", "2"]}]]}]}]], "Input",
 CellChangeTimes->{{3.6040826600625*^9, 3.604082660125*^9}, {
  3.604082752328125*^9, 3.60408276196875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["V", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "t"}], "]"}]}], "hbar"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"V", "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "hbar"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], "m"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"\[Psi]", "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["V", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"2", " ", "m"}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"V", "[", 
     RowBox[{"x", ",", "t"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"2", " ", "m"}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hbar", "2"], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "t"}], "]"}]}], 
   RowBox[{"4", " ", 
    SuperscriptBox["m", "2"]}]]}]], "Output",
 CellChangeTimes->{3.604082764125*^9}]
}, Open  ]]
},
WindowSize->{1358, 651},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 607, 18, 45, "Input"],
Cell[1189, 42, 6697, 205, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7923, 252, 5531, 166, 308, "Input"],
Cell[13457, 420, 5159, 167, 206, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18653, 592, 5895, 170, 234, "Input"],
Cell[24551, 764, 18264, 492, 456, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42852, 1261, 183, 5, 31, "Input"],
Cell[43038, 1268, 18324, 495, 258, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61399, 1768, 18242, 500, 516, "Input"],
Cell[79644, 2270, 40161, 995, 506, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119842, 3270, 30856, 767, 1439, "Input"],
Cell[150701, 4039, 17572, 452, 578, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168310, 4496, 18166, 457, 730, "Input"],
Cell[186479, 4955, 9746, 250, 167, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196262, 5210, 6861, 192, 233, "Input"],
Cell[203126, 5404, 6756, 189, 183, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[209919, 5598, 206, 6, 31, "Input"],
Cell[210128, 5606, 1023, 33, 52, "Output"]
}, Open  ]],
Cell[211166, 5642, 173, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[211364, 5651, 238, 7, 31, "Input"],
Cell[211605, 5660, 607, 20, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212249, 5685, 1015, 32, 54, "Input"],
Cell[213267, 5719, 69, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213373, 5725, 169, 6, 31, "Input"],
Cell[213545, 5733, 3290, 97, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216872, 5835, 6069, 180, 236, "Input"],
Cell[222944, 6017, 757, 27, 51, "Output"]
}, Open  ]],
Cell[223716, 6047, 89, 1, 31, InheritFromParent],
Cell[CellGroupData[{
Cell[223830, 6052, 113, 3, 31, "Input"],
Cell[223946, 6057, 628, 22, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224611, 6084, 2077, 65, 117, "Input"],
Cell[226691, 6151, 848, 29, 51, "Output"],
Cell[227542, 6182, 1108, 38, 51, "Output"]
}, Open  ]],
Cell[228665, 6223, 90, 1, 31, InheritFromParent],
Cell[228758, 6226, 91, 1, 31, InheritFromParent],
Cell[CellGroupData[{
Cell[228874, 6231, 877, 26, 54, "Input"],
Cell[229754, 6259, 1724, 57, 52, "Output"]
}, Open  ]],
Cell[231493, 6319, 91, 1, 31, InheritFromParent],
Cell[231587, 6322, 92, 1, 31, InheritFromParent],
Cell[CellGroupData[{
Cell[231704, 6327, 2981, 89, 115, "Input"],
Cell[234688, 6418, 2298, 84, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[237023, 6507, 2663, 94, 51, InheritFromParent],
Cell[239689, 6603, 2295, 84, 51, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)