Recent content by MikhailKhot

Got an answer myself;)) Animate[ Show[ ParametricPlot[ {(1.2 + (1 - tf*0.1)*Boole[tf < 10])* Sin[tf], (1 + (1 - tf*0.1)*Boole[tf < 10])*Cos[tf]}, {tf, 0, t}, PlotStyle -> {{Thickness[0.002], Red}, {Thickness[0.002], Blue}}, PlotRange -> {{-2.3, 2.3}, {-2.3, 2.3}, {-2.3...

Dear all, here is my animation of a simple plot: Animate[ ParametricPlot[ {Sin[tf], Cos[tf]}, {tf, 0, t}, PlotStyle -> {{Thickness[0.002], Red}, {Thickness[0.002], Blue}}, PlotRange -> {{-2, 2}, {-2, 2}, {-2, 2}}, AspectRatio -> Automatic], {t, 0.01, 100, 0.01}, AnimationRate -> 2...