Author: Тодор Миланов

Nowy przykład

0

1

pokaż

ListDen = Sequence(32)
den = RandomElement(ListDen)
num = Random(1, den - 1)
A = (0, 0)
B1 = (23.5, 0)
u = Vector(A, B1)
B = (18, 0)
C = (18, 1)
D = (0, 1)
poly1, a, b, c, d = Polygon(A, B, C, D)
text1: "\frac{" + (LaTeX[num]) + "}{" + (LaTeX[den]) + "}"
O = (5.12, 3.48)
e = Circle(O, 2)
E = (11, 1.5)
F = (17, 1.5)
G = (17, 5.5)
H = (11, 5.5)
poly2, e_1, f, g, h = Polygon(E, F, G, H)
listRect2 = Sequence((11 + j * 6 / den, 5.5), j, 1, den - 1)
listRect1 = Sequence((11 + i * 6 / den, 1.5), i, 1, den - 1)
listRect3 = Sequence(Segment[Element[listRect1, k], Element[listRect2, k]], k, 1, den - 1)
deci: num / den
rectratio: 6 / den
poly7, s, t, a_1, b_1 = Polygon((11, 1.5), (11 + rectratio * num, 1.5), (11 + rectratio * num, 5.5), (11, 5.5))
rectratio1: 18 / den
listRect11 = Sequence((l * rectratio1, 0), l, 1, den - 1)
listRect22 = Sequence((m * rectratio1, 1), m, 1, den - 1)
listRect33 = Sequence(Segment[Element[listRect11, n], Element[listRect22, n]], n, 1, den - 1)
poly8, c_1, d_1, f_1, g_1 = Polygon((0, 0), (rectratio1 * num, 0), (rectratio1 * num, 1), (0, 1))
R = Point(e)
listCircle1 = Sequence(Segment[O, Rotate[R, p * 360 * ° / den, O]], p, 0, den - 1)
R' = Rotate(R, num * 360 * ° / den, O)
h_1 = CircleSector(O, R, R')
i = false