/QScatteringStates [ module ]

[ Top ] [ module ]

NAME

QTransferMatrix

AUTHOR

W. Hergert

PACKAGE

QPack.m

MODIFICATION HISTORY

April 2013 : New formulation for the book "Einfuehrung in die Quantphysik"

USAGE

QTransferMatrix[x_,v_,vl_,vr_] plots a piecewise constant or linear potetential

INPUT

vl : constant potential on the left hand side vr : constant potential on the right hand side x : list of points, defining the intervalls in the potentials {x1,x2,...xN} v : list of potential values vi at the points xi

OUTPUT

plot of the potential

ERROR MESSAGES

if lists x and v have different length or symbols appear in the input if options "linear", "constant" are not correct

OPTIONS

QPlotRange : length of constant potential at the left and right hand side QPotential : "constant" - piecewise constant potential 

               "linear"   - piecewise linear potential

DESCRIPTION see source code

LITERATURE

TODO

PROBLEMS

SOURCE

41 QScatteringStates[tmat_,vl_,vr_, en_, tr_, re_,OptionsPattern[{QPotential->"constant"}]] := Module[{ml,mr,kl,kr,ma,lx,lpot} ,
42 lx=Length[x];lpot=Length[pot];
43 If[OptionValue[QPotential]=="constant",
44 kl:=Sqrt[2*(en-vl)] ; kr=Sqrt[2*(en-vr)];
45 ml:={{1,1}, {I*kl, -I*kl}} ; mr:={{1,1} , {I*kr,-I*kr}};
46 ma=Inverse[ml] . tmat . mr;
47 tr=kr/(Abs[ma[[1,1]]]^2)/kl;re=(Abs[ma[[2,1]]]/Abs[ma[[1,1]]])^2,
48 Print["--> QScatteringStates - Error : Option nicht implementiert"]]
49 ]