Odejmowanie ułamków zwykłych o jednakowych mianownikach
Author: Hanna G.
Date: 24 kwietnia 2012

Ułamki zwykłe

licznik

pokoloruj części

licznik

mianownik

licznik_1 = 4 (slider from 0 to mianownik, step 1)
licznik = NaN (slider from 0 to 0, step 0)
mianownik = 6 (slider from 2 to 12, step 1)
a = 0 (slider from 0 to 1, step 0.01)
l_3: licznik_1
A_1 = (0, 0)
B_1 = (8, 0)
C_1 = (8, 8)
D_1 = (0, 8)
a_1 = Segment(A_1, B_1)
a_2 = Segment(B_1, C_1)
a_3 = Segment(C_1, D_1)
a_4 = Segment(D_1, A_1)
lista01 = Sequence(A_1 + t * (B_1 - A_1), t, 0, 1, 1 / mianownik)
lista02 = Sequence(D_1 + t * (C_1 - D_1), t, 0, 1, 1 / mianownik)
lista03 = Sequence(Segment[Element[lista01, t], Element[lista02, t]], t, 2, mianownik)
A_2 = Element(lista01, licznik_1 + 1)
D_2 = Element(lista02, licznik_1 + 1)
A_3 = Element(lista01, licznik_1 - licznik + 1)
D_3 = Element(lista02, licznik_1 - licznik + 1)
A_4 = Point(Segment[A_2, A_3], a - 1)
A_5 = Point(Segment[A_1, A_2], a)
D_4 = Point(Segment[D_2, D_3], a - 1)
D_5 = Point(Segment[D_1, D_2], a)
wielokąt1, b_1, b_2, b_3, b_4 = Polygon(A_1, A_5, D_5, D_1)
wielokąt3, d_1, d_2, d_3, d_4 = Polygon(A_1, A_4, D_4, D_1)
A' = (21, 4)
B' = (25, 4)
o_1 = Circle(A', B')
lista01' = Sequence(Rotate[B', t°, A'], t, 360 / mianownik, 360, 359.9 / mianownik)
lista02' = Sequence(Segment[A', Element[lista01', t]], t, 1, 360)
ł_1 = Arc(o_1, B', Element[lista01', licznik_1])
A'' = Point(ł_1, a)
w = CircleSector(A', B', A'')
ł_2 = Arc(o_1, B', Element[lista01', licznik])
A''' = Point(ł_2, a - 1)
w_2 = CircleSector(A', A''', A'')
tekst2: "\frac{\textcolor{blue}{" + (LaTeX[licznik_1]) + " }}\textcolor{red}{" + (LaTeX[mianownik]) + " }}\"