Clear[]
x1[t_] := Cos[(Sqrt[3])*t]
x2[t_] := -2*Cos[(Sqrt[3])*t]
x3[t_] := Cos[(Sqrt[3])*t]
Sp1[t_] := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{-0.8 + x1[t], 0}, {x1[t], 
                  0}, {0.8 + (4/5)*x1[t] + (1/5)*x2[t], 
                  0.5}, {1.6 + (3/5)*x1[t] + (2/5)*x2[t], -0.5}, {2.4 + 
                    (2/5)*x1[t] + (3/5)*x2[t], 
                  0.5}, {3.2 + (1/5)*x1[t] + (4/5)*x2[t], -0.5}, {4 + 
                    x2[t], 0}, {4.8 + x2[t], 0}}]}, 
          PlotRange -> {{-5, 15}, {-1, 1}}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
Sp2[t_] := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{4.8 + x2[t], 0}, {5.6 + x2[t], 
                  0}, {6.4 + (4/5)*x2[t] + (1/5)*x3[t], 
                  0.5}, {7.2 + (3/5)*x2[t] + (2/5)*x3[t], -0.5}, {8 + 
                    (2/5)*x2[t] + (3/5)*x3[t], 
                  0.5}, {8.8 + (1/5)*x2[t] + (4/5)*x3[t], -0.5}, {9.6 + 
                    x3[t], 0}, {10.4 + x3[t], 0}}]}, 
          PlotRange -> {{-5, 15}, {-1, 1}}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
m1[t_] := 
      Show[Graphics[{RGBColor[0, 1, 0], Disk[{-0.8 + x1[t], 0}, 0.3]}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
m2[t_] := 
      Show[Graphics[{RGBColor[0, 1, 0], Disk[{4.8 + x2[t], 0}, 0.3]}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
m3[t_] := 
      Show[Graphics[{RGBColor[0, 1, 0], Disk[{10.4 + x3[t], 0}, 0.3]}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
g = 
      Table[Show[Sp1[t], Sp2[t], m1[t], m2[t], m3[t], 
          DisplayFunction -> $DisplayFunction], {t, 0.5, 20, 
          0.2}]
Export["yaya3.avi", g]