Show radius

Show diameter

Show area of circle

Show circumference

What is the ratio of circumference to diameter

radius = 5.7 (slider from 1 to 10, step 0.1)
A = (6.165874071662088, 1.7438712591180852)
c = Circle(A, radius)
B = Point(c)
B_1: ((9.03984, 2.21796) * B)
C_1 = (17.600386394557837, -1.1184562358276675)
a = Line(A, C_1)
b = Segment(A, B)
C = Point(c)
d = Line(C, A)
D = Intersect(c, d, 2)
e = Segment(C, D)
distanceAB = Distance(A, B)
TextAB: Name[A] + (Name[B]) + " = " + distanceAB
distanceCD = Distance(C, D)
TextCD: Name[C] + (Name[D]) + " = " + distanceCD
circumferencec = Circumference(c)
Textc: "Circumference of " + (Name[c]) + " = " + circumferencec + " units"
Pointc_1 = PointIn(c)
Ratioofpi: circumferencec / distanceCD
text1: "When you divide circumference by diameter what do you get = " + circumferencec + "/" + distanceCD + " = " + Ratioofpi + ""
calculatecircumference: circumferencec
diameter: distanceCD
f = Area(c)
text2: "Area of " + (Name[c]) + " = " + f + " square units"
Pointc = PointIn(c)
text5: "Area of circle = " + text2 + " sq. units"
text3: "Diameter =" + distanceCD + " units"
text4: "Radius = " + distanceAB + " units"
text6: "Circumference = " + Textc + " units"
g = false
h = false
i = false
j = false
k = false
A1 = Name(radius)
C1 = Name(circumferencec)
D1 = Name(Ratioofpi)
B1 = Name(diameter)