概率中的牌分布 by Chame

GeoGebra 命令及参数

1. Sequence(Random[1, 52 - k], k, 0, n - 1) → liste1
2. Sequence(k, k, 1, 52) → liste2
3. Element(liste1, 1) → carte1
4. KeepIf(x ≠ carte1, liste2) → liste3
5. Element(liste3, Element[liste1, 2]) → carte2
6. KeepIf(x ≠ carte2, liste3) → liste4
7. Element(liste4, Element[liste1, 3]) → carte3
8. KeepIf(x ≠ carte3, liste4) → liste5
9. Element(liste5, Element[liste1, 4]) → carte4
10. Mod(carte1, 13) → A1
11. Mod(carte2, 13) → B1
12. Mod(carte3, 13) → C1
13. Mod(carte4, 13) → D1
14. Sum(B3:B8) → B9
15. Element(cartes, carte1) → Cart1
16. Vector(A, B) → u
17. Translate(Element[cartes, carte2], u) → Cart2
18. Translate(Element[cartes, carte3], Vector[2 * u]) → Cart3
19. Translate(Element[cartes, carte4], Vector[3 * u]) → Cart4
20. KeepIf(x ≠ carte4, liste5) → liste6
21. Element(liste6, Element[liste1, 5]) → carte5
22. Translate(Element[cartes, carte5], Vector[4 * u]) → Cart5
23. Mod(carte5, 13) → E1
24. Sum(F3:F12) → F13