cups

tamaño de los tarros

número de tazas

número de tarros

tarros

tazas

m = 0 (slider from 0 to 8, step 1)
h = 2.5 (slider from 0 to 5, step 0.5)
n = 0 (slider from 0 to 12, step 1)
A: (230, 0)
delta = 4 (slider from -5 to 5, step 0.1)
list1 = Sequence(Polygon[A + ((i - 1) * (0, 4)), A + (360, (4 * (i - 1))), A + (360, (4 * i)), A + (0, (4 * i))], i, 1, n)
min = 1 (slider from -5 to 5, step 0.1)
step = 1 (slider from -5 to 5, step 0.1)
A': (-280, 0)
B = (-1740, 68)
C: (-490, 68)
D: (-490, 20)
E = (-1740, 20)
poly1, b, c, d, e = Polygon(B, C, D, E)
f = Segment((-280, 0), (80, 0))
i = Segment((230, 0), (590, 0))
list4 = Sequence(Polygon[A' + ((i - 1) * (0, (4 * h))), A' + (360, ((4 * h) * (i - 1))), A' + (360, ((4 * h) * i)), A' + (0, ((4 * h) * i))], i, 1, m)
list6 = Sequence(Text[1 + i, (-350, (h * delta) - 0.3 + ((h * delta) * i))], i, 0, m - 1)
list5 = Sequence(Segment[(-300, (h * delta) + ((h * delta) * i)), (-280, (h * delta) + ((h * delta) * i))], i, 0, m - 1)
list2 = Sequence(Segment[(240, 4 + (delta * i)), (200, 4 + (delta * i))], i, 0, n - 1)
list3 = Sequence(Text[min + (step * i), (160, 3.8 + (delta * i))], i, 0, n - 1)

Tool: Una unidad (command Unaunidad)
Whole[ <Point> ]
Input: A
Output: poly1, a, b, c, d

B: (x(A) + 360, y(A))
C: (x(A) + 360, y(A) + 4)
D: (x(A), y(A) + 4)
poly1, a, b, c, d = Polygon(A, B, C, D)

Tool: Un medio (command Unmedio)
Half[ <Point> ]
Input: A
Output: poly1, a, b, c, d

B: (x(A) + 180, y(A))
C: (x(A) + 180, y(A) + 4)
D: (x(A), y(A) + 4)
poly1, a, b, c, d = Polygon(A, B, C, D)

Tool: Un tercio (command Untercio)
Third[ <Point> ]
Input: A
Output: poly1, a, b, c, d

B: (x(A) + 120, y(A))
C: (x(A) + 120, y(A) + 4)
D: (x(A), y(A) + 4)
poly1, a, b, c, d = Polygon(A, B, C, D)

Tool: Un cuarto (command Uncuarto)
Fourth[ <Point> ]
Input: A
Output: poly1, a, b, c, d

B: (x(A) + 90, y(A))
C: (x(A) + 90, y(A) + 4)
D: (x(A), y(A) + 4)
poly1, a, b, c, d = Polygon(A, B, C, D)

Tool: Un quinto (command Unquinto)
Fifth[ <Point> ]
Input: A
Output: poly1, a, b, c, d

B: (x(A) + 72, y(A))
C: (x(A) + 72, y(A) + 4)
D: (x(A), y(A) + 4)
poly1, a, b, c, d = Polygon(A, B, C, D)

Tool: Un sexto (command Unsexto)
Sixth[ <Point> ]
Input: A
Output: poly1, a, b, c, d

B: (x(A) + 60, y(A))
C: (x(A) + 60, y(A) + 4)
D: (x(A), y(A) + 4)
poly1, a, b, c, d = Polygon(A, B, C, D)

Tool: Un octavo (command Unoctavo)
Eighth[ <Point> ]
Input: A
Output: poly1, a, b, c, d

B: (x(A) + 45, y(A))
C: (x(A) + 45, y(A) + 4)
D: (x(A), y(A) + 4)
poly1, a, b, c, d = Polygon(A, B, C, D)

Tool: Un noveno (command Unnoveno)
Ninth[ <Point> ]
Input: A
Output: poly1, a, b, c, d

B: (x(A) + 40, y(A))
C: (x(A) + 40, y(A) + 4)
D: (x(A), y(A) + 4)
poly1, a, b, c, d = Polygon(A, B, C, D)