/Users/tpqhe/Documents/Publikationen_in_Arbeit/Buecher/Rennert_Buch_Abgabe/online_Material_Abgabe/Quantenphysik/doc/doc

/QBoundStates [ module ]

[ Top ] [ module ]

NAME

QBoundStates

AUTHOR

W. Hergert

PACKAGE

QPack.m

USAGE

QBoundStates[tmat_,vl_,vr_,en_] sets up a function of energy. The roots of the function define the bound states of the problem

INPUT

tmat : transfer matrix of the potential
vl : constant potential on the left hand side
vr : constant potential on the right hand side
en : energy

OUTPUT

a function of energy to find the roots

ERROR MESSAGES

If lists x and v have different length or symbols appear in the input
If option QPotential is "linear"

OPTIONS

QPotential : "constant" - piecewise constant potential

LITERATURE

Einfuehrung in die Quantphysik
W. Hergert, Transfermatrixmethoden zur Loesung quasi-eindimensionaler quantenmechanischer Probleme "

SOURCE

33 QBoundStates[tmat_,vl_,vr_,en_,OptionsPattern[{QPotential->"constant"}]] := Module[{ml,mr,kl,kr,ma,lx,lpot} ,
34 lx=Length[x];lpot=Length[pot];
35 If[OptionValue[QPotential]=="constant",
36 kl:=Sqrt[2*(vl-en)] ; kr=Sqrt[2*(vr-en)];
37 ml:={{1,1}, {kl, -kl}} ; mr:={{1,1} , {kr,-kr}};
38 ma=Inverse[ml] . tmat . mr;
39 glg=ma[[2,2]];Return[glg],
40 Print["--> QBoundStates - Error : Option nicht implementiert"]]
41 ]