a

u

\vec{v}

Base canónica

Ver pos. iniciales

Ver coordenadas

\vec{u}

\vec{v}

\vec{a}

Ea = (-3, 0)
Oa = (-4, 3)
des = 0 (slider from 0 to 5, step 0.01)
d1 = Min(1, des)
Oa' = Translate(Oa, Vector[(d1 * Vector[Oa, (0, 0)])])
Ea' = Translate(Ea, Vector[(d1 * Vector[Oa, (0, 0)])])
Eu = (6, -5)
Ou = (2, -3)
Eu' = Translate(Eu, Vector[(d1 * Vector[Ou, (0, 0)])])
Ou' = Translate(Ou, Vector[(d1 * Vector[Ou, (0, 0)])])
Ev = (7, 5)
Ov = (1, 3)
u = Vector(Ou', Eu')
texto6: "d1=" + d1 + ""
Ev' = Translate(Ev, Vector[(d1 * Vector[Ov, (0, 0)])])
Ov' = Translate(Ov, Vector[(d1 * Vector[Ov, (0, 0)])])
a = Vector(Oa', Ea')
v = Vector(Ov', Ev')
d2 = If(des  <  1.2, 0, des  <  2.2, des - 1.2, 1)
texto7: "d2=" + d2
texto8: "des=" + des
f = Segment(((((-20)) / Length[v] * d2) * Ev'), ((20 / Length[v] * d2) * Ev'))
e = Segment((((-5) * d2) * Eu'), ((5 * d2) * Eu'))
g = Line(Ea', f)
h = Line(Ea', e)
A = Intersect(g, e)
B = Intersect(h, f)
d3 = If(des  <  2.3, 0, des  <  3.3, des - 2.3, 1)
texto9: "d3=" + d3
i_1 = Segment(Ea', (d3 * A) + ((1 - d3) * Ea'))
j_1 = Segment(Ea', (d3 * B) + ((1 - d3) * Ea'))
d4 = If(des  <  3.4, 0, des  <  4.4, des - 3.4, 1)
texto10: "d4=" + d4 + ""
c1 = Vector(Oa', (d4 * A) + ((1 - d4) * Oa'))
c2 = Vector(Oa', (d4 * B) + ((1 - d4) * Oa'))
i = Vector((0, 0), (1, 0))
j = Vector((0, 0), (0, 1))
b = false
c = false
a0 = Vector(Oa, Ea)
v0 = Vector(Ov, Ev)
u0 = Vector(Ou, Eu)
v1: x(v)
v2: y(v)
u1: x(u)
u2: y(u)
a1: x(a)
a2: y(a)
texto1: "\vec{v}=(" + (LaTeX[v1]) + "," + (LaTeX[v2]) + ")"
texto2: "\vec{u}=(" + (LaTeX[u1]) + "," + (LaTeX[u2]) + ")"
texto3: "\vec{a}=(" + (LaTeX[a1]) + "," + (LaTeX[a2]) + ")"
d = false