Stoppuhr
Author: Mag.G.Wengler
Date: 8 settembre 2011

Du kannst die Uhr starten und stoppen und Folgendes üben:
a) Uhrzeit ablesen
b) Winkelart zwischen den Zeigern ablesen

12

3

6

9

1

2

4

5

7

8

10

11

lauf

halt

Aktuelle Zeit:

00:00:00

normal

schnell

Lösung

in = 3.8
A = (0, 0)
hh = 0 (slider from 0 to 12, step 2.7778E-4)
mm = 0 (slider from 0 to 60, step 0.016666666)
ss = 0 (slider from 0 to 60, step 1)
Sekunden: (ss * 6)°
B: A + (0, in + 0.25)
B' = Rotate(B, -Sekunden, A)
sekzeiger = Vector(A, B')
C: A + (0, 3)
Minuten: (mm * 6)°
C' = Rotate(C, -Minuten, A)
minzeiger = Vector(A, C')
D = (3, 5.25)
E = (3.0159726366798014, 7.047157690185763)
Stunden: (hh * 30)°
F: A + (0, 2)
F' = Rotate(F, -Stunden, A)
stdzeiger = Vector(A, F')
G = (0.28868106305405633, 6.572846112163894)
c = Circle(A, in)
L_i = Sequence(Segment[A + ((in + 0.1) * cos(w°), (in + 0.1) * sin(w°)), A + ((in - 0.1) * cos(w°), (in - 0.1) * sin(w°))], w, 0, 360, 30)
r_a = 6.2
e = Circle(A, r_a)
r_i = 6.05
d = Circle(A, r_i)
St_0 = Sequence(Segment[A + (r_i * cos(w°), r_i * sin(w°)), A + ((r_i - 0.4) * cos(w°), (r_i - 0.4) * sin(w°))], w, 0, 360, 30)
St_1 = Sequence(Segment[A + (r_i * cos(w°), r_i * sin(w°)), A + ((r_i - 0.15) * cos(w°), (r_i - 0.15) * sin(w°))], w, 0, 359)
St_2 = Sequence(Segment[A + (r_i * cos(w°), r_i * sin(w°)), A + ((r_i - 0.25) * cos(w°), (r_i - 0.25) * sin(w°))], w, 0, 360, 6)
f = Circle(A, r_a + 0.2)
Text3: "" + (LaTeX[floor(Stunden / 30 / °)]) + " : " + (LaTeX[floor(Minuten / 6 / °)]) + " : " + (LaTeX[ss]) + " \;Uhr"
α = Angle(sekzeiger, minzeiger)
β = Angle(minzeiger, stdzeiger)
t = 1 (slider from 1 to 50, step 0.1)
a = false