B

B'

C

A

Kuva ringi pindala

A = (9.423697990411252, 10.393047690554427)
r = 5 (slider from 1 to 5, step 1)
πr: (r * π)
hulknurk1, f, g, h, i = Polygon((0, 0), (πr, 0), (πr, r), (0, r))
c = Circle(A, r)
n = 8 (slider from 4 to 40, step 2)
B = Point(c)
B' = Rotate(B, (360°) / n, A)
dx = Segment(B, B')
C = Midpoint(B, B')
dy = Segment(A, C)
l1 = Sequence(Rotate[B, (j * (360°) / n), A], j, 0, n)
l2 = Sequence(CircleSector[A, Element[l1, j], Element[l1, j + 1]], j, 1, n, 2)
l3 = Sequence(CircleSector[A, Element[l1, j], Element[l1, j + 1]], j, 2, n, 2)
l4 = Sequence(CircleSector[((j * dx) + dx / 2, dy), ((j * dx) + 0, 0), ((j * dx) + dx, 0)], j, 0, n / 2 - 1)
l5 = Sequence(CircleSector[((j * dx), 0), ((j * dx) + dx / 2, dy), ((j * dx) + ((-dx)) / 2, dy)], j, 1, n / 2 - 1)
d = CircleSector((0, 0), (dx / 2, dy), (0, dy))
e = CircleSector(((n / 2 * dx) + 0, 0), ((n / 2 * dx), r), ((n / 2 * dx) - dx / 2, dy))
D: (0, 0)
D': (dx, 0)
k = Segment(D, D')
E = Midpoint(D, D')
A': (dx / 2, dy)
l = Segment(A', E)
b = Area(c)
Punktc = PointIn(c)
Punkthulknurk1 = PointIn(hulknurk1)
a = false
Teksthulknurk1: "" + (Name[hulknurk1]) + " pindala = " + hulknurk1 + ""
Tekstc: "" + (Name[c]) + " pindala = " + b + ""