Animation Examples

Sine Animation

Using the Animation Package:

Needs["Graphics`Animation`"]

Animate[Plot[Sin[n x],{x,0,2 π}],{n,1,2,0.2}];

Using function Do[]:

Do[Plot[Sin[n x],{x,0,2π}],{n,1,2,0.2}];

Double Helix Animation
CC Violeta Ivanova

Needs["Graphics`Shapes`"]

DNA=Show[TranslateShape[Graphics3D[Helix[1/2,1,2,20], Boxed->False,
          
          LightSources->{{{-1.,0,0},RGBColor[1,0,0]},{{0,0.,1.},
                RGBColor[1,1,1]},{{0,-1,0},RGBColor[0,0,1]}}],
        {1/4,0,0}],
            RotateShape[Graphics3D[Helix[1/2,1,2,20]], 0, 0, Pi]];

SpinShow[DNA,Frames->30,SpinRange->{0 Degree,180 Degree}]