Direkte Proportion
Author: Mag.G.Wengler

Stelle den Stückpreis mit Hilfe des Schiebereglers ein. Erstelle nun eine Wertetabelle.
Mit der Ablesehilfe kannst du die Werte für Stückzahlen von 0 bis 10 ablesen. 
Zur Kontrolle steht auch die fertige Tabelle zur Verfügung.

Stückpreis = %v €

Tabelle

Stück

\rotatebox{90}{Preis[€]}

Bewege mich

%y

Ablesehilfe

Direkte Proportionalität

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
p = 3 (slider from 0 to 5, step 0.5)
f = Function(p * x, 0, 10)
B1: p * A1
B2: p * A2
B3: p * A3
B4: p * A4
B5: p * A5
B6: p * A6
B7: p * A7
B8: p * A8
B9: p * A9
B10: p * 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)
Liste1: {A, B, C, D, E, F, G, H, I, J}
a = false
K = Intersect(f, xAxis, 1)
L = Point(xAxis)
b = Segment(K, L)
M = Point(b)
c = OrthogonalLine(M, b)
N = Intersect(f, c)
d = Line(N, xAxis)
O = Intersect(d, yAxis)
Liste3: {Segment[M, N], Segment[N, O]}
e = false
Text5: "Quotient =\frac{ " + (LaTeX[y(O)]) + "}{" + (LaTeX[x(M)]) + " } = " + (LaTeX[p]) + ""
Liste2 = Sequence(Segment[(0.1, i), (-0.1, i)], i, 0, 50, 5)
Text1 = TableText({{"Stück", "Preis[€]"}, {A1, B1}, {A2, B2}, {A3, B3}, {A4, B4}, {A5, B5}, {A6, B6}, {A7, B7}, {A8, B8}, {A9, B9}, {A10, B10}}, "|_")