(klikni na gumb pokreni)

Podjela \;\;dužine\;\;  
                             \overline{ AB } 

rujan 2006. Niko Grgić

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

AB = 20 (slider from 0 to 20, step 0.1)
A = (-6.2, 6.466666666666667)
B = Point(Circle[A, AB])
b_1 = Segment(A, B)
a = 3 (slider from 1 to 5, step 1)
b = 5 (slider from 1 to 5, step 1)
dijelova: a + b
T1: "u\;\; omjeru" + "\; \frac{" + a + " }{" + (dijelova - a) + " }"
kut = 0.22689280275926285 rad (slider from 0 to 0.5235987755982988, step 0.017453292519943295)
C = Rotate(B, -kut, A)
β = Angle(C, A, B)
pomoćnipolupravac = 25 (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)
t = Circle(A, a AB / dijelova)
L = Intersect(t, b_1)
c_1 = Circle(A, 9 pomoćnipolupravac / dijelova)
K = Intersect(s, f, 1)
c = Circle(A, 8 pomoćnipolupravac / dijelova)
d_1 = Circle(A, 10 pomoćnipolupravac / dijelova)
P = Intersect(c, d, 1)
Q = Intersect(c_1, d, 1)
R = Intersect(d_1, d)
a_1 = Segment(D, B)
i = Line(L, a_1)
M = Intersect(f, i)
j = Line(M, a_1)
N = Intersect(b_1, j)
l = Segment(M, N)
O = Intersect(l, b_1)