 \sqrt{ 2  } 

n = 3 (slider from 1 to 50, step 1)
A = Sequence((i / n, i / n), i, 0, n)
B = Sequence((i / n, (i + 1) / n), i, 0, n - 1)
a = Sequence(Segment[Element[A, i], Element[B, i]], i, 1, n)
b = Sequence(Segment[Element[B, i], Element[A, i + 1]], i, 1, n)
C = (0, 0)
D = (1, 1)
c = Segment(C, D)
T2: "l=" + (2 n) + "x\frac{1}{" + n + "}=2"
E = (1, 0)
d = Segment(C, E)
e = Segment(D, E)
F: (0.5 - 1 / (n + 1), 0.5 + 1 / (n + 1))