使用比例模拟水彩颜色：数学与几何的结合

GeoGebra 命令及参数

1. Shuffle(Sequence[2, 16] \ {11, 13, 17, 19}) → randomX, {10, 8, 2, 7, 12, 4, 15, 3, 5, 6, 16, 9, 14}
2. Element(randomX, Mod[countQuestion, Length[randomX]] + 1) → X
3. Shuffle(KeepIf[Mod[ii, X] ≟ 0 ∨ Mod[X, ii] ≟ 0, ii, Sequence[2, 16] \ {X}]) → randomY, {5, 2}
4. Element(randomY, 1) → Y
5. Shuffle(Sequence[6]) → randomColor, {5, 3, 4, 1, 2, 6}
6. Element(randomColor, Mod[countQuestion, Length[randomColor]] + 1) → color
7. Corner(5) → AppSize
8. Shuffle(KeepIf[IsInteger[(ii * Y / X)] ∧ (ii * Y / X) ≤ 20, ii, Sequence[2, 20]]) → randoma, {18, 2, 6, 4, 14, 20, 12, 16, 10, 8}
9. Segment(Vertex[glass1Base], Vertex[glass1Top]) → glass1Left
10. Mirror(glass1Left, yAxis) → glass1Right
11. Translate(glass1Left, displacement) → glass2left
12. Translate(glass1Right, displacement) → glass2Right
13. Translate(glass1Base, displacement) → glassBase2
14. Translate(glass1Top, displacement) → glassTop2
15. Translate(liquidheight2, displacement) → liquidheight2InPlace
16. Element(randoma, 1) → a
17. Polygon({(-1, 0), (1, 0), Intersect[glass1Right, Line[(0, h1), (1, h1)]], Intersect[glass1Left, Line[(0, h1), (1, h1)]]}) → q1
18. Translate(c, displacement) → c'
19. Translate(e, displacement) → e'
20. Polygon({Translate[(-1, 0), displacement], Translate[(1, 0), displacement], Intersect[glass2Right, Line[(0, h2), (1, h2)]], Intersect[glass2left, Line[(0, h2), (1, h2)]]}) → q2
21. Min(X, Y) → smaller
22. Polygon({(1, -1.5), (2, -1.5), (2, -0.5), (1, -0.5)}) → q3
23. Polygon({(2, -1.5), (2, -0.5), (3, -0.5), (3, -1.5)}) → q4
24. Polygon({(1, -1.5), (1, -0.5), (3, -0.5), (3, -1.5)}) → q5
25. If(dropCount2 < b, "\text{Too light...}", dropCount2 ≟ b, "\text{Match!}", "\text{Too dark...}") → feedback
26. Text(feedback, (2, -1.5), true, true, 0, -1) → feedbackPositioned
27. expandQuad(PulsC1, PulsC2, PulsC3, PulsC4, (7 * pulsing), Corner[1], Corner[3], Corner[5]) → pulsingObject