(*Find the dispersion relation for the Telegrapher's equation*)
f = E^(I (k x - \[Omega] t));
FullSimplify[D[f, {t, 2}] - v^2 D[f, {x, 2}] + b D[f, t] + c f]

Solve[c + k^2 v^2 + (-I b - \[Omega]) \[Omega] == 0, \[Omega]]

(*Plot a pulse both with and without dispersion*)
g = Sum[(E^(I k x) E^(-(k - k0)^2/(2 \[Sigma]^2)) E^(-I \[Omega] t)) /. {\[Omega] -> 1/2 (-I b + Abs[Sqrt[-b^2 + 4 c + 4 k^2 v^2]])} /. {\[Sigma] ->1, k0 -> 4, b -> 0, c -> 0, v -> 1, t -> 15}, {k, 0, 15, 
    0.1}];
Show[
 Plot[Re[g], {x, -10, 20}, PlotRange -> All, PlotStyle -> {Orange, Thick}]
 ,
 Plot[{Abs[g], -Abs[g]}, {x, -10, 20}, PlotRange -> All, PlotStyle -> {Black, Black}]
 ]

Yo, el titular de los derechos de autor de esta obra, la publico en los términos de la siguiente licencia:

Este archivo está disponible bajo la licencia Creative Commons Dedicación de Dominio Público CC0 1.0 Universal.

La persona que ha asociado una obra a este documento lo dedica al dominio público mediante la cesión mundial de sus derechos bajo la ley de derechos de autor y todos los derechos legales adyacentes propios de dicha, en el ámbito permitido por ley. Puedes copiar, modificar, distribuir y reproducir el trabajo, incluso con objetivos comerciales, sin pedir aprobación del autor. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse