p = 3 (slider from 1 to 30, step 1)
q = 5 (slider from 1 to 15, step 1)
n = 2 (slider from 1 to 15, step 1)
I1 = NaN
C: (1, 1)
B: (1, 0)
D: (0, 1)
f = Segment(D, C)
g = Segment(C, B)
A = Intersect(xAxis, yAxis)
h = Segment(B, A)
i = Segment(A, D)
E = Intersect(yAxis, i)
q1, j, k, l, m, r = Polygon((0, 0), B, (1, (n * 1 / q)), (0, (n * 1 / q)), A)
F = (1.1332275421208604, 1.0793487858989743)
G = (1.9843234567420047, 1.0856376719676035)
H = (1.961264207823698, -0.050554411098060664)
I = (1.1122645885587632, -0.05265070645427038)
q2, f_1, g_1, h_1, i_1 = Polygon(F, G, H, I)
text1: "\text{Koľko }\frac{1}{" + (LaTeX[p]) + " } \text{ treba pridať k  } \frac{" + (LaTeX[n]) + "}{" + (LaTeX[q]) + "}\text{ , aby sme dostali }\frac{1}{1} \; ?"