黄金矩形与螺旋
几何画板及绘图内容加载中,请稍等……
①本范例演示黄金矩形及其螺旋线的构造与性质;②涉及核心数学概念包括黄金分割比、几何作图、解析几何;③作图要点:使用Polygon(多边形)、Line(线)、OrthogonalLine(垂线)、Intersect(交点)、Circle(圆)、Vector(向量)、Sequence(数列)、CircleArc(圆弧)、Point(点)、Length(长度)等GeoGebra命令;④适合高中及以上数学学习者,用于理解黄金分割在几何中的应用与美感。
GeoGebra 命令及参数
Polygon(A, B, 4) → poly1, f, g, h, i, C, DLine(F, G) → jOrthogonalLine(H, j) → kOrthogonalLine(E, j) → lIntersect(j, k) → IIntersect(j, l) → JCircle(J, I) → cIntersect(c, l, 2) → KLine(K, j) → mIntersect(k, m) → LVector(A, J) → u_1Sequence(Rotate[Dilate[Translate[poly1, u_1], b^(i)], (i * π / 2)], i, 0, 10, 1) → list1CircleArc(A, B, D) → dSequence(Rotate[Dilate[Translate[d, u_1], b^(i)], (i * π / 2)], i, 0, 10, 1) → list2Point(c) → K_1Point(c) → K_2CircleArc(J, K_1, K_2) → eLength(Segment[I, J]) → nLength(Segment[G, F]) → oLength(Segment[E, F]) → pLength(Segment[E, F]) → rLength(Segment[G, H]) → sVector(A, I) → u_2Vector(A, L) → u_3Vector(A, K) → u_4Sequence(Rotate[Dilate[Translate[poly1, u_3], b^(i)], (i * π / 2)], i, 0, 10, 1) → list3Sequence(Rotate[Dilate[Translate[poly1, u_4], b^(i)], (i * π / 2)], i, 0, 10, 1) → list4Sequence(Rotate[Dilate[Translate[poly1, u_2], b^(i)], (i * π / 2)], i, 0, 10, 1) → list5CircleArc(B, C, A) → qCircleArc(C, D, B) → tCircleArc(D, A, C) → d_1Sequence(Rotate[Dilate[Translate[q, u_2], b^(i)], (i * π / 2)], i, 0, 10, 1) → list6Sequence(Rotate[Dilate[Translate[d_1, u_4], b^(i)], (i * π / 2)], i, 0, 10, 1) → list7Sequence(Rotate[Dilate[Translate[t, u_3], b^(i)], (i * π / 2)], i, 0, 10, 1) → list8