Prozent-Dezimalbruch-Bruch
Author: Mag.G.Wengler

P

rozent

ezimalbruch

D

B

ruch

n = 14 (slider from 1 to 20, step 1)
bdp = Sequence(Sequence[Polygon[(j * 10 / (i + 1), i), ((j + 1) * 10 / (i + 1), i), ((j + 1) * 10 / (i + 1), i + 1), (j * 10 / (i + 1), i + 1)], j, 0, i], i, 0, n - 1)
Zahlen = Sequence(Sequence[Text["1/" + (i + 1), ((j * 10 / (i + 1), i) + ((j + 1) * 10 / (i + 1), i + 0.5)) / 2], j, 0, i], i, 0, n - 1)
m: 20 - n
p = Sequence(Text[j * 5 + "%", (j / 2 - 0.1, 23.5 - m)], j, 0, 20)
Leiste = Sequence(Polygon[(j / 2, 22 - m), ((j + 1) / 2, 22 - m), ((j + 1) / 2, 23 - m), (j / 2, 23 - m)], j, 0, 19)
d = Sequence(Text[j / 20, (j / 2 - 0.1, 21.3 - m)], j, 0, 20)