Wave Packet Dispersion

Manipulate[
Plot[Evaluate[Table[Sum[10t + Exp[-σ (((k-k0))^2)]Cos[k x - Abs[k]^α t], {k, k0-n/2 Δk, k0+n /2Δk,Δk}],{t,0,1,1/10}]],
{x, -3/2Pi,3/2Pi},Frame->True,Axes->False,FrameTicks->None,MaxRecursion->3,PlotStyle->Table[{ColorData["FallColors","ColorFunction"][t],Thickness[.005]}, {t,0,1,1/5}],ImageSize->{500,300}],
{{α,1.8,"α"},0.001,4},{{σ,2,"σ"},0.001,10},
{{k0,3, "(Subscript[k, 0])"},0.001, 5},{{Δk,0.5,"Δk"},0.001, 1},
{{n,5,"n"},1,10,1},AutorunSequencing->{1,2,3}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Wave Packet Dispersion" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/WavePacketDispersion/

Contributed by: Michael Trott

A full-function Wolfram Mathematica 6 system is required to edit this notebook.
GET WOLFRAM MATHEMATICA 6 »

© The Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »