Author: Daniel Mentrard

Pliage

Dépliage

Longueur: L

largeur : l

hauteur : h

h = 2.4000000000000004 (slider from -5 to 5, step 0.1)
Zoom = 1.4000000000000004 (slider from -5 to 5, step 0.1)
Vue = (13.111817937983052, -3.424090052987219)
ya: y(Vue)
costheta: cos(ya)
B = (-5.141182019682819, -4.790265509941354)
l = 2 (slider from -5 to 5, step 0.1)
sintheta: sin(ya)
xa: x(Vue)
cosphi: cos(xa)
sinphi: sin(xa)
L = 2.9000000000000004 (slider from -5 to 5, step 0.1)
xy: -Zoom cosphi sintheta
d = Circle(Vue, 0.2)
a = OrthogonalLine(Vue, yAxis)
b = OrthogonalLine(Vue, xAxis)
c: cos(ya)
X: (x(B) + Zoom L sinphi, y(B) + L xy)
u = Vector(B, X)
Y: (x(B) + Zoom l cosphi, y(B) + Zoom l sinphi sintheta)
v = Vector(B, Y)
D: (x(B) + 0, y(B) + Zoom h costheta)
w = Vector(B, D)
O = (5.58665476525209, 1.5926853955000881)
P = Translate(O, u)
Q = Translate(P, v)
R = Translate(Q, w)
S = Mirror(R, O)
T = Mirror(R, Q)
U = Mirror(T, P)
V = Mirror(R, P)
W = Mirror(U, O)
Z = Mirror(T, O)
A1 = Mirror(V, O)
p = Segment(W, A1)
s = Segment(R, T)
F = (3.3022302306730515, -5.820496182398569)
G = (8.677346782623736, -5.730910906532723)
g = Segment(F, G)
H = Point(g)
distanceFH = Distance(F, H)
TexteFH: "\overline{" + (Name[F]) + (Name[H]) + "} \, = \, " + distanceFH
coef: distanceFH / g
I = Mirror(V, W)
J = Mirror(V, S)
K = Mirror(V, T)
poly1, i, j, v_1, k_1 = Polygon(I, J, V, K)
e1 = Segment(W, I)
L_2 = Midpoint(e1)
M = Midpoint(L_2, I)
N = Midpoint(i)
D1 = Midpoint(j)
E1 = Midpoint(k_1)
F1 = Midpoint(v_1)
g1 = Conic(M, N, D1, F1, E1)
h1 = Segment(D1, N)
h2: coef h1
k2 = Circle(S, h2)
z = Vector(W, A1)
G1 = Intersect(k2, h1, 1)
i1 = Ray(W, G1)
H1 = Intersect(g1, i1, 1)
I1 = Translate(H1, z)
u1 = Vector(W, T)
v1 = Vector(W, H1)
p2 = Translate(g1, v1)
q2 = Translate(g1, u1)
w1 = Vector(S, H1)
J1 = Translate(V, w1)
K1 = Translate(J1, z)
L1 = Intersect(p2, i1, 2)
distanceJ1L1 = Distance(J1, L1)
TexteJ1L1: "\overline{" + (Name[J1]) + (Name[L1]) + "} \, = \, " + distanceJ1L1
h_2 = Ray(J1, L1)
o: coef distanceJ1L1
r2 = Circle(J1, o)
M1 = Intersect(r2, h_2, 1)
i2 = Ray(H1, M1)
N1 = Intersect(p2, i2, 1)
O1 = Translate(N1, z)
P1 = Mirror(Z, S)
Q1 = Mirror(P1, W)
R1 = Mirror(Z, W)
poly9, z_1, p1_1, r1_1, q1_1 = Polygon(Z, P1, R1, Q1)
S1 = Midpoint(p1_1)
U1 = Midpoint(r1_1)
V1 = Midpoint(W, R1)
W1 = Midpoint(V1, R1)
s2 = Conic(A1, D1, S1, W1, U1)
distanceD1S1 = Distance(D1, S1)
TexteD1S1: "\overline{" + (Name[D1]) + (Name[S1]) + "} \, = \, " + distanceD1S1
j2 = Ray(D1, S1)
o2: coef distanceD1S1
t2 = Circle(D1, o2)
Z1 = Intersect(t2, j2, 1)
l2 = Ray(W, Z1)
A2 = Intersect(s2, l2, 1)
B2 = Translate(A2, u1)
c3 = Translate(s2, z)
C2 = Translate(A1, z)
distanceZC2 = Distance(Z, C2)
TexteZC2: "\overline{" + (Name[Z]) + (Name[C2]) + "} \, = \, " + distanceZC2
o3: coef distanceZC2
m2 = Ray(Z, C2)
d3 = Circle(Z, o3)
D2 = Intersect(d3, m2, 1)
n2 = Ray(A1, D2)
E2 = Intersect(c3, n2, 1)
F2 = Translate(E2, u1)
poly12, a1_3, r_1, f2_1, e2_1 = Polygon(A1, R, F2, E2)
G2 = Translate(T, u1)
distanceVG2 = Distance(V, G2)
TexteVG2: "\overline{" + (Name[V]) + (Name[G2]) + "} \, = \, " + distanceVG2
o4: coef distanceVG2
a3 = Ray(V, G2)
e3 = Circle(V, o4)
H2 = Intersect(e3, a3, 1)
b3 = Ray(F1, H2)
I2 = Intersect(q2, b3, 1)
J2 = Translate(I2, z)
poly13, j2_1, i2_1, f1_2, r_2 = Polygon(J2, I2, F1, R)
poly4, i1_2, o1, n1, h1_2 = Polygon(I1, O1, N1, H1)
poly3, i1_1, h1_1, w_1, a1 = Polygon(I1, H1, W, A1)
poly2, a2, b2, t, w_2 = Polygon(A2, B2, T, W)
poly5, w_3, a1_1, r, t_1 = Polygon(W, A1, R, T)
A = Midpoint(i1_2)
C = Midpoint(r_2)
E = Midpoint(o1)