Author: Pavol Hanzel

hodín

minút

sekúnd

Stred: (0, 0)
V: Stred + (0, 3.2)
B: Stred + (0, 2.7)
A: Stred + (0, 3)
cm = Circle(Stred, A)
c = Circle(Stred, V)
ch = Circle(Stred, B)
Zoznam = Sequence(Rotate[A, (6° * i), Stred], i, 1, 59)
J = Intersect(cm, yAxis, 2)
K = Intersect(cm, yAxis, 1)
L = Intersect(cm, xAxis, 1)
M = Intersect(cm, xAxis, 2)
N = Point(cm)
O = Point(cm)
P = Point(cm)
Q = Point(cm)
R = Point(cm)
S = Point(cm)
T = Point(cm)
Hod = 10 (slider from 0 to 12, step 1)
Min = 10 (slider from 0 to 60, step 1)
Sek = 0 (slider from 0 to 60, step 1)
Cas: (Hod * 3600) + (Min * 60) + Sek
SekU: (Sek * 6°)
SEK = Rotate(A, (-SekU), Stred)
u = Vector(Stred, SEK)
α = Angle(SEK, Stred, A)
MinU: ((Min * 6) + Sek / 10)°
MIN = Rotate(A, (-MinU), Stred)
HodU: ((Hod * 30) + Min / 2 + Sek / 20)°
HOD = Rotate(B, (-HodU), Stred)
β = Angle(HOD, Stred, MIN)
text1: "Hodinové ručičky zvierajú " + β + " uhol"
text2: "" + α + "," + MinU + "," + HodU + ""
E = Point(xAxis)
f = Circle(Stred, E)
t, tt = Tangent(HOD, f)
F = Intersect(f, tt)
G = Intersect(f, t)
t1, f_1, hod, g_1 = Polygon(HOD, G, F)
t', t't = Tangent(MIN, f)
H = Intersect(f, t')
I = Intersect(f, t't)
p = CircleSector(Stred, H, I)
t2, i_1, min, h_1 = Polygon(MIN, H, I)
k = Segment(K, J)
l = Segment(L, M)