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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     14103,        336]
NotebookOptionsPosition[     13475,        311]
NotebookOutlinePosition[     14034,        333]
CellTagsIndexPosition[     13991,        330]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:5e73\:9762\:6ce2\:7684\:7a7a\:95f4\:548c\:65f6\:95f4\:90e8\:5206\:4e2d\
\:95f4\:4e3a\:4f55\:6709\:4e2a\:8d1f\:53f7\:ff1f", "Section",
 CellChangeTimes->{{3.862521009840407*^9, 3.8625210831152124`*^9}, 
   3.8625380517993455`*^9, {3.8635592158713408`*^9, 3.8635592316892977`*^9}},
 FontFamily->"\:9ed1\:4f53"],

Cell[TextData[{
 "\:542b\:65f6\:859b\:5b9a\:8c14\:65b9\:7a0b\:ff0c\:5047\:8bbe",
 Cell[BoxData[
  FormBox[
   OverscriptBox["V", "^"], TraditionalForm]]],
 "\:4e0e\:65f6\:95f4\:65e0\:5173\:ff0c(",
 Cell[BoxData[
  FormBox[
   OverscriptBox["T", "^"], TraditionalForm]]],
 "\:4e2d",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Del]", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "\:4e0e\:65f6\:95f4\:65e0\:5173\:ff0c",
 Cell[BoxData[
  FormBox[
   OverscriptBox["T", "^"], TraditionalForm]]],
 "\:901a\:8fc7\[HBar][J\[CenterDot]S]\:4e0e\:65f6\:95f4\:76f8\:5173)\:ff0c\
\:5373\:53ef\:4ee5\:8fdb\:884c\:65f6\:95f4\:4e0e\:7a7a\:95f4\:53d8\:91cf\:5206\
\:79bb\:65f6\:ff0c\[Psi](x,t)=U(t)\[Psi](x,0)\:3002",
 StyleBox["\[ImaginaryI]\[HBar]",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{"\[PartialD]", "\[Psi]"}], 
     RowBox[{"(", 
      RowBox[{"x", ",", "t"}], ")"}]}], 
    RowBox[{"\[PartialD]", "t"}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "=\[ImaginaryI]\[HBar]",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"U\[Psi]", "(", 
      RowBox[{"x", ",", "0"}], ")"}]}], 
    RowBox[{"\[PartialD]", "t"}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "= ",
 Cell[BoxData[
  OverscriptBox["H", "^"]],
  CellChangeTimes->{{3.8625211152915707`*^9, 3.862521430047993*^9}, 
    3.8625214611160755`*^9, {3.8625215079138737`*^9, 
    3.8625216157547584`*^9}, {3.8625220234509277`*^9, 3.862522101587124*^9}, {
    3.862522132765366*^9, 3.862522195410698*^9}, {3.8625223030831*^9, 
    3.8625223193205385`*^9}, {3.862522957909383*^9, 3.8625231501455483`*^9}, {
    3.862523191451297*^9, 3.862523191675209*^9}, {3.86252335161232*^9, 
    3.862523439636837*^9}, {3.862524766570175*^9, 3.8625248066763887`*^9}, 
    3.862526988581633*^9, {3.86253832915827*^9, 3.8625383459153395`*^9}, {
    3.86253853932174*^9, 3.8625385733423405`*^9}, {3.862539090952861*^9, 
    3.8625391495683327`*^9}, {3.8625393519122095`*^9, 
    3.8625400407957773`*^9}, {3.862621700234275*^9, 3.8626217054166183`*^9}},
  FontFamily->"\:9ed1\:4f53"],
 "U\[Psi](x,0)\:ff0c\:5176\:4e2d",
 Cell[BoxData[
  RowBox[{
   OverscriptBox["H", "^"], "=", 
   RowBox[{
    RowBox[{
     OverscriptBox["T", "^"], "+", 
     OverscriptBox["V", "^"]}], " ", "=", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["\[HBar]", "2"], 
       RowBox[{"2", "m"}]]}], 
     RowBox[{
      SuperscriptBox["\[Del]", "2"], " ", 
      RowBox[{"+", " ", 
       OverscriptBox["V", "^"]}]}]}]}]}]],
  CellChangeTimes->{{3.8625211152915707`*^9, 3.862521430047993*^9}, 
    3.8625214611160755`*^9, {3.8625215079138737`*^9, 
    3.8625216157547584`*^9}, {3.8625220234509277`*^9, 3.862522101587124*^9}, {
    3.862522132765366*^9, 3.862522195410698*^9}, {3.8625223030831*^9, 
    3.8625223193205385`*^9}, {3.862522957909383*^9, 3.8625231501455483`*^9}, {
    3.862523191451297*^9, 3.862523191675209*^9}, {3.86252335161232*^9, 
    3.862523439636837*^9}, {3.862524766570175*^9, 3.8625248066763887`*^9}, 
    3.862526988581633*^9, {3.86253832915827*^9, 3.8625383459153395`*^9}, {
    3.86253853932174*^9, 3.8625385733423405`*^9}, {3.862539090952861*^9, 
    3.8625391495683327`*^9}, {3.8625393519122095`*^9, 
    3.8625400407957773`*^9}, {3.862621700234275*^9, 3.8626217054166183`*^9}},
  FontFamily->"\:9ed1\:4f53"],
 "; \[Psi](x,0)\:4e0e\:65f6\:95f4\:65e0\:5173\:ff0c\:4f5c\:4e3a\:5e38\:6570\
\:7ea6\:6389\:3002\n\[ImaginaryI]\[HBar]",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[PartialD]", "U"}], 
    RowBox[{"\[PartialD]", "t"}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "= ",
 Cell[BoxData[
  OverscriptBox["H", "^"]],
  CellChangeTimes->{{3.8625211152915707`*^9, 3.862521430047993*^9}, 
    3.8625214611160755`*^9, {3.8625215079138737`*^9, 
    3.8625216157547584`*^9}, {3.8625220234509277`*^9, 3.862522101587124*^9}, {
    3.862522132765366*^9, 3.862522195410698*^9}, {3.8625223030831*^9, 
    3.8625223193205385`*^9}, {3.862522957909383*^9, 3.8625231501455483`*^9}, {
    3.862523191451297*^9, 3.862523191675209*^9}, {3.86252335161232*^9, 
    3.862523439636837*^9}, {3.862524766570175*^9, 3.8625248066763887`*^9}, 
    3.862526988581633*^9, {3.86253832915827*^9, 3.8625383459153395`*^9}, {
    3.86253853932174*^9, 3.8625385733423405`*^9}, {3.862539090952861*^9, 
    3.8625391495683327`*^9}, {3.8625393519122095`*^9, 
    3.8625400407957773`*^9}, {3.862621700234275*^9, 3.8626217054166183`*^9}},
  FontFamily->"\:9ed1\:4f53"],
 "U,\:662f\:4e00\:9636\:5e38\:5fae\:5206\:65b9\:7a0b\:ff0c\:89e3\:4e3a\nU = ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", 
       OverscriptBox["H", "^"], "t"}], "\[HBar]"]}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ",\:5982\:679c\:6b64\:5904\:53bb\:6389\:8d1f\:53f7\:ff0c\:5219\:859b\:5b9a\
\:8c14\:65b9\:7a0b\:7684",
 StyleBox["\[ImaginaryI]\[HBar]",
  FontColor->RGBColor[1, 0, 0]],
 "\:90e8\:5206\:9700\:8981\:53d8\:4e3a",
 StyleBox["\[HBar]/\[ImaginaryI].",
  FontColor->RGBColor[1, 0, 0]],
 "\n\[Psi](x,t)=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", 
       OverscriptBox["H", "^"], "t"}], "\[HBar]"]}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "\[Psi](x,0);\n\n\:5982\:679c",
 Cell[BoxData[
  OverscriptBox["V", "^"]],
  CellChangeTimes->{{3.8625211152915707`*^9, 3.862521430047993*^9}, 
    3.8625214611160755`*^9, {3.8625215079138737`*^9, 
    3.8625216157547584`*^9}, {3.8625220234509277`*^9, 3.862522101587124*^9}, {
    3.862522132765366*^9, 3.862522195410698*^9}, {3.8625223030831*^9, 
    3.8625223193205385`*^9}, {3.862522957909383*^9, 3.8625231501455483`*^9}, {
    3.862523191451297*^9, 3.862523191675209*^9}, {3.86252335161232*^9, 
    3.862523439636837*^9}, {3.862524766570175*^9, 3.8625248066763887`*^9}, 
    3.862526988581633*^9, {3.86253832915827*^9, 3.8625383459153395`*^9}, {
    3.86253853932174*^9, 3.8625385733423405`*^9}, {3.862539090952861*^9, 
    3.8625391495683327`*^9}, {3.8625393519122095`*^9, 
    3.8625400407957773`*^9}, {3.862621700234275*^9, 3.8626217054166183`*^9}},
  FontFamily->"\:9ed1\:4f53"],
 " = 0\:ff0c\:4e0d\:542b\:65f6\:90e8\:5206\:7684\:89e3\:662f\:5e73\:9762\:6ce2\
\:7684\:7a7a\:95f4\:90e8\:5206\:ff0c\:5373",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    OverscriptBox["H", "^"], "\[Psi]"}], "=", "E\[Psi]"}]],
  CellChangeTimes->{{3.8625211152915707`*^9, 3.862521430047993*^9}, 
    3.8625214611160755`*^9, {3.8625215079138737`*^9, 
    3.8625216157547584`*^9}, {3.8625220234509277`*^9, 3.862522101587124*^9}, {
    3.862522132765366*^9, 3.862522195410698*^9}, {3.8625223030831*^9, 
    3.8625223193205385`*^9}, {3.862522957909383*^9, 3.8625231501455483`*^9}, {
    3.862523191451297*^9, 3.862523191675209*^9}, {3.86252335161232*^9, 
    3.862523439636837*^9}, {3.862524766570175*^9, 3.8625248066763887`*^9}, 
    3.862526988581633*^9, {3.86253832915827*^9, 3.8625383459153395`*^9}, {
    3.86253853932174*^9, 3.8625385733423405`*^9}, {3.862539090952861*^9, 
    3.8625391495683327`*^9}, {3.8625393519122095`*^9, 
    3.8625400407957773`*^9}, {3.862621700234275*^9, 3.8626217054166183`*^9}},
  FontFamily->"\:9ed1\:4f53"],
 "\:ff0c\[Psi](x,0)= ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[PlusMinus]", "\[ImaginaryI]kx"}]], TraditionalForm]]],
 ".\n\n\[Therefore] \[Psi](x,t)=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[PlusMinus]", "\[ImaginaryI]kx"}]], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", 
       OverscriptBox["H", "^"], "t"}], "\[HBar]"]}]], TraditionalForm]]],
 "=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[PlusMinus]", "\[ImaginaryI]kx"}], "-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", 
       OverscriptBox["H", "^"], "t"}], "\[HBar]"]}]], TraditionalForm]]],
 "=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[PlusMinus]", "\[ImaginaryI]px"}], "-", 
       RowBox[{"\[ImaginaryI]", 
        OverscriptBox["H", "^"], "t"}]}], ")"}], "/", "\[HBar]"}]], 
   TraditionalForm]]],
 ",p = \[HBar]k\n"
}], "Text",
 CellChangeTimes->{{3.8625210616632786`*^9, 3.862521086108513*^9}, {
   3.8625394217664633`*^9, 3.862539422147457*^9}, {3.8626216853669653`*^9, 
   3.8626216980095444`*^9}, {3.863559253529372*^9, 3.863559347116211*^9}, {
   3.8635593830971146`*^9, 3.863559429174032*^9}, {3.863560411166567*^9, 
   3.863560837899768*^9}, {3.8635719521440945`*^9, 3.8635719674558873`*^9}, {
   3.8635720128108573`*^9, 3.8635721054362216`*^9}, {3.863572202242791*^9, 
   3.86357233243001*^9}, {3.8635724021400967`*^9, 3.863572447390801*^9}, {
   3.8635724789301424`*^9, 3.8635727425258102`*^9}, 3.8635727835580063`*^9, {
   3.863573508501666*^9, 3.863573580502722*^9}},
 FontFamily->"\:9ed1\:4f53"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\:82e5\[Psi]", 
    RowBox[{"(", 
     RowBox[{"x", ",", "t"}], ")"}]}], "=", 
   FormBox[
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]kx", "\[PlusMinus]", "\[ImaginaryI]\[Omega]t"}], 
      ")"}]],
    TraditionalForm]}], "\:ff0c", 
  "\:5f53\:76f8\:4f4d\:56fa\:5b9a\:4e3a\:4e00\:503c", "\:ff0c", 
  RowBox[{
   RowBox[{
    RowBox[{"\:5982", " ", "kx"}], "\[PlusMinus]", "\[Omega]t"}], " ", "=", 
   "0"}], "\:ff0c", 
  RowBox[{
  "\:5982\:679c\:6ce2\:548c\:6b64\:56fa\:5b9a\:76f8\:4f4d\:7684\:70b9\:90fd\
\:5411x\:8f74\:6b63\:65b9\:5411\:4f20\:64ad", 
   RowBox[{"\:ff08", "\:53f3\:8fb9", "\:ff09"}]}], "\:ff0c", "x\:589e\:52a0", 
  "\:ff0c", "\:65f6\:95f4\:4e5f\:589e\:52a0", "\:ff0c", 
  "\:53ea\:80fd\:7ed9\[Omega]\:524d\:9762\:589e\:52a0\:8d1f\:53f7\:4f7f\:8be5\
\:70b9\:76f8\:4f4d\:4e0d\:53d8", "\:3002", "\[IndentingNewLine]", 
  RowBox[{"\:65e0\:8bba\:9009\:62e9", "+", "\:6216\:8005", "-", 
   RowBox[{"\[Omega]t", 
    RowBox[{"(", 
     RowBox[{"\:6216\:8005", "\[PlusMinus]", 
      RowBox[{"\[ImaginaryI]", 
       OverscriptBox["H", "^"], 
       RowBox[{"t", "/", "\[HBar]"}]}]}], ")"}]}]}], ",", 
  "\:90fd\:662f\:53ef\:4ee5\:7684", "\:ff0c", 
  "\:4f46\:662f\:9009\:62e9\:8d1f\:53f7\:4e0e\:6240\:6709\:91cf\:5b50\:529b\
\:5b66\:6846\:67b6\:4e00\:81f4", "\:ff0c", 
  "\:53ea\:662f\:4e00\:79cd\:7ea6\:5b9a\:4fd7\:6210\:7684\:505a\:6cd5", 
  "\:3002", "\[IndentingNewLine]"}]], "DisplayFormula",
 CellChangeTimes->{{3.8625211152915707`*^9, 3.862521430047993*^9}, 
   3.8625214611160755`*^9, {3.8625215079138737`*^9, 3.8625216157547584`*^9}, {
   3.8625220234509277`*^9, 3.862522101587124*^9}, {3.862522132765366*^9, 
   3.862522195410698*^9}, {3.8625223030831*^9, 3.8625223193205385`*^9}, {
   3.862522957909383*^9, 3.8625231501455483`*^9}, {3.862523191451297*^9, 
   3.862523191675209*^9}, {3.86252335161232*^9, 3.862523439636837*^9}, {
   3.862524766570175*^9, 3.8625248066763887`*^9}, 3.862526988581633*^9, {
   3.86253832915827*^9, 3.8625383459153395`*^9}, {3.86253853932174*^9, 
   3.8625385733423405`*^9}, {3.862539090952861*^9, 3.8625391495683327`*^9}, {
   3.8625393519122095`*^9, 3.8625400407957773`*^9}, {3.862621700234275*^9, 
   3.8626217054166183`*^9}, {3.8635727890249662`*^9, 
   3.8635728238070784`*^9}, {3.86357286277742*^9, 3.8635730379872637`*^9}, {
   3.863573095124999*^9, 3.8635731161756334`*^9}, {3.863573159542737*^9, 
   3.8635732268809147`*^9}, {3.8635733052528067`*^9, 
   3.8635733256157355`*^9}, {3.863573692639316*^9, 3.8635738318510313`*^9}},
 FontFamily->"\:9ed1\:4f53"],

Cell[BoxData[""], "DisplayFormula",
 CellChangeTimes->{{3.8625211152915707`*^9, 3.862521430047993*^9}, 
   3.8625214611160755`*^9, {3.8625215079138737`*^9, 3.8625216157547584`*^9}, {
   3.8625220234509277`*^9, 3.862522101587124*^9}, {3.862522132765366*^9, 
   3.862522195410698*^9}, {3.8625223030831*^9, 3.8625223193205385`*^9}, {
   3.862522957909383*^9, 3.8625231501455483`*^9}, {3.862523191451297*^9, 
   3.862523191675209*^9}, {3.86252335161232*^9, 3.862523439636837*^9}, {
   3.862524766570175*^9, 3.8625248066763887`*^9}, 3.862526988581633*^9, {
   3.86253832915827*^9, 3.8625383459153395`*^9}, {3.86253853932174*^9, 
   3.8625385733423405`*^9}, {3.862539090952861*^9, 3.8625391495683327`*^9}, {
   3.8625393519122095`*^9, 3.862539712796912*^9}, 3.863572865331455*^9},
 FontFamily->"\:9ed1\:4f53"]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1213, 834},
WindowMargins->{{Automatic, 169}, {62, Automatic}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.3199999999999, 841.92}},
Magnification->1.25,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 316, 4, 73, "Section"],
Cell[899, 28, 9144, 214, 338, "Text"],
Cell[10046, 244, 2607, 51, 121, "DisplayFormula"],
Cell[12656, 297, 803, 11, 28, "DisplayFormula"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)