Date: 6 Junio 2013

Longitud AB

Longitud AB/radio

radio

Perímetro de una circunferencia

Ponga el cursor en el punto y  mueva para desplegar la circunferencia en 
el segmento AB

Ponga el cursor en el punto y deslice si desea cambiar el radio
de la circunferencia

Observando la tabla, ¿Qué conjetura puede hacer?

radio = 40 (slider from 1 to 40, step 0.1)
n = 5 (slider from 1 to 20, step 1)
B = (32.78694750471414, -13.0349812715074)
c = Circle(B, 2 * π * radio)
A = Point(c)
s_{AB} = Segment(A, B)
M = Point(s_{AB})
b = OrthogonalLine(M, s_{AB})
e = Circle(M, radio)
O = Intersect(e, b, 2)
f = Circle(O, radio)
points = Sequence(Rotate[M, k * 360 * ° / n, O], k, 0, n)
points' = Sequence(Rotate[Element[points, k], (-360)° * Distance[A, M] / (2 * π * radio), O], k, 0, n)
s_{AM} = Segment(A, M)
N' = Rotate(M, -Distance[A, M] * 360 * ° / (2 * π * radio), O)
h = CircleArc(O, M, N')
secteurs = Sequence(CircleSector[O, Element[points', k], Element[points', k + 1]], k, 0, n)
d = Distance(A, B)
A2 = 31
A3 = 31.4
A4 = 32.2
A5 = 33.8
A6 = 34.1
A7 = 34.9
A8 = 37.3
A9 = 37.7
A10 = 38.8
A11 = 40
B2: 2 * π * A2
B3: 2 * π * A3
B4: 2 * π * A4
B5: 2 * π * A5
B6: 2 * π * A6
B7: 2 * π * A7
B8: 2 * π * A8
B9: 2 * π * A9
B10: 2 * π * A10
B11: 2 * π * A11
C2: B2 / A2
C3: B3 / A3
C4: B4 / A4
C5: B5 / A5
C6: B6 / A6
C7: B7 / A7
C8: B8 / A8
C9: B9 / A9
C10: B10 / A10
C11: B11 / A11