C = (11, 1)
D = (15, 5)
u = Vector(C, D)
A = (9, 3)
O = Intersect(xAxis, yAxis)
G = Translate(O, u)
B = (9, 8)
v = Vector(A, B)
F = Translate(O, v)
α = Angle(G, O, F)
w = Vector(O, F)
z = Vector(O, G)
a = 0 (slider from 0 to 4, step 0.01)
aa = If(a  <  1, a, 1)
E: C + (aa * (A - C))
H: E + u
b = Vector(E, H)
c = OrthogonalLine(H, v)
d = Line(A, B)
I = Intersect(c, d)
bb = If(a  <  1, 0, If[a  <  2, a - 1, 1])
J: H + (bb * (I - H))
e = Segment(H, J)
cc = If(a  <  2, 0, If[a  <  3, a - 2, 1])
K = If((v * u) > 0, Rotate[I, ((cc * 90))°, A], Rotate[I, 360° - ((cc * 90))°, A])
f = If((v * u) > 0, CircleArc[A, I, K], CircleArc[A, K, I])
g = Segment(K, A)
h = OrthogonalLine(K, g)
i = OrthogonalLine(B, h)
L = Intersect(h, i)
dd = If(a  <  3, 0, If[a  <  4, a - 3, 1])
M: K + (dd * (L - K))
j = OrthogonalLine(M, h)
N = Intersect(j, d)
P, k, m, n, a_1 = Polygon(K, M, N, A)
T2: "|u|·|v|· cos α = " + (Length[u]) + " · " + (Length[v]) + " · " + (cos(α)) + " = " + ((v * u)) + ""
T3: "u_{1}·v_{1}+u_{2}·v_{2} = " + (x(G)) + " · " + (x(F)) + " + " + (y(G)) + " · " + (y(F)) + "  = " + ((v * u)) + ""
T1: "u·v = " + ((v * u)) + ""