C_0 = (0, 0)
P_0 = (20, 0)
t = 0.35 (slider from 0 to 5, step 0.01)
v_c = 10 (slider from 0 to 20, step 1)
C: (v_c * t, 0)
P: (20 + 2 * t, 0)
b = Segment(P_0, P)
c = Segment(C_0, C)
A1 = 6
distanceCP = Distance(C, P)
TexteCP: Name[C] + (Name[P]) + " \, = \, " + distanceCP
B1 = 5
A2 = 7
A3 = 8
A4 = 9
A5 = 10
A6 = 11
A7 = 12
A8 = 13
A9 = 14
A10 = 15
A11 = 16
A12 = 17
A13 = 18
A14 = 19
A15 = 20
A16 = 21
A17 = 22
A18 = 23
A19 = 24
A20 = 25
B2 = 4
B3 = 3.36
B4 = 2.85
B5 = 2.49
B6 = 2.21
B7 = 2
B8 = 1.81
B9 = 1.66
B10 = 1.54
B11 = 1.43
B12 = 1.34
B13 = 1.25
B14 = 1.18
B15 = 1.11
B16 = 1.05
B17 = 1
B18 = 0.95
B19 = 0.91
B20 = 0.87