This commit is contained in:
2025-08-14 16:04:59 +08:00
commit d8bceb3fe1
73 changed files with 3644 additions and 0 deletions

62
GGB_14_1.txt Normal file
View File

@@ -0,0 +1,62 @@
### 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