 \vec{ α } 

Σύρετε \;  το \;  δρομέα  \; για  \; να  \; εμφανιστεί  \; ένα \;  διάνυσμα  \; της  \; μορφής  \; λ\vec{α}\ Πότε \;  το \;διάνυσμα λ\vec{α} \; είναι \;  ομόρροπο \;  του  \; \vec{α} \;  και \;  πότε  \; αντίρροπο;\
Τι  \; σχέση  \; έχουν  \; τα  \; μέτρα  \; των \;  διανυσμάτων; 

Α = (-2.26, 4.8)
Β = (-1.12, 5.26)
α = Vector(Α, Β)
C = Midpoint(Α, Β)
λ = 0 (slider from -7 to 7, step 0.2)
u_1: (λ * α)
A = (-2.26, 3.3)
A'_1 = Translate(A, u_1)
v_1 = Vector(A, A'_1)
A_1 = Translate(A, α)
w = Vector(A, A_1)
A_2 = Translate(A_1, α)
z = Vector(A_1, A_2)
A_3 = Translate(A_2, α)
a = Vector(A_2, A_3)
A_4 = Translate(A_3, α)
b = Vector(A_3, A_4)
A_5 = Translate(A_4, α)
c = Vector(A_4, A_5)
A_6 = Translate(A_5, α)
d = Vector(A_5, A_6)
A_7 = Translate(A_6, α)
e = Vector(A_6, A_7)
B = If(λ ≥ 1, A_1)
D = If(λ ≥ 2, A_2)
E = If(λ ≥ 3, A_3)
F = If(λ ≥ 4, A_4)
G = If(λ ≥ 5, A_5)
H = If(λ ≥ 6, A_6)
A'_2 = Translate(A, u_1)
f = Vector(A, A'_2)
v = If(λ < 0, f)
u = If(λ > 0, v_1)
h: (-α)
B_1 = Translate(A, h)
i = Vector(A, B_1)
Β_2 = Translate(B_1, i)
j = Vector(B_1, Β_2)
B_3 = Translate(Β_2, j)
k = Vector(Β_2, B_3)
B_4 = Translate(B_3, k)
l = Vector(B_3, B_4)
B_5 = Translate(B_4, h)
m = Vector(B_4, B_5)
B_6 = Translate(B_5, h)
n = Vector(B_5, B_6)
B_7 = Translate(B_6, n)
p = Vector(B_6, B_7)
I = If(λ ≤ -1, B_1)
J = If(λ ≤ -2, Β_2)
K = If(λ ≤ -3, B_3)
L = If(λ ≤ -4, B_4)
M = If(λ ≤ -5, B_5)
N = If(λ ≤ -6, B_6)
κείμενο2: "\vec{ u }  = " + λ + "  \vec{ α }  "
κείμενο3 = If(λ > 0, κείμενο2)
κείμενο4: " \vec{ v }  = " + λ + "  \vec{ α } "
κείμενο5 = If(λ < 0, κείμενο4)