62 lines
1.5 KiB
Plaintext
62 lines
1.5 KiB
Plaintext
|
### Geogebra 指令集生成报告
|
|||
|
|
|
|||
|
|
#### [修正报告]
|
|||
|
|
- 坐标系原点修正：根据规则，选择最长边（AB）的左端点 A 作为原点 (0,0)
|
|||
|
|
- 水平约束修正：强制 AB 保持水平（y=0）
|
|||
|
|
- 几何关系验证：所有垂直关系（AC⊥BD, CF⊥BE）已通过坐标计算验证
|
|||
|
|
- 动态点处理：点 E 在 OA 上移动，添加滑块控制
|
|||
|
|
|
|||
|
|
#### [坐标摘要]
|
|||
|
|
```
|
|||
|
|
A(0,0), B(4,0), C(4,4), D(0,4),
|
|||
|
|
O(2,2), E(2e,2e),
|
|||
|
|
F(垂足:BE与CF交点), P(OB与CF交点)
|
|||
|
|
滑块 e ∈ [0,1] (初始值 0.1)
|
|||
|
|
```
|
|||
|
|
|
|||
|
|
#### [Geogebra 指令]
|
|||
|
|
```geogebra
|
|||
|
|
A=(0,0)
|
|||
|
|
B=(4,0)
|
|||
|
|
C=(4,4)
|
|||
|
|
D=(0,4)
|
|||
|
|
O=(2,2)
|
|||
|
|
e=Slider(0,1,0.01,1,140,false,true,false,false)
|
|||
|
|
SetValue(e,0.1)
|
|||
|
|
E=(2*e,2*e)
|
|||
|
|
AB=Segment(A,B)
|
|||
|
|
BC=Segment(B,C)
|
|||
|
|
CD=Segment(C,D)
|
|||
|
|
DA=Segment(D,A)
|
|||
|
|
AC=Segment(A,C)
|
|||
|
|
BD=Segment(B,D)
|
|||
|
|
OA=Segment(O,A)
|
|||
|
|
OB=Segment(O,B)
|
|||
|
|
ShowLabel(AB,false)
|
|||
|
|
ShowLabel(BC,false)
|
|||
|
|
ShowLabel(CD,false)
|
|||
|
|
ShowLabel(DA,false)
|
|||
|
|
ShowLabel(AC,false)
|
|||
|
|
ShowLabel(BD,false)
|
|||
|
|
ShowLabel(OA,false)
|
|||
|
|
ShowLabel(OB,false)
|
|||
|
|
BE=Segment(B,E)
|
|||
|
|
ShowLabel(BE,false)
|
|||
|
|
lineBE=Line(B,E)
|
|||
|
|
perp=PerpendicularLine(C,lineBE)
|
|||
|
|
F=Intersect(perp,Segment(B,E))
|
|||
|
|
P=Intersect(perp,Segment(O,B))
|
|||
|
|
CF=Segment(C,F)
|
|||
|
|
ShowLabel(CF,false)
|
|||
|
|
SetVisibleInView(lineBE,1,false)
|
|||
|
|
SetVisibleInView(perp,1,false)
|
|||
|
|
ShowGrid(false)
|
|||
|
|
ShowAxes(false)
|
|||
|
|
```
|
|||
|
|
|
|||
|
|
> **指令说明**
|
|||
|
|
> 1. 所有线段均按题目要求用 `Segment` 创建
|
|||
|
|
> 2. 动态点 E 由滑块控制（沿 OA 移动）
|
|||
|
|
> 3. 隐藏辅助线（lineBE, perp）保留几何结构
|
|||
|
|
> 4. 严格满足：AB水平，O为中心，CF⊥BE
|
|||
|
|
> 5. 初始状态：E 位于 OA 上靠近 A 的位置（e=0.1）
|