Could you try to adopt the code and try to develop your own version? If you encounter any specific difficulties with code you could ask and folks here would help. You perhaps may also find it useful to look at (fro visualizations):
NumberLinePlot[
Table[RandomInteger[10] <= x < RandomInteger[20], {k, 0, 15}], x,
PlotStyle -> Directive[Thickness[.03], Opacity[.5]],
AspectRatio -> 1/3, PlotTheme -> "Marketing", GridLines -> Automatic]
