rayon

demi périmètre

Modifier

Affichage

Méthode

Couleurs

E = (2.2590828176998006, -0.4690493771342542)
B = (1, 0)
A = (0, 0)
rayon = Segment(A, B)
parts = 6 (slider from 4 to 850, step 2)
L_1 = Sequence(i * 360.0 / parts, i, 1.0, parts)
L = Sequence((cos(Element[L_1, i]°), sin(Element[L_1, i]°)), i, 1.0, Length[L_1], 1.0)
L_3: rayon * L
D = Element(L_3, 2.0)
C = Element(L_3, 1.0)
arc = Segment(D, C)
L_2 = Sequence(Segment[Element[L_3, i], Element[L_3, parts / 2.0 + i]], i, 1.0, parts / 2.0)
c = Circle(A, B)
longarc = CircleArc(A, C, D)
F: (x(E) + arc * parts / 2.0, y(E))
demiperimetre = Segment(E, F)
G: (x(E) + arc, y(E))
e = Circle(E, rayon)
f = Circle(G, rayon)
H = Intersect(e, f, 1.0)
g = Segment(H, E)
arcpart = CircleArc(H, E, G)
h = Segment(H, G)
J = Midpoint(g)
G' = Mirror(G, J)
i = Segment(G', E)
listesegments = Sequence(Segment[(x(G') + i * arc, y(G')), (x(E) + i * arc, y(E))], i, 1.0, parts / 2.0)
listearcs = Sequence(CircleArc[(x(G') + i * arc, y(G')), (x(E) + i * arc - arc, y(E)), (x(E) + i * arc, y(E))], i, 1.0, parts / 2.0)
listearcs2 = Sequence(CircleArc[(x(E) + i * arc, y(E)), (x(G') + i * arc + arc, y(G')), (x(G') + i * arc, y(G'))], i, 0.0, parts / 2.0 - 1.0)
listesegments2 = Sequence(Segment[(x(G') + i * arc + arc, y(G')), (x(E) + i * arc, y(E))], i, 0.0, parts / 2.0 - 1.0)
I = Midpoint(i)
K = Midpoint(demiperimetre)
j = false
b = true
M = Midpoint(arc)
a = Segment(M, A)
d = Segment(E, G)
N = Midpoint(d)
k = Segment(H, N)
l = false
O_1: rayon * Element[L, parts]
O_2: rayon * Element[L, parts / 2.0]
dp_1 = CircleArc(A, O_1, O_2)
dp_2 = CircleArc(A, O_2, O_1)
dp_3 = Sequence(CircleArc[(x(G') + i * arc, y(G')), (x(E) + i * arc - arc, y(E)), (x(E) + i * arc, y(E))], i, 1.0, parts / 2.0)
dp_4 = Sequence(CircleArc[(x(E) + i * arc, y(E)), (x(G') + i * arc + arc, y(G')), (x(G') + i * arc, y(G'))], i, 0.0, parts / 2.0 - 1.0)
m = false