Start animation ved at højreklikke på skyderen k,
og vælg så 'Tænd animation'.
Stop animationen på samme måde.

s_1 = (-1.5533333333333335, 1.2866666666666653)
s_2 = (1.4466666666666668, 0.7666666666666653)
A = Intersect(xAxis, yAxis)
v_1 = (2.3666666666666667, 0.6866666666666653)
F: {{x(s_1), x(s_2)}, {y(s_1), y(s_2)}}
DetF = Determinant(F)
RangF = MatrixRank(F)
k = 0.8 (slider from 0 to 1, step 0.01)
v_2 = (-2.9133333333333336, -0.34)
b = Segment(v_1, v_2)
v = Vector((x(v_1) + k * (x(v_2) - x(v_1)), y(v_1) + k * (y(v_2) - y(v_1))))
fv = ApplyMatrix(F, v)
D = ApplyMatrix(F, v_1)
E = ApplyMatrix(F, v_2)
a = Segment(D, E)