c = 1;
tr[r_, t_] := t - Norm[r]/c;
n[r_, t_] := r/Norm[r];
Ef[r_, t_, \[Phi]_] := 
  E^(I 2 \[Pi] (t + \[Phi]))/Norm[r] E^(-t^2/(2 5^2));
Efr[r_, t_, \[Phi]_] := Ef[r, tr[r, t], \[Phi] ];
s = Sum[Efr[{x + j, y}, \[Tau], Abs[j/11]], {j, -25, 25, 0.5}];
p1 = Table[
  DensityPlot[Norm[s]^2, {x, -20, 20}, {y, 0, 100}, 
   PlotPoints -> 100, ColorFunction -> "AvocadoColors", 
   Frame -> False, PlotRange -> {0, 1}, Exclusions -> None]
  , {\[Tau], 0, 100, 2}]
ListAnimate[p1]

Jag, upphovsrättsinnehavaren av detta verk, publicerar härmed det under följande licens:

Denna fil har gjorts tillgänglig under licensen Creative Commons CC0 1.0 Universal Public Domain Dedication.

Personen som kopplade ett verk till detta dokument har tillägnat arbetet till Allmänheten genom att, i den utsträckning som tillåts i lag, avstå från alla sina rättigheter till verket i hela världen som han eller hon skulle haft för verket enligt upphovsrätten och alla relaterade eller närliggande juridiska rättigheter. Du kan kopiera, modifiera, sprida och visa upp verket, även för kommersiella ändamål, utan att fråga efter godkännande från upphovsmannen. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse

This file, which was originally posted to https://twitter.com/j_bertolotti/status/1059037440810323974, was reviewed on 4 November 2018 by reviewer Ronhjones, who confirmed that it was available there under the stated license on that date.