Coordenadas nunha
base ortonormal

$ \vec i $

$ \vec j $

$ \vec k $

$ \vec u $

γ = 1.5 (slider from -5 to 5, step 0.1)
Z = (0, 10)
O = (0, 0)
G = Dilate(Z, γ, O)
Y = (10, 0)
f = Line(O, Y)
β = 2 (slider from -5 to 5, step 0.1)
F = Dilate(Y, β, O)
g = Line(O, Z)
α = 1.5 (slider from -5 to 5, step 0.1)
X = (-3, -5)
E = Dilate(X, α, O)
u_2 = Vector(O, Y)
v = Vector(O, X)
w = Vector(O, Z)
polígono1, c, a, b = Polygon(O, Y, X)
polígono2, d, a_1, c_1 = Polygon(O, X, Z)
polígono3, b_1, a_2, d_1 = Polygon(O, Z, Y)
e = Line(O, X)
i = Line(E, f)
k = Line(F, e)
m = Line(G, e)
H = Intersect(i, k)
n = Line(H, g)
p = Line(O, H)
q = Line(G, p)
I = Intersect(n, q)
u = Vector(O, I)
s = Segment(I, H)
j = Line(F, g)
l = Line(G, f)
J = Intersect(j, l)
f_1 = Segment(I, J)
h = Line(E, g)
K = Intersect(h, m)
L = Intersect(s, f_1)
h_1 = Segment(K, L)
e_1 = Segment(F, J)
g_1 = Segment(G, J)
i_1 = Segment(G, K)
j_1 = Segment(K, E)
r = Segment(E, H)
t = Segment(H, F)
u_1 = Vector(O, E)
v_1 = Vector(O, F)
w_1 = Vector(O, G)
texto5: "$ \vec u=" + (LaTeX[α]) + " ·\vec i+" + (LaTeX[β]) + " ·\vec j+" + (LaTeX[γ]) + " ·\vec k $"