näytä suora

\scalebox{5} {%n}

näytä vektorit

p = (-1, 3)
q = (2, 1)
t = 0.5 (slider from -5 to 5, step 0.1)
A: (1 - t) * p + t * q
loc1 = Locus(A, t)
a = false
u = Vector(p, q)
B = (8, 3)
B' = Translate(B, u)
v = Vector(B, B')
b = OrthogonalLine(p, u)
c = Circle(p, q)
C = Intersect(c, b, 2)
w = Vector(p, C)
B'_1 = Translate(B, w)
z = Vector(B, B'_1)
d = true