Ondas: tiempo y espacio
De luz-wiki
La propagación en tiempo y espacio
La imagen se generó con la siguiente instrucción de mathematica
Export["g-pulse-prop.gif", Table[Plot[Re[pulgauss[t, z]], {z, -5, 5}, PlotRange -> {-1, 1}, AxesLabel -> {"z", pert}, PlotLabel -> "s" t], {t, -2, 4, .1}] ]
donde
pulgauss[t_, z_, _: 2 , k_: 3 , _: 10] := Exp[ \[ImaginaryI] (k z - t ) - (k z - t )^2/\ ]
--Mfg 19:12 12 oct 2007 (CDT)
Imagen procesada con gimp es un poco menor en tamaño pero todavía muy grande
--Mfg 19:22 12 oct 2007 (CDT)
versión de imágenes fijas y luego unidas
--Mfg 19:28 12 oct 2007 (CDT)