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]

Mən, bu işin müəllif hüquqları sahibi, onu aşağıdakı lisenziyaya əsasən dərc edirəm:

Bu fayl Creative Commons CC0 1.0 Universal Public Domain Dedication lisenziyası altında yayımlanır.

Əsəri bu sənədlə əlaqələndirən şəxs müəllif hüquqları qanununa əsasən bütün dünyada qanunla icazə verilən həddə bütün əlaqəli və bitişik hüquqlar da daxil olmaqla əsərə olan bütün hüquqlarından imtina edərək əsəri ictimai mülkiyyətə buraxmışdır. Siz hətta kommersiya məqsədləri üçün icazə almadan işi kopyalaya, dəyişdirə, paylaşa bilərsiniz. 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.