MathPlotAI Logo MathPlotAI

Math and Clothes: The Jacquard Loom

Math and Clothes: The Jacquard Loom
Loading the math board and drawing, please wait…
2020-02-23 16:51
VectorSequenceCoordinate GeometryGeometric Construction
This example demonstrates the pattern generation and transformation process in a Jacquard loom, involving translations, vectors, perimeter, ratios, reflections, and angles. It uses GeoGebra commands like If, Random, Sequence, and Vector, along with objects A1-A25 and B1-B15, to create random patterns and transformations. Suitable for high school students learning vectors, transformations, and algorithmic thinking, or for design courses showing the application of mathematics in art.

GeoGebra Commands & Parameters

  1. If(true, Polygon[C6, C6 + (1, 0), C6 + (0, -1)]) → D6
  2. If(true, Polygon[C7, C7 + (1, 0), C7 + (0, -1)]) → D7
  3. If(true, Polygon[C8, C8 + (1, 0), C8 + (0, -1)]) → D8
  4. If(true, Polygon[C9, C9 + (1, 0), C9 + (0, -1)]) → D9
  5. If(true, Polygon[C11, C11 + (1, 0), C11 + (0, -1)]) → D11
  6. If(true, Polygon[C12, C12 + (1, 0), C12 + (0, -1)]) → D12
  7. If(true, Polygon[C13, C13 + (1, 0), C13 + (0, -1)]) → D13
  8. If(true, Polygon[C14, C14 + (1, 0), C14 + (0, -1)]) → D14
  9. If(true, Polygon[C16, C16 + (1, 0), C16 + (0, -1)]) → D16
  10. If(true, Polygon[C17, C17 + (1, 0), C17 + (0, -1)]) → D17
  11. If(true, Polygon[C18, C18 + (1, 0), C18 + (0, -1)]) → D18
  12. If(true, Polygon[C19, C19 + (1, 0), C19 + (0, -1)]) → D19
  13. If(true, Polygon[C21, C21 + (1, 0), C21 + (0, -1)]) → D21
  14. If(true, Polygon[C22, C22 + (1, 0), C22 + (0, -1)]) → D22
  15. If(true, Polygon[C23, C23 + (1, 0), C23 + (0, -1)]) → D23
  16. If(true, Polygon[C24, C24 + (1, 0), C24 + (0, -1)]) → D24
  17. Random(1, 4) → n
  18. Sequence({Segment[(i, 0), (i, 4)], Segment[(0, i), (4, i)]}, i, 0, 4) → liste1
  19. If(true, Polygon[C7, C7 + (0, -1), C7 + (-1, -1)]) → D26
  20. If(true, Polygon[C8, C8 + (0, -1), C8 + (-1, -1)]) → D27
  21. If(true, Polygon[C9, C9 + (0, -1), C9 + (-1, -1)]) → D28
  22. If(true, Polygon[C10, C10 + (0, -1), C10 + (-1, -1)]) → D29
  23. If(true, Polygon[C12, C12 + (0, -1), C12 + (-1, -1)]) → D31
  24. If(true, Polygon[C13, C13 + (0, -1), C13 + (-1, -1)]) → D32
  25. If(true, Polygon[C14, C14 + (0, -1), C14 + (-1, -1)]) → D33
  26. If(true, Polygon[C15, C15 + (0, -1), C15 + (-1, -1)]) → D34
  27. If(true, Polygon[C17, C17 + (0, -1), C17 + (-1, -1)]) → D36
  28. If(true, Polygon[C18, C18 + (0, -1), C18 + (-1, -1)]) → D37
  29. If(true, Polygon[C19, C19 + (0, -1), C19 + (-1, -1)]) → D38
  30. If(true, Polygon[C20, C20 + (0, -1), C20 + (-1, -1)]) → D39
  31. If(true, Polygon[C22, C22 + (0, -1), C22 + (-1, -1)]) → D41
  32. If(true, Polygon[C23, C23 + (0, -1), C23 + (-1, -1)]) → D42
  33. If(true, Polygon[C24, C24 + (0, -1), C24 + (-1, -1)]) → D43
  34. If(true, Polygon[C25, C25 + (0, -1), C25 + (-1, -1)]) → D44
  35. Vector(O, O + (4, 0)) → u
  36. Vector(O, O + (0, 4)) → v
  37. Sequence(Sequence[Translate[liste1, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → l1
  38. Sequence(Sequence[Translate[D6, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L6
  39. Sequence(Sequence[Translate[D7, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L7
  40. Sequence(Sequence[Translate[D8, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L8
  41. Sequence(Sequence[Translate[D9, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L9
  42. Sequence(Sequence[Translate[D11, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L11
  43. Sequence(Sequence[Translate[D12, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L12
  44. Sequence(Sequence[Translate[D13, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L13
  45. Sequence(Sequence[Translate[D14, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L14
  46. Sequence(Sequence[Translate[D16, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L16
  47. Sequence(Sequence[Translate[D17, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L17
  48. Sequence(Sequence[Translate[D18, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L18
  49. Sequence(Sequence[Translate[D19, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L19
  50. Sequence(Sequence[Translate[D21, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L21
  51. Sequence(Sequence[Translate[D22, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L22
  52. Sequence(Sequence[Translate[D23, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L23
  53. Sequence(Sequence[Translate[D24, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L24
  54. Sequence(Sequence[Translate[D26, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L26
  55. Sequence(Sequence[Translate[D27, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L27
  56. Sequence(Sequence[Translate[D28, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L28
  57. Sequence(Sequence[Translate[D29, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L29
  58. Sequence(Sequence[Translate[D31, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L31
  59. Sequence(Sequence[Translate[D32, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L32
  60. Sequence(Sequence[Translate[D33, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L33
  61. Sequence(Sequence[Translate[D34, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L34
  62. Sequence(Sequence[Translate[D36, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L36
  63. Sequence(Sequence[Translate[D37, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L37
  64. Sequence(Sequence[Translate[D38, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L38
  65. Sequence(Sequence[Translate[D39, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L39
  66. Sequence(Sequence[Translate[D41, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L41
  67. Sequence(Sequence[Translate[D42, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L42
  68. Sequence(Sequence[Translate[D43, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L43
  69. Sequence(Sequence[Translate[D44, Vector[(s * u) + (t * v)]], s, 0, p], t, 0, q) → L44

AI Drawing Prompt Reference

Draw a square pattern area divided into a 4x4 grid, with each cell randomly filled with small triangles or squares oriented in two directions, creating a Jacquard-loom-like texture. The whole pattern is repeated by translating it horizontally and vertically to form a larger symmetric array. Include the base grid lines, randomly generated cell motifs, and horizontal/vertical translation vectors to show geometric transformations and repetition.
The prompt above was compiled from the original drawing commands and is for reference only.