File:Quasimomentum.gif

p1 = Table[
   Show[
    Plot[Cos[x] Sin[t], {x, 0, 9}, 
     PlotStyle -> {Gray, Thick, Opacity[(Erf[t - 6.5] + 1)/2]}, 
     PlotRange -> {-1.1, 1.1}, Axes -> False]
    ,
    Plot[Cos[(1 + (2 \[Pi])/a) (x)] Sin[t], {x, 0, 9}, 
     PlotStyle -> {Purple, Thick, Opacity[(Erf[t - 13] + 1)/2]}]
    ,
    Plot[Cos[(1 + 2 (2 \[Pi])/a) (x)] Sin[t], {x, 0, 9}, 
     PlotStyle -> {Orange, Thick, Opacity[(Erf[t - 18.5] + 1)/2]}]
    ,
    Graphics[{PointSize[0.03], Point[p[t] ]} ]
    , PlotPoints -> 100
    ]
   , {t, 0, 25, 0.1}];
ListAnimate[p1, 10]

Jo, el titular dels drets d'autor d'aquest treball, el public sota la següent llicència:

L'ús d'aquest fitxer és regulat sota les condicions de Creative Commons de CC0 1.0 lliurament al domini públic universal.

La persona que ha associat un treball amb aquest document ha dedicat l'obra domini públic, renunciant en tot el món a tots els seus drets de d'autor i a tots els drets legals relacionats que tenia en l'obra, en la mesura permesa per la llei. Podeu copiar, modificar, distribuir i modificar l'obra, fins i tot amb fins comercials, tot sense demanar permís. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse

Aquesta imatge, originalment publicada a Flickr, ha estat verificada el 7 d'abril de 2019 per l'administrador o usuari acreditat Ronhjones, i ha confirmat que en aquella data estava disponible a Flickr sota la llicència indicada.