afficher les marques du pliage

afficher la courbe

Déplacer le curseur p pour passer au point suivant

CTRL+F pour effacer les traces et recommencer
 

A = Point(xAxis)
B = (18.7, 0)
C = (18.7, 21)
D = (-11, 21)
poly1, a_1, b, c, d = Polygon(A, B, C, D)
F = (0, 10)
O = Point(a_1)
H_1 = Point(poly1)
H_2 = Point(poly1)
H_3 = Point(poly1)
H_4 = Point(poly1)
H_5 = Point(poly1)
H_6 = Point(poly1)
H_7 = Point(poly1)
H_8 = Point(poly1)
H_9 = Point(poly1)
p = 3 (slider from 0 to 9, step 1)
q: 2.0 * p * y = -(10.0) * x + 10.0 * 2.0 * p
e: x = 2.0 * p
E: (p, 5.0)
f = OrthogonalLine(E, q)
M = Intersect(e, f)
g = false
G: (2.0 * p + 1.0, 2.0 * (p^(2.0) + p) / 10.0 + 5.0)
H: (2.0 * p - 1.0, 2.0 * (p^(2.0) - p) / 10.0 + 5.0)
h = Segment(H, G)
j = false