Diferencia entre revisiones de «Ondas: tiempo y espacio»
De luz-wiki
Sin resumen de edición |
Sin resumen de edición |
||
Línea 11: | Línea 11: | ||
pulgauss[t_, z_, <math>\omega</math>_: 2 <math>\pi</math>, k_: 3 <math>\pi</math>, <math>\sigma</math>_: 10] := | pulgauss[t_, z_, <math>\omega</math>_: 2 <math>\pi</math>, k_: 3 <math>\pi</math>, <math>\sigma</math>_: 10] := | ||
Exp[ <math> | Exp[ <math>i</math> (k z - <math>\omega</math> t ) - (k z - <math>\omega</math> t )^2 / <math>\sigma^2</math>] | ||
--[[Usuario:Mfg|Mfg]] 19:12 12 oct 2007 (CDT) | --[[Usuario:Mfg|Mfg]] 19:12 12 oct 2007 (CDT) |
Revisión del 19:37 12 oct 2007
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[ (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)