随机力系统

GeoGebra 命令及参数

1. Polygon((0, 0), (2, 0), (2, 1), (0, 1)) → q1, f, g, h, i
2. Shuffle({0°, 90°, 180°, 270°, Random[0, 360]°, Random[0, 360]°}) → l2, {180*°, 293*°, 270*°, 104*°, 0*°, 90*°}
3. Sequence(RandomElement[l1], i, 1, 4) → l4
4. Sequence(random() + 1, i, 1, 4) → lengths
5. Sequence(Vector[Element[l4, i], Element[l4, i] + (Element[lengths, i] * (cos(Element[l2, i]), sin(Element[l2, i])))], i, 1, 5) → l3
6. Sequence(Line[Element[l4, i], Element[l4, i] + (Element[lengths, i] * (cos(Element[l2, i]), sin(Element[l2, i])))], i, 1, 5) → l5
7. Corner(2) → Export_1