(klikni na gumb pokreni)

Podjela\:\: dužine\;\;\overline{ AB } \;\;  na\;\;  jednake\;\; dijelove 

Rujan 2006. Niko Grgić

Pomiči klizače i promatraj promjene na slici.

AB = 17.2 (slider from 0 to 20, step 0.1)
A = (-6.2, 6.466666666666667)
B = Point(Circle[A, AB])
b = Segment(A, B)
dijelova = 7 (slider from 1 to 7, step 1)
kut = 0.20943951023931956 rad (slider from 0 to 0.5235987755982988, step 0.017453292519943295)
C = Rotate(B, -kut, A)
β = Angle(C, A, B)
pomoćnipolupravac = 15 (slider from 1 to 25, step 1)
d = Ray(A, C)
e = Circle(A, pomoćnipolupravac)
D = Intersect(e, d, 1)
f = Segment(A, D)
g = Circle(A, pomoćnipolupravac / dijelova)
E = Intersect(g, f, 1)
h = Circle(A, 2 pomoćnipolupravac / dijelova)
F = Intersect(h, f)
k = Circle(A, 3 pomoćnipolupravac / dijelova)
G = Intersect(k, f, 1)
p = Circle(A, 4 pomoćnipolupravac / dijelova)
H = Intersect(p, f, 1)
q = Circle(A, 5 pomoćnipolupravac / dijelova)
I = Intersect(q, f, 1)
r = Circle(A, 6 pomoćnipolupravac / dijelova)
J = Intersect(r, f, 1)
s = Circle(A, 7 pomoćnipolupravac / dijelova)
K = Intersect(s, f, 1)
i = Line(D, B)
j = Line(J, i)
L = Intersect(b, j)
l = Line(L, i)
m = Line(I, i)
M = Intersect(b, m)
n = Line(H, i)
N = Intersect(b, n)
a_1 = Line(G, i)
O = Intersect(b, a_1)
b_1 = Line(F, i)
P = Intersect(b, b_1)
c_1 = Line(E, i)
Q = Intersect(b, c_1)