\vec s

\vec F

\vec{F}_{\vec s}

\vec{F}_{\bot \vec s}

-\vec{F}_{\vec s}

t = 0 (slider from 0 to 1, step 0.01)
L = (0.99181818181818, 2.0745454545454534)
K = (-1.5, 1.5)
k = Line(K, L)
Q = Point(k)
R = Point(k)
p = Segment(Q, R)
E: ((t * (x(R) - x(Q))) + x(Q), (t * (y(R) - y(Q))) + y(Q))
F = Point(Circle[E, 0.5])
G: E + Vector[E, F] + (2 * OrthogonalVector[Segment[E, F]])
H: E + (2 * Vector[E, F]) + (2 * OrthogonalVector[Segment[E, F]])
I: E + (2 * Vector[E, F]) + (3 * OrthogonalVector[Segment[E, F]])
J: E + (0 * Vector[E, F]) + (3 * OrthogonalVector[Segment[E, F]])
Vieleck1, e, f, g, h, i, j = Polygon(E, F, G, H, I, J)
M = Intersect(xAxis, yAxis)
N = (3.051818181818179, 2.8454545454545443)
u = Vector(M, N)
E' = Translate(E, u)
v = Vector(E, E')
l = OrthogonalLine(E', k)
m = Line(E, l)
n = Line(E', k)
O = Intersect(n, m)
P = Intersect(l, k)
w = Vector(E, P)
a = Vector(E, O)
b = Vector(P, E')
q = Segment(O, E')
r = Segment(Q, E)
α = Angle(E', P, E)
c = Vector(Q, R)
d: (-Vector[E, P])
E'_1 = Translate(E, d)
s = Vector(E, E'_1)
A = (-10.088181818181818, 2.734545454545454)
B = (-8.388181818181819, 2.734545454545454)