Ondas: tiempo y espacio

La propagación en tiempo y espacio

La imagen se generó con la siguiente instrucción de mathematica

(ver más info en wolfram)

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_, $\omega$_: 2 $\pi$, k_: 3 $\pi$, $\sigma$_: 10] := 
Exp[ $i$ (k z - $\omega$ t ) - (k z - $\omega$ t )^2 / $\sigma ^{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)

[categoría: ondas]