Expandující slupka

{cs,ca,cp}={Blue,Magenta,Red}

{cs,ca,cp}={Black,Black,Black}

R[t_,α_,v_,τ_]:=(Sqrt[((((v (t-τ))Cos[α]))^2)+(((t-τ))^2)-(((v(t-τ)))^2)])-(v (t-τ))Cos[α];
r=24;

Manipulate[
Graphics[{
Style[Line[{{0,-30},{0,30}}],{Gray,Dotted}],Style[Line[{{-30,0},{30,0}}],{Gray,Dotted}],
Join[
(* pohybujici se pole *)If[t>τ,Table[Style[Line[{{(1/2)v τ+v (t-τ),0},{(1/2)v τ+v  (t-τ),0}+R[t,α,v,τ]{Cos[α],Sin[α]}}],cp],{α,0.,2π-((2π)/r),((2π)/r)}],{}],
(* akceleracni pole *)If[t>0,Table[Style[Line[{HeavisideTheta[t]t{Cos[α],Sin[α]},{(1/2)v τ+v( t-τ),0}+If[t>τ,R[t,α,v,τ]{Cos[α],Sin[α]},{(1/2)(v/τ)(t^2),0}]}],ca],{α,0,2π-((2π)/r),((2π)/r)}],{}],
(* staticke pole *)Table[Style[Line[{HeavisideTheta[t]t{Cos[α],Sin[α]},30{Cos[α],Sin[α]}}],cs],{α,0,2π-((2π)/r),((2π)/r)}]
],
(* vnejsi slupka *)Style[Circle[{0,0},HeavisideTheta[t]t],Dotted],
(* vnitrni supka *)Style[Circle[{(1/2)v τ,0},HeavisideTheta[t-τ](t-τ)],Dotted]
},PlotRange->{{-15,15},{-15,15}},ImageSize->600],
{{t,-2.0,Dynamic["t = "<>ToString[NumberForm[t,{3,2}]]]},-2,30},
{{v,0.1,Dynamic["v = "<>ToString[NumberForm[v,{3,2}]]]},0.001,0.5},
{{τ,0.1,Dynamic["τ = "<>ToString[NumberForm[τ,{3,2}]]]},0.001,1},
SaveDefinitions->True]

Export do GIFu

table=Table[ReleaseHold[Hold[Graphics[{
Style[Line[{{0,-30},{0,30}}],{Gray,Dotted}],Style[Line[{{-30,0},{30,0}}],{Gray,Dotted}],
Join[
(* pohybujici se pole *)If[t>τ,Table[Style[Line[{{(1/2)v τ+v (t-τ),0},{(1/2)v τ+v  (t-τ),0}+R[t,α,v,τ]{Cos[α],Sin[α]}}],cp],{α,0.,2π-((2π)/r),((2π)/r)}],{}],
(* akceleracni pole *)If[t>0,Table[Style[Line[{HeavisideTheta[t]t{Cos[α],Sin[α]},{(1/2)v τ+v( t-τ),0}+If[t>τ,R[t,α,v,τ]{Cos[α],Sin[α]},{(1/2)(v/τ)(t^2),0}]}],ca],{α,0,2π-((2π)/r),((2π)/r)}],{}],
(* staticke pole *)Table[Style[Line[{HeavisideTheta[t]t{Cos[α],Sin[α]},30{Cos[α],Sin[α]}}],cs],{α,0,2π-((2π)/r),((2π)/r)}]
],
(* vnejsi slupka *)Style[Circle[{0,0},HeavisideTheta[t]t],Dotted],
(* vnitrni supka *)Style[Circle[{(1/2)v τ,0},HeavisideTheta[t-τ](t-τ)],Dotted]
},PlotRange->{{-15,15},{-15,15}},ImageSize->600]]/.{v->0.22,τ->0.28}],{t,-5,35,0.15}];

Export["slupka.gif",table,"GIF","DisplayDurations"->0.04,"AnimationRepetitions"->∞]

Elektrické pole od harmonicky kmitajícího náboje

Ep[x_,y_,t_,a_]:=(1/((((x^2)+(y^2)+20))^(3/2))){x,y}+(1/3)(1/((((x^2)+(y^2)+20))^(1/2)))(a[t-(Sqrt[(x^2)+(y^2)])]-(a[t-(Sqrt[(x^2)+(y^2)])].{x,y})(({x,y})/((x^2)+(y^2))))
pts=RandomReal[{-10,10},{6000,2}];

VectorPlot[Ep[x,y,2π,({Cos[#],0})&],{x,-10,10},{y,-10,10},AspectRatio->Automatic,VectorPoints->pts,VectorScale->Small,Frame->False,PlotRange->{{-10,10},{-10,10}},RegionFunction->Function[{x,y,vx,vy,n},(x^2)+(y^2)>3],ImageSize->600]

Export do GIFu

graphs=Table[VectorPlot[Ep[x,y,t,({Cos[#],0})&],{x,-10,10},{y,-10,10},AspectRatio->Automatic,VectorPoints->RandomReal[{-10,10},{6000,2}],VectorScale->Small,Frame->False,PlotRange->{{-10,10},{-10,10}},RegionFunction->Function[{x,y,vx,vy,n},(x^2)+(y^2)>3],ImageSize->600],{t,0,2π-((2π)/75),((2π)/75)}];

Export["vyzarovani.gif",graphs,"GIF","DisplayDurations"->0.04,"AnimationRepetitions"->∞]