Ecuación vectorial
da recta

$ \vec i $

$ \vec j $

$ \vec k $

$ \overrightarrow{OA} $

$ \vec u $

x_0

y_0

z_0

a

b

c

$ \vec u $

$ r(A, \vec u ) $

t

X

$ \overrightarrow{OX} $

$ \overrightarrow{AX} $

z_0 = 1.5 (slider from -3 to 3, step 0.1)
Z = (0, 10)
O = (0, 0)
G = Dilate(Z, z_0, O)
Y = (10, 0)
f = Line(O, Y)
y_0 = 0.8 (slider from -3 to 3, step 0.1)
F = Dilate(Y, y_0, O)
g = Line(O, Z)
x_0 = 0.5 (slider from -3 to 3, step 0.1)
X = (-3, -5)
E = Dilate(X, x_0, O)
u_2 = Vector(O, Y)
v = Vector(O, X)
w = Vector(O, Z)
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)
A = Intersect(n, q)
OA = Vector(O, A)
j = Line(F, g)
l = Line(G, f)
J = Intersect(j, l)
h = Line(E, g)
K = Intersect(h, m)
a_4 = 3 (slider from -3 to 3, step 0.1)
b_4 = 1.4 (slider from -3 to 3, step 0.1)
c_4 = 1 (slider from -3 to 3, step 0.1)
E' = Dilate(X, a_4, O)
G' = Dilate(Z, c_4, O)
F' = Dilate(Y, b_4, O)
k_1 = Line(E', f)
l_1 = Line(F', e)
m_1 = Line(E', g)
n_1 = Line(F', g)
p_1 = Line(G', e)
q_1 = Line(G', f)
B_1 = Intersect(m_1, p_1)
C = Intersect(k_1, l_1)
D = Intersect(n_1, q_1)
r_1 = Line(B_1, f)
s_1 = Line(D, e)
B = Intersect(r_1, s_1)
OB = Vector(O, B)
texto5: "$ \overrightarrow{OA}=(" + (LaTeX[x_0]) + "," + (LaTeX[y_0]) + "," + (LaTeX[z_0]) + ")$"
A' = Translate(A, OB)
u = Vector(A, A')
r = Line(A, A')
t = 2 (slider from -5 to 5, step 0.1)
A'' = Dilate(A', t, A)
OX = Vector(O, A'')
z = Vector(A, A'')
d = Segment(B, A')
texto6: "$ \vec u = (" + (LaTeX[a_4]) + "," + (LaTeX[b_4]) + "," + (LaTeX[c_4]) + ") $"
texto7: "$ \overrightarrow{OX}=(" + (LaTeX[x_0 + t * a_4]) + "," + (LaTeX[y_0 + t * b_4]) + "," + (LaTeX[z_0 + t * c_4]) + ") $"
texto12: "$ \overrightarrow{OX} =(" + (LaTeX[x_0]) + "," + (LaTeX[y_0]) + "," + (LaTeX[z_0]) + ")+" + (LaTeX[t]) + "·(" + (LaTeX[a_4]) + "," + (LaTeX[b_4]) + "," + (LaTeX[c_4]) + ") $"
polígono1, o, a_1, a', b_1 = Polygon(O, A, A', B)