Paralelogram

Napraviti Geogebra aplikaciju koja izvršava dole prikazanu funkcionalnost.

\mbox{Povuci zelenu tačku.}

A = (-1.8583333333333343, 1.2583333333333329)
B = (7.808333333333332, 2.341666666666666)
a = Segment(A, B)
C = (0.30833333333333235, 5.549999999999999)
b = Segment(A, C)
c = Line(C, a)
d = Line(B, b)
D = Intersect(d, c)
P, a_1, c_1, d_1, b_1 = Polygon(A, C, D, B)
e = OrthogonalLine(C, a)
E = Intersect(e, b_1)
Q, a_2, c_2, e_1 = Polygon(C, E, A)
f = 0.001 (slider from 0.001 to 4.999, step 0.1)
g: a * f / 5.0
h = Circle(A, g)
F, G = Intersect(h, b_1)
u = Vector(A, F)
C' = Translate(C, u)
E' = Translate(E, u)
A' = Translate(A, u)
Q', a', c', e' = Polygon(C', E', A')
R, c_3, e_2, b_2, d_2 = Polygon(C, E, B, D)