f: y = 0
p1 = 0.5 (slider from -5 to 5, step 0.1)
g: y - p1 / 2 = ((1 / 2 * p1) * x^(2))
p2 = 0.4 (slider from -5 to 5, step 0.1)
c: y - p2 / 2 = ((1 / 2 * p2) * x^(2))
m = 1.3 (slider from -5 to 5, step 0.1)
n: y = (m * x)
A, B = Intersect(g, n)
C, D = Intersect(c, n)
C1: (x(C), 0)
A1: (x(A), 0)
h = Segment(A, A1)
i = Segment(C, C1)
s: i / h
szöveg1: "\frac{i}{h}=" + (LaTeX[s]) + ""
ss: x(C) / x(A)
szöveg2: "\frac{x_A}{x_B}=" + (LaTeX[ss]) + ""
D1: (x(D), 0)
B1: (x(B), 0)
j = Segment(B, B1)
k = Segment(D, D1)
sss: j / k
szöveg3: "\frac{j}{k}=" + (LaTeX[sss]) + ""
ssss: x(B) / x(D)
szöveg4: "\frac{x_B}{x_D}=" + (LaTeX[ssss]) + ""