diff options
Diffstat (limited to 'misc/incomplete/Hermite_Orthogonality.nb')
| -rw-r--r-- | misc/incomplete/Hermite_Orthogonality.nb | 147 |
1 files changed, 147 insertions, 0 deletions
diff --git a/misc/incomplete/Hermite_Orthogonality.nb b/misc/incomplete/Hermite_Orthogonality.nb new file mode 100644 index 0000000..07c4501 --- /dev/null +++ b/misc/incomplete/Hermite_Orthogonality.nb @@ -0,0 +1,147 @@ +(************** Content-type: application/mathematica **************
+ CreatedBy='Mathematica 5.0'
+
+ Mathematica-Compatible Notebook
+
+This notebook can be used with any Mathematica-compatible
+application, such as Mathematica, MathReader or Publicon. The data
+for the notebook starts with the line containing stars above.
+
+To get the notebook into a Mathematica-compatible application, do
+one of the following:
+
+* Save the data starting with the line of stars above into a file
+ with a name ending in .nb, then open the file inside the
+ application;
+
+* Copy the data starting with the line of stars above to the
+ clipboard, then use the Paste menu command inside the application.
+
+Data for notebooks contains only printable 7-bit ASCII and can be
+sent directly in email or through ftp in text mode. Newlines can be
+CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
+
+NOTE: If you modify the data for this notebook not in a Mathematica-
+compatible application, you must delete the line below containing
+the word CacheID, otherwise Mathematica-compatible applications may
+try to use invalid cache data.
+
+For more information on notebooks and Mathematica-compatible
+applications, contact Wolfram Research:
+ web: http://www.wolfram.com
+ email: info@wolfram.com
+ phone: +1-217-398-0700 (U.S.)
+
+Notebook reader applications are available free of charge from
+Wolfram Research.
+*******************************************************************)
+
+(*CacheID: 232*)
+
+
+(*NotebookFileLineBreakTest
+NotebookFileLineBreakTest*)
+(*NotebookOptionsPosition[ 2986, 97]*)
+(*NotebookOutlinePosition[ 3685, 120]*)
+(* CellTagsIndexPosition[ 3641, 116]*)
+(*WindowFrame->Normal*)
+
+
+
+Notebook[{
+Cell[BoxData[
+ \(Clear[x, y, n1, n2, m1, m2]\)], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ \(u1[n1_, x_] = \
+ HermiteH[n1, \(\@2\) \((x)\)/\((w)\)]\ *\
+ Exp[\(-\[ImaginaryI]\) \(k\ \((x)\)^2\)\/\(2\ R\)\ - \ \
+\((x)\)^2\/\((w)\)^2]\ *\ \((2/\[Pi])\)\^\(1/4\)/\((2^n1\ \(n1!\)\ \
+w)\)\^\(1/2\)\n\), "\n",
+ \(\(u2[n2_, x_] = \
+ HermiteH[n2, \(\@2\) x/w]\ *\
+ Exp[\(-\[ImaginaryI]\) \(k\ x^2\)\/\(2\ R\)\ - \
+ x^2\/w^2]*\((2/\[Pi])\)\^\(1/4\)/\((2^n2\ \(n2!\)\ \
+w)\)\^\(1/2\);\)\)}], "Input"],
+
+Cell[BoxData[
+ \(\(\[ExponentialE]\^\(\(-\(\(\[ImaginaryI]\ k\ x\^2\)\/\(2\ R\)\)\) - \
+x\^2\/w\^2\)\ \((2\/\[Pi])\)\^\(1/4\)\ HermiteH[n1, \(\@2\ \
+x\)\/w]\)\/\@\(2\^n1\ w\ \(n1!\)\)\)], "Output"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ \(Simplify[
+ Integrate[
+ Conjugate[u1[1, x]]*
+ u2[1, x], {x, \(-\[Infinity]\), \[Infinity]}], {b > 0, a > 0,
+ k > 0, R > 0, w > 0}]\)], "Input"],
+
+Cell[BoxData[
+ \(1\)], "Output"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ \(\(n = {1, 2, 3, 4, 5};\)\), "\n",
+ \(2^\((n - 1)\)\ \(n!\)\)}], "Input"],
+
+Cell[BoxData[
+ \({1, 4, 24, 192, 1920}\)], "Output"]
+}, Open ]]
+},
+FrontEndVersion->"5.0 for Microsoft Windows",
+ScreenRectangle->{{0, 1600}, {0, 1111}},
+WindowSize->{749, 819},
+WindowMargins->{{221, Automatic}, {Automatic, 94}},
+Background->RGBColor[0.988235, 0.996078, 0.686275]
+]
+
+(*******************************************************************
+Cached data follows. If you edit this Notebook file directly, not
+using Mathematica, you must remove the line containing CacheID at
+the top of the file. The cache data will then be recreated when
+you save this file from within Mathematica.
+*******************************************************************)
+
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+
+(*NotebookFileOutline
+Notebook[{
+Cell[1754, 51, 60, 1, 35, "Input"],
+
+Cell[CellGroupData[{
+Cell[1839, 56, 470, 10, 205, "Input"],
+Cell[2312, 68, 200, 3, 74, "Output"]
+}, Open ]],
+
+Cell[CellGroupData[{
+Cell[2549, 76, 191, 5, 61, "Input"],
+Cell[2743, 83, 35, 1, 34, "Output"]
+}, Open ]],
+
+Cell[CellGroupData[{
+Cell[2815, 89, 97, 2, 61, "Input"],
+Cell[2915, 93, 55, 1, 34, "Output"]
+}, Open ]]
+}
+]
+*)
+
+
+
+(*******************************************************************
+End of Mathematica Notebook file.
+*******************************************************************)
+
|