MathPlotAI Logo MathPlotAI

Ordne zu! - Rationale Zahlen addieren und subtrahieren

Ordne zu! - Rationale Zahlen addieren und subtrahieren
Loading the math board and drawing, please wait…
2026-02-18 21:27
In collections Addieren und Subtrahieren von ganzen und rationalen Zahlen
This example demonstrates the rationale of adding and subtracting rational numbers through geometric constructions. It involves concepts like rational number operations, geometric drawing, and coordinate geometry. The construction uses GeoGebra commands such as Sequence, Shuffle, Textfield, Element, Join, PolyLine, Polygon, etc. It is suitable for middle school or high school students for math tea

GeoGebra Commands & Parameters

  1. Sequence(PStart + (k * (0, (-2 * heightPuzzle) - disPuzzleY)), k, 0, 5) → ParkLeftList
  2. Sequence(Join[{Shuffle[1…numberOfOptionsLeft], Sequence[k, k, numberOfOptionsLeft + 1, 6]}], m, 1, 100) → OrderLList
  3. Sequence(Join[{Shuffle[1…numberOfOptionsRight], Sequence[k, k, numberOfOptionsRight + 1, 8]}], m, 1, 100) → OrderRList
  4. Sequence(MPList(k) ≟ PRList(OrderRight(IndexOf[k, OrderLeft])), k, 1, numberOfOptionsLeft) → CorrectList
  5. Shuffle(1…numberOfQuestions) → randomQuestions, {83, 39, 98, 63, 100, 66, 85, 5, 28, 6, 128, 101, 34, 72, 150, 117, 94, 54, 132, 35, 2, 7, 137, 42, 24, 125, 93, 124, 46, 25, 59, 50, 12, 145, 113, 60, 1, 142, 8, 19, 134, 43, 89, 45, 75, 52, 129, 82, 107, 97, 51, 41, 104, 115, 109, 77, 30, 71, 68, 135, 44, 9, 37, 138, 15, 148, 92, 90, 130, 149, 131, 122, 110, 96, 81, 141, 58, 4, 61, 67, 40, 133, 121, 106, 69, 127, 120, 26, 119, 22, 20, 73, 116, 114, 49, 84, 146, 76, 102, 29, 105, 31, 74, 112, 16, 123, 62, 10, 136, 56, 126, 48, 53, 33, 147, 143, 3, 11, 38, 36, 140, 32, 21, 57, 80, 14, 95, 111, 108, 64, 18, 70, 103, 27, 13, 55, 17, 78, 86, 47, 88, 23, 91, 139, 65, 99, 118, 87, 144, 79}
  6. Textfield(input) → inputBox
  7. Element(randomQuestions, Mod[questionCount - 1, Length[randomQuestions]] + 1) → randomQuestion
  8. Join({Sequence[Segment[Corner[4] + (RasterPixMat * ((k * RasterStepXY), 0)), Corner[4] + (RasterPixMat * ((k * RasterStepXY), RasterMaxY))], k, 0, RasterMaxX / RasterStepXY], Sequence[Segment[Corner[4] + (RasterPixMat * (0, (k * RasterStepXY))), Corner[4] + (RasterPixMat * (RasterMaxX, (k * RasterStepXY)))], k, 0, RasterMaxY / RasterStepXY]}) → RasterStrecken
  9. Sequence(Sequence[Corner[4] + (RasterPixMat * ((k * RasterStepXY), (m * RasterStepXY))), k, 0, RasterMaxX / RasterStepXY], m, 0, RasterMaxY / RasterStepXY) → RasterPunkte
  10. PolyLine(Join[{Sequence[PL1 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL1 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL1 + widthPuzzleLeft + lengthPuzzle), y(PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL1 + widthPuzzleLeft + lengthPuzzle), y(PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL1 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL1 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL1 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft1
  11. Polygon(Join[{Sequence[PL1 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL1 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL1 + widthPuzzleLeft + lengthPuzzle), y(PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL1 + widthPuzzleLeft + lengthPuzzle), y(PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL1 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL1 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL1 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft1
  12. PolyLine(Join[{Sequence[PL2 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL2 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL2 + widthPuzzleLeft + lengthPuzzle), y(PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL2 + widthPuzzleLeft + lengthPuzzle), y(PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL2 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL2 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL2 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft2
  13. Polygon(Join[{Sequence[PL2 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL2 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL2 + widthPuzzleLeft + lengthPuzzle), y(PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL2 + widthPuzzleLeft + lengthPuzzle), y(PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL2 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL2 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL2 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft2
  14. PolyLine(Join[{Sequence[PL3 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL3 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL3 + widthPuzzleLeft + lengthPuzzle), y(PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL3 + widthPuzzleLeft + lengthPuzzle), y(PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL3 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL3 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL3 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft3
  15. Polygon(Join[{Sequence[PL3 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL3 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL3 + widthPuzzleLeft + lengthPuzzle), y(PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL3 + widthPuzzleLeft + lengthPuzzle), y(PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL3 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL3 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL3 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft3
  16. PolyLine(Join[{Sequence[PL4 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL4 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL4 + widthPuzzleLeft + lengthPuzzle), y(PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL4 + widthPuzzleLeft + lengthPuzzle), y(PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL4 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL4 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL4 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft4
  17. Polygon(Join[{Sequence[PL4 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL4 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL4 + widthPuzzleLeft + lengthPuzzle), y(PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL4 + widthPuzzleLeft + lengthPuzzle), y(PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL4 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL4 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL4 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft4
  18. PolyLine(Join[{Sequence[PL5 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL5 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL5 + widthPuzzleLeft + lengthPuzzle), y(PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL5 + widthPuzzleLeft + lengthPuzzle), y(PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL5 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL5 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL5 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft5
  19. Polygon(Join[{Sequence[PL5 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL5 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL5 + widthPuzzleLeft + lengthPuzzle), y(PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL5 + widthPuzzleLeft + lengthPuzzle), y(PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL5 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL5 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL5 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft5
  20. PolyLine(Join[{Sequence[PL6 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL6 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL6 + widthPuzzleLeft + lengthPuzzle), y(PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL6 + widthPuzzleLeft + lengthPuzzle), y(PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL6 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL6 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL6 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft6
  21. Polygon(Join[{Sequence[PL6 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL6 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL6 + widthPuzzleLeft + lengthPuzzle), y(PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL6 + widthPuzzleLeft + lengthPuzzle), y(PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL6 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL6 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL6 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft6
  22. PolyLine(Join[{Sequence[PR1 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR1 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR1 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR1 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR1 + (-widthPuzzleRight)), y(PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR1 + (-widthPuzzleRight)), y(PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR1 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight1
  23. Polygon(Join[{Sequence[PR1 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR1 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR1 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR1 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR1 + (-widthPuzzleRight)), y(PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR1 + (-widthPuzzleRight)), y(PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR1 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight1
  24. PolyLine(Join[{Sequence[PR2 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR2 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR2 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR2 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR2 + (-widthPuzzleRight)), y(PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR2 + (-widthPuzzleRight)), y(PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR2 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight2
  25. Polygon(Join[{Sequence[PR2 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR2 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR2 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR2 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR2 + (-widthPuzzleRight)), y(PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR2 + (-widthPuzzleRight)), y(PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR2 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight2
  26. PolyLine(Join[{Sequence[PR3 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR3 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR3 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR3 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR3 + (-widthPuzzleRight)), y(PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR3 + (-widthPuzzleRight)), y(PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR3 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight3
  27. Polygon(Join[{Sequence[PR3 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR3 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR3 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR3 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR3 + (-widthPuzzleRight)), y(PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR3 + (-widthPuzzleRight)), y(PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR3 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight3
  28. PolyLine(Join[{Sequence[PR4 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR4 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR4 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR4 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR4 + (-widthPuzzleRight)), y(PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR4 + (-widthPuzzleRight)), y(PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR4 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight4
  29. Polygon(Join[{Sequence[PR4 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR4 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR4 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR4 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR4 + (-widthPuzzleRight)), y(PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR4 + (-widthPuzzleRight)), y(PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR4 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight4
  30. PolyLine(Join[{Sequence[PR5 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR5 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR5 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR5 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR5 + (-widthPuzzleRight)), y(PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR5 + (-widthPuzzleRight)), y(PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR5 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight5
  31. Polygon(Join[{Sequence[PR5 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR5 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR5 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR5 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR5 + (-widthPuzzleRight)), y(PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR5 + (-widthPuzzleRight)), y(PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR5 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight5
  32. PolyLine(Join[{Sequence[PR6 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR6 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR6 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR6 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR6 + (-widthPuzzleRight)), y(PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR6 + (-widthPuzzleRight)), y(PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR6 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight6
  33. Polygon(Join[{Sequence[PR6 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR6 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR6 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR6 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR6 + (-widthPuzzleRight)), y(PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR6 + (-widthPuzzleRight)), y(PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR6 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight6
  34. PolyLine(Join[{Sequence[PR7 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR7 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR7 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR7 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR7 + (-widthPuzzleRight)), y(PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR7 + (-widthPuzzleRight)), y(PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR7 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight7
  35. Polygon(Join[{Sequence[PR7 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR7 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR7 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR7 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR7 + (-widthPuzzleRight)), y(PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR7 + (-widthPuzzleRight)), y(PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR7 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight7
  36. PolyLine(Join[{Sequence[PR8 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR8 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR8 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR8 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR8 + (-widthPuzzleRight)), y(PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR8 + (-widthPuzzleRight)), y(PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR8 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight8
  37. Polygon(Join[{Sequence[PR8 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR8 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR8 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR8 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR8 + (-widthPuzzleRight)), y(PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR8 + (-widthPuzzleRight)), y(PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR8 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight8
  38. Sequence(Sample[Cases, 2], k, 1, 100) → SampleCasesList1, {{3, 2}, {4, 2}, {2, 1}, {4, 2}, {4, 3}, {3, 2}, {4, 1}, {3, 4}, {4, 1}, {3, 2}, {1, 3}, {1, 4}, {4, 2}, {4, 1}, {3, 2}, {2, 3}, {2, 3}, {4, 1}, {1, 2}, {2, 4}, {4, 3}, {3, 2}, {2, 1}, {1, 3}, {1, 3}, {3, 4}, {1, 3}, {3, 1}, {1, 4}, {3, 1}, {4, 3}, {3, 2}, {1, 3}, {2, 4}, {2, 4}, {4, 3}, {2, 3}, {4, 1}, {4, 2}, {2, 3}, {4, 2}, {1, 3}, {3, 1}, {3, 1}, {4, 3}, {4, 1}, {2, 3}, {3, 2}, {2, 1}, {3, 2}, {4, 2}, {2, 1}, {2, 1}, {1, 3}, {2, 3}, {4, 3}, {3, 4}, {2, 3}, {2, 3}, {2, 1}, {2, 1}, {1, 2}, {4, 2}, {4, 3}, {2, 3}, {2, 4}, {3, 1}, {1, 3}, {2, 4}, {2, 1}, {2, 1}, {2, 1}, {1, 2}, {4, 2}, {4, 2}, {4, 1}, {4, 3}, {2, 3}, {3, 4}, {4, 2}, {3, 1}, {4, 1}, {3, 2}, {4, 1}, {2, 1}, {2, 1}, {1, 3}, {4, 3}, {3, 1}, {4, 2}, {2, 1}, {3, 1}, {1, 4}, {4, 1}, {2, 1}, {2, 4}, {1, 4}, {2, 4}, {4, 1}, {1, 3}}
  39. Sequence(RandomElement[If[SampleCasesList1(k, 1) ≟ 1, NumberList1, SampleCasesList1(k, 1) ≟ 2, NumberList2, SampleCasesList1(k, 1) ≟ 3, NumberList3, NumberList4]], k, 1, 100) → NumberList11, {0.2, 1, 1.2, 1, 2, 1.2, 1, 1.5, 2, 0.4, 1.1, 1.9, 5, 1, 1.75, 2.5, 2.25, 2, 2.5, 1.6, 2, 0.8, 2.25, 1.8, 2.6, 1.8, 1.2, 0.75, 0.6, 0.6, 1, 1.5, 1.6, 2.75, 1.4, 5, 1.75, 1, 5, 1.75, 5, 1.2, 0.2, 0.8, 2, 2, 1.75, 1.8, 2.25, 0.5, 5, 2.6, 1.25, 1.9, 1.4, 5, 0.2, 2.2, 1.8, 1.4, 1.2, 2.7, 5, 4, 1.2, 2.8, 0.8, 2.3, 1.4, 1.5, 1.6, 2.75, 1.8, 4, 3, 1, 5, 1.6, 1.75, 2, 0.6, 1, 1.2, 3, 2.75, 1.25, 0.4, 3, 0.5, 3, 1.75, 1.6, 2.3, 2, 1.8, 1.25, 1.1, 1.25, 2, 2.1}
  40. Sequence(RandomElement[If[SampleCasesList1(k, 2) ≟ 1, NumberList1, SampleCasesList1(k, 2) ≟ 2, NumberList2, SampleCasesList1(k, 2) ≟ 3, NumberList3, NumberList4]], k, 1, 100) → NumberList12, {2.4, 2.75, 0.7, 2.6, 0.5, 2.6, 0.1, 3, 1.8, 2.2, 1.5, 4, 1.4, 2.9, 1.25, 0.2, 0.5, 2.4, 1.25, 2, 0.4, 1.2, 1.8, 0.4, 0.5, 1, 0.5, 0.7, 1, 0.4, 1.2, 2.75, 1.8, 2, 3, 1.75, 1.6, 2.2, 1.75, 1.2, 2.75, 1.8, 1.2, 1.5, 0.4, 0.7, 0.75, 1.5, 1.3, 1.5, 1.4, 2.3, 1.2, 1.2, 1.2, 0.75, 2, 0.4, 1.75, 1.1, 0.4, 2.75, 1.8, 1.2, 1.2, 5, 1.8, 0.2, 2, 2.2, 0.1, 0.2, 2.25, 1.25, 1.4, 1.4, 0.2, 1.75, 3, 2.6, 0.8, 0.1, 1.6, 2.2, 0.3, 1.5, 0.4, 0.6, 0.6, 1.75, 0.3, 0.3, 3, 0.5, 1.3, 2, 5, 1, 2.6, 0.4}
  41. If(CaseN12 ≟ 1, ReplaceAll[(number12 * ""), ".", ","], CaseN12 ≟ 2, (((((floor(number12) * "\frac{") * Numerator[abs(number12 - floor(number12))]) * "}{") * Denominator[number12]) * "}"), CaseN12 ≟ 3, (((("\frac{" * Numerator[number12]) * "}{") * Denominator[number12]) * "}"), ("" * number12)) → txtN12
  42. Sequence(Sample[CasesSign, 2], k, 1, 100) → SampleSignList1, {{2, 3}, {1, 4}, {1, 3}, {2, 3}, {3, 4}, {4, 1}, {2, 1}, {2, 3}, {1, 3}, {4, 2}, {3, 4}, {1, 4}, {4, 1}, {4, 3}, {2, 4}, {1, 4}, {4, 1}, {3, 2}, {4, 2}, {2, 3}, {1, 3}, {4, 3}, {2, 1}, {1, 2}, {3, 4}, {3, 1}, {1, 2}, {3, 1}, {2, 4}, {3, 1}, {3, 2}, {4, 1}, {3, 1}, {1, 3}, {4, 2}, {3, 4}, {4, 2}, {4, 1}, {4, 3}, {2, 4}, {4, 2}, {4, 1}, {2, 4}, {3, 1}, {2, 1}, {2, 4}, {2, 1}, {3, 4}, {1, 2}, {4, 3}, {3, 2}, {4, 3}, {4, 1}, {1, 2}, {3, 2}, {2, 4}, {3, 2}, {4, 1}, {4, 1}, {1, 3}, {3, 4}, {1, 2}, {3, 1}, {4, 2}, {2, 1}, {4, 3}, {3, 2}, {4, 2}, {2, 3}, {2, 4}, {3, 4}, {1, 3}, {4, 2}, {2, 3}, {3, 1}, {1, 3}, {3, 4}, {1, 2}, {1, 2}, {4, 3}, {2, 4}, {1, 4}, {3, 1}, {3, 4}, {4, 1}, {2, 4}, {3, 1}, {1, 3}, {1, 2}, {1, 2}, {4, 2}, {1, 4}, {3, 1}, {3, 2}, {4, 3}, {2, 4}, {1, 3}, {4, 2}, {2, 4}, {4, 3}}
  43. Sequence(Sample[Cases, 3], k, 1, 100) → SampleCasesList2, {{3, 2, 4}, {1, 4, 3}, {4, 3, 1}, {3, 1, 4}, {2, 3, 1}, {1, 2, 4}, {2, 1, 4}, {4, 2, 1}, {3, 1, 4}, {4, 2, 3}, {1, 3, 4}, {1, 4, 3}, {1, 2, 3}, {3, 2, 1}, {4, 3, 2}, {3, 1, 2}, {1, 2, 3}, {1, 2, 3}, {3, 1, 2}, {1, 3, 2}, {2, 4, 1}, {4, 1, 2}, {3, 4, 2}, {2, 1, 3}, {3, 2, 1}, {3, 1, 4}, {1, 3, 2}, {4, 1, 2}, {1, 2, 4}, {1, 4, 2}, {1, 4, 2}, {3, 1, 2}, {4, 2, 3}, {2, 4, 1}, {4, 3, 2}, {4, 1, 2}, {2, 3, 1}, {2, 3, 4}, {2, 4, 1}, {2, 3, 1}, {4, 2, 3}, {1, 4, 3}, {1, 2, 3}, {3, 2, 4}, {3, 4, 2}, {1, 3, 2}, {2, 3, 1}, {1, 2, 3}, {4, 1, 2}, {4, 3, 1}, {3, 1, 2}, {3, 4, 1}, {4, 2, 3}, {4, 3, 1}, {4, 3, 2}, {3, 2, 1}, {1, 4, 2}, {3, 1, 4}, {3, 2, 1}, {2, 3, 4}, {1, 2, 3}, {1, 2, 4}, {2, 1, 4}, {1, 4, 3}, {3, 2, 4}, {3, 4, 2}, {2, 4, 3}, {1, 2, 3}, {3, 1, 2}, {3, 2, 1}, {4, 2, 1}, {2, 1, 4}, {1, 3, 2}, {3, 1, 4}, {4, 2, 3}, {4, 3, 2}, {3, 4, 1}, {4, 1, 3}, {3, 2, 1}, {3, 1, 4}, {1, 2, 4}, {4, 1, 2}, {3, 2, 1}, {4, 2, 3}, {2, 3, 1}, {2, 1, 4}, {4, 1, 2}, {3, 2, 4}, {2, 3, 1}, {2, 4, 1}, {3, 1, 2}, {3, 4, 2}, {3, 2, 1}, {2, 1, 4}, {3, 4, 1}, {2, 4, 3}, {2, 3, 4}, {3, 2, 1}, {4, 1, 2}, {2, 1, 3}}
  44. Sequence(RandomElement[If[SampleCasesList2(k, 1) ≟ 1, NumberList1, SampleCasesList2(k, 1) ≟ 2, NumberList2, SampleCasesList2(k, 1) ≟ 3, NumberList3, NumberList4]], k, 1, 100) → NumberList21, {0.25, 0.1, 1, 0.6, 1.2, 2.5, 2.4, 3, 0.5, 3, 1.1, 2.8, 1.9, 0.2, 5, 1.2, 0.4, 1.3, 0.8, 0.5, 1.6, 5, 1.2, 1.8, 0.25, 0.5, 1.1, 2, 2.7, 1.4, 1.1, 1.25, 2, 1.6, 3, 2, 1.75, 1.5, 2.25, 2.2, 2, 0.2, 0.1, 1.25, 1.6, 0.3, 1.75, 1.8, 2, 2, 1.2, 1.2, 3, 1, 4, 1.2, 1.4, 1.8, 0.25, 1.6, 0.9, 0.9, 2.2, 0.3, 0.75, 1.2, 2.4, 1.7, 0.6, 0.2, 4, 2.8, 0.2, 0.8, 3, 2, 1.8, 2, 1.5, 1.75, 1.7, 4, 0.25, 3, 2.4, 2.25, 4, 1.2, 2.5, 1.25, 0.2, 1.2, 1.2, 1.6, 1.75, 2.75, 1.25, 1.8, 3, 1.25}
  45. Sequence(RandomElement[If[SampleCasesList2(k, 2) ≟ 1, NumberList1, SampleCasesList2(k, 2) ≟ 2, NumberList2, SampleCasesList2(k, 2) ≟ 3, NumberList3, NumberList4]], k, 1, 100) → NumberList22, {2.6, 4, 1.75, 0.1, 1.5, 1.2, 1.8, 1.4, 0.5, 2.5, 1.25, 4, 1.6, 1.4, 0.5, 2.7, 1.8, 2.75, 0.2, 0.2, 5, 1.6, 5, 0.3, 1.2, 1.5, 0.4, 0.6, 1.5, 4, 2, 0.3, 2.75, 2, 0.4, 2.1, 1.6, 1.6, 4, 0.25, 1.2, 5, 1.8, 1.4, 1, 0.25, 0.8, 1.6, 1.7, 0.25, 2.8, 5, 1.6, 0.6, 0.6, 2.4, 5, 0.9, 1.25, 0.6, 1.25, 1.2, 0.8, 5, 2.25, 4, 4, 2.25, 0.4, 1.8, 2.5, 1.5, 0.8, 2.1, 1.6, 1.5, 2, 0.3, 1.8, 0.1, 1.25, 2.2, 2.8, 1.25, 1.25, 1.3, 0.1, 1.8, 0.4, 4, 2.9, 5, 1.75, 0.6, 4, 3, 1.8, 2.75, 1.8, 1.3}
  46. Sequence(RandomElement[If[SampleCasesList2(k, 3) ≟ 1, NumberList1, SampleCasesList2(k, 3) ≟ 2, NumberList2, SampleCasesList2(k, 3) ≟ 3, NumberList3, NumberList4]], k, 1, 100) → NumberList23, {2, 0.25, 1.3, 5, 0.7, 2, 3, 1.5, 2, 1.2, 3, 0.2, 1.2, 0.6, 2.8, 1.5, 0.2, 1.6, 2.75, 1.25, 1.1, 1.6, 1.6, 1.5, 0.4, 5, 1.6, 2.25, 4, 2.25, 2.5, 1.75, 0.25, 1.6, 1.4, 1.25, 2.8, 1, 2.7, 2.9, 1.8, 0.75, 0.6, 4, 2.6, 1.2, 1.2, 0.6, 1.2, 2.7, 2.4, 1.2, 0.2, 1.4, 1.8, 1.5, 2.5, 2, 1.8, 1, 0.6, 5, 2, 0.2, 2, 2.6, 1.75, 1.5, 1.5, 2.4, 2.3, 1, 2.5, 5, 0.2, 1.5, 0.4, 0.2, 0.1, 5, 1, 2.8, 2.2, 0.4, 2.1, 2, 2.5, 1, 0.4, 1.2, 1.25, 2.6, 2.1, 1, 2.7, 0.75, 3, 1.8, 2.25, 1.6}
  47. If(CaseN21 ≟ 1, ReplaceAll[(number21 * ""), ".", ","], CaseN21 ≟ 2, (((((floor(number21) * "\frac{") * Numerator[abs(number21 - floor(number21))]) * "}{") * Denominator[number21]) * "}"), CaseN21 ≟ 3, (((("\frac{" * Numerator[number21]) * "}{") * Denominator[number21]) * "}"), ("" * number21)) → txtN21
  48. If(CaseN22 ≟ 1, ReplaceAll[(number22 * ""), ".", ","], CaseN22 ≟ 2, (((((floor(number22) * "\frac{") * Numerator[abs(number22 - floor(number22))]) * "}{") * Denominator[number22]) * "}"), CaseN22 ≟ 3, (((("\frac{" * Numerator[number22]) * "}{") * Denominator[number22]) * "}"), ("" * number22)) → txtN22
  49. If(CaseN23 ≟ 1, ReplaceAll[(number23 * ""), ".", ","], CaseN23 ≟ 2, (((((floor(number23) * "\frac{") * Numerator[abs(number23 - floor(number23))]) * "}{") * Denominator[number23]) * "}"), CaseN23 ≟ 3, (((("\frac{" * Numerator[number23]) * "}{") * Denominator[number23]) * "}"), ("" * number23)) → txtN23
  50. Sequence(Sample[CasesSign, 3], k, 1, 100) → SampleSignList2, {{1, 2, 3}, {4, 2, 1}, {2, 4, 3}, {1, 4, 2}, {1, 2, 3}, {3, 1, 4}, {4, 3, 2}, {2, 4, 3}, {4, 3, 1}, {1, 2, 3}, {2, 4, 3}, {1, 2, 4}, {4, 1, 3}, {4, 1, 2}, {3, 1, 4}, {4, 3, 1}, {2, 3, 4}, {3, 1, 4}, {2, 3, 4}, {3, 1, 2}, {4, 1, 2}, {4, 2, 1}, {3, 2, 4}, {2, 4, 3}, {2, 1, 3}, {3, 4, 2}, {2, 1, 4}, {1, 4, 2}, {2, 4, 3}, {2, 1, 3}, {2, 3, 1}, {1, 2, 3}, {2, 4, 3}, {3, 1, 4}, {4, 1, 3}, {2, 3, 4}, {1, 2, 3}, {3, 1, 2}, {3, 4, 2}, {4, 2, 3}, {2, 1, 3}, {4, 1, 3}, {3, 1, 4}, {1, 4, 2}, {1, 4, 3}, {3, 1, 4}, {3, 2, 1}, {2, 1, 4}, {4, 2, 3}, {1, 2, 4}, {4, 1, 3}, {1, 3, 4}, {3, 2, 4}, {2, 3, 1}, {3, 1, 4}, {1, 2, 3}, {3, 4, 1}, {4, 1, 3}, {3, 4, 2}, {1, 2, 4}, {3, 4, 2}, {1, 2, 3}, {1, 3, 4}, {4, 2, 1}, {4, 3, 2}, {1, 3, 4}, {3, 4, 2}, {3, 4, 2}, {3, 4, 2}, {4, 1, 2}, {1, 3, 2}, {1, 2, 3}, {1, 4, 2}, {4, 1, 3}, {1, 3, 2}, {3, 4, 2}, {4, 1, 3}, {4, 3, 2}, {4, 1, 2}, {4, 2, 1}, {2, 1, 4}, {2, 1, 3}, {4, 3, 2}, {4, 2, 3}, {4, 1, 3}, {1, 3, 4}, {1, 2, 4}, {2, 1, 3}, {4, 2, 3}, {4, 3, 2}, {3, 4, 1}, {4, 2, 1}, {2, 4, 1}, {2, 3, 1}, {1, 2, 4}, {4, 3, 1}, {4, 3, 2}, {4, 2, 3}, {1, 2, 3}, {4, 2, 3}}
  51. Sequence(Sample[Cases, 4], k, 1, 100) → SampleCasesList3, {{1, 2, 4, 3}, {3, 2, 1, 4}, {2, 3, 4, 1}, {2, 4, 3, 1}, {3, 2, 1, 4}, {1, 4, 2, 3}, {2, 3, 4, 1}, {2, 4, 3, 1}, {2, 3, 4, 1}, {4, 3, 1, 2}, {4, 2, 1, 3}, {1, 3, 4, 2}, {4, 3, 2, 1}, {2, 1, 4, 3}, {3, 2, 4, 1}, {4, 3, 1, 2}, {4, 2, 3, 1}, {4, 1, 3, 2}, {3, 4, 1, 2}, {4, 3, 2, 1}, {1, 2, 4, 3}, {1, 4, 2, 3}, {2, 1, 4, 3}, {1, 2, 3, 4}, {1, 4, 3, 2}, {2, 3, 1, 4}, {4, 3, 1, 2}, {4, 1, 3, 2}, {4, 1, 3, 2}, {4, 2, 1, 3}, {1, 3, 2, 4}, {1, 2, 4, 3}, {4, 3, 2, 1}, {3, 2, 1, 4}, {4, 3, 1, 2}, {1, 4, 3, 2}, {3, 2, 1, 4}, {1, 4, 2, 3}, {1, 4, 2, 3}, {4, 2, 1, 3}, {2, 1, 4, 3}, {3, 1, 2, 4}, {1, 3, 2, 4}, {2, 4, 1, 3}, {2, 1, 3, 4}, {2, 4, 3, 1}, {4, 2, 1, 3}, {3, 1, 4, 2}, {4, 2, 1, 3}, {3, 2, 4, 1}, {4, 2, 3, 1}, {3, 1, 2, 4}, {1, 2, 4, 3}, {2, 1, 3, 4}, {4, 3, 2, 1}, {3, 4, 2, 1}, {1, 4, 3, 2}, {4, 2, 3, 1}, {4, 3, 1, 2}, {3, 2, 4, 1}, {3, 4, 2, 1}, {4, 2, 1, 3}, {4, 3, 1, 2}, {4, 1, 3, 2}, {3, 1, 4, 2}, {3, 2, 1, 4}, {3, 2, 4, 1}, {3, 1, 2, 4}, {1, 3, 2, 4}, {2, 1, 4, 3}, {1, 4, 3, 2}, {3, 1, 4, 2}, {2, 4, 1, 3}, {2, 3, 4, 1}, {2, 1, 3, 4}, {1, 4, 2, 3}, {2, 1, 3, 4}, {4, 1, 2, 3}, {1, 2, 4, 3}, {4, 2, 3, 1}, {2, 1, 3, 4}, {4, 1, 3, 2}, {1, 4, 2, 3}, {1, 4, 3, 2}, {1, 3, 4, 2}, {4, 1, 2, 3}, {1, 4, 2, 3}, {2, 4, 3, 1}, {2, 4, 1, 3}, {1, 4, 3, 2}, {1, 3, 2, 4}, {1, 4, 3, 2}, {4, 1, 2, 3}, {1, 3, 2, 4}, {3, 4, 2, 1}, {3, 4, 1, 2}, {4, 1, 2, 3}, {3, 1, 2, 4}, {2, 1, 4, 3}, {2, 4, 3, 1}}
  52. Sequence(RandomElement[If[SampleCasesList3(k, 1) ≟ 1, NumberList1, SampleCasesList3(k, 1) ≟ 2, NumberList2, SampleCasesList3(k, 1) ≟ 3, NumberList3, NumberList4]], k, 1, 100) → NumberList31, {2.8, 0.75, 2.8, 2.5, 1.75, 2.1, 1.5, 2.25, 1.5, 5, 3, 1.5, 5, 2.25, 1.5, 3, 3, 4, 0.5, 1, 1.3, 1.6, 2.2, 0.6, 2.6, 1.75, 2, 2, 3, 5, 1.9, 1.5, 3, 0.25, 1, 2.5, 0.8, 0.5, 0.6, 4, 2.6, 0.4, 0.8, 1.75, 1.75, 1.6, 2, 1.75, 4, 0.4, 3, 0.75, 0.5, 2.8, 1, 0.6, 0.9, 3, 1, 0.8, 1.5, 3, 5, 5, 0.4, 0.8, 1.2, 1.75, 1.4, 1.2, 2.5, 0.75, 1.6, 2.8, 2.25, 2.7, 1.8, 4, 1.4, 2, 1.25, 1, 2.7, 0.3, 1.1, 1, 0.3, 2.4, 2.4, 2.4, 2.2, 0.1, 3, 2.5, 1.6, 0.5, 2, 1.2, 1.8, 1.5}
  53. Sequence(RandomElement[If[SampleCasesList3(k, 2) ≟ 1, NumberList1, SampleCasesList3(k, 2) ≟ 2, NumberList2, SampleCasesList3(k, 2) ≟ 3, NumberList3, NumberList4]], k, 1, 100) → NumberList32, {2.8, 1.2, 1.8, 4, 2.75, 4, 1.2, 3, 1.2, 1.75, 2.2, 0.6, 0.25, 1.9, 1.5, 1.5, 2.6, 1.3, 2, 1.5, 1.6, 4, 1.8, 1.4, 5, 1.75, 0.2, 1.9, 1.1, 1.4, 1.2, 2.25, 0.8, 2.6, 1.2, 5, 2.8, 1, 5, 2.2, 0.2, 2.2, 0.6, 3, 1.9, 1, 1.25, 2.9, 1.5, 2.4, 2.25, 2.2, 2.75, 2.8, 1.5, 4, 5, 2.4, 0.75, 2.25, 4, 2.4, 0.8, 0.3, 1.5, 2.5, 2.4, 2.9, 1.2, 2.1, 2, 2.4, 1, 0.5, 0.2, 2, 2.8, 2.7, 2.4, 1.2, 2.6, 2.6, 4, 1, 0.6, 1.9, 4, 5, 4, 3, 1.5, 5, 0.8, 1.8, 5, 4, 1.5, 2.8, 2.6, 1}
  54. Sequence(RandomElement[If[SampleCasesList3(k, 3) ≟ 1, NumberList1, SampleCasesList3(k, 3) ≟ 2, NumberList2, SampleCasesList3(k, 3) ≟ 3, NumberList3, NumberList4]], k, 1, 100) → NumberList33, {5, 2.8, 4, 0.5, 2.9, 1.75, 3, 1.8, 4, 1.6, 1.2, 2, 2.8, 5, 3, 2.8, 0.6, 0.75, 2.2, 2.2, 4, 2.5, 1, 1.2, 0.6, 2.5, 1.1, 0.5, 0.25, 0.8, 1.4, 2, 2.75, 2.2, 2.2, 1.8, 1.8, 1.75, 2.6, 2.3, 5, 2.6, 1.6, 2.3, 1.5, 1.2, 0.6, 3, 1.1, 5, 1.8, 1.2, 5, 1.2, 1.25, 1.25, 0.8, 1.5, 0.2, 2, 1.5, 2.5, 1.1, 1.2, 2, 0.3, 5, 2.8, 2.6, 1, 0.6, 5, 1.3, 5, 1.6, 1.6, 0.8, 2.2, 4, 0.25, 1.5, 1.25, 1.8, 0.5, 5, 1.2, 1.25, 0.5, 1.8, 0.8, 1.25, 1.2, 2.5, 2.5, 2.4, 1.5, 1.25, 2.8, 2, 1.8}
  55. Sequence(RandomElement[If[SampleCasesList3(k, 4) ≟ 1, NumberList1, SampleCasesList3(k, 4) ≟ 2, NumberList2, SampleCasesList3(k, 4) ≟ 3, NumberList3, NumberList4]], k, 1, 100) → NumberList34, {0.5, 2, 2.9, 0.8, 2, 0.5, 0.4, 0.3, 0.1, 2.4, 1.2, 2.4, 2.4, 1.2, 0.9, 2.25, 0.8, 2.6, 2.2, 2.8, 1.75, 1.5, 1.2, 1, 2.25, 5, 2.75, 1.25, 1.6, 1.2, 4, 1.2, 2.6, 4, 2.6, 2.25, 2, 1.75, 1.25, 1.8, 0.5, 3, 3, 1.75, 3, 0.8, 0.25, 2.75, 1.2, 0.9, 1.6, 5, 1.2, 4, 1.5, 0.6, 2.4, 1.6, 1.8, 2.4, 0.1, 1.6, 2.75, 2.8, 1.2, 5, 0.7, 4, 4, 0.8, 2.4, 2.8, 0.25, 2.5, 1, 0.6, 3, 0.75, 1.5, 2.5, 4, 1.8, 1.2, 1.25, 1.4, 1.75, 0.5, 1.2, 0.6, 1.2, 4, 1.8, 1.25, 2, 1.7, 1.4, 1.2, 5, 1.8, 2.4}
  56. If(CaseN31 ≟ 1, ReplaceAll[(number31 * ""), ".", ","], CaseN31 ≟ 2, (((((floor(number31) * "\frac{") * Numerator[abs(number31 - floor(number31))]) * "}{") * Denominator[number31]) * "}"), CaseN31 ≟ 3, (((("\frac{" * Numerator[number31]) * "}{") * Denominator[number31]) * "}"), ("" * number31)) → txtN31
  57. If(CaseN32 ≟ 1, ReplaceAll[(number32 * ""), ".", ","], CaseN32 ≟ 2, (((((floor(number32) * "\frac{") * Numerator[abs(number32 - floor(number32))]) * "}{") * Denominator[number32]) * "}"), CaseN32 ≟ 3, (((("\frac{" * Numerator[number32]) * "}{") * Denominator[number32]) * "}"), ("" * number32)) → txtN32
  58. If(CaseN33 ≟ 1, ReplaceAll[(number33 * ""), ".", ","], CaseN33 ≟ 2, (((((floor(number33) * "\frac{") * Numerator[abs(number33 - floor(number33))]) * "}{") * Denominator[number33]) * "}"), CaseN33 ≟ 3, (((("\frac{" * Numerator[number33]) * "}{") * Denominator[number33]) * "}"), ("" * number33)) → txtN33
  59. If(CaseN34 ≟ 1, ReplaceAll[(number34 * ""), ".", ","], CaseN34 ≟ 2, (((((floor(number34) * "\frac{") * Numerator[abs(number34 - floor(number34))]) * "}{") * Denominator[number34]) * "}"), CaseN34 ≟ 3, (((("\frac{" * Numerator[number34]) * "}{") * Denominator[number34]) * "}"), ("" * number34)) → txtN34
  60. Sequence(Sample[CasesSign, 4], k, 1, 100) → SampleSignList3, {{3, 4, 2, 1}, {3, 4, 1, 2}, {1, 3, 2, 4}, {2, 3, 1, 4}, {4, 1, 3, 2}, {2, 3, 4, 1}, {3, 2, 1, 4}, {2, 3, 1, 4}, {3, 1, 2, 4}, {1, 3, 4, 2}, {3, 4, 2, 1}, {2, 3, 1, 4}, {4, 2, 3, 1}, {1, 3, 2, 4}, {3, 2, 1, 4}, {1, 4, 3, 2}, {1, 2, 3, 4}, {1, 3, 4, 2}, {1, 3, 4, 2}, {1, 2, 3, 4}, {1, 4, 3, 2}, {4, 3, 2, 1}, {1, 4, 3, 2}, {4, 2, 1, 3}, {1, 3, 4, 2}, {3, 1, 2, 4}, {4, 1, 3, 2}, {1, 4, 2, 3}, {4, 3, 2, 1}, {4, 3, 1, 2}, {1, 2, 3, 4}, {2, 4, 1, 3}, {3, 2, 4, 1}, {2, 1, 3, 4}, {3, 2, 1, 4}, {1, 4, 3, 2}, {3, 4, 2, 1}, {2, 3, 1, 4}, {4, 3, 1, 2}, {1, 2, 4, 3}, {2, 4, 3, 1}, {1, 3, 2, 4}, {1, 4, 3, 2}, {1, 4, 3, 2}, {2, 1, 4, 3}, {4, 3, 1, 2}, {4, 2, 3, 1}, {4, 2, 1, 3}, {4, 2, 3, 1}, {1, 2, 3, 4}, {2, 4, 3, 1}, {4, 2, 3, 1}, {3, 2, 1, 4}, {3, 2, 1, 4}, {4, 3, 1, 2}, {1, 4, 3, 2}, {1, 4, 2, 3}, {4, 2, 1, 3}, {1, 3, 4, 2}, {2, 4, 3, 1}, {2, 1, 3, 4}, {3, 2, 1, 4}, {2, 1, 4, 3}, {4, 1, 2, 3}, {1, 3, 2, 4}, {3, 2, 1, 4}, {1, 4, 2, 3}, {1, 2, 3, 4}, {3, 2, 1, 4}, {3, 1, 2, 4}, {3, 4, 1, 2}, {2, 3, 4, 1}, {3, 1, 2, 4}, {2, 4, 3, 1}, {4, 1, 3, 2}, {1, 4, 2, 3}, {1, 2, 3, 4}, {4, 2, 3, 1}, {1, 3, 2, 4}, {2, 3, 1, 4}, {4, 3, 2, 1}, {4, 3, 1, 2}, {1, 2, 4, 3}, {1, 3, 4, 2}, {4, 1, 3, 2}, {3, 2, 4, 1}, {2, 4, 1, 3}, {2, 1, 4, 3}, {3, 1, 2, 4}, {1, 2, 4, 3}, {1, 3, 4, 2}, {4, 3, 1, 2}, {2, 3, 4, 1}, {3, 4, 2, 1}, {1, 3, 4, 2}, {2, 3, 1, 4}, {4, 1, 2, 3}, {2, 4, 3, 1}, {1, 2, 4, 3}, {1, 2, 4, 3}}
  61. If(solution2 ≠ solution1, solution2, (If[CaseS21 ∈ {1, 3}, -1, 1] * number21) + (If[CaseS22 ∈ {1, 4}, 1, -1] * number22) + (If[CaseS23 ∈ {1, 4}, 1, -1] * number23)) → solutionAlt2
  62. If(solution1 ≠ solution3 ∧ solution2 ≠ solution3, solution3, (If[CaseS31 ∈ {1, 3}, -1, 1] * number31) + (If[CaseS32 ∈ {1, 4}, 1, -1] * number32) + (If[CaseS33 ∈ {1, 4}, 1, -1] * number33) + (If[CaseS34 ∈ {1, 4}, 1, -1] * number34)) → solutionAlt3
  63. If(IsInteger[solution1], 4, abs(solution1) > 1, RandomElement[{1, 2, 3}], RandomElement[{1, 3}]) → CaseSol1
  64. If(CaseSol1 ≟ 1, ReplaceAll[(abs(solution1) * ""), ".", ","], CaseSol1 ≟ 2, (((((floor(abs(solution1)) * "\frac{") * Numerator[abs(abs(solution1) - floor(abs(solution1)))]) * "}{") * Denominator[abs(solution1)]) * "}"), CaseSol1 ≟ 3, (((("\frac{" * Numerator[abs(solution1)]) * "}{") * Denominator[abs(solution1)]) * "}"), ("" * abs(solution1))) → txtSol1
  65. If(IsInteger[solutionAlt2], 4, abs(solutionAlt2) > 1, RandomElement[Remove[{1, 2, 3}, {CaseSol1}]], RandomElement[Remove[{1, 3}, {CaseSol1}]]) → CaseSol2
  66. If(CaseSol2 ≟ 1, ReplaceAll[(abs(solutionAlt2) * ""), ".", ","], CaseSol2 ≟ 2, (((((floor(abs(solutionAlt2)) * "\frac{") * Numerator[abs(abs(solutionAlt2) - floor(abs(solutionAlt2)))]) * "}{") * Denominator[abs(solutionAlt2)]) * "}"), CaseSol2 ≟ 3, (((("\frac{" * Numerator[abs(solutionAlt2)]) * "}{") * Denominator[abs(solutionAlt2)]) * "}"), ("" * abs(solutionAlt2))) → txtSol2
  67. If(IsInteger[solutionAlt3], 4, abs(solutionAlt3) > 1, RandomElement[Remove[{1, 2, 3}, {CaseSol1, CaseSol2}]], RandomElement[Remove[{1, 3}, {CaseSol1}]]) → CaseSol3
  68. If(CaseSol3 ≟ 1, ReplaceAll[(abs(solutionAlt3) * ""), ".", ","], CaseSol3 ≟ 2, (((((floor(abs(solutionAlt3)) * "\frac{") * Numerator[abs(abs(solutionAlt3) - floor(abs(solutionAlt3)))]) * "}{") * Denominator[abs(solutionAlt3)]) * "}"), CaseSol3 ≟ 3, (((("\frac{" * Numerator[abs(solutionAlt3)]) * "}{") * Denominator[abs(solutionAlt3)]) * "}"), ("" * abs(solutionAlt3))) → txtSol3
  69. RandomElement(Remove[{solFalse1, solFalse2, solFalse3}, SolutionList]) → solFalse
  70. If(IsInteger[solFalse], 4, abs(solFalse) > 1, RandomElement[Remove[{1, 2, 3}, {CaseSol2, CaseSol3}]], RandomElement[Remove[{1, 3}, {CaseSol3}]]) → CaseSolFalse
  71. If(CaseSolFalse ≟ 1, ReplaceAll[(abs(solFalse) * ""), ".", ","], CaseSolFalse ≟ 2, (((((floor(abs(solFalse)) * "\frac{") * Numerator[abs(abs(solFalse) - floor(abs(solFalse)))]) * "}{") * Denominator[abs(solFalse)]) * "}"), CaseSolFalse ≟ 3, (((("\frac{" * Numerator[abs(solFalse)]) * "}{") * Denominator[abs(solFalse)]) * "}"), ("" * abs(solFalse))) → txtSolFalse
  72. Text(If[IsImageLeft(OrderLeft(IndexOf[1, OrderLeft])), "", AllTxtLeft(IndexOf[1, OrderLeft])], PL1 + (0, 0.05), false, true, 0, 0) → txtPuzzleLeft1
  73. Text(If[IsImageLeft(OrderLeft(IndexOf[2, OrderLeft])), "", AllTxtLeft(IndexOf[2, OrderLeft])], PL2 + (0, 0.05), false, true, 0, 0) → txtPuzzleLeft2
  74. Text(If[IsImageLeft(OrderLeft(IndexOf[3, OrderLeft])), "", AllTxtLeft(IndexOf[3, OrderLeft])], PL3 + (0, 0.05), false, true, 0, 0) → txtPuzzleLeft3
  75. Text(If[IsImageLeft(OrderLeft(IndexOf[4, OrderLeft])), "", AllTxtLeft(IndexOf[4, OrderLeft])], PL4 + (0, 0.05), false, true, 0, 0) → txtPuzzleLeft4
  76. Text(If[IsImageLeft(OrderLeft(IndexOf[5, OrderLeft])), "", AllTxtLeft(IndexOf[5, OrderLeft])], PL5 + (0, 0.05), false, true, 0, 0) → txtPuzzleLeft5
  77. Text(If[IsImageLeft(OrderLeft(IndexOf[6, OrderLeft])), "", AllTxtLeft(IndexOf[6, OrderLeft])], PL6 + (0, 0.05), false, true, 0, 0) → txtPuzzleLeft6
  78. Text(If[IsImageRight(OrderRight(IndexOf[1, OrderRight])), "", AllTxtRight(IndexOf[1, OrderRight])], PR1 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight1
  79. Text(If[IsImageRight(OrderRight(IndexOf[2, OrderRight])), "", AllTxtRight(IndexOf[2, OrderRight])], PR2 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight2
  80. Text(If[IsImageRight(OrderRight(IndexOf[3, OrderRight])), "", AllTxtRight(IndexOf[3, OrderRight])], PR3 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight3
  81. Text(If[IsImageRight(OrderRight(IndexOf[4, OrderRight])), "", AllTxtRight(IndexOf[4, OrderRight])], PR4 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight4
  82. Text(If[IsImageRight(OrderRight(IndexOf[5, OrderRight])), "", AllTxtRight(IndexOf[5, OrderRight])], PR5 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight5
  83. Text(If[IsImageRight(OrderRight(IndexOf[6, OrderRight])), "", AllTxtRight(IndexOf[6, OrderRight])], PR6 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight6
  84. Text(If[IsImageRight(OrderRight(IndexOf[7, OrderRight])), "", AllTxtRight(IndexOf[7, OrderRight])], PR7 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight7
  85. Text(If[IsImageRight(OrderRight(IndexOf[8, OrderRight])), "", AllTxtRight(IndexOf[8, OrderRight])], PR8 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight8
  86. Sequence(MPList(k) ∈ PRList, k, 1, 6) → ConnectionLeft
  87. Sequence(PRList(k) ≟ MPList(OrderLeft(IndexOf[k, OrderRight])), k, 1, numberOfOptionsRight) → CorrectRightList
  88. PolyLine(Join[{Sequence[MP1 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP1 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP1 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP1 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP1 + (-widthPuzzleRight)), y(MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP1 + (-widthPuzzleRight)), y(MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP1 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution1
  89. Polygon(Join[{Sequence[MP1 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP1 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP1 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP1 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP1 + (-widthPuzzleRight)), y(MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP1 + (-widthPuzzleRight)), y(MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP1 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution1
  90. PolyLine(Join[{Sequence[MP2 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP2 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP2 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP2 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP2 + (-widthPuzzleRight)), y(MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP2 + (-widthPuzzleRight)), y(MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP2 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution2
  91. Polygon(Join[{Sequence[MP2 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP2 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP2 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP2 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP2 + (-widthPuzzleRight)), y(MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP2 + (-widthPuzzleRight)), y(MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP2 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution2
  92. PolyLine(Join[{Sequence[MP3 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP3 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP3 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP3 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP3 + (-widthPuzzleRight)), y(MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP3 + (-widthPuzzleRight)), y(MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP3 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution3
  93. Polygon(Join[{Sequence[MP3 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP3 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP3 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP3 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP3 + (-widthPuzzleRight)), y(MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP3 + (-widthPuzzleRight)), y(MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP3 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution3
  94. PolyLine(Join[{Sequence[MP4 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP4 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP4 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP4 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP4 + (-widthPuzzleRight)), y(MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP4 + (-widthPuzzleRight)), y(MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP4 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution4
  95. Polygon(Join[{Sequence[MP4 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP4 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP4 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP4 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP4 + (-widthPuzzleRight)), y(MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP4 + (-widthPuzzleRight)), y(MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP4 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution4
  96. PolyLine(Join[{Sequence[MP5 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP5 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP5 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP5 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP5 + (-widthPuzzleRight)), y(MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP5 + (-widthPuzzleRight)), y(MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP5 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution5
  97. Polygon(Join[{Sequence[MP5 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP5 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP5 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP5 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP5 + (-widthPuzzleRight)), y(MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP5 + (-widthPuzzleRight)), y(MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP5 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution5
  98. PolyLine(Join[{Sequence[MP6 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP6 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP6 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP6 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP6 + (-widthPuzzleRight)), y(MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP6 + (-widthPuzzleRight)), y(MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP6 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution6
  99. Polygon(Join[{Sequence[MP6 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP6 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP6 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP6 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP6 + (-widthPuzzleRight)), y(MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP6 + (-widthPuzzleRight)), y(MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP6 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution6
  100. Text(If[IsImageRight(IndexOf[1, OrderLeft]), "", AllTxtRight(IndexOf[1, OrderLeft])], MP1 + (0, 0.05), false, true, 0, 0) → txtSolution1
  101. Text(If[IsImageRight(IndexOf[2, OrderLeft]), "", AllTxtRight(IndexOf[2, OrderLeft])], MP2 + (0, 0.05), false, true, 0, 0) → txtSolution2
  102. Text(If[IsImageRight(IndexOf[3, OrderLeft]), "", AllTxtRight(IndexOf[3, OrderLeft])], MP3 + (0, 0.05), false, true, 0, 0) → txtSolution3
  103. Text(If[IsImageRight(IndexOf[4, OrderLeft]), "", AllTxtRight(IndexOf[4, OrderLeft])], MP4 + (0, 0.05), false, true, 0, 0) → txtSolution4
  104. Text(If[IsImageRight(IndexOf[5, OrderLeft]), "", AllTxtRight(IndexOf[5, OrderLeft])], MP5 + (0, 0.05), false, true, 0, 0) → txtSolution5
  105. Text(If[IsImageRight(IndexOf[6, OrderLeft]), "", AllTxtRight(IndexOf[6, OrderLeft])], MP6 + (0, 0.05), false, true, 0, 0) → txtSolution6
  106. Text("\textsf{\bold{\textcolor{#50c1ce}{Zieh mich!}}}", Midpoint[ParkRightList(1), ParkRightList(numberOfOptionsRight)] + ((-widthPuzzleRight) - (2 * radiusPuzzle) - 0.5, 0), false, true, -1, 0) → CapZiehMich
  107. PolyLine(Join[{Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 1)) + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 1)) + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 1)) + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 1)) + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(ParkRightList(OrderRight(numberOfOptionsLeft + 1)) - widthPuzzleRight), y(ParkRightList(OrderRight(numberOfOptionsLeft + 1)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 1)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(ParkRightList(OrderRight(numberOfOptionsLeft + 1)) - widthPuzzleRight), y(ParkRightList(OrderRight(numberOfOptionsLeft + 1)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {ParkRightList(OrderRight(numberOfOptionsLeft + 1)) + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolutionPark1
  108. PolyLine(Join[{Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 2)) + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 2)) + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 2)) + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 2)) + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(ParkRightList(OrderRight(numberOfOptionsLeft + 2)) - widthPuzzleRight), y(ParkRightList(OrderRight(numberOfOptionsLeft + 2)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 2)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(ParkRightList(OrderRight(numberOfOptionsLeft + 2)) - widthPuzzleRight), y(ParkRightList(OrderRight(numberOfOptionsLeft + 2)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {ParkRightList(OrderRight(numberOfOptionsLeft + 2)) + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolutionPark2
  109. PolyLine(Join[{Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 3)) + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 3)) + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 3)) + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 3)) + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(ParkRightList(OrderRight(numberOfOptionsLeft + 3)) - widthPuzzleRight), y(ParkRightList(OrderRight(numberOfOptionsLeft + 3)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 3)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(ParkRightList(OrderRight(numberOfOptionsLeft + 3)) - widthPuzzleRight), y(ParkRightList(OrderRight(numberOfOptionsLeft + 3)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {ParkRightList(OrderRight(numberOfOptionsLeft + 3)) + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolutionPark3
  110. PolyLine(Join[{Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 4)) + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 4)) + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 4)) + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 4)) + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(ParkRightList(OrderRight(numberOfOptionsLeft + 4)) - widthPuzzleRight), y(ParkRightList(OrderRight(numberOfOptionsLeft + 4)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[ParkRightList(OrderRight(numberOfOptionsLeft + 4)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(ParkRightList(OrderRight(numberOfOptionsLeft + 4)) - widthPuzzleRight), y(ParkRightList(OrderRight(numberOfOptionsLeft + 4)) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {ParkRightList(OrderRight(numberOfOptionsLeft + 4)) + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolutionPark4
  111. Text(AllTxtRight(numberOfOptionsLeft + 1), ParkRightList(OrderRight(numberOfOptionsLeft + 1)) + (0, 0.05), false, true, 0, 0) → txtParkSolution1
  112. Text(AllTxtRight(numberOfOptionsLeft + 2), ParkRightList(OrderRight(numberOfOptionsLeft + 2)) + (0, 0.05), false, true, 0, 0) → txtParkSolution2
  113. Text(AllTxtRight(numberOfOptionsLeft + 3), ParkRightList(OrderRight(numberOfOptionsLeft + 3)) + (0, 0.05), false, true, 0, 0) → txtParkSolution3
  114. Text(AllTxtRight(numberOfOptionsLeft + 4), ParkRightList(OrderRight(numberOfOptionsLeft + 4)) + (0, 0.05), false, true, 0, 0) → txtParkSolution4