计算矩形周长的交互式范例

GeoGebra 命令及参数

1. Shuffle(15…30) → allLen, {21, 30, 16, 28, 29, 22, 19, 20, 25, 23, 26, 18, 17, 27, 24, 15}
2. Element(allLen, Mod[countQuestion, Length[allLen]] + 1) → len
3. Shuffle(Sequence[8, len]) → allWid, {17, 21, 8, 19, 12, 15, 18, 11, 14, 10, 13, 9, 20, 16}
4. Element(allWid, Mod[countQuestion, Length[allWid]] + 1) → wid
5. Textfield(input1) → InputBox1
6. Textfield(input2) → InputBox2
7. Polygon(Zip[PixelsToPoint[Corner[1], Corner[3], Corner[5], A], A, {(pixelsLeft, pixelsTop), (pixelsLeft, y(Corner[5]) - pixelsBottom), Corner[5] - (pixelsRight, pixelsBottom), (x(Corner[5]) - pixelsRight, pixelsTop)}]) → borderBox
8. Corner(5) → layoutAppSize
9. Segment(A, B) → displaySegment
10. expandSegment(A, B, (pulsing * 7), Corner[1], Corner[3], Corner[5]) → pulsingObject
11. onboardingTextOffset(Corner[onboardingText, 1], Corner[onboardingText, 3], onboardingCase, Corner[1], Corner[3], Corner[5]) → OnboardingTextOffset
12. Element({If[layoutX ≟ 16, layoutX - 5, 11], layoutX - 5}, layoutCase) → layoutHintSolnX
13. Polygon(B1, B2, B3, B4) → q1, b1, b2, b3, b4
14. Point(q1) → P
15. PathParameter(P) → pathParP
16. If(pathParP < 0.25, PolyLine[{B1, P}], If[pathParP < 0.5, PolyLine[{B1, B2, P}], If[pathParP < 0.75, PolyLine[{B1, B2, B3, P}], PolyLine[{B1, B2, B3, B4, P}]]]) → pathP
17. PolyLine({B1, B2, B3, B4, B1}) → fullPathP
18. Segment(B1 + (0, -1.5), B2 + (0, -1.5)) → lenLegend
19. Segment(B1 + (-1.5, 0), B4 + (-1.5, 0)) → widLegend
20. Polygon(Corner[textLen, 1] + (-0.9, 0.9), Corner[textLen, 2] + (-0.9, 0.9), Corner[textLen, 3] + (-0.9, 0.9), Corner[textLen, 4] + (-0.9, 0.9)) → poliLen, f, g, h, i
21. Polygon(Corner[textWid, 1] + (-0.9, 0.9), Corner[textWid, 2] + (-0.9, 0.9), Corner[textWid, 3] + (-0.9, 0.9), Corner[textWid, 4] + (-0.9, 0.9)) → poliWid, j, k, l, m
22. Midpoint(Vertex[poliLen, 1], Vertex[poliLen, 3]) → CL
23. Midpoint(Vertex[poliWid, 1], Vertex[poliWid, 3]) → CW
24. Translate(poliLen, Vector[If[formulaSli < 1, Vector[(formulaSli * Vector[CL, TL])], Vector[CL, TL]]]) → poliLenTra
25. Translate(poliWid, Vector[If[formulaSli ≤ 1, Vector[(0 * Vector[CW, TW])], 1 < formulaSli ≤ 2, Vector[((formulaSli - 1) * Vector[CW, TW])], Vector[CW, TW]]]) → poliWidTra