Kommazahl auf vergrößertem Ausschnitt einstellen
Author: Mag.G.Wengler

Es ist eine Kommazahl auf drei Nachkommastellen angegeben.
Stelle in dem vergrößerten Ausschnitt des Zahlenstrahls den vorgegebenen Wert ein.
Bewege dazu den roten Skalenstrich!

NEU

Stelle folgenden Wert mit dem roten Skalenstrich S ein:

Hilfe

Bewege mich

Zahlenstrahl

vergrößerter Ausschnitt

A = (0, 6)
a = OrthogonalLine(A, yAxis)
B = (10, 6)
b = Segment(A, B)
c = OrthogonalLine(A, b)
C = (0, 3)
d = OrthogonalLine(C, c)
e = OrthogonalLine(B, d)
D = Intersect(d, e)
f = Segment(C, D)
s_{10} = Sequence(Segment[(x(A) + k * b / 10, y(A) - 0.15), (x(A) + k * b / 10, y(A) + 0.15)], k, 0, 10)
s_{2} = Sequence(Segment[(x(A) + k * b / 2, y(A) - 0.2), (x(A) + k * b / 2, y(A) + 0.2)], k, 0, 2)
t_{2} = Sequence(Segment[(x(C) + k * f / 2, y(C) - 0.2), (x(C) + k * f / 2, y(C) + 0.2)], k, 0, 2)
s_1: Random[0, 99] / 10
s_l = Random(0, 8)
s_2: s_1 + 1 / 10
s_r: s_l + 1
s_{100} = Sequence(Segment[(x(A) + k * b / 100, y(A) - 0.05), (x(A) + k * b / 100, y(A) + 0.05)], k, -20, 120)
s_{20} = Sequence(Segment[(x(A) + k * b / 20, y(A) - 0.1), (x(A) + k * b / 20, y(A) + 0.1)], k, -2, 22)
t_{100} = Sequence(Segment[(x(C) + k * f / 100, y(C) - 0.05), (x(C) + k * f / 100, y(C) + 0.05)], k, -20, 120)
t_{20} = Sequence(Segment[(x(C) + k * f / 20, y(C) - 0.1), (x(C) + k * f / 20, y(C) + 0.1)], k, -2, 22)
S_l: A + (s_l * b / 10, 0)
S_r: A + (s_r * b / 10, 0)
links = Segment(S_l, C)
rechts = Segment(S_r, D)
sz_r: s_1 + s_r / 100
t = Random(1, 9)
S = Point(f)
tl = Segment(S + (0, -0.5), S + (0, 0.5))
sl_l = Segment(S_l + (0, -0.25), S_l + (0, 0.25))
sl_r = Segment(S_r + (0, -0.25), S_r + (0, 0.25))
Text1: "" + s_1 + ""
Text2: "" + s_2 + ""
sz_l: s_1 + s_l / 100
Text3: "" + sz_l + ""
Text4: "" + sz_r + ""
t_{10} = Sequence(Segment[(x(C) + k * f / 10, y(C) - 0.15), (x(C) + k * f / 10, y(C) + 0.15)], k, 0, 10)
Skala = Sequence(Text[s_1 + k * 0.01, A + (k * b / 10 - 0.2, -0.5)], k, 1, 9)
wert = 0
tz: sz_l + t / 1000
Text7: "" + tz + ""
h = Segment(S_l + t * (S_r - S_l) / 10, S)
g = false
Text6: "" + tz + ""
s: Distance[C, S] / f
P: S_l + s * (S_r - S_l)
i = Segment(P, S)
T: C + (t * f / 10, 0)
richtig: Distance[S, T] < 0.02