The stadium billiard is a $2D$ chaotic system. We know this by studying its specular reflection patterns and Poincare section (or Poincaré-Birkhoff coordinates (PBC)). However, both methods are graphical, so one can say these are qualitative ways. Nevertheless, many authors have found a way to calculate the Lyapunov spectrum for billiards, which is considered globally a quantitative indicator of chaos.
The problem is in billiards systems, we are dealing with a functional composition of continuum and discrete maps. Every collision implies discontinuities on the trajectories.
How do you find the Lyapunov exponent for such a hybrid model? There are various papers available on this topic(Ch. Dellago et al., Phys. Rev. E 53 (1996), Ensemble separation and stickiness influence in a driven stadium-like billiard: A Lyapunov exponents analysis ). Most of them use a program written in Julia.
How do I develop a program in Mathematica to find the Finite Time Lyapunov Exponents(FTLE) for $2D$ billiards?
Suppose I have the following code developed by @cvgmt to find the specular reflection pattern in stadium billiard
eqn = RegionDistance[Line[{{-1, 0}, {1, 0}}], {x, y}] == 1
reg = ImplicitRegion[eqn, {x, y}];
RegionPlot[reg, AspectRatio -> Automatic]
Clear["Global`*"];
reflect[vector_,
normal_] = -(vector - 2 (vector - Projection[vector, normal])) //
Simplify;
R = StadiumShape[{{-1, 0}, {1, 0}}, 1];
R2 = RegionBoundary[R];
dist = RegionDistance[R2];
proj = RegionNearest[R2];
pt0 = RandomPoint[R, 1][[1]];
v0 = {1., 2.};
d0 = 0.01*Norm[v0];
sol = NDSolveValue[{r''[t] == {0, 0}, r[0] == pt0, r'[0] == v0,
WhenEvent[dist@r[t] <= d0,
r'[t] -> reflect[r'[t], r[t] - proj@r[t]]]}, r, {t, 0, 100},
MaxStepSize -> 0.01];
Reflection =
Show[Graphics[{{FaceForm[White], EdgeForm[Red], R}}],
ParametricPlot[sol@t, {t, 0, 100}, Mesh -> {100},
Method -> {"BoundaryOffset" -> False}, PlotPoints -> 80,
PerformanceGoal -> "Quality", PlotRange -> All] /. Line -> Arrow,
PlotRange -> 2]
How do I progress further to find the Lyapunov Exponents for this billiard or any other billiard?

