Mostrar controles

Diferentes tipos de partes

¿Cuántas partes iguales?

Etiqueta:

¿Cuántas partes iguales?

Etiqueta:

Total:

Sección 1

Sección 2

move

Total:

g = false
e = false
m = 1 (slider from 1 to 10, step 1)
InputBox1 = Textfield(m)
InputBox2 = Textfield(text5)
n = 1 (slider from 1 to 10, step 1)
InputBox3 = Textfield(n)
InputBox4 = Textfield(text6)
InputBox5 = Textfield(text7)
A = (0, 0)
w: (0.95 * (x(Corner[2]) - x(Corner[1])))
h: 1.5
a: floor(w)
B: (x(A) + w, y(A))
C: (x(A) + w, y(A) + h)
D: (x(A), y(A) + h)
poly1, a_1, b, c, d = Polygon(A, B, C, D)
E = Point(poly1)
F: (x(E), y(E) + h)
f = Segment(E, F)
G = Midpoint(D, F)
H = Midpoint(F, C)
w_1: x(E) - x(A)
i_1: w_1 / m
list1 = Sequence(Segment[A + ((i_1 * (k - 1)), 0), A + ((i_1 * (k - 1)), h)], k, 1, m)
w_2: x(B) - x(E)
i_2: w_2 / n
list2 = Sequence(Segment[E + ((i_2 * (p - 1)), 0), E + ((i_2 * (p - 1)), h)], p, 1, n)
w_3: x(B) - x(A)
i_3: w_3 / m
list3 = Sequence(Segment[A + ((i_3 * (k - 1)), 0), A + ((i_3 * (k - 1)), h)], k, 1, m)
J: (x(A), y(A) - 1)
K: (x(B), y(B) - 1)
list2t = Sequence(Text[text6, (x(E) + (r * i_2) + i_2 / (n + 1), 0.7)], r, 0, n - 1)
list3t = Sequence(Text[text5, (x(A) + (q * i_3) + i_3 / (m + 1), 0.7)], q, 0, m - 1)
list1t = Sequence(Text[text5, (x(A) + (q * i_1) + i_1 / (m + 1), 0.7)], q, 0, m - 1)