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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     14366,        371]
NotebookOptionsPosition[     13804,        349]
NotebookOutlinePosition[     14146,        364]
CellTagsIndexPosition[     14103,        361]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "With  ",
 Cell[BoxData[
  RowBox[{"A", " ", "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["\[HBar]", "2"], 
      RowBox[{"2", " ", "m", " ", 
       RowBox[{"r", "^", "2"}]}]]}], " ", 
    RowBox[{
     FractionBox["\[PartialD]", 
      RowBox[{"\[PartialD]", "r"}]], 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       FractionBox["\[PartialD]", 
        RowBox[{"\[PartialD]", "r"}]]}], ")"}], " "}]}]}]]],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["p", "r"], "=", " ", 
    RowBox[{
     RowBox[{"-", "i"}], " ", "\[HBar]", " ", 
     RowBox[{
      FractionBox["\[PartialD]", 
       RowBox[{"\[PartialD]", "r"}]], "    "}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", find that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{"A", ",", " ", 
      SubscriptBox["p", "r"]}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["\[HBar]", "2"], 
       RowBox[{"2", " ", "m", " ", 
        RowBox[{"r", "^", "2"}]}]]}], " ", 
     SubscriptBox["p", "r"], " "}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.659057974188034*^9, 3.65905829581441*^9}, {
  3.6590587988648024`*^9, 3.6590588014270105`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", 
   RowBox[{
   "hbar", ",", " ", "A", ",", " ", "pr", ",", " ", "rn", ",", " ", "display",
     ",", " ", "a1"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"display", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"hbar", " ", "\[Rule]", " ", "\[HBar]"}], "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"a1", "[", "f_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"r", "^", "2"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"f", "[", "r", "]"}], ",", " ", 
         RowBox[{"{", "r", "}"}]}], "]"}]}], ")"}], " ", "/.", " ", 
     RowBox[{"r", "\[Rule]", " ", "#"}]}], " ", "&"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"A", "[", "f_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"hbar", "^", "2"}], "/", "2"}], "/", "m"}], "/", 
           RowBox[{"t", "^", "2"}]}], ")"}], " ", 
         RowBox[{"D", "[", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"a1", "[", "f", "]"}], " ", "[", "t", "]"}], ",", 
           RowBox[{"{", "t", "}"}]}], "]"}]}], " ", ")"}]}], "/.", " ", 
      RowBox[{"t", "\[Rule]", " ", "#"}]}], " ", "&"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"pr", "[", "f_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", "hbar", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"f", "[", "s", "]"}], ",", " ", 
         RowBox[{"{", "s", "}"}]}], "]"}]}], " ", "/.", " ", 
      RowBox[{"s", "\[Rule]", " ", "#"}]}], " ", "&"}]}], " ", ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rn", "[", "n_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"#", "^", "n"}], " ", "&"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pr", "[", " ", 
    RowBox[{"rn", "[", "n", "]"}], " ", "]"}], "[", "r", "]"}], " ", "/.", 
  " ", "display"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"rn", "[", "n", "]"}], " ", "]"}], "[", "r", "]"}], "    ", "/.", 
  " ", "display"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"pr", "[", 
     RowBox[{"rn", "[", "n", "]"}], "]"}], " ", "]"}], "[", "r", "]"}], "  ", 
  "/.", " ", "display"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"pr", "[", 
     RowBox[{"A", "[", 
      RowBox[{"rn", "[", "n", "]"}], "]"}], " ", "]"}], "[", "r", "]"}], "  ",
    "/.", " ", "display"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"pr", "[", 
         RowBox[{"rn", "[", "n", "]"}], "]"}], " ", "]"}], "[", "r", "]"}], 
      " ", "-", "  ", 
      RowBox[{
       RowBox[{"pr", "[", 
        RowBox[{"A", "[", 
         RowBox[{"rn", "[", "n", "]"}], "]"}], " ", "]"}], "[", "r", "]"}]}], 
     ")"}], "  ", "//", " ", "Simplify"}], ")"}], " ", "/.", " ", 
  "display"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"pr", "[", "f", "]"}], " ", "]"}], "[", "r", "]"}], " ", 
        "-", "  ", 
        RowBox[{
         RowBox[{"pr", "[", 
          RowBox[{"A", "[", "f", "]"}], "]"}], "[", "r", "]"}]}], ")"}], "  ",
       "/", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "I"}], " ", "hbar"}], ")"}]}], "//", " ", "Simplify"}], 
    " ", ")"}], " ", "/.", " ", "display"}], " ", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.659054165440343*^9, 3.65905427406483*^9}, {
   3.6590543334584785`*^9, 3.659054370264429*^9}, {3.659054544786725*^9, 
   3.6590545763293324`*^9}, {3.6590547512205396`*^9, 3.659054832647933*^9}, 
   3.659054982253386*^9, {3.659055077252906*^9, 3.6590551231093082`*^9}, {
   3.659055534040782*^9, 3.6590555673658466`*^9}, {3.6590556100519133`*^9, 
   3.6590556233611584`*^9}, {3.6590557110622034`*^9, 
   3.6590557704080462`*^9}, {3.6590559868813953`*^9, 3.659055992613027*^9}, {
   3.659056061894945*^9, 3.6590561230950623`*^9}, {3.659056201148287*^9, 
   3.6590562012577195`*^9}, {3.659056241994752*^9, 3.6590562807825737`*^9}, {
   3.659056326988962*^9, 3.6590563886989737`*^9}, {3.659056419454914*^9, 
   3.659056440636881*^9}, {3.6590566136560926`*^9, 3.659056672893095*^9}, {
   3.6590567063921247`*^9, 3.659056757141878*^9}, 3.65905684567216*^9, {
   3.6590568889237275`*^9, 3.659056937797778*^9}, {3.659057235645525*^9, 
   3.659057361363387*^9}, 3.6590574521758747`*^9, {3.659057754316616*^9, 
   3.6590577979419765`*^9}, {3.6590578888656883`*^9, 3.659057942424223*^9}, {
   3.659058021458403*^9, 3.659058030875473*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "n", " ", 
  SuperscriptBox["r", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "n"}]], " ", "\[HBar]"}]], "Output",
 CellChangeTimes->{
  3.6590541849395065`*^9, {3.6590545617124186`*^9, 3.659054576752361*^9}, 
   3.6590547566586776`*^9, 3.6590547962276554`*^9, {3.6590548286712284`*^9, 
   3.6590548343460064`*^9}, 3.659054983503435*^9, 3.659055089455242*^9, 
   3.6590551247981443`*^9, 3.659055846595213*^9, {3.6590561089065175`*^9, 
   3.6590561237357144`*^9}, 3.6590562491110597`*^9, 3.659056281610691*^9, 
   3.659056353494358*^9, 3.659056442856916*^9, {3.659056662986405*^9, 
   3.6590566735805645`*^9}, 3.6590567256572475`*^9, 3.6590567580012856`*^9, 
   3.659056846219059*^9, {3.659056892488782*^9, 3.6590569037992754`*^9}, 
   3.6590569427425175`*^9, {3.659057275944482*^9, 3.65905731964253*^9}, {
   3.6590573549096756`*^9, 3.6590573632942104`*^9}, {3.6590577674696198`*^9, 
   3.659057798593786*^9}, {3.6590579043594713`*^9, 3.6590579434255486`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"n", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "n"}], ")"}], " ", 
    SuperscriptBox["r", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "n"}]], " ", 
    SuperscriptBox["\[HBar]", "2"]}], 
   RowBox[{"2", " ", "m"}]]}]], "Output",
 CellChangeTimes->{
  3.6590541849395065`*^9, {3.6590545617124186`*^9, 3.659054576752361*^9}, 
   3.6590547566586776`*^9, 3.6590547962276554`*^9, {3.6590548286712284`*^9, 
   3.6590548343460064`*^9}, 3.659054983503435*^9, 3.659055089455242*^9, 
   3.6590551247981443`*^9, 3.659055846595213*^9, {3.6590561089065175`*^9, 
   3.6590561237357144`*^9}, 3.6590562491110597`*^9, 3.659056281610691*^9, 
   3.659056353494358*^9, 3.659056442856916*^9, {3.659056662986405*^9, 
   3.6590566735805645`*^9}, 3.6590567256572475`*^9, 3.6590567580012856`*^9, 
   3.659056846219059*^9, {3.659056892488782*^9, 3.6590569037992754`*^9}, 
   3.6590569427425175`*^9, {3.659057275944482*^9, 3.65905731964253*^9}, {
   3.6590573549096756`*^9, 3.6590573632942104`*^9}, {3.6590577674696198`*^9, 
   3.659057798593786*^9}, {3.6590579043594713`*^9, 3.6590579434255486`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", 
   SuperscriptBox["n", "2"], " ", 
   SuperscriptBox["r", 
    RowBox[{
     RowBox[{"-", "3"}], "+", "n"}]], " ", 
   SuperscriptBox["\[HBar]", "3"]}], 
  RowBox[{"2", " ", "m"}]]], "Output",
 CellChangeTimes->{
  3.6590541849395065`*^9, {3.6590545617124186`*^9, 3.659054576752361*^9}, 
   3.6590547566586776`*^9, 3.6590547962276554`*^9, {3.6590548286712284`*^9, 
   3.6590548343460064`*^9}, 3.659054983503435*^9, 3.659055089455242*^9, 
   3.6590551247981443`*^9, 3.659055846595213*^9, {3.6590561089065175`*^9, 
   3.6590561237357144`*^9}, 3.6590562491110597`*^9, 3.659056281610691*^9, 
   3.659056353494358*^9, 3.659056442856916*^9, {3.659056662986405*^9, 
   3.6590566735805645`*^9}, 3.6590567256572475`*^9, 3.6590567580012856`*^9, 
   3.659056846219059*^9, {3.659056892488782*^9, 3.6590569037992754`*^9}, 
   3.6590569427425175`*^9, {3.659057275944482*^9, 3.65905731964253*^9}, {
   3.6590573549096756`*^9, 3.6590573632942104`*^9}, {3.6590577674696198`*^9, 
   3.659057798593786*^9}, {3.6590579043594713`*^9, 3.6590579434255486`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", "n", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "n"}], ")"}], " ", 
   SuperscriptBox["r", 
    RowBox[{
     RowBox[{"-", "3"}], "+", "n"}]], " ", 
   SuperscriptBox["\[HBar]", "3"]}], 
  RowBox[{"2", " ", "m"}]]], "Output",
 CellChangeTimes->{
  3.6590541849395065`*^9, {3.6590545617124186`*^9, 3.659054576752361*^9}, 
   3.6590547566586776`*^9, 3.6590547962276554`*^9, {3.6590548286712284`*^9, 
   3.6590548343460064`*^9}, 3.659054983503435*^9, 3.659055089455242*^9, 
   3.6590551247981443`*^9, 3.659055846595213*^9, {3.6590561089065175`*^9, 
   3.6590561237357144`*^9}, 3.6590562491110597`*^9, 3.659056281610691*^9, 
   3.659056353494358*^9, 3.659056442856916*^9, {3.659056662986405*^9, 
   3.6590566735805645`*^9}, 3.6590567256572475`*^9, 3.6590567580012856`*^9, 
   3.659056846219059*^9, {3.659056892488782*^9, 3.6590569037992754`*^9}, 
   3.6590569427425175`*^9, {3.659057275944482*^9, 3.65905731964253*^9}, {
   3.6590573549096756`*^9, 3.6590573632942104`*^9}, {3.6590577674696198`*^9, 
   3.659057798593786*^9}, {3.6590579043594713`*^9, 3.659057943441207*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "n", " ", 
   SuperscriptBox["r", 
    RowBox[{
     RowBox[{"-", "3"}], "+", "n"}]], " ", 
   SuperscriptBox["\[HBar]", "3"]}], "m"]], "Output",
 CellChangeTimes->{
  3.6590541849395065`*^9, {3.6590545617124186`*^9, 3.659054576752361*^9}, 
   3.6590547566586776`*^9, 3.6590547962276554`*^9, {3.6590548286712284`*^9, 
   3.6590548343460064`*^9}, 3.659054983503435*^9, 3.659055089455242*^9, 
   3.6590551247981443`*^9, 3.659055846595213*^9, {3.6590561089065175`*^9, 
   3.6590561237357144`*^9}, 3.6590562491110597`*^9, 3.659056281610691*^9, 
   3.659056353494358*^9, 3.659056442856916*^9, {3.659056662986405*^9, 
   3.6590566735805645`*^9}, 3.6590567256572475`*^9, 3.6590567580012856`*^9, 
   3.659056846219059*^9, {3.659056892488782*^9, 3.6590569037992754`*^9}, 
   3.6590569427425175`*^9, {3.659057275944482*^9, 3.65905731964253*^9}, {
   3.6590573549096756`*^9, 3.6590573632942104`*^9}, {3.6590577674696198`*^9, 
   3.659057798593786*^9}, {3.6590579043594713`*^9, 3.659057943441207*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[HBar]", "2"], " ", 
    RowBox[{
     SuperscriptBox["f", "\[Prime]",
      MultilineFunction->None], "[", "r", "]"}]}], 
   RowBox[{"m", " ", 
    SuperscriptBox["r", "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.6590541849395065`*^9, {3.6590545617124186`*^9, 3.659054576752361*^9}, 
   3.6590547566586776`*^9, 3.6590547962276554`*^9, {3.6590548286712284`*^9, 
   3.6590548343460064`*^9}, 3.659054983503435*^9, 3.659055089455242*^9, 
   3.6590551247981443`*^9, 3.659055846595213*^9, {3.6590561089065175`*^9, 
   3.6590561237357144`*^9}, 3.6590562491110597`*^9, 3.659056281610691*^9, 
   3.659056353494358*^9, 3.659056442856916*^9, {3.659056662986405*^9, 
   3.6590566735805645`*^9}, 3.6590567256572475`*^9, 3.6590567580012856`*^9, 
   3.659056846219059*^9, {3.659056892488782*^9, 3.6590569037992754`*^9}, 
   3.6590569427425175`*^9, {3.659057275944482*^9, 3.65905731964253*^9}, {
   3.6590573549096756`*^9, 3.6590573632942104`*^9}, {3.6590577674696198`*^9, 
   3.659057798593786*^9}, {3.6590579043594713`*^9, 3.659057943441207*^9}}]
}, Open  ]]
},
WindowSize->{905, 636},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1297, 45, 55, "Text"],
Cell[CellGroupData[{
Cell[1879, 69, 5184, 140, 491, "Input"],
Cell[7066, 211, 1020, 17, 42, "Output"],
Cell[8089, 230, 1137, 22, 63, "Output"],
Cell[9229, 254, 1179, 23, 63, "Output"],
Cell[10411, 279, 1211, 24, 63, "Output"],
Cell[11625, 305, 1049, 18, 62, "Output"],
Cell[12677, 325, 1111, 21, 65, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)