Remove["Global`*"];
Timing[
frq = 1;
shuki = 1/frq;
r[x_, y_, x0_, y0_] = 
            Sqrt[(x - x0)^2  +  (y - y0)^2];
warur[x_, y_, x0_, y0_] = 
            If[Sqrt[(x - x0)^2  +  (y - y0)^2] == 0, 
              1, (1 - 
                    Exp[-Sqrt[(x - x0)^2  +  (y - y0)^2]])/
                Sqrt[(x - x0)^2  +  (y - y0)^2]];

velo = 4;
hachou = velo/frq;

keika = 10;
bunkatu = keika*15;
kankaku = keika/bunkatu;
naminokazu = 2;

t0list = 
            Table[kankaku*(i - 1), {i, bunkatu + 1}];

kaishi = {0, 2};

nagasa = 40;
kizami = 80;
dl = nagasa/kizami;

snaplist = {Null};
gsnaplist = {Null};

renzoku[t_, x_, y_, x0_, y0_] = 
            If[ (r[x, y, x0, y0] < velo*t), 
              N[Sin[-2*
                      Pi*(r[x, y, x0, y0] - velo*(t - shuki))/hachou]*
                  warur[x, y, x0, y0]], 0.0];

x0 = {-10, 10};

y0 = 10;



Do[
ima = t0list[[k]];
amplist = 
                  Table[0, {i, kizami + 1}, {j, kizami + 1}];

Do[
If[
                      kaishi[[j]] < ima, 
cx = 
                        x0[[j]]; 
cy = 
                        y0; 
t = 
                        ima - kaishi[[j]]; 
tmplist = 
                        Table[renzoku[t, dl*(i - (kizami/2)), 
                            dl*(j - (kizami/2)), cx, cy], {i, 0, 
                            kizami}, {j, 0, 
                            kizami}]; 

amplist = 
                        amplist + Round[tmplist*1000], 
                      Continue[]];
, {j, naminokazu}];
amplist = Transpose[amplist];
snaplist = 
                  Append[snaplist, amplist];
Print[" k = "; k];
gsnap=ListPlot3D[amplist, 
                    PlotRange -> {-4000, 4000}, Mesh -> False, 
                    Boxed -> False, Axes -> False, 
                    ViewPoint  -> {-0.000,  -1.700,  2.926}(*,DisplayFunction -> Identity*) ];
gsnaplist = 
                  Append[gsnaplist, gsnap];
,{k, 1, bunkatu + 1, 1}];

snaplist = Drop[snaplist, 1];
gsnaplist = Drop[gsnaplist, 1];

SetDirectory["d:\\today"];
snaplist  >> "test_kanshou.txt";

Export["test_kanshou.avi", 
            gsnaplist, "AVI"]; 
]

Null