Join[
        Table[{x ( n - 1)/15, 0.2  ((-1)^n)}, {n, 1, 
            15}], {{x, 0}}] /. x -> 1

sw2[x_]  :=  
      Line[Join[
          Table[{ 0.2  ((-1)^n), x ( n - 1)/15}, {n, 1, 
              15}], {{0, x}}]]

d[x_] := 
      Graphics[{sw2[x], Line[{{-1, 0}, {1, 0}}], 
          Disk[{0, x},  .25]}]

plRe[x_] := 
      Show[d[x], PlotRange -> {{-1, 2}, {-0, 6}}]

Do[
      plRe[2 Cos[t] + 3], {t, 0, 2 Pi,  .31}]

sol = 
      NDSolve[{y''[t]     + 6  y[t]  == 
            0.1  Sin[(1 + t/2000)*t], 
          y[0] == 0, y'[0] == 0}, 
        y, {t, 0, 
          50}]


Plot[Evaluate[y[t] /. sol], {t, 0, 40}]

Plot[Evaluate[y[t] /. sol], {t, 0, 420}]