Example of modeling of the electromagnetic radiation (vc=c+v).

Electron.

(%i1)

define(Xe(t),Re*cos(We*t)) /* Location of the electron */;

(%i2)

define(Ve(t),-2*%pi*Re*sin(We*t)) /* Projection to velocities of the electron */;

Radiation.

(%i3)

define(Vc(t),c+Ve(t)) /* variant 1: Vc=c; variant 2: Vc=c+Ve; */;

(%i4)

define(Xct(T,t),Vc(t)*(T-t));

(%i5)

define(Xc(T,t),Xe(t)+Xct(T,t));

Base space-temporary system.

(%i6)

define(R(T,t),c*(T-t)+Re);

Energy of the radiation.

(%i7)

define(kEc(T,t),Re*(Xc(T,t)/R(T,t))^2);

(%i8)

define(dEc(T,t),1-kEc(T,t));

Parameters to models.

(%i9)

Re:1; Te:1; We: 2*%pi*Te,numer; alpha:137.036; c: alpha*2*%pi,numer;

(%i14)

Tn:8*Te;

Graphic presentation of the electromagnetic radiation.

(%i15)

plot2d([parametric,Xc(Tn,t),dEc(Tn,t),[t,0,Tn]],[nticks,2000])$

(%i16)

plot2d([parametric,Xc(Tn,t),dEc(Tn,t),[t,0.99,Tn+0.99]],[nticks,2000])$

(%i17)

plot2d([parametric,Xc(Tn,t),dEc(Tn,t),[t,0.99,Tn+0.99]],[nticks,2000],[gnuplot_term,"png size 800,600"], [gnuplot_out_file, "d:\\temp\\el_emv_var.png"])$

(%i18)

plot2d([parametric,Xc(Tn,t),dEc(Tn,t),[t,0.99,Tn+0.99]],[nticks,2000], [psfile, "d:\\temp\\el_emv_var.eps"])$

(%i19)

2/alpha; dEc(100000000000*Te,0.25*Te),numer; dEc(100000000000*Te,0.75*Te),numer; (dEc(100000000000*Te,0.25*Te)-dEc(100000000000*Te,0.75*Te))/2,numer;

Graphic presentation of the electromagnetic phenomenas in point X=0.

(%i23)

plot2d([parametric,Xc(t,t),dEc(t,t),[t,0,Tn]],[nticks,2000])$

(%i24)

plot2d(dEc(t,t),[t,0,Tn],[nticks,200])$

(%i25)

plot2d(dEc(t,t),[t,0,Tn],[nticks,200],[gnuplot_term,"png size 800,600"], [gnuplot_out_file, "d:\\temp\\el_emv_var_x0.png"])$

(%i26)

plot2d(dEc(t,t),[t,0,Tn],[nticks,200], [psfile, "d:\\temp\\el_emv_var_x0.eps"])$

Created with wxMaxima.

Made in Terra No Names.