Author: Daniel Mentrard

R

La circunferencia del círculo es igual a :  C =  π D

La circunferencia del círculo es igual a :  C = 2 π R

D

Enrollar

Desenrollar

Escoger un radio y luego enrollar
 o desenrollar la circunferencia.

Rayon = 4 (slider from 0 to 6, step 0.5)
A: (0.0, 2.0 * Rayon)
O = (0, 0)
h = LineBisector(A, O)
F = Intersect(yAxis, h)
Diametre = Distance(O, A)
omtrek: 3.14 * 2.0 * Rayon
f: x = omtrek
D = Intersect(f, xAxis)
u = Vector(O, D)
t = 0.0010 (slider from 0.0010 to 1, step 0.01)
k = If(t > 2.5, 0.0, If[t > 1.5, 2.5 - t, If[t > 1.0, 1.0, t]])
B = Point(F, Vector[u * k])
a = Line(A, xAxis)
b = LineBisector(A, O)
c = Line(B, yAxis)
C = Intersect(c, xAxis)
e = Segment(O, C)
E = Rotate(C, 2.0 * 3.141592653589793 * (omtrek - e) / omtrek, B)
α = Angle(C, B, E)
g = CircleArc(B, C, E)
i = Segment(A, O)
d = Circle(B, Rayon)
j = Segment(B, E)
G = Midpoint(j)
H = Rotate(E, 320.0*°, B)
I = Mirror(H, B)
l = Segment(I, H)
J = Midpoint(B, I)
K = (-0.19640340510121257, 1.0190675079995384)
L = (-0.232519218794357, -0.9673022451234059)
M = (-4.096911283960813, -0.895070617737117)
N = (-4.096911283960813, 1.0551833216926827)
poly1, k_1, l_1, m, n = Polygon(K, L, M, N)
P = (-1.0992987474298237, 14.995887407246437)
Q = (-1.0992987474298237, 13.009517654123492)
R = (9.42477796076938, 13)
S = (9.42477796076938, 15)
poly2, p, q, r, s = Polygon(P, Q, R, S)
T5: "El radio R es igual a " + Rayon
T3: "Si el radio R es igual a " + Rayon + " entonces el diámetro  D es igual a " + Diametre