Indirekte Proportionalität
Author: Mag.G.Wengler

Eine Erbschaft soll auf eine bestimmte Zahl von Personen aufgeteilt werden.
Fertige eine Tabelle an, wo du festhälst, wie hoch der Erbanteil pro Person ist,
wenn dieser durch eine bestimmte Anzahl von Leuten zu teilen ist. 
Es steht dir eine Ablesehilfe zur Verfügung. Zur Kontrolle kannst du auch die fertige Tabelle einblenden.

Erbschaft = %v000

Tabelle

Personen

\rotatebox{90}{Anteil [1000 €]}

%y

Ablesehilfe

Indirekte Proportionalität

Bewege mich

A1 = 1
A2: A1 + 1
A3: A2 + 1
A4: A3 + 1
A5: A4 + 1
A6: A5 + 1
A7: A6 + 1
A8: A7 + 1
A9: A8 + 1
A10: A9 + 1
Vorrat = 60 (slider from 6 to 60, step 1)
f = Function(Vorrat / x, 0, 12)
B1: Vorrat / A1
B2: Vorrat / A2
B3: Vorrat / A3
B4: Vorrat / A4
B5: Vorrat / A5
B6: Vorrat / A6
B7: Vorrat / A7
B8: Vorrat / A8
B9: Vorrat / A9
B10: Vorrat / A10
A: (A1, B1)
B: (A2, B2)
C: (A3, B3)
D: (A4, B4)
E: (A5, B5)
F: (A6, B6)
G: (A7, B7)
H: (A8, B8)
I: (A9, B9)
J: (A10, B10)
a = false
K = (1, 0)
L = Point(xAxis)
b = Segment(K, L)
M = Point(b)
c = OrthogonalLine(M, b)
N = Intersect(f, c, (4, 15))
d = Line(N, xAxis)
O = Intersect(d, yAxis)
Liste3: {Segment[M, N], Segment[N, O]}
e = false
Liste2 = Sequence(Segment[(0.1, i), (-0.1, i)], i, 0, 50, 5)
Text5: "Produkt =" + (LaTeX[x(M)]) + " ·  " + (LaTeX[y(O)]) + "= " + (LaTeX[Vorrat]) + ""
A11: A10 + 1
B11: Vorrat / A11
A12: A11 + 1
B12: Vorrat / A12
J_1: (A11, B11)
J_2: (A12, B12)
Liste1: {A, B, C, D, E, F, G, H, I, J, J_1, J_2}
Text1 = TableText({{"Erben", "Anteil[1000 €]"}, {A1, B1}, {A2, B2}, {A3, B3}, {A4, B4}, {A5, B5}, {A6, B6}, {A7, B7}, {A8, B8}, {A9, B9}, {A10, B10}, {A11, B11}, {A12, B12}}, "|_")