data added

bounded8He.nb

@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[     51615,       1230]
-NotebookOptionsPosition[     48723,       1173]
-NotebookOutlinePosition[     49121,       1189]
-CellTagsIndexPosition[     49078,       1186]
+NotebookDataLength[     51640,       1230]
+NotebookOptionsPosition[     48748,       1173]
+NotebookOutlinePosition[     49146,       1189]
+CellTagsIndexPosition[     49103,       1186]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -1035,9 +1035,9 @@ Cell[BoxData[
  RowBox[{
   RowBox[{"PsiP", "[", "q_", "]"}], ":=", " ", 
   RowBox[{
+   FractionBox["1", "p"], 
    SqrtBox[
-    FractionBox["2", 
-     RowBox[{"\[Pi]", " ", "p"}]]], "myNorm", " ", 
+    FractionBox["2", "\[Pi]"]], "myNorm", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
@@ -1125,9 +1125,9 @@ Cell[BoxData[
  CellChangeTimes->{{3.880861581160618*^9, 3.880861704887731*^9}, 
    3.8808617419572563`*^9, {3.880861875265856*^9, 3.8808619034776497`*^9}, {
    3.880861942515173*^9, 3.8808619704782467`*^9}, {3.880875342255783*^9, 
-   3.88087538894692*^9}},
- CellLabel->
-  "In[100]:=",ExpressionUUID->"c77c7be5-a519-41e6-b069-691e1006d400"],
+   3.88087538894692*^9}, {3.881035003112468*^9, 
+   3.881035013631791*^9}},ExpressionUUID->"c77c7be5-a519-41e6-b069-\
+691e1006d400"],
 
 Cell[CellGroupData[{
 
@@ -1227,10 +1227,10 @@ Cell[CellGroupData[{
 Cell[42550, 996, 569, 15, 29, "Input",ExpressionUUID->"0773e3b1-b600-49c8-a187-fa642d2580e8"],
 Cell[43122, 1013, 585, 17, 50, "Output",ExpressionUUID->"8b590bfb-da17-4e96-815c-5cfc0a0f84da"]
 }, Open  ]],
-Cell[43722, 1033, 3093, 96, 214, "Input",ExpressionUUID->"c77c7be5-a519-41e6-b069-691e1006d400"],
+Cell[43722, 1033, 3118, 96, 214, "Input",ExpressionUUID->"c77c7be5-a519-41e6-b069-691e1006d400"],
 Cell[CellGroupData[{
-Cell[46840, 1133, 1567, 30, 52, "Input",ExpressionUUID->"4e5819f2-d11b-4bce-b884-4cd47410fbd4"],
-Cell[48410, 1165, 297, 5, 33, "Output",ExpressionUUID->"03549400-50ed-49fa-b63f-eb2e00cbf061"]
+Cell[46865, 1133, 1567, 30, 52, "Input",ExpressionUUID->"4e5819f2-d11b-4bce-b884-4cd47410fbd4"],
+Cell[48435, 1165, 297, 5, 33, "Output",ExpressionUUID->"03549400-50ed-49fa-b63f-eb2e00cbf061"]
 }, Open  ]]
 }
 ]