Obraz štvorca v osovej afinite

\text{Postup 

1.\text{ OA je určená }o=PC, s=DQ

2.  \; D→Q=D_1; C=C_1

3. \;  A→A_1∈AA_0

4.  \; B→B_1

2

5.  \; \text{Robnobežník }A_1B_1C_1D_1

A = (-1.5, -1.5)
B = (1.5, -1.5)
C = (1.5, 1.5)
D = (-1.5, 1.5)
j = Segment(B, A)
h = Segment(C, B)
g = Segment(D, C)
k = 3 (slider from 1 to 6, step 1)
text1: "\text{Zostrojte obraz  štvorca } ABCD \;  v \;  OA:  o = CP,  s =DQ ,\text{ kde} (ABQ)=-" + (LaTeX[k]) + ",(DAP)=-" + (LaTeX[k]) + ""
i = Segment(D, A)
c = Circle(A, (k / (k + 1) * Distance[A, B]))
d = Circle(D, (k / (k + 1) * Distance[D, A]))
Q = Intersect(c, j, 1)
P = Intersect(d, i, 1)
F: P
G: Q
f = Line(F, C)
u = Vector(D, G)
C_1: C
D_1: G
l = Line(G, F)
m = Line(A, u)
A_0 = Intersect(f, m)
A_1 = Intersect(l, m)
k_{1} = Line(B, A)
E = Intersect(f, k_{1})
n = Line(E, A_1)
p = Line(B, u)
B_1 = Intersect(n, p)
q1, a_1, b_1, c_1, d_1 = Polygon(A_1, B_1, C_1, D_1)