Area of Circle

Sectors of circle

Sectors in the form of parallelogram

Circle

Length = 3.14 * r

Breadth = r

Length and Breadth

Calculations

Author - Prateek Malik 
Copyright - CC by SA

Radius

Radius = 3 (slider from 1 to 8, step 1)
N = 80 (slider from 0 to 100, step 1)
A = (24.956084140293694, -5.2374728031153435)
c = Circle(A, Radius)
B = Point(c)
D = Rotate(B, (360°) / N, A)
f = Segment(B, D)
C = Midpoint(f)
g = Segment(A, C)
List1 = Sequence(Rotate[B, (j * (360°) / N), A], j, 0, N)
List2 = Sequence(CircleSector[A, Element[List1, j], Element[List1, j + 1]], j, 1, N, 2)
List3 = Sequence(CircleSector[A, Element[List1, j], Element[List1, j + 1]], j, 2, N, 2)
List4 = Sequence(CircleSector[((j * f), 0), ((j * f) + f / 2, g), ((j * f) + ((-f)) / 2, g)], j, 0, N / 2 - 1)
List5 = Sequence(CircleSector[((j * f) + f / 2, g), ((j * f) + 0, 0), ((j * f) + f, 0)], j, 0, N / 2 - 1)
b = true
d = true
E = (-0.08, -0.4)
H = (-0.44, 0.18)
j = Product({Radius, Radius, π})
text2: "Area of circle = length x breadth of rectangle
                         = π x r x r
                          = π x " + Radius + " x " + Radius + " =" + j + ""
l = true
F = Point(Circle[E, (3.14 * Radius)])
m = Segment(E, F)
G = Point(Circle[H, Radius])
h = Segment(H, G)
a = true
e = true
InputBox1 = Textfield(Radius)
text3: "Length of the rectangle =  π x r = " + Radius + " π
Breadth of the rectangle = r = " + Radius + ""