Die Bewegung eines Gummiballs auf einer Treppe modellieren 

Modellieren Sie die Abwärtsbewegung eines Gummiballs auf einer Treppe mit DSolve.

In[1]:=

X sol = DSolve[{y''[t] == -9.8, y[0] == 13.5, y'[0] == 5, a[0] == 13.5, WhenEvent[y[t] == a[t], y'[t] -> -0.75 y'[t]], WhenEvent[Mod[t, 1] == 0, a[t] -> a[t] - 1]}, {y, a}, {t, 0, 8}, DiscreteVariables -> a] ;

In[2]:=

X Plot[Evaluate[{y[t], a[t]} /. sol], {t, 0, 6}, Filling -> {2 -> 0}, PlotTheme -> "Business", Exclusions -> None, ImageSize -> Medium]

Out[2]=