Last active
December 11, 2015 17:58
-
-
Save tobin/4637945 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| This Mathematica notebook shows some properties of 1d Hermite Gauss modes: | |
| * They are orthonormal | |
| * What happens when the 0-mode and a higher-order mode are incident on a split photodiode? | |
| * A displaced 0-mode can be written as a sum of higher order modes | |
| Tobin Fricke | |
| 2013-01-25 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (* 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[ 41994, 1109] | |
| NotebookOptionsPosition[ 40933, 1070] | |
| NotebookOutlinePosition[ 41290, 1086] | |
| CellTagsIndexPosition[ 41247, 1083] | |
| WindowFrame->Normal*) | |
| (* Beginning of Notebook Content *) | |
| Notebook[{ | |
| Cell[BoxData[ | |
| RowBox[{"(*", " ", | |
| RowBox[{ | |
| RowBox[{"Tobin", " ", "Fricke", "\[IndentingNewLine]", "2013"}], "-", "01", | |
| "-", "25"}], " ", "\[IndentingNewLine]", "*)"}]], "Input", | |
| CellChangeTimes->{{3.568136178477445*^9, 3.568136199594423*^9}}], | |
| Cell[BoxData[ | |
| RowBox[{"(*", " ", | |
| RowBox[{ | |
| RowBox[{"Define", " ", "the", " ", "Hermite"}], "-", | |
| RowBox[{"Gaussian", " ", | |
| RowBox[{"mode", ":"}]}]}], " ", "*)"}]], "Input", | |
| CellChangeTimes->{{3.568136204701119*^9, 3.568136212528421*^9}}], | |
| Cell[BoxData[ | |
| RowBox[{ | |
| RowBox[{"u", "[", | |
| RowBox[{"n_", ",", "x_"}], "]"}], ":=", | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"(", | |
| RowBox[{"2", "/", "\[Pi]"}], ")"}], "^", | |
| RowBox[{"(", | |
| RowBox[{"1", "/", "4"}], ")"}]}], " ", | |
| RowBox[{"1", "/", | |
| RowBox[{"Sqrt", "[", | |
| RowBox[{ | |
| RowBox[{"Factorial", "[", "n", "]"}], " ", | |
| RowBox[{"2", "^", "n"}]}], "]"}]}], " ", | |
| RowBox[{"HermiteH", "[", | |
| RowBox[{"n", ",", | |
| RowBox[{ | |
| RowBox[{"Sqrt", "[", "2", "]"}], " ", "x"}]}], "]"}], | |
| RowBox[{"Exp", "[", | |
| RowBox[{"-", | |
| RowBox[{"x", "^", "2"}]}], "]"}]}]}]], "Input", | |
| CellChangeTimes->{{3.568130771926824*^9, 3.56813084243494*^9}}], | |
| Cell[BoxData[ | |
| RowBox[{"(*", " ", | |
| RowBox[{"Make", " ", "sure", " ", "the", " ", "modes", " ", "are", " ", | |
| RowBox[{"orthonormal", ":"}]}], " ", "*)"}]], "Input", | |
| CellChangeTimes->{{3.568130971836984*^9, 3.5681309791049*^9}}], | |
| Cell[CellGroupData[{ | |
| Cell[BoxData[ | |
| RowBox[{ | |
| RowBox[{"Table", "[", | |
| RowBox[{ | |
| RowBox[{"Integrate", "[", | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"u", "[", | |
| RowBox[{"n1", ",", "x"}], "]"}], " ", | |
| RowBox[{"u", "[", | |
| RowBox[{"n2", ",", "x"}], "]"}]}], ",", | |
| RowBox[{"{", | |
| RowBox[{"x", ",", | |
| RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}], | |
| ",", | |
| RowBox[{"{", | |
| RowBox[{"n1", ",", "0", ",", "3"}], "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{"n2", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", | |
| "MatrixForm"}]], "Input", | |
| CellChangeTimes->{{3.568130854274741*^9, 3.568130966843967*^9}}], | |
| Cell[BoxData[ | |
| TagBox[ | |
| RowBox[{"(", "\[NoBreak]", GridBox[{ | |
| {"1", "0", "0", "0"}, | |
| {"0", "1", "0", "0"}, | |
| {"0", "0", "1", "0"}, | |
| {"0", "0", "0", "1"} | |
| }, | |
| GridBoxAlignment->{ | |
| "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, | |
| "RowsIndexed" -> {}}, | |
| GridBoxSpacings->{"Columns" -> { | |
| Offset[0.27999999999999997`], { | |
| Offset[0.7]}, | |
| Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { | |
| Offset[0.2], { | |
| Offset[0.4]}, | |
| Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], | |
| Function[BoxForm`e$, | |
| MatrixForm[BoxForm`e$]]]], "Output", | |
| CellChangeTimes->{{3.568130935351437*^9, 3.568130941536948*^9}, | |
| 3.568135103810656*^9, 3.568135912266039*^9, 3.568136328309176*^9, | |
| 3.568136521932989*^9, 3.568136943668417*^9}] | |
| }, Open ]], | |
| Cell[BoxData[ | |
| RowBox[{"(*", " ", | |
| RowBox[{ | |
| "See", " ", "how", " ", "the", " ", "higher", " ", "order", " ", "modes", | |
| " ", "interfere", " ", "with", " ", "the", " ", "0", " ", "mode", " ", | |
| "on", " ", "a", " ", "split", " ", "photodiode"}], " ", "*)"}]], "Input", | |
| CellChangeTimes->{{3.568130994991102*^9, 3.568131014634363*^9}}], | |
| Cell[CellGroupData[{ | |
| Cell[BoxData[ | |
| RowBox[{"rslt", "=", | |
| RowBox[{"Table", "[", | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"Integrate", "[", | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"u", "[", | |
| RowBox[{"n1", ",", "x"}], "]"}], " ", | |
| RowBox[{"u", "[", | |
| RowBox[{"n2", ",", "x"}], "]"}]}], ",", | |
| RowBox[{"{", | |
| RowBox[{"x", ",", | |
| RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}]}], "]"}], "-", | |
| RowBox[{"Integrate", "[", | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"u", "[", | |
| RowBox[{"n1", ",", "x"}], "]"}], " ", | |
| RowBox[{"u", "[", | |
| RowBox[{"n2", ",", "x"}], "]"}]}], ",", | |
| RowBox[{"{", | |
| RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}], ",", | |
| RowBox[{"{", | |
| RowBox[{"n1", ",", "0", ",", "20"}], "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{"n2", ",", "0", ",", "0"}], "}"}]}], "]"}]}]], "Input", | |
| CellChangeTimes->{{3.568131031642287*^9, 3.568131052468318*^9}, { | |
| 3.56813111826418*^9, 3.568131128053304*^9}, {3.568131158562844*^9, | |
| 3.568131267860203*^9}, {3.568131312998732*^9, 3.568131339425816*^9}, { | |
| 3.568131406277444*^9, 3.568131410491017*^9}, {3.568131564674516*^9, | |
| 3.568131588684242*^9}, {3.568131718745494*^9, 3.56813172733772*^9}, { | |
| 3.568131795821875*^9, 3.568131804263454*^9}, {3.56813191633928*^9, | |
| 3.568131956933762*^9}, {3.568132179686065*^9, 3.568132181566406*^9}}], | |
| Cell[BoxData[ | |
| RowBox[{"{", | |
| RowBox[{ | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{"-", | |
| SqrtBox[ | |
| FractionBox["2", "\[Pi]"]]}], "}"}], ",", | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| FractionBox["1", | |
| SqrtBox[ | |
| RowBox[{"3", " ", "\[Pi]"}]]], "}"}], ",", | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{ | |
| RowBox[{"-", | |
| FractionBox["1", "2"]}], " ", | |
| SqrtBox[ | |
| FractionBox["3", | |
| RowBox[{"5", " ", "\[Pi]"}]]]}], "}"}], ",", | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{ | |
| FractionBox["1", "2"], " ", | |
| SqrtBox[ | |
| FractionBox["5", | |
| RowBox[{"14", " ", "\[Pi]"}]]]}], "}"}], ",", | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{"-", | |
| FractionBox[ | |
| SqrtBox[ | |
| FractionBox["35", "\[Pi]"]], "24"]}], "}"}], ",", | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{ | |
| FractionBox["3", "8"], " ", | |
| SqrtBox[ | |
| FractionBox["7", | |
| RowBox[{"22", " ", "\[Pi]"}]]]}], "}"}], ",", | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{ | |
| RowBox[{"-", | |
| FractionBox["1", "16"]}], " ", | |
| SqrtBox[ | |
| FractionBox["231", | |
| RowBox[{"26", " ", "\[Pi]"}]]]}], "}"}], ",", | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{ | |
| FractionBox["1", "32"], " ", | |
| SqrtBox[ | |
| FractionBox["143", | |
| RowBox[{"5", " ", "\[Pi]"}]]]}], "}"}], ",", | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{ | |
| RowBox[{"-", | |
| FractionBox["3", "128"]}], " ", | |
| SqrtBox[ | |
| FractionBox["715", | |
| RowBox[{"17", " ", "\[Pi]"}]]]}], "}"}], ",", | |
| RowBox[{"{", "0", "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{ | |
| FractionBox["1", "128"], " ", | |
| SqrtBox[ | |
| FractionBox["12155", | |
| RowBox[{"38", " ", "\[Pi]"}]]]}], "}"}], ",", | |
| RowBox[{"{", "0", "}"}]}], "}"}]], "Output", | |
| CellChangeTimes->{{3.568131088769287*^9, 3.568131099047594*^9}, { | |
| 3.568131149826164*^9, 3.568131273203751*^9}, 3.568131382134831*^9, | |
| 3.568131426569471*^9, {3.568131580408695*^9, 3.568131601804237*^9}, | |
| 3.5681317415102882`*^9, {3.568131800576714*^9, 3.568131819774544*^9}, | |
| 3.568131927823325*^9, 3.568131966348558*^9, 3.56813219217434*^9, | |
| 3.568135121608422*^9, 3.568135929620986*^9, 3.568136346022449*^9, | |
| 3.568136539511262*^9, 3.568136952702784*^9}] | |
| }, Open ]], | |
| Cell[CellGroupData[{ | |
| Cell[BoxData[ | |
| RowBox[{"BarChart", "[", | |
| RowBox[{"Abs", "[", | |
| RowBox[{"rslt", "/", | |
| RowBox[{ | |
| RowBox[{"rslt", "[", | |
| RowBox[{"[", "2", "]"}], "]"}], "[", | |
| RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]], "Input", | |
| CellChangeTimes->{{3.568132007176433*^9, 3.56813202199987*^9}, { | |
| 3.568132194596312*^9, 3.568132210098982*^9}, {3.568132325155151*^9, | |
| 3.568132353462957*^9}}], | |
| Cell[BoxData[ | |
| GraphicsBox[{ | |
| {Opacity[0], PointBox[{{0, 0}}]}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], {}, {{{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{0.2, 0.}, {1.2, 0.}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{24.000680272108845`, 47.50408163265307}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{1.4, 0.}, {2.4, 1.}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{51.004761904761914`, | |
| 74.50816326530614}, {-178.0983698757691, 173.37987608731413`}}], | |
| StatusArea[#, 1]& , | |
| TagBoxNote->"1"], | |
| StyleBox["1", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[1, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{2.6, 0.}, {3.6, 0.}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{78.00884353741499, 101.5122448979592}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{3.8000000000000003`, 0.}, {4.800000000000001, | |
| 0.4082482904638631}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{105.01292517006806`, 128.5163265306123}, { | |
| 29.297731328112093`, 173.37987608731413`}}], | |
| StatusArea[#, 6^Rational[-1, 2]]& , | |
| TagBoxNote->"1/Sqrt[6]"], | |
| StyleBox[ | |
| FractionBox["1", | |
| SqrtBox["6"]], { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[6^Rational[-1, 2], { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{5.000000000000001, 0.}, {6.000000000000001, 0.}, | |
| "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{132.01700680272114`, 155.52040816326536`}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{6.200000000000001, 0.}, {7.200000000000001, | |
| 0.27386127875258304`}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{159.02108843537422`, 182.52448979591844`}, { | |
| 76.39745547290184, 173.37987608731413`}}], | |
| StatusArea[#, Rational[1, 2] Rational[3, 10]^Rational[1, 2]]& , | |
| TagBoxNote->"Sqrt[3/10]/2"], | |
| StyleBox[ | |
| FractionBox[ | |
| SqrtBox[ | |
| FractionBox["3", "10"]], "2"], { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[Rational[1, 2] Rational[3, 10]^Rational[1, 2], { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{7.400000000000001, 0.}, {8.400000000000002, 0.}, | |
| "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{186.02517006802728`, 209.52857142857152`}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{8.600000000000001, 0.}, {9.600000000000001, | |
| 0.21128856368212914`}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{213.02925170068036`, 236.53265306122458`}, { | |
| 98.3278308959423, 173.37987608731413`}}], | |
| StatusArea[#, Rational[1, 4] Rational[5, 7]^Rational[1, 2]]& , | |
| TagBoxNote->"Sqrt[5/7]/4"], | |
| StyleBox[ | |
| FractionBox[ | |
| SqrtBox[ | |
| FractionBox["5", "7"]], "4"], { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[Rational[1, 4] Rational[5, 7]^Rational[1, 2], { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{9.8, 0.}, {10.8, 0.}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{240.03333333333342`, 263.53673469387763`}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{11., 0.}, {12., 0.17430417219459907`}, | |
| "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{267.03741496598644`, 290.5408163265307}, { | |
| 111.29005555250383`, 173.37987608731413`}}], | |
| StatusArea[#, Rational[1, 24] Rational[35, 2]^Rational[1, 2]]& , | |
| TagBoxNote->"Sqrt[35/2]/24"], | |
| StyleBox[ | |
| FractionBox[ | |
| SqrtBox[ | |
| FractionBox["35", "2"]], "24"], { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[Rational[1, 24] Rational[35, 2]^Rational[1, 2], { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{12.2, 0.}, {13.2, 0.}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{294.0414965986395, 317.54489795918374`}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{13.399999999999999`, 0.}, {14.399999999999999`, | |
| 0.1495732566032748}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{321.04557823129255`, 344.54897959183677`}, { | |
| 119.95770347001222`, 173.37987608731413`}}], | |
| StatusArea[#, Rational[3, 16] Rational[7, 11]^Rational[1, 2]]& , | |
| TagBoxNote->"(3*Sqrt[7/11])/16"], | |
| StyleBox[ | |
| FractionBox[ | |
| RowBox[{"3", " ", | |
| SqrtBox[ | |
| FractionBox["7", "11"]]}], "16"], { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[Rational[3, 16] Rational[7, 11]^Rational[1, 2], { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{14.599999999999998`, 0.}, {15.599999999999998`, 0.}, | |
| "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{348.04965986394564`, 371.55306122448985`}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{15.799999999999997`, 0.}, {16.799999999999997`, | |
| 0.13172989191173323`}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{375.05374149659866`, 398.5571428571429}, { | |
| 126.21141462918332`, 173.37987608731413`}}], | |
| StatusArea[#, Rational[1, 32] Rational[231, 13]^Rational[1, 2]]& , | |
| TagBoxNote->"Sqrt[231/13]/32"], | |
| StyleBox[ | |
| FractionBox[ | |
| SqrtBox[ | |
| FractionBox["231", "13"]], "32"], { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[Rational[1, 32] Rational[231, 13]^Rational[1, 2], { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{16.999999999999996`, 0.}, {17.999999999999996`, 0.}, | |
| "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{402.05782312925174`, 425.56122448979596`}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{18.199999999999996`, 0.}, {19.199999999999996`, | |
| 0.11817294000743149`}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{429.06190476190477`, 452.565306122449}, { | |
| 130.96283135320888`, 173.37987608731413`}}], | |
| StatusArea[#, Rational[1, 32] Rational[143, 10]^Rational[1, 2]]& , | |
| TagBoxNote->"Sqrt[143/10]/32"], | |
| StyleBox[ | |
| FractionBox[ | |
| SqrtBox[ | |
| FractionBox["143", "10"]], "32"], { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[Rational[1, 32] Rational[143, 10]^Rational[1, 2], { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{19.399999999999995`, 0.}, {20.399999999999995`, 0.}, | |
| "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{456.06598639455785`, 479.56938775510207`}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{20.599999999999994`, 0.}, {21.599999999999994`, | |
| 0.10747930450156304`}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{483.0700680272109, 506.5734693877551}, { | |
| 134.7107179682742, 173.37987608731413`}}], | |
| StatusArea[#, Rational[3, 128] Rational[715, 34]^Rational[1, 2]]& , | |
| TagBoxNote->"(3*Sqrt[715/34])/128"], | |
| StyleBox[ | |
| FractionBox[ | |
| RowBox[{"3", " ", | |
| SqrtBox[ | |
| FractionBox["715", "34"]]}], "128"], { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[Rational[3, 128] Rational[715, 34]^Rational[1, 2], { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{21.799999999999994`, 0.}, {22.799999999999994`, 0.}, | |
| "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{510.07414965986396`, 533.5775510204081}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{22.999999999999993`, 0.}, {23.999999999999993`, | |
| 0.09880085793754059}, "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{537.078231292517, 560.5816326530612}, { | |
| 137.75232469771714`, 173.37987608731413`}}], | |
| StatusArea[#, Rational[1, 256] Rational[12155, 19]^Rational[1, 2]]& , | |
| TagBoxNote->"Sqrt[12155/19]/256"], | |
| StyleBox[ | |
| FractionBox[ | |
| SqrtBox[ | |
| FractionBox["12155", "19"]], "256"], { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[Rational[1, 256] Rational[12155, 19]^Rational[1, 2], { | |
| GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, | |
| {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], | |
| EdgeForm[Opacity[0.7]], | |
| TagBox[ | |
| TooltipBox[ | |
| TagBox[ | |
| DynamicBox[{ | |
| FEPrivate`If[ | |
| CurrentValue["MouseOver"], | |
| EdgeForm[{ | |
| GrayLevel[0.5], | |
| AbsoluteThickness[1.5], | |
| Opacity[0.66]}], {}, {}], | |
| RectangleBox[{24.199999999999992`, 0.}, {25.199999999999992`, 0.}, | |
| "RoundingRadius" -> 0]}, | |
| ImageSizeCache->{{564.0823129251701, 587.5857142857143}, { | |
| 172.37987608731413`, 173.37987608731413`}}], | |
| StatusArea[#, 0]& , | |
| TagBoxNote->"0"], | |
| StyleBox["0", { | |
| GrayLevel[0]}, StripOnInput -> False]], | |
| Annotation[#, | |
| Style[0, { | |
| GrayLevel[0]}], | |
| "Tooltip"]& ]}, {}, {}}}, {}, {}}, {}, {{{{{{{}, {}}, {}}, {}}, {}}, \ | |
| {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, \ | |
| {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, \ | |
| {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, \ | |
| {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, \ | |
| {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, \ | |
| {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, \ | |
| {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}, {{{{{}, {}}, {}}, \ | |
| {}}, {}}, {{{{{}, {}}, {}}, {}}, {}}}, {}}, GraphicsGroupBox[ | |
| {GrayLevel[0], | |
| StyleBox[ | |
| GraphicsGroupBox[{ | |
| LineBox[{{{0.2, 0.}, Offset[{0, -6}, {0.2, 0.}]}, {{ | |
| 25.199999999999992`, 0.}, | |
| Offset[{0, -6}, {25.199999999999992`, 0.}]}}], | |
| LineBox[{{{0.2, 0.}, Offset[{0, -4}, {0.2, 0.}]}, {{1.2, 0.}, | |
| Offset[{0, -4}, {1.2, 0.}]}}], | |
| LineBox[{{{1.4, 0.}, Offset[{0, -4}, {1.4, 0.}]}, {{2.4, 0.}, | |
| Offset[{0, -4}, {2.4, 0.}]}}], | |
| LineBox[{{{2.6, 0.}, Offset[{0, -4}, {2.6, 0.}]}, {{3.6, 0.}, | |
| Offset[{0, -4}, {3.6, 0.}]}}], | |
| LineBox[{{{3.8000000000000003`, 0.}, | |
| Offset[{0, -4}, {3.8000000000000003`, 0.}]}, {{4.800000000000001, | |
| 0.}, Offset[{0, -4}, {4.800000000000001, 0.}]}}], | |
| LineBox[{{{5.000000000000001, 0.}, | |
| Offset[{0, -4}, {5.000000000000001, 0.}]}, {{6.000000000000001, | |
| 0.}, Offset[{0, -4}, {6.000000000000001, 0.}]}}], | |
| LineBox[{{{6.200000000000001, 0.}, | |
| Offset[{0, -4}, {6.200000000000001, 0.}]}, {{7.200000000000001, | |
| 0.}, Offset[{0, -4}, {7.200000000000001, 0.}]}}], | |
| LineBox[{{{7.400000000000001, 0.}, | |
| Offset[{0, -4}, {7.400000000000001, 0.}]}, {{8.400000000000002, | |
| 0.}, Offset[{0, -4}, {8.400000000000002, 0.}]}}], | |
| LineBox[{{{8.600000000000001, 0.}, | |
| Offset[{0, -4}, {8.600000000000001, 0.}]}, {{9.600000000000001, | |
| 0.}, Offset[{0, -4}, {9.600000000000001, 0.}]}}], | |
| LineBox[{{{9.8, 0.}, Offset[{0, -4}, {9.8, 0.}]}, {{10.8, 0.}, | |
| Offset[{0, -4}, {10.8, 0.}]}}], | |
| LineBox[{{{11., 0.}, Offset[{0, -4}, {11., 0.}]}, {{12., 0.}, | |
| Offset[{0, -4}, {12., 0.}]}}], | |
| LineBox[{{{12.2, 0.}, Offset[{0, -4}, {12.2, 0.}]}, {{13.2, 0.}, | |
| Offset[{0, -4}, {13.2, 0.}]}}], | |
| LineBox[{{{13.399999999999999`, 0.}, | |
| Offset[{0, -4}, {13.399999999999999`, 0.}]}, {{14.399999999999999`, | |
| 0.}, Offset[{0, -4}, {14.399999999999999`, 0.}]}}], | |
| LineBox[{{{14.599999999999998`, 0.}, | |
| Offset[{0, -4}, {14.599999999999998`, 0.}]}, {{15.599999999999998`, | |
| 0.}, Offset[{0, -4}, {15.599999999999998`, 0.}]}}], | |
| LineBox[{{{15.799999999999997`, 0.}, | |
| Offset[{0, -4}, {15.799999999999997`, 0.}]}, {{16.799999999999997`, | |
| 0.}, Offset[{0, -4}, {16.799999999999997`, 0.}]}}], | |
| LineBox[{{{16.999999999999996`, 0.}, | |
| Offset[{0, -4}, {16.999999999999996`, 0.}]}, {{17.999999999999996`, | |
| 0.}, Offset[{0, -4}, {17.999999999999996`, 0.}]}}], | |
| LineBox[{{{18.199999999999996`, 0.}, | |
| Offset[{0, -4}, {18.199999999999996`, 0.}]}, {{19.199999999999996`, | |
| 0.}, Offset[{0, -4}, {19.199999999999996`, 0.}]}}], | |
| LineBox[{{{19.399999999999995`, 0.}, | |
| Offset[{0, -4}, {19.399999999999995`, 0.}]}, {{20.399999999999995`, | |
| 0.}, Offset[{0, -4}, {20.399999999999995`, 0.}]}}], | |
| LineBox[{{{20.599999999999994`, 0.}, | |
| Offset[{0, -4}, {20.599999999999994`, 0.}]}, {{21.599999999999994`, | |
| 0.}, Offset[{0, -4}, {21.599999999999994`, 0.}]}}], | |
| LineBox[{{{21.799999999999994`, 0.}, | |
| Offset[{0, -4}, {21.799999999999994`, 0.}]}, {{22.799999999999994`, | |
| 0.}, Offset[{0, -4}, {22.799999999999994`, 0.}]}}], | |
| LineBox[{{{22.999999999999993`, 0.}, | |
| Offset[{0, -4}, {22.999999999999993`, 0.}]}, {{23.999999999999993`, | |
| 0.}, Offset[{0, -4}, {23.999999999999993`, 0.}]}}], | |
| LineBox[{{{24.199999999999992`, 0.}, | |
| Offset[{0, -4}, {24.199999999999992`, 0.}]}, {{25.199999999999992`, | |
| 0.}, Offset[{0, -4}, {25.199999999999992`, 0.}]}}]}], | |
| Antialiasing->False]}]}, | |
| AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], | |
| Axes->{True, True}, | |
| AxesOrigin->{0, 0}, | |
| FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, | |
| ImageSize->{600., Automatic}, | |
| PlotRangePadding->Scaled[0.02], | |
| Ticks->{None, Automatic}]], "Output", | |
| CellChangeTimes->{{3.568132012737074*^9, 3.568132023277373*^9}, { | |
| 3.56813220558034*^9, 3.56813221124682*^9}, {3.56813233298049*^9, | |
| 3.568132354680921*^9}, 3.568135122333988*^9, 3.568135930330745*^9, | |
| 3.568136346733517*^9, 3.568136540291976*^9, 3.568136953264023*^9}] | |
| }, Open ]], | |
| Cell[BoxData[ | |
| RowBox[{"(*", " ", | |
| RowBox[{ | |
| RowBox[{ | |
| "Play", " ", "with", " ", "displaced", " ", "HG", " ", "mode", | |
| "\[IndentingNewLine]", "\[IndentingNewLine]", | |
| RowBox[{"Reference", ":", " ", | |
| RowBox[{"http", ":"}]}]}], "//", | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"math", ".", "stackexchange", ".", "com"}], "/", "questions"}], | |
| "/", "28719"}], "/", "how"}], "-", "to", "-", "decompose", "-", | |
| "displaced", "-", "hermite", "-", "gauss", "-", "function", "-", "into", | |
| "-", "higher", "-", "order", "-", "hgs"}]}], "\[IndentingNewLine]", | |
| "\[IndentingNewLine]", " ", "*)"}]], "Input", | |
| CellChangeTimes->{{3.568133035672284*^9, 3.56813304521442*^9}, { | |
| 3.568133908504473*^9, 3.568133913836594*^9}}], | |
| Cell[BoxData[ | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"displacedModeDecomposition", "[", | |
| RowBox[{"x_", ",", "a_", ",", "m_"}], "]"}], " ", ":=", " ", | |
| RowBox[{"Table", "[", | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"(", | |
| RowBox[{ | |
| RowBox[{"If", "[", | |
| RowBox[{ | |
| RowBox[{"n", "\[Equal]", "0"}], ",", "1", ",", | |
| RowBox[{"a", "^", "n"}]}], "]"}], " ", "/", " ", | |
| RowBox[{"Factorial", "[", "n", "]"}]}], ")"}], | |
| RowBox[{"Exp", "[", | |
| RowBox[{ | |
| RowBox[{"-", | |
| RowBox[{"a", "^", "2"}]}], "/", "2"}], "]"}], | |
| RowBox[{"u", "[", | |
| RowBox[{"n", ",", "x"}], "]"}]}], ",", | |
| RowBox[{"{", | |
| RowBox[{"n", ",", "0", ",", "m"}], "}"}]}], "]"}]}], ";"}]], "Input", | |
| CellChangeTimes->{{3.56813305025814*^9, 3.568133125791495*^9}, { | |
| 3.568133290067301*^9, 3.568133290704972*^9}, {3.568134923384817*^9, | |
| 3.568134957237931*^9}, {3.568135216221924*^9, 3.568135250507089*^9}, { | |
| 3.568135347430148*^9, 3.568135350192076*^9}, {3.568136395141221*^9, | |
| 3.568136401950992*^9}, {3.568136720647012*^9, 3.56813673253623*^9}, { | |
| 3.568137005119395*^9, 3.568137011716505*^9}, {3.56813707637246*^9, | |
| 3.568137094356212*^9}}], | |
| Cell[BoxData[ | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"displacedModeApproximation", "[", | |
| RowBox[{"x_", ",", "a_", ",", "m_"}], "]"}], ":=", | |
| RowBox[{"Total", "[", | |
| RowBox[{"displacedModeDecomposition", "[", | |
| RowBox[{"x", ",", "a", ",", "m"}], "]"}], "]"}]}], ";"}]], "Input", | |
| CellChangeTimes->{{3.568137013310927*^9, 3.568137035855366*^9}, { | |
| 3.568137081745595*^9, 3.568137110120259*^9}}], | |
| Cell[BoxData[ | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"displacedModeExact", "[", | |
| RowBox[{"x_", ",", "a_"}], "]"}], ":=", | |
| RowBox[{"u", "[", | |
| RowBox[{"0", ",", | |
| RowBox[{"x", "-", "a"}]}], "]"}]}], ";"}]], "Input", | |
| CellChangeTimes->{{3.568137039002701*^9, 3.568137088838843*^9}}], | |
| Cell[BoxData[ | |
| RowBox[{ | |
| RowBox[{ | |
| RowBox[{"thingToPlot", "[", | |
| RowBox[{"x_", ",", "a_", ",", "m_"}], "]"}], ":=", | |
| RowBox[{"Join", "[", | |
| RowBox[{ | |
| RowBox[{"{", | |
| RowBox[{ | |
| RowBox[{"displacedModeExact", "[", | |
| RowBox[{"x", ",", "a"}], "]"}], ",", | |
| RowBox[{"displacedModeApproximation", "[", | |
| RowBox[{"x", ",", "a", ",", "m"}], "]"}]}], "}"}], ",", | |
| RowBox[{"displacedModeDecomposition", "[", | |
| RowBox[{"x", ",", "a", ",", "m"}], "]"}]}], "]"}]}], ";"}]], "Input", | |
| CellChangeTimes->{{3.568136997423838*^9, 3.568136999281809*^9}, { | |
| 3.568137117947723*^9, 3.568137133510974*^9}, {3.56813716912959*^9, | |
| 3.568137200585074*^9}}], | |
| Cell[CellGroupData[{ | |
| Cell[BoxData[ | |
| RowBox[{"Manipulate", "[", | |
| RowBox[{ | |
| RowBox[{"Plot", "[", | |
| RowBox[{ | |
| RowBox[{"thingToPlot", "[", | |
| RowBox[{"x", ",", "a", ",", "m"}], "]"}], ",", | |
| RowBox[{"{", | |
| RowBox[{"x", ",", | |
| RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", | |
| RowBox[{"PlotRange", "\[Rule]", | |
| RowBox[{"{", | |
| RowBox[{"Full", ",", | |
| RowBox[{"{", | |
| RowBox[{ | |
| RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", | |
| RowBox[{"PlotStyle", "\[Rule]", | |
| RowBox[{"{", | |
| RowBox[{"Black", ",", "Green", ",", "Red", ",", "Red"}], "}"}]}], ",", | |
| RowBox[{"Evaluated", "\[Rule]", "True"}]}], "]"}], ",", | |
| RowBox[{"{", | |
| RowBox[{ | |
| RowBox[{"{", | |
| RowBox[{"a", ",", "0"}], "}"}], ",", | |
| RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", | |
| RowBox[{"{", | |
| RowBox[{"m", ",", "0", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input", | |
| CellChangeTimes->{{3.568135194785953*^9, 3.568135197570195*^9}, { | |
| 3.568135379625528*^9, 3.568135401708494*^9}, {3.568135447782135*^9, | |
| 3.568135449463745*^9}, {3.568135596406271*^9, 3.568135598704119*^9}, { | |
| 3.568135656098354*^9, 3.568135730781039*^9}, {3.568135856278077*^9, | |
| 3.568135862287279*^9}, {3.568135952186271*^9, 3.568135963008628*^9}, { | |
| 3.568136026332741*^9, 3.568136041351722*^9}, {3.568136258726382*^9, | |
| 3.568136271880787*^9}, {3.568136437104302*^9, 3.568136453323907*^9}, { | |
| 3.568136782509586*^9, 3.568136809565852*^9}, {3.568136864230634*^9, | |
| 3.568136865995084*^9}, {3.568137125181117*^9, 3.568137125779909*^9}, { | |
| 3.56813722055677*^9, 3.568137221171079*^9}}], | |
| Cell[BoxData[ | |
| TagBox[ | |
| StyleBox[ | |
| DynamicModuleBox[{$CellContext`a$$ = 1.07, $CellContext`m$$ = 2, | |
| Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, | |
| Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = | |
| 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ | |
| Hold[$CellContext`a$$], 0}, -2, 2}, { | |
| Hold[$CellContext`m$$], 0, 5, 1}}, Typeset`size$$ = { | |
| 360., {115., 120.}}, Typeset`update$$ = 0, Typeset`initDone$$, | |
| Typeset`skipInitDone$$ = True, $CellContext`a$45746$$ = | |
| 0, $CellContext`m$45747$$ = 0}, | |
| DynamicBox[Manipulate`ManipulateBoxes[ | |
| 1, StandardForm, | |
| "Variables" :> {$CellContext`a$$ = 0, $CellContext`m$$ = 0}, | |
| "ControllerVariables" :> { | |
| Hold[$CellContext`a$$, $CellContext`a$45746$$, 0], | |
| Hold[$CellContext`m$$, $CellContext`m$45747$$, 0]}, | |
| "OtherVariables" :> { | |
| Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, | |
| Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, | |
| Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, | |
| Typeset`skipInitDone$$}, "Body" :> Plot[ | |
| $CellContext`thingToPlot[$CellContext`x, $CellContext`a$$, \ | |
| $CellContext`m$$], {$CellContext`x, -5, 5}, PlotRange -> {Full, {-1, 1}}, | |
| PlotStyle -> {Black, Green, Red, Red}, Evaluated -> True], | |
| "Specifications" :> {{{$CellContext`a$$, 0}, -2, 2}, {$CellContext`m$$, | |
| 0, 5, 1}}, "Options" :> {}, "DefaultOptions" :> {}], | |
| ImageSizeCache->{405., {171., 176.}}, | |
| SingleEvaluation->True], | |
| Deinitialization:>None, | |
| DynamicModuleValues:>{}, | |
| SynchronousInitialization->True, | |
| UnsavedVariables:>{Typeset`initDone$$}, | |
| UntrackedVariables:>{Typeset`size$$}], "Manipulate", | |
| Deployed->True, | |
| StripOnInput->False], | |
| Manipulate`InterpretManipulate[1]]], "Output", | |
| CellChangeTimes->{ | |
| 3.568135197993229*^9, 3.568135401994474*^9, 3.56813545001511*^9, | |
| 3.568135599125023*^9, {3.568135705438353*^9, 3.568135731235357*^9}, | |
| 3.568135862723102*^9, {3.568135930539669*^9, 3.568135963659366*^9}, { | |
| 3.568136029660942*^9, 3.568136041871425*^9}, {3.568136265621291*^9, | |
| 3.56813627239876*^9}, 3.568136346925248*^9, 3.568136453987728*^9, | |
| 3.568136540938283*^9, {3.568136762287965*^9, 3.568136810580634*^9}, | |
| 3.568136866883923*^9, 3.568136953456041*^9, {3.5681372026796*^9, | |
| 3.568137221734479*^9}}] | |
| }, Open ]] | |
| }, | |
| WindowSize->{1243, 791}, | |
| WindowMargins->{{2, Automatic}, {Automatic, 11}}, | |
| ShowSelection->True, | |
| FrontEndVersion->"8.0 for Linux x86 (32-bit) (November 7, 2010)", | |
| StyleDefinitions->"Default.nb" | |
| ] | |
| (* End of Notebook Content *) | |
| (* Internal cache information *) | |
| (*CellTagsOutline | |
| CellTagsIndex->{} | |
| *) | |
| (*CellTagsIndex | |
| CellTagsIndex->{} | |
| *) | |
| (*NotebookFileOutline | |
| Notebook[{ | |
| Cell[557, 20, 253, 5, 69, "Input"], | |
| Cell[813, 27, 251, 6, 30, "Input"], | |
| Cell[1067, 35, 686, 22, 30, "Input"], | |
| Cell[1756, 59, 231, 4, 30, "Input"], | |
| Cell[CellGroupData[{ | |
| Cell[2012, 67, 649, 20, 30, "Input"], | |
| Cell[2664, 89, 843, 22, 89, "Output"] | |
| }, Open ]], | |
| Cell[3522, 114, 340, 6, 30, "Input"], | |
| Cell[CellGroupData[{ | |
| Cell[3887, 124, 1390, 34, 30, "Input"], | |
| Cell[5280, 160, 2397, 78, 134, "Output"] | |
| }, Open ]], | |
| Cell[CellGroupData[{ | |
| Cell[7714, 243, 398, 10, 30, "Input"], | |
| Cell[8115, 255, 25406, 631, 381, "Output"] | |
| }, Open ]], | |
| Cell[33536, 889, 768, 18, 107, "Input"], | |
| Cell[34307, 909, 1193, 29, 30, "Input"], | |
| Cell[35503, 940, 399, 9, 30, "Input"], | |
| Cell[35905, 951, 287, 8, 30, "Input"], | |
| Cell[36195, 961, 687, 17, 30, "Input"], | |
| Cell[CellGroupData[{ | |
| Cell[36907, 982, 1598, 37, 50, "Input"], | |
| Cell[38508, 1021, 2409, 46, 364, "Output"] | |
| }, Open ]] | |
| } | |
| ] | |
| *) | |
| (* End of internal cache information *) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment