Propagacja impulsu gaussowskiego w ośrodku dyspersyjnym

Efekty związane z dyspersją II rzędu

(1/(Sqrt[2 π]))Integrate[τ Exp[I β2 z (ω^2)/2+I ω t-(ω^2) (τ^2)/2], {ω, -∞, ∞}, Assumptions->Im[z β2]+Re[(τ^2)]>0]

Manipulate[Plot[Abs[(((E^(-((I (t^2))/(2 z β2+2 I (τ^2))))) τ)/(Sqrt[-I z β2+(τ^2)]))Exp[I ω0 t]]/.{β2-> 30, ω0->2Pi/2},{t, -100,100}, PlotRange->All],{τ, 5,40}, {z, 0, 20}]

dysp=Manipulate[Plot[Re[(((E^(-((I (t^2))/(2 z β2+2 I (τ^2))))) τ)/(Sqrt[-I z β2+(τ^2)]))Exp[-I ω0 t]]/.{β2-> 30, ω0->2Pi/10, τ->3},{t, -100,100}, ImageSize->400, PlotRange->{-1,1}, Axes->False], {z, 0, 3}]

Export["dysp.avi",dysp]