Bruch- und Kommazahl
Author: Mag.G.Wengler

Der Anteil an blauen Kästchen kann als Bruch, als Kommazahl und als Proznetzahl angezeigt werden.

Bruch

Kommazahl

Prozent

%

Bruch anzeigen

Kommazahl zeigen

Prozent anzeigen

H1 = Sequence(Sequence[Polygon[(i, j), (i + 1, j), 4], i, 0, 9], j, 0, 9)
Anteil = 87 (slider from 0 to 400, step 1)
H2 = Sequence(Sequence[Polygon[(i + 11, j), (i + 12, j), 4], i, 0, 9], j, 0, 9)
H3 = Sequence(Sequence[Polygon[(i, j + 11), (i + 1, j + 11), 4], i, 0, 9], j, 0, 9)
H4 = Sequence(Sequence[Polygon[(i + 11, j + 11), (i + 12, j + 11), 4], i, 0, 9], j, 0, 9)
H = Join({H1, H2, H3, H4})
V1 = Join(H1)
V2 = Join(H2)
V3 = Join(H3)
V4 = Join(H4)
V = Join({V1, V2, V3, V4})
S = Sequence(Element[V, k], k, 1, Anteil)
ggt = GCD(Anteil, 100)
Text5: "" + (LaTeX[Anteil / 100]) + ""
Text6: " " + (LaTeX[Anteil]) + " "
A = (-0.2298346350410773, -2.635449702715391)
B = (26.331885629063574, -2.635449702715391)
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
C = Point(b)
d = OrthogonalLine(C, b)
D = Point(a)
E = Point(a)
e = OrthogonalLine(D, a)
f = OrthogonalLine(E, a)
g = Segment(A, C)
F = Intersect(c, d)
h = Segment(C, F)
G = Intersect(d, e)
i = Segment(D, G)
I = Intersect(d, f)
j = Segment(E, I)
k = Segment(B, F)
Vieleck1 = Polygon((0, 0), (10, 0), 4)
l = Segment(A, D)
m = Segment(C, G)
n = false
p = Segment(D, E)
q = Segment(G, I)
o = false
r = Segment(E, B)
s = Segment(I, F)
t = false
Text4: "$ \frac{" + (LaTeX[Anteil]) + "}{100} $"
Text8: "$ = \frac{" + (LaTeX[Anteil / ggt]) + " }{" + (LaTeX[100 / ggt]) + " } $"