Spreading of the electromagnetic radiations in cosmos on Walter Ritz.

Time of the passing of the electromagnetic radiation at the beginning initially period.

(%i16)

kill(all);

(%i1)

t1: L/(c+v);

Time of the passing of the electromagnetic radiation at the end of the period under even and is a speed moving the source.

(%i2)

t2_v: T+(L-v*T)/(c+v); t2_va: T+(L-((v+a*T/2)*T))/(c+v+a*T);

Period of the radiation for watcher under even and is a speed moving the source.

(%i4)

Tm_v: ratsimp(t2_v-t1); Tm_va: ratsimp(t2_va-t1);

Difference period under even and is a speed motion.
dT(a)=T(v,a)-T(v)

(%i6)

dT_a: ratsimp(Tm_va-Tm_v);

Factor of the change the period of the radiation of the source beside watcher under even (effect of Dopler) and is a speed (effect of Ritz) the source.
kT(v) -- effect of Dopler
kT(v,a) -- (effect of Dopler)+(effect of Ritz)

(%i7)

kT_v: ratsimp(Tm_v/T); kT_va: ratsimp(Tm_va/T);

Difference factor change the period of the radiation of the source beside watcher under even, is a speed and periodic moving the source.
kT(a)=kT(v,a)-kT(v) -- effect of Ritz

(%i9)

kT_a: ratsimp(kT_va-kT_v);

Parameter.

(%i10)

c:3e8;

(%i11)

L:3e16; Lc: (L/c)/(60*60*24*365);

(%i13)

v: 1e4;

(%i14)

T: 1e-6;

Plot kT(a),kT(v,a)=kT(v)+kT(a).

(%i15)

plot2d([kT_va,kT_a],[a,0,2])$

(%i16)

plot2d([kT_va,kT_a],[a,0,2],[gnuplot_term,"png size 800,600"], [gnuplot_out_file, "d:\\temp\\postritz0.png"])$

(%i17)

plot2d([kT_va,kT_a],[a,0,2], [psfile, "d:\\temp\\postritz0.eps"])$

Made in Terra No Names.