Multiplying Fractions
Author: Markus Hohenwarter

=

Megoldás

∙

Mozgasd!

b = 5 (slider from 1 to 10, step 1)
a = 2 (slider from 1 to 10, step 1)
A = (0, 0)
B = (3, 0)
L1 = Sequence(A + t * (B - A), t, 0, 1, 1 / b)
C = (0, 3)
D = (3, 3)
L2 = Sequence(C + t * (D - C), t, 0, 1, 1 / b)
c_1 = Segment(A, B)
d_1 = Segment(C, D)
L5 = Sequence(Segment[Element[L1, k], Element[L2, k]], k, 2, b)
e = Ray(C, D)
H = Point(e)
G: H + D - C
E: H + A - C
F: G + B - D
f = Segment(H, E)
g = Segment(E, F)
h = Segment(F, G)
i = Segment(G, H)
j = Segment(D, B)
k = Segment(C, A)
c = 3 (slider from 1 to 10, step 1)
d = 4 (slider from 1 to 10, step 1)
T1 = Element(L1, a + 1)
T2 = Element(L2, a + 1)
poly1, a_1, t1, t2, c_2 = Polygon(A, T1, T2, C)
L3 = Sequence(E + t * (H - E), t, 0, 1, 1 / d)
L4 = Sequence(F + t * (G - F), t, 0, 1, 1 / d)
L6 = Sequence(Segment[Element[L3, k], Element[L4, k]], k, 2, d)
T3 = Element(L3, c + 1)
T4 = Element(L4, c + 1)
poly2, e_1, f_1, t4, t3 = Polygon(E, F, T4, T3)
T5: " \frac{ " + a + " }{" + b + " } "
T7: " \frac{ " + c + " }{" + d + " } "
T8: "\frac{ " + (a c) + " }{" + (b d) + " }"
l = false