Clear[]
m := 
      1    
c := 
      1  
k := 
      1   
Ω := 
      2  
P := 1   
T := Which[(Ω ≠ ω || 
            c ≠ 0), 
        2*((2*Pi)/Ω), (Ω == ω && 
            c == 0), 
        5*((2*Pi)/Ω)]   
ω := (Sqrt[(k/m)])
ξ := (c/(2*m*ω))
α := 
      Which[(Ω ≠ ω || 
            c ≠ 
              0), ((P*(k - m*(Ω^2)))/((((k - m*(Ω^2)))^2) + (((c*Ω))^2))), (Ω == ω && c == 0), 0]
β := 
      Which[(Ω ≠ ω || 
            c ≠ 
              0), ((P*(c*Ω))/((((k - m*(Ω^2)))^2) + (((c*Ω))^2))), (Ω == ω && 
            c == 0), ((-P)/(2*m*ω))]
ρ := 
      Which[(Ω ≠ ω || c ≠ 0), 
        P, (Ω == ω && c == 0), 
        Abs[β*T]]
rρ := 
      Which[(Ω ≠ ω || 
            c ≠ 
              0), (Sqrt[(α^2) + (β^2)]), (Ω == ω && c == 0), Abs[β*T]]
nl := 
      Which[(Ω ≠ ω || 
            c ≠ 
              0), (Sqrt[(α^2) + (β^2)]), (Ω == ω && c == 0), 0.3*Abs[β*T]]
d := Which[c ≠ 0, c, c == 0, 
        0]
δ := 
      Which[(Ω ≠ ω || c ≠ 0), 
        0.85, (Ω == ω && c == 0), 
        0.6]
θ := 
      Which[(Ω ≠ ω || c ≠ 0), 
        150, (Ω == ω && c == 0), 
        30]
efr[x_] := P*Cos[Ω*x]
efi[x_] := P*Sin[Ω*x]
rxr[x_] = 
      Which[(Ω ≠ ω || 
            c ≠ 0), α*Cos[Ω*x] + β*
            Sin[Ω*x], (Ω == ω && 
            c == 0), -β*x*
          Sin[Ω*x]]
rxi[x_] = 
      Which[(Ω ≠ ω || 
            c ≠ 0), -β*
            Cos[Ω*x] + α*
            Sin[Ω*x], (Ω == ω && 
            c == 0), β*x*
          Cos[Ω*x]]
nrr[x_] := rxr[x]/nl
nri[x_] := rxi[x]/nl
nfr[x_] := Cos[Ω*x]
nfi[x_] := 
      Sin[Ω*
          x]



iT[t_] := 
      ParametricPlot[{efr[x], efi[x]}, {x, -0.0001, t}, 
        PlotStyle -> {Thickness[0.02], RGBColor[0, 1, 0]}, 
        AspectRatio -> 1/1, 
        PlotRange -> {{-0.5 - ρ, 
              0.5 + ρ}, {-0.5 - ρ, 0.5 + ρ}}, 
        DisplayFunction -> Identity]
oT[t_] := 
      ParametricPlot[{rxr[x], rxi[x]}, {x, -0.0001, t}, 
        PlotStyle -> {Thickness[0.02], RGBColor[1, 0, 1]}, 
        AspectRatio -> 1/1, 
        PlotRange -> {{-0.5 - ρ, 
              0.5 + ρ}, {-0.5 - ρ, 0.5 + ρ}}, 
        DisplayFunction -> Identity]
i[t_] := 
      Show[Graphics[{Thickness[0.02], RGBColor[0, 1, 0], 
            Line[{{0, 0}, {efr[t], efi[t]}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{-0.5 - ρ, 
              0.5 + ρ}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
ia1[t_] := 
      Show[Graphics[{Thickness[0.02], RGBColor[0, 1, 0], 
            Line[{{efr[t], 
                  efi[t]}, {δ*efr[t - (Pi/θ)], δ*
                    efi[t - (Pi/θ)]}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{-0.5 - ρ, 
              0.5 + ρ}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
ia2[t_] := 
      Show[Graphics[{Thickness[0.02], RGBColor[0, 1, 0], 
            Line[{{efr[t], 
                  efi[t]}, {δ*efr[t + (Pi/θ)], δ*
                    efi[t + (Pi/θ)]}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{-0.5 - ρ, 
              0.5 + ρ}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
o[t_] := 
      Show[Graphics[{Thickness[0.015], RGBColor[1, 0, 1], 
            Line[{{0, 0}, {rxr[t], rxi[t]}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{-0.5 - ρ, 
              0.5 + ρ}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
oa1[t_] := 
      Show[Graphics[{Thickness[0.02], RGBColor[1, 0, 1], 
            Line[{{rxr[t], rxi[t]}, {0.7*rxr[t - (Pi/90)], 
                  0.7*rxi[t - (Pi/90)]}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{-0.5 - ρ, 
              0.5 + ρ}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
oa2[t_] := 
      Show[Graphics[{Thickness[0.02], RGBColor[1, 0, 1], 
            Line[{{rxr[t], rxi[t]}, {0.7*rxr[t + (Pi/90)], 
                  0.7*rxi[t + (Pi/90)]}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{-0.5 - ρ, 
              0.5 + ρ}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> 
          Identity]

iR[t_] := 
      Plot[efr[x], {x, -0.0001, t}, 
        PlotStyle -> {Thickness[0.02], RGBColor[0, 1, 0]}, 
        AspectRatio -> 0.5, 
        PlotRange -> {{-1, T}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
oR[t_] := 
      Plot[rxr[x], {x, -0.0001, t}, 
        PlotStyle -> {Thickness[0.015], RGBColor[1, 0, 0]}, 
        AspectRatio -> 0.5, 
        PlotRange -> {{-1, T}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
iI[t_] := 
      Plot[efi[x], {x, -0.0001, t}, 
        PlotStyle -> {Thickness[0.02], RGBColor[0, 1, 0]}, 
        AspectRatio -> 0.5, 
        PlotRange -> {{-1, T}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
oI[t_] := 
      Plot[rxi[x], {x, -0.0001, t}, 
        PlotStyle -> {Thickness[0.015], RGBColor[0, 0, 1]}, 
        AspectRatio -> 0.5, 
        PlotRange -> {{-1, T}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
L1 := 
      Plot[β*x, {x, -0.0001, t}, 
        PlotStyle -> {Thickness[0.005], Dashing[{0.02}], 
            RGBColor[1, 0, 1]}, AspectRatio -> 0.5, 
        PlotRange -> {{-1, T}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> Identity]
L2 := 
      Plot[-β*x, {x, -0.0001, t}, 
        PlotStyle -> {Thickness[0.005], Dashing[{0.02}], 
            RGBColor[1, 0, 1]}, AspectRatio -> 0.5, 
        PlotRange -> {{-1, T}, {-0.5 - ρ, 0.5 + ρ}}, 
        Axes -> True, 
        DisplayFunction -> 
          Identity]


Wall := 
      Show[Graphics[{RGBColor[0, 0, 0], Thickness[0.02], 
            Line[{{0, 0}, {0, 10}}]}, PlotRange -> {{0, 25}, {0, 15}}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
Ground := 
      Show[Graphics[{RGBColor[0, 1, 0], Thickness[0.02], 
            Line[{{0, 0}, {25, 0}}]}, PlotRange -> {{0, 25}, {0, 15}}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> 
          Identity]

Mr := 
      Show[Graphics[{RGBColor[1, 0, 0], 
            Polygon[{{13 + nrr[t], 7}, {13 + nrr[t], 1}, {19 + nrr[t], 
                  1}, {19 + nrr[t], 7}}]}], 
        DisplayFunction -> Identity]
w1r := 
      Show[Graphics[{RGBColor[0.7, 0.7, 0.7], Disk[{14 + nrr[t], 1}, 0.7]}], 
        DisplayFunction -> Identity]
w2r := 
      Show[Graphics[{RGBColor[0, 0, 0], Disk[{14 + nrr[t], 1}, 1]}], 
        DisplayFunction -> Identity]
L1r := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], Thickness[0.003], 
            Line[{{14 + nrr[t], 1}, {14 + nrr[t] + Sin[nrr[t]], 
                  1 + Cos[nrr[t]]}}]}], 
        DisplayFunction -> Identity]
L2r := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], Thickness[0.003], 
            Line[{{14 + nrr[t], 1}, {14 + nrr[t] + Sin[nrr[t] + ((2*Pi)/3)], 
                  1 + Cos[nrr[t] + ((2*Pi)/3)]}}]}], 
        DisplayFunction -> Identity]
L3r := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], Thickness[0.003], 
            Line[{{14 + nrr[t], 1}, {14 + nrr[t] + Sin[nrr[t] + ((4*Pi)/3)], 
                  1 + Cos[nrr[t] + ((4*Pi)/3)]}}]}], 
        DisplayFunction -> Identity]
wheel1r := 
      Show[w2r, w1r, L1r, L2r, L3r, 
        DisplayFunction -> Identity]
w3r := 
      Show[Graphics[{RGBColor[0.7, 0.7, 0.7], Disk[{18 + nrr[t], 1}, 0.7]}], 
        DisplayFunction -> Identity]
w4r := 
      Show[Graphics[{RGBColor[0, 0, 0], Disk[{18 + nrr[t], 1}, 1]}], 
        DisplayFunction -> Identity]
L4r := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], 
            Line[{{18 + nrr[t], 1}, {18 + nrr[t] + Sin[nrr[t]], 
                  1 + Cos[nrr[t]]}}]}], 
        DisplayFunction -> Identity]
L5r := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], 
            Line[{{18 + nrr[t], 1}, {18 + nrr[t] + Sin[nrr[t] + ((2*Pi)/3)], 
                  1 + Cos[nrr[t] + ((2*Pi)/3)]}}]}], 
        DisplayFunction -> Identity]
L6r := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], 
            Line[{{18 + nrr[t], 1}, {18 + nrr[t] + Sin[nrr[t] + ((4*Pi)/3)], 
                  1 + Cos[nrr[t] + ((4*Pi)/3)]}}]}], 
        DisplayFunction -> Identity]
wheel2r := 
      Show[w4r, w3r, L4r, L5r, L6r, 
        DisplayFunction -> Identity]
Sr := 
      Show[Graphics[{RGBColor[1, 0, 1], Thickness[0.01], 
            Line[{{0, 4}, {2.5, 4}, {3 + (1/10)*nrr[t], 5}, {4 + (2/10)*nrr[t], 
                  3}, {5 + (3/10)*nrr[t], 5}, {6 + (4/10)*nrr[t], 
                  3}, {7 + (5/10)*nrr[t], 5}, {8 + (6/10)*nrr[t], 
                  3}, {9 + (7/10)*nrr[t], 5}, {10 + (8/10)*nrr[t], 
                  3}, {11 + (9/10)*nrr[t], 5}, {11.5 + nrr[t], 
                  4}, {13 + nrr[t], 4}}]}, 
          PlotRange -> {{0, 25}, {0, 15}}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
Srd := 
      Show[Graphics[{RGBColor[1, 0, 1], Thickness[0.01], 
            Line[{{0, 5.5}, {2.5, 5.5}, {3 + (1/10)*nrr[t], 
                  6.5}, {4 + (2/10)*nrr[t], 4.5}, {5 + (3/10)*nrr[t], 
                  6.5}, {6 + (4/10)*nrr[t], 4.5}, {7 + (5/10)*nrr[t], 
                  6.5}, {8 + (6/10)*nrr[t], 4.5}, {9 + (7/10)*nrr[t], 
                  6.5}, {10 + (8/10)*nrr[t], 4.5}, {11 + (9/10)*nrr[t], 
                  6.5}, {11.5 + nrr[t], 5.5}, {13 + nrr[t], 5.5}}]}, 
          PlotRange -> {{0, 25}, {0, 15}}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
D1R := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{0, 2.5}, {3.5, 2.5}}]}], 
        DisplayFunction -> Identity]
D2R := 
      Show[Graphics[{RGBColor[0, 1, 1], 
            Polygon[{{3.5, 3.5}, {8 + nrr[t], 3.5}, {8 + nrr[t], 1.5}, {3.5, 
                  1.5}}]}], 
        DisplayFunction -> Identity]
D3R := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{3.5, 3.5}, {9.5, 3.5}}]}], 
        DisplayFunction -> Identity]
D4R := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{3.5, 1.5}, {9.5, 1.5}}]}], 
        DisplayFunction -> Identity]
D5R := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{3.5, 3.5}, {3.5, 1.5}}]}], 
        DisplayFunction -> Identity]
D6R := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{8 + nrr[t], 2.5}, {13 + nrr[t], 2.5}}]}], 
        DisplayFunction -> Identity]
D7R := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{8 + nrr[t], 1.5}, {8 + nrr[t], 3.5}}]}], 
        DisplayFunction -> 
          Identity]

ar1[t_] := 
      Show[Graphics[{Thickness[0.01], RGBColor[0, 1, 0], 
            Line[{{19 + nrr[t], 4}, {19 + nrr[t] + 2*nfr[t], 4}}]}], 
        AspectRatio -> 1/1, PlotRange -> {{0, 25}, {0, 15}}, 
        Axes -> True, DisplayFunction -> Identity]
ar2[t_] := 
      Show[Graphics[{Thickness[0.01], RGBColor[0, 1, 0], 
            Line[{{19 + nrr[t] + 2*nfr[t], 4}, {19 + nrr[t] + nfr[t], 
                  4.5}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{0, 25}, {0, 15}}, Axes -> True, 
        DisplayFunction -> Identity]
ar3[t_] := 
      Show[Graphics[{Thickness[0.01], RGBColor[0, 1, 0], 
            Line[{{19 + nrr[t] + 2*nfr[t], 4}, {19 + nrr[t] + nfr[t], 
                  3.5}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{0, 25}, {0, 15}}, Axes -> True, 
        DisplayFunction -> 
          Identity]

dR := 
      Show[D1R, D2R, D3R, D4R, D5R, D6R, D7R, 
        PlotRange -> {{0, 25}, {0, 15}}, 
        DisplayFunction -> Identity]
rd := 
        Show[Ground, Srd, Mr, wheel1r, wheel2r, dR, Wall, ar1[t], ar2[t], 
          ar3[t], DisplayFunction -> 
            Identity];
rnd := 
        Show[Ground, Sr, Mr, wheel1r, wheel2r, Wall, ar1[t], ar2[t], ar3[t], 
          DisplayFunction -> Identity];
Gr := 
      Which[d ≠ 0, rd, d == 0, 
        rnd]


Mi := 
      Show[Graphics[{RGBColor[0, 0, 1], 
            Polygon[{{13 + nri[t], 7}, {13 + nri[t], 1}, {19 + nri[t], 
                  1}, {19 + nri[t], 7}}]}], 
        DisplayFunction -> Identity]
w1i := 
      Show[Graphics[{RGBColor[0.7, 0.7, 0.7], Disk[{14 + nri[t], 1}, 0.7]}], 
        DisplayFunction -> Identity]
w2i := 
      Show[Graphics[{RGBColor[0, 0, 0], Disk[{14 + nri[t], 1}, 1]}], 
        DisplayFunction -> Identity]
L1i := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], Thickness[0.003], 
            Line[{{14 + nri[t], 1}, {14 + nri[t] + Sin[nri[t]], 
                  1 + Cos[nri[t]]}}]}], 
        DisplayFunction -> Identity]
L2i := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], Thickness[0.003], 
            Line[{{14 + nri[t], 1}, {14 + nri[t] + Sin[nri[t] + ((2*Pi)/3)], 
                  1 + Cos[nri[t] + ((2*Pi)/3)]}}]}], 
        DisplayFunction -> Identity]
L3i := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], Thickness[0.003], 
            Line[{{14 + nri[t], 1}, {14 + nri[t] + Sin[nri[t] + ((4*Pi)/3)], 
                  1 + Cos[nri[t] + ((4*Pi)/3)]}}]}], 
        DisplayFunction -> Identity]
wheel1I := 
      Show[w2i, w1i, L1i, L2i, L3i, 
        DisplayFunction -> Identity]
w3i := 
      Show[Graphics[{RGBColor[0.7, 0.7, 0.7], Disk[{18 + nri[t], 1}, 0.7]}], 
        DisplayFunction -> Identity]
w4i := 
      Show[Graphics[{RGBColor[0, 0, 0], Disk[{18 + nri[t], 1}, 1]}], 
        DisplayFunction -> Identity]
L4i := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], 
            Line[{{18 + nri[t], 1}, {18 + nri[t] + Sin[nri[t]], 
                  1 + Cos[nri[t]]}}]}], 
        DisplayFunction -> Identity]
L5i := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], 
            Line[{{18 + nri[t], 1}, {18 + nri[t] + Sin[nri[t] + ((2*Pi)/3)], 
                  1 + Cos[nri[t] + ((2*Pi)/3)]}}]}], 
        DisplayFunction -> Identity]
L6i := 
      Show[Graphics[{RGBColor[0.2, 0.2, 0.2], 
            Line[{{18 + nri[t], 1}, {18 + nri[t] + Sin[nri[t] + ((4*Pi)/3)], 
                  1 + Cos[nri[t] + ((4*Pi)/3)]}}]}], 
        DisplayFunction -> Identity]
wheel2I := 
      Show[w4i, w3i, L4i, L5i, L6i, 
        DisplayFunction -> Identity]
Si := 
      Show[Graphics[{RGBColor[1, 0, 1], Thickness[0.01], 
            Line[{{0, 4}, {2.5, 4}, {3 + (1/10)*nri[t], 5}, {4 + (2/10)*nri[t], 
                  3}, {5 + (3/10)*nri[t], 5}, {6 + (4/10)*nri[t], 
                  3}, {7 + (5/10)*nri[t], 5}, {8 + (6/10)*nri[t], 
                  3}, {9 + (7/10)*nri[t], 5}, {10 + (8/10)*nri[t], 
                  3}, {11 + (9/10)*nri[t], 5}, {11.5 + nri[t], 
                  4}, {13 + nri[t], 4}}]}, 
          PlotRange -> {{0, 25}, {0, 15}}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
Sid := 
      Show[Graphics[{RGBColor[1, 0, 1], Thickness[0.01], 
            Line[{{0, 5.5}, {2.5, 5.5}, {3 + (1/10)*nri[t], 
                  6.5}, {4 + (2/10)*nri[t], 4.5}, {5 + (3/10)*nri[t], 
                  6.5}, {6 + (4/10)*nri[t], 4.5}, {7 + (5/10)*nri[t], 
                  6.5}, {8 + (6/10)*nri[t], 4.5}, {9 + (7/10)*nri[t], 
                  6.5}, {10 + (8/10)*nri[t], 4.5}, {11 + (9/10)*nri[t], 
                  6.5}, {11.5 + nri[t], 5.5}, {13 + nri[t], 5.5}}]}, 
          PlotRange -> {{0, 25}, {0, 15}}, 
          AspectRatio -> Automatic], 
        DisplayFunction -> Identity]
D1I := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{0, 2.5}, {3.5, 2.5}}]}], 
        DisplayFunction -> Identity]
D2I := 
      Show[Graphics[{RGBColor[0, 1, 1], 
            Polygon[{{3.5, 3.5}, {8 + nri[t], 3.5}, {8 + nri[t], 1.5}, {3.5, 
                  1.5}}]}], 
        DisplayFunction -> Identity]
D3I := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{3.5, 3.5}, {9.5, 3.5}}]}], 
        DisplayFunction -> Identity]
D4I := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{3.5, 1.5}, {9.5, 1.5}}]}], 
        DisplayFunction -> Identity]
D5I := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{3.5, 3.5}, {3.5, 1.5}}]}], 
        DisplayFunction -> Identity]
D6I := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{8 + nri[t], 2.5}, {13 + nri[t], 2.5}}]}], 
        DisplayFunction -> Identity]
D7I := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.005], 
            Line[{{8 + nri[t], 1.5}, {8 + nri[t], 3.5}}]}], 
        DisplayFunction -> 
          Identity]

ai1[t_] := 
      Show[Graphics[{Thickness[0.01], RGBColor[0, 1, 0], 
            Line[{{19 + nri[t], 4}, {19 + nri[t] + 2*nfi[t], 4}}]}], 
        AspectRatio -> 1/1, PlotRange -> {{0, 25}, {0, 15}}, 
        Axes -> True, DisplayFunction -> Identity]
ai2[t_] := 
      Show[Graphics[{Thickness[0.01], RGBColor[0, 1, 0], 
            Line[{{19 + nri[t] + 2*nfi[t], 4}, {19 + nri[t] + nfi[t], 
                  4.5}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{0, 25}, {0, 15}}, Axes -> True, 
        DisplayFunction -> Identity]
ai3[t_] := 
      Show[Graphics[{Thickness[0.01], RGBColor[0, 1, 0], 
            Line[{{19 + nri[t] + 2*nfi[t], 4}, {19 + nri[t] + nfi[t], 
                  3.5}}]}], AspectRatio -> 1/1, 
        PlotRange -> {{0, 25}, {0, 15}}, Axes -> True, 
        DisplayFunction -> 
          Identity]


dI := 
      Show[D1I, D2I, D3I, D4I, D5I, D6I, D7I, 
        PlotRange -> {{0, 25}, {0, 15}}, 
        DisplayFunction -> Identity]
id := 
        Show[Ground, Sid, Wall, Mi, wheel1I, wheel2I, dI, ai1[t], ai2[t], 
          ai3[t], DisplayFunction -> 
            Identity];
ind := 
        Show[Ground, Si, Mi, wheel1I, wheel2I, Wall, ai1[t], ai2[t], ai3[t], 
          DisplayFunction -> Identity];
Gi := 
      Which[d ≠ 0, id, d == 0, 
        ind]

f1 := 
      Graphics[Show[{o[t], oT[t], i[t], iT[t], ia1[t], ia2[t], oa1[t], 
            oa2[t]}, DisplayFunction -> Identity, 
          AxesLabel -> {"Re", "Im"}]]
f2 := 
      Graphics[Show[{iR[t], oR[t]}, DisplayFunction -> Identity, 
          AxesLabel -> {"t", "Re"}]]
f3 := 
      Graphics[Show[{iI[t], oI[t]}, DisplayFunction -> Identity, 
          AxesLabel -> {"t", "Im"}]]
f4 := 
      Graphics[Show[{iR[t], oR[t], L1, L2}, DisplayFunction -> Identity, 
          AxesLabel -> {"t", "Re"}]]
f5 := 
      Graphics[Show[{iI[t], oI[t], L1, L2}, DisplayFunction -> Identity, 
          AxesLabel -> {"t", "Im"}]]
f6 := 
      Which[(Ω ≠ ω || c ≠ 0), 
        f2, (Ω == ω && c == 0), 
        f4]
f7 := 
      Which[(Ω ≠ ω || c ≠ 0), 
        f3, (Ω == ω && c == 0), 
        f5]

a[t_] := 
      Show[GraphicsArray[{{Gr, f6, f1}, {Gi, f7, f1}}], 
        ImageSize -> {900, 300}, 
        DisplayFunction -> $DisplayFunction]
An = 
        Table[Show[a[t], DisplayFunction -> $DisplayFunction], {t, 0, T, 
            (T/100)}];

rρ

Plot[{-(2/13) Cos[2 x] - (3/13) Sin[2 x],  
        Sin[2 x]}, {x, -2 Pi, 2  Pi}]