Author: V. MAILLE
Date: 06/11/2006

En déplaçant les points bleus, tester quelques configurations

animation : 

Fichier réalisé par vincent.maille@ac-amiens.fr

S1 = (0, 0)
S2 = (20, 0)
a = Segment(S1, S2)
S3 = Point(a)
lx = Segment(S1, S3)
B1: (x(S3), 5)
S4 = Point(a)
ly = Segment(S1, S4)
C1: (x(S4), 5)
B = If(lx > ly, C1, B1)
Bv: (x(B), 0)
C = If(lx > ly, B1, C1)
Cv: (x(C), 0)
S5 = Midpoint(S1, S3)
S8 = Midpoint(S4, S1)
T1: "x=" + lx
T2: "y=" + ly
A = (0, 5)
D = (20, 5)
l1 = Segment(A, B)
l2 = Segment(B, C)
l3 = Segment(C, D)
L1 = If(l1 < l2, l2, l1)
Lmax = If(L1 < l3, l3, L1)
poss = If(Lmax ≤ 10, 1, 0)
anim = 0 (slider from 0 to 1, step 0.01)
c = Circle(B, A)
d = Circle(C, D)
E = Intersect(c, d, 1)
α = Angle(E, B, A)
β = Angle(D, C, E)
pA = Rotate(A, -anim * α, B)
pD = Rotate(D, anim * β, C)
pB = If(x(E) > 0, B)
pC = If(x(E) > 0, C)
ps1 = Segment(pA, pB)
ps2 = Segment(pB, pC)
ps3 = Segment(pC, pD)
c1 = If(poss ≟ 0 ∧ (anim > 0), c, E)
c2 = If(poss ≟ 0 ∧ (anim > 0), d, E)
iA1 = Rotate(A, (-anim * 360)°, B)
iD1 = Rotate(D, (anim * 360)°, C)
iA = If(poss ≟ 0, iA1, E)
iD = If(poss ≟ 0, iD1, E)
iB = If(poss ≟ 0, B)
iC = If(poss ≟ 0, C)
is1 = Segment(iA, iB)
is2 = Segment(iB, iC)
is3 = Segment(iC, iD)
coupe2 = Vector(Cv, C)
coupe1 = Vector(Bv, B)
F1 = (0, -1)
F2: (x(S3), -1)
u = Vector(F1, F2)
v = Vector(F2, F1)
F3: (x(S4), -2)
F4 = (0, -2)
w = Vector(F4, F3)
z = Vector(F3, F4)