バネの振動の方程式 x'' (t) + x(t) = 0 を解く

初期条件
                          x(0) = 1, 
          x' (0) = 0
のもとで解くと

x(
              t) = Cos t

時刻 t = (k/n)におけるバネの位置は x(t) = Cos((k/n)) だから,k = 
                0,1,2,3  \(\(と順に代入するとその時刻における位置がわかる\)\(.\)\)

Clear[T, F, g]; 
    T[n_, k_] := {PointSize[0.02], RGBColor[1, 0, 0], 
        Point[{N[Cos[k/n]], 0}]}; 
    F[n_, k_] := 
      Graphics[T[n, k], 
AspectRatio -> Automatic, 
        PlotRange -> {{-2, 2}, {-0.5, 0.5}}, Axes -> True, 
        Ticks -> {{-1, 1}, None}, DisplayFunction -> Identity]; 
    g[n_] := Do[
        Show[F[n, k], DisplayFunction -> $DisplayFunction], {k, 0, 
          4  π*n, 1}]

x'' (t) + x(t) = 0
\(を解くとは, \(\(以下のような動きを決めることである\)\(.\)\)\)

g[20]