Show [Graphics[{
{Blue,Text["(k/8)",{0,.15}],Text["((k + 1)/8)",{1,0.15}]},{Red,Text["\!\(\*FractionBox[\(2  k\), \(\(\\ \)\(16\)\)]\)",{0,-0.35}],Text["((2  k + 1)/16)",{0.5,-0.35}],Text["((2  k + 2)/16)",{1,-.35}]},
Line[{{-.5,-.2},{1.5,-.2}}],Line[{{-.5,0},{1.5,0}}],{Red,Thick,Line[{{0,-.2},{1,-.2}}]},{Blue,Thick,Line[{{0,0},{1,0}}]},{AbsolutePointSize[10],Point[{{0,0},{1,0},{0,-.2},{1,-.2},{0.5,-.2}}]}}]]