|
|
|
|
|
|
|
|
. Die Funktion läßt sich schreiben als
Wellenpakete haben einen exponentiellen Anstieg und einen exponentiellen Abfall.
Mathematica Code:
Plot[{Exp[-x/3]Sin[5 x],Exp[-x/3],-Exp[-x/3]},{x,-Pi,3Pi},
PlotRange->{{-Pi,3Pi},{-1.1,1.1}},
PlotStyle->{{Hue[0]},{Hue[0.3]},{Hue[0.3]}}]
