(* 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[ 26541, 810] NotebookOptionsPosition[ 24129, 729] NotebookOutlinePosition[ 24762, 752] CellTagsIndexPosition[ 24719, 749] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Teilchen trifft auf Potentialbarrierie", "Subtitle", CellChangeTimes->{{3.5322550295145187`*^9, 3.532255043217923*^9}, 3.5322553478433437`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"V", "[", RowBox[{"x_", ",", "a_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "<", "a"}], ",", "V0", ",", "0"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.532255048403338*^9, 3.532255092864155*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"V", "[", RowBox[{"x", ",", "2"}], "]"}], "/.", RowBox[{"V0", "\[Rule]", "5"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "8"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5322550831341877`*^9, 3.532255125618641*^9}}], Cell[CellGroupData[{ Cell["Fragestellungen", "Section", CellChangeTimes->{{3.532255143353458*^9, 3.5322552330080433`*^9}, { 3.532255275562224*^9, 3.532255324751252*^9}, {3.532255986547624*^9, 3.5322561627383204`*^9}}], Cell["\<\ 1. Loesung fuer Wellenfunktion in den 3 Bereichen 2. Verwende Anschlussbedingungen, um die freien Konstanten zu bestimmen. 3. Berechne Transmissions- und Reflexionskoeffizient 4. Betrachte die Energieabhaengigkeit des Transmissions- und \ Reflexionskoeffizienten (sowohl fuer V0>0 und V0<0) 5. Graphische Darstellung des Transmissions- und Reflexionskoeffizienten als \ Funktion der Energie und V0. 6. Ortsabhaengigkeit der Wellenfunktion und der Wahrscheinlichkeitsdichte 7. Animierte Darstellung der Zeitabhaengigkeit des Realteils der \ Wellenfunktion\ \>", "Text", CellChangeTimes->{{3.532255143353458*^9, 3.5322552330080433`*^9}, { 3.532255275562224*^9, 3.532255324751252*^9}, {3.532255986547624*^9, 3.5322561627383204`*^9}, 3.532256193932207*^9, {3.532324203609728*^9, 3.532324233730982*^9}, {3.532337831455325*^9, 3.532337847319242*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["zu 1.", "Section", CellChangeTimes->{{3.532256219090517*^9, 3.532256227086182*^9}}], Cell["\<\ Beachte: Einlaufende Welle ist auf \[OpenCurlyDoubleQuote]1\[CloseCurlyDoubleQuote] \ normiert Setze \[HBar]=1\ \>", "Text", CellChangeTimes->{{3.532256464384166*^9, 3.532256479416519*^9}, { 3.532256609108819*^9, 3.532256642855504*^9}, {3.532256676987773*^9, 3.53225668114785*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"psiL", "[", "x_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{"I", "*", "k", "*", "x"}], "]"}], " ", "+", " ", RowBox[{"R", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], "*", "k", "*", "x"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"psiM", "[", "x_", "]"}], "=", " ", RowBox[{ RowBox[{"A", "*", RowBox[{"Exp", "[", RowBox[{"I", "*", "kM", "*", "x"}], "]"}]}], " ", "+", " ", RowBox[{"B", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], "*", "kM", "*", "x"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"psiR", "[", "x_", "]"}], "=", RowBox[{"T", " ", RowBox[{"Exp", "[", RowBox[{"I", "*", "k", "*", "x"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"kRule", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"kM", "\[Rule]", RowBox[{"Sqrt", "[", RowBox[{"2", "*", "m", "*", RowBox[{"(", RowBox[{"En", "-", "V0"}], ")"}]}], "]"}]}], ",", RowBox[{"k", "\[Rule]", RowBox[{"Sqrt", "[", RowBox[{"2", "*", "En", "*", "m"}], "]"}]}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.5322562391576757`*^9, 3.532256354286141*^9}, { 3.532256392559071*^9, 3.532256448521367*^9}, {3.5322582399629583`*^9, 3.5322582522403297`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["zu 2.", "Section", CellChangeTimes->{{3.5322566936305857`*^9, 3.5322567004610167`*^9}}], Cell[BoxData[ RowBox[{"eq", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"psiL", "[", RowBox[{"-", "a"}], "]"}], " ", "\[Equal]", " ", RowBox[{"psiM", "[", RowBox[{"-", "a"}], "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"psiL", "'"}], "[", RowBox[{"-", "a"}], "]"}], " ", "\[Equal]", " ", RowBox[{ RowBox[{"psiM", "'"}], "[", RowBox[{"-", "a"}], "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"psiM", "[", "a", "]"}], " ", "\[Equal]", RowBox[{"psiR", "[", "a", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"psiM", "'"}], "[", "a", "]"}], " ", "\[Equal]", RowBox[{ RowBox[{"psiR", "'"}], "[", "a", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.532256984546936*^9, 3.532257047589752*^9}, { 3.5322571361931257`*^9, 3.5322571556548367`*^9}}], Cell[BoxData[ RowBox[{"ABRTrule", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{"eq", ",", RowBox[{"{", RowBox[{"A", ",", "B", ",", "R", ",", "T"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "//", "FullSimplify"}]}]], "Input", CellChangeTimes->{{3.532257064629108*^9, 3.532257100705764*^9}, { 3.532257198452812*^9, 3.53225722627661*^9}, {3.532258275586812*^9, 3.5322583178131227`*^9}, {3.532259477303*^9, 3.532259478125462*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["zu 3.", "Section", CellChangeTimes->{{3.532257487199573*^9, 3.532257494538973*^9}}], Cell["\<\ Der Strom berechnet sich mittels j = \[HBar]/(2*I*m) * (psi^* d psi/dx - psi * d psi^*/dx) Definiere dazu im ersten Schritt die komplex konjugierte Wellenfunktion Transmissionskoeffizient: T = |j_trans/j_ein| Reflexionskoeffizient: R = |j_refl/j_ein|\ \>", "Text", CellChangeTimes->{{3.5322575996915293`*^9, 3.532257711663472*^9}, { 3.5322606340766773`*^9, 3.532260685988715*^9}, {3.53274834095367*^9, 3.532748409127884*^9}}], Cell[BoxData[{ RowBox[{"psiCrule", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Complex", "[", RowBox[{"a_", ",", "b_"}], "]"}], " ", "\[RuleDelayed]", " ", RowBox[{"Complex", "[", RowBox[{"a", ",", RowBox[{"-", "b"}]}], "]"}]}], ",", RowBox[{"R", "\[Rule]", "RC"}], ",", RowBox[{"T", "\[Rule]", "TC"}], ",", RowBox[{"A", "\[Rule]", "AC"}], ",", RowBox[{"B", "\[Rule]", "BC"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"ABRTruleC", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RC", "\[Rule]", "R"}], ",", RowBox[{"TC", "\[Rule]", "T"}], ",", RowBox[{"AC", "\[Rule]", "A"}], ",", RowBox[{"BC", "\[Rule]", "B"}]}], "}"}], "/.", "ABRTrule"}], "/.", "psiCrule"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fluss", "[", "psi_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "*", "I", "*", "m"}], ")"}]}], "*", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"psi", "/.", "psiCrule"}], ")"}], "*", RowBox[{"D", "[", RowBox[{"psi", ",", "x"}], "]"}]}], "-", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"(", RowBox[{"psi", "/.", "psiCrule"}], ")"}], ",", "x"}], "]"}], "*", "psi"}]}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.53225772034753*^9, 3.5322578294545107`*^9}, { 3.5322578633648367`*^9, 3.532257997491445*^9}, {3.5322581953323708`*^9, 3.532258218943893*^9}, {3.5322583321305017`*^9, 3.5322583329374237`*^9}, { 3.532259266769294*^9, 3.5322592998386593`*^9}, {3.532259338686552*^9, 3.532259416213736*^9}}], Cell[BoxData[ RowBox[{"EinlFluss", " ", "=", " ", RowBox[{ RowBox[{"fluss", "[", RowBox[{"psiL", "[", "x", "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "0"}], ",", RowBox[{"RC", "\[Rule]", "0"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.532257931116436*^9, 3.532257935769785*^9}, { 3.532258004369254*^9, 3.532258020734457*^9}, {3.532258180141307*^9, 3.532258201093259*^9}, {3.53225838612218*^9, 3.532258390031982*^9}, { 3.5322593093208*^9, 3.5322593110064297`*^9}}], Cell[BoxData[ RowBox[{"RFluss", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EinlFluss", " ", "-", " ", RowBox[{"fluss", "[", RowBox[{"psiL", "[", "x", "]"}], "]"}]}], "/.", "ABRTrule"}], "/.", "ABRTruleC"}], "//", "ExpToTrig"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.532258396098353*^9, 3.53225851433648*^9}, { 3.532259222157898*^9, 3.532259226494673*^9}, {3.532259432696035*^9, 3.5322594500266314`*^9}}], Cell[BoxData[ RowBox[{"TFluss", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"fluss", "[", RowBox[{"psiR", "[", "x", "]"}], "]"}], "/.", "ABRTrule"}], "/.", "ABRTruleC"}], "//", "ExpToTrig"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.532259548295722*^9, 3.5322595565378304`*^9}}], Cell[BoxData[{ RowBox[{"RR", " ", "=", " ", RowBox[{"RFluss", "/", "EinlFluss"}]}], "\[IndentingNewLine]", RowBox[{"TT", " ", "=", " ", RowBox[{"TFluss", "/", "EinlFluss"}]}]}], "Input", CellChangeTimes->{{3.532260693397594*^9, 3.5322607222338448`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Check", ":", " ", RowBox[{"RR", "+", "TT"}]}], " ", "=", " ", RowBox[{"1", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RR", "+", "TT"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.5322607392994757`*^9, 3.5322607838919573`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["zu 4.", "Section", CellChangeTimes->{{3.532261958202795*^9, 3.532261967133195*^9}}], Cell[BoxData[{ RowBox[{"num", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "\[Rule]", "1"}], ",", RowBox[{"a", "\[Rule]", "1"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RRTT", "[", RowBox[{"En_", ",", "V0_"}], "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"RR", ",", "TT"}], "}"}], "/.", "kRule"}], "/.", "num"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RRTT", "[", RowBox[{"10", ",", RowBox[{"-", "100"}]}], "]"}], "//", "N", " ", RowBox[{"(*", " ", RowBox[{"Test", " ", "zur", " ", RowBox[{"num", ".", " ", "Auswertung"}]}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.532261993246084*^9, 3.5322621396052303`*^9}, { 3.532322262333015*^9, 3.532322281178816*^9}, {3.5327487099750547`*^9, 3.5327487271423388`*^9}}], Cell[CellGroupData[{ Cell["Betrachte Potentialtopf der Tiefe V0 = -100", "Subsection", CellChangeTimes->{{3.532262399821629*^9, 3.532262414900846*^9}, 3.532262526130196*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RRTT", "[", RowBox[{"en", ",", RowBox[{"-", "100"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"en", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"Red", ",", "Blue"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5322621464102087`*^9, 3.532262232371298*^9}, { 3.532262429655346*^9, 3.532262447337619*^9}, {3.5327486833645678`*^9, 3.53274869905552*^9}, {3.532748763590798*^9, 3.532748881450736*^9}, { 3.532748919148326*^9, 3.532748931786051*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Betrachte Potentialbarriere der Hoehe V0 = 2\ \>", "Subsection", CellChangeTimes->{{3.532262534916168*^9, 3.532262570150063*^9}, { 3.532748941246346*^9, 3.5327489425476513`*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RRTT", "[", RowBox[{"en", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"en", ",", "0", ",", "15"}], "}"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"Red", ",", "Blue"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.532262461559017*^9, 3.532262507126343*^9}, { 3.532748963516217*^9, 3.532748985971586*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["zu 5.", "Section", CellChangeTimes->{{3.532322354048126*^9, 3.532322370071227*^9}}], Cell[BoxData[ RowBox[{"num", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "\[Rule]", "1"}], ",", RowBox[{"a", "\[Rule]", "1"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.532322395953823*^9, 3.5323225691038733`*^9}, { 3.5323226111277246`*^9, 3.532322612186846*^9}, {3.532322680036001*^9, 3.532322681275077*^9}, {3.532322717792417*^9, 3.532322724172823*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"TT", "/.", "kRule"}], "/.", "num"}], "]"}], ",", RowBox[{"{", RowBox[{"En", ",", "0", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"V0", ",", RowBox[{"-", "40"}], ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.532322395953823*^9, 3.5323225691038733`*^9}, { 3.5323226111277246`*^9, 3.532322612186846*^9}, {3.532322680036001*^9, 3.532322681275077*^9}, {3.532322717792417*^9, 3.532322724172823*^9}, { 3.532322831601873*^9, 3.532322908160405*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"RR", "/.", "kRule"}], "/.", "num"}], "]"}], ",", RowBox[{"{", RowBox[{"En", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"V0", ",", "0", ",", RowBox[{"-", "20"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.53232273691702*^9, 3.5323228057501698`*^9}, { 3.532322922532399*^9, 3.532323016102529*^9}, {3.532749155784622*^9, 3.5327491798081903`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["zu 6.", "Section", CellChangeTimes->{{3.532337928343308*^9, 3.532337934212206*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"psiL", "[", RowBox[{"x_", ",", "aa_"}], "]"}], ",", RowBox[{"psiM", "[", RowBox[{"x_", ",", "aa_"}], "]"}], ",", RowBox[{"psiR", "[", RowBox[{"x_", ",", "aa_"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"psiL", "[", "x", "]"}], ",", RowBox[{"psiM", "[", "x", "]"}], ",", RowBox[{"psiR", "[", "x", "]"}]}], "}"}], "/.", "ABRTrule"}], "/.", "kRule"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"m", "\[Rule]", "1"}], ",", RowBox[{"a", "\[Rule]", "aa"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.532323140099043*^9, 3.532323271885003*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"psi", "[", RowBox[{"x_", ",", "a_"}], "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{"x", "\[LessEqual]", RowBox[{"-", "a"}]}], ",", RowBox[{"psiL", "[", RowBox[{"x", ",", "a"}], "]"}], ",", RowBox[{ RowBox[{"-", "a"}], "<", "x", "\[LessEqual]", "a"}], ",", RowBox[{"psiM", "[", RowBox[{"x", ",", "a"}], "]"}], ",", RowBox[{"a", "<", "x"}], ",", RowBox[{"psiR", "[", RowBox[{"x", ",", "a"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"psi", "[", RowBox[{ RowBox[{"-", "1.5"}], ",", "1"}], "]"}]}], "Input", CellChangeTimes->{{3.532323290803863*^9, 3.5323233632008543`*^9}, { 3.532323739199606*^9, 3.5323237430135517`*^9}, {3.532323792264749*^9, 3.5323237993737993`*^9}, {3.5323346758298187`*^9, 3.5323346962005568`*^9}, { 3.5323354765958023`*^9, 3.532335481230713*^9}, {3.5323355572509747`*^9, 3.532335563611458*^9}}], Cell[BoxData[ RowBox[{"Re", "[", RowBox[{ RowBox[{"psi", "[", RowBox[{ RowBox[{"-", "1.3"}], ",", "2"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"En", "\[Rule]", "1"}], ",", RowBox[{"V0", "\[Rule]", "1.1"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.532323754225312*^9, 3.532323783989073*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"psi", "[", RowBox[{"x", ",", "2"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"En", "\[Rule]", "1"}], ",", RowBox[{"V0", "\[Rule]", RowBox[{"-", "12"}]}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.03", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.532323556339926*^9, 3.53232359075634*^9}, { 3.53232367512743*^9, 3.532323700154978*^9}, {3.532323811457926*^9, 3.532323816396852*^9}, {3.5323238603087482`*^9, 3.53232389934149*^9}, { 3.532323943021879*^9, 3.532323963411421*^9}, {3.532324022079535*^9, 3.532324073434847*^9}, {3.532749569003313*^9, 3.532749608158362*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"psi", "[", RowBox[{"x", ",", "2"}], "]"}], "*", RowBox[{"Conjugate", "[", RowBox[{"psi", "[", RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"En", "\[Rule]", "1"}], ",", RowBox[{"V0", "\[Rule]", RowBox[{"-", "12"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.03", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.532324116475634*^9, 3.532324140289336*^9}, { 3.5323242474055653`*^9, 3.532324261282194*^9}, {3.5327496467776318`*^9, 3.53274965868237*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["zu 7.", "Section", CellChangeTimes->{{3.532324483046823*^9, 3.532324491546783*^9}}], Cell["\<\ Um die Zeitentwicklung zu erhalten muss die Wellenfunktion mit Exp[-I*En*t] multipliziert werden. Betrachte Real - und Imaginaerteil.\ \>", "Text", CellChangeTimes->{{3.532324547620222*^9, 3.532324608346353*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"aa", "=", "1"}], ";", RowBox[{ RowBox[{"psinum", "[", RowBox[{"t_", ",", "x_"}], "]"}], " ", ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], "*", "En", "*", "t"}], "]"}], "*", RowBox[{"psi", "[", RowBox[{"x", ",", "aa"}], "]"}]}], "]"}], ",", RowBox[{"Im", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], "*", "En", "*", "t"}], "]"}], "*", RowBox[{"psi", "[", RowBox[{"x", ",", "aa"}], "]"}]}], "]"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"En", "\[Rule]", "10.1"}], ",", RowBox[{"V0", "\[Rule]", "11.0"}]}], "}"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plotRe", "[", "t_", "]"}], ":=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"psinum", "[", RowBox[{"t", ",", "x"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Blue", "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "aa"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "0"}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plotIm", "[", "t_", "]"}], ":=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"psinum", "[", RowBox[{"t", ",", "x"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Red", "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "aa"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "0"}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"plotRe", "[", "3.2", "]"}], ",", RowBox[{"plotIm", "[", "3.2", "]"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQB2IQ/a3B70l84CvH03tPPAfRjFWSb0G0rsrDDyD6qNZE sQQg/ffWEnEQnWqxoDIFSN9rEq0F0d8eFzWC6L3/jreC6Joipi4Qbbbr5lQQ fWwR12wQfVl45TwQfebS8sUgmv/YiTUgep5W3yawPLv0dhAdENSyD0QLLPhx HER7SJ++AKIrzjPfB9GztQ8+BtGuVsKMqUB65vG9PCD6A/NOWRDt8uCQCoie ccpaHUT/UXOxBdFXz9TZgeioNAkXEK3svcILRJdZzQoA0UU9P8LAtMSjKBDt sdkmA0QfeaGWC6JXfD6eD6JfmDwoBdE+8xjbQTRDy7qpIDqns205iO44Wlil HwQML9taMP3TlqEeRDPk7Z4MogHOyLT8 "]], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"plotRe", "[", "t", "]"}], ",", RowBox[{"plotIm", "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10", ",", RowBox[{"AppearanceElements", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ControlType", "\[Rule]", "Animator"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.53232474896518*^9, 3.532324764868771*^9}, { 3.5323248452030983`*^9, 3.532324929077368*^9}, {3.532335943939075*^9, 3.5323359648330803`*^9}, {3.532336009161545*^9, 3.532336020631085*^9}}] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"Presentation", WindowSize->{1592, 873}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PaperOrientation"->"Portrait", "PaperSize"->{594.75, 842.25}, "PostScriptOutputFile"->"/users/ttp/ms/tex/teaching/rechnernutzung/vl_\ material/print.pdf"}, ShowSelection->True, FrontEndVersion->"8.0 for Linux x86 (64-bit) (October 10, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 154, 2, 95, "Subtitle"], Cell[736, 26, 331, 10, 52, "Input"], Cell[1070, 38, 462, 14, 52, "Input"], Cell[CellGroupData[{ Cell[1557, 56, 202, 3, 126, "Section"], Cell[1762, 61, 870, 16, 287, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[2669, 82, 90, 1, 126, "Section"], Cell[2762, 85, 298, 8, 117, "Text"], Cell[3063, 95, 1363, 40, 164, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4463, 140, 94, 1, 126, "Section"], Cell[4560, 143, 979, 26, 164, "Input"], Cell[5542, 171, 499, 11, 52, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[6078, 187, 90, 1, 126, "Section"], Cell[6171, 190, 442, 9, 185, "Text"], Cell[6616, 201, 1710, 47, 127, "Input"], Cell[8329, 250, 529, 12, 52, "Input"], Cell[8861, 264, 487, 12, 52, "Input"], Cell[9351, 278, 343, 9, 52, "Input"], Cell[9697, 289, 263, 5, 90, "Input"], Cell[9963, 296, 345, 9, 90, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[10345, 310, 90, 1, 126, "Section"], Cell[10438, 313, 857, 24, 127, "Input"], Cell[CellGroupData[{ Cell[11320, 341, 157, 2, 67, "Subsection"], Cell[11480, 345, 623, 15, 52, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[12140, 365, 191, 4, 67, "Subsection"], Cell[12334, 371, 451, 12, 52, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12834, 389, 90, 1, 126, "Section"], Cell[12927, 392, 384, 8, 52, "Input"], Cell[13314, 402, 932, 24, 127, "Input"], Cell[14249, 428, 774, 20, 90, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[15060, 453, 90, 1, 126, "Section"], Cell[15153, 456, 734, 23, 90, "Input"], Cell[15890, 481, 953, 24, 90, "Input"], Cell[16846, 507, 341, 10, 52, "Input"], Cell[17190, 519, 1172, 32, 90, "Input"], Cell[18365, 553, 1076, 33, 90, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[19478, 591, 90, 1, 126, "Section"], Cell[19571, 594, 223, 5, 117, "Text"], Cell[19797, 601, 3501, 103, 497, "Input"], Cell[23301, 706, 800, 19, 127, "Input"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)