y = 1 / (2p1) x²

y = 1 / (2p2) x²

f: y = 0
p1 = 0.8 (slider from 0.1 to 5, step 0.1)
g: y = (1 / ((2 * p1)) * x^(2))
p2 = 2.2 (slider from 0.1 to 5, step 0.1)
c: y = (1 / ((2 * p2)) * x^(2))
m = 1.5 (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
ss: x(C) / x(A)
B1: (x(B), 0)
j = Segment(B, B1)
szöveg2: "\frac{x_C}{x_A}=" + (LaTeX[ss]) + ""
p = Segment((0, (-0.04 * p1)), (x(C), (-0.04 * p1)))
sss: p2 / p1
F_1: (0, p1 / 2)
F_2: (0, p2 / 2)
k: y = ((-p1)) / 2
q: y = ((-p2)) / 2
l = Segment((0, (0.04 * p1)), (x(A), (0.04 * p1)))
szöveg3: " \frac{p_2}{p_1}=" + (LaTeX[sss]) + ""
szöveg1: "\frac{y_C}{y_A}=" + (LaTeX[s]) + ""