球面三角形内角和
几何画板及绘图内容加载中,请稍等……
①本范例演示球面上三角形的内角和现象;②涉及核心数学概念包括球面几何、角度测量、非欧几何;③构造要点:使用Intersect、Sphere、IntersectPath、Point、CircleArc、Midpoint、Line等GeoGebra命令绘制球面三角形并计算内角和;④适合高中及以上学生及几何爱好者学习球面几何性质。
GeoGebra 命令及参数
Intersect(zAxis, xAxis) → ASphere(A, 1) → aIntersect(xAxis, a, 2) → BIntersectPath(xOyPlane, a) → cPoint(c) → CPointIn(a) → DCircleArc(A, B, D) → dCircleArc(A, C, D) → eIntersect(xAxis, d, 1) → ECircleArc(A, E, C) → fMidpoint(D, E) → FLine(A, F) → gIf(0 ≤ n < 1, Rotate[D, (n * π), g], B) → GIf(0 ≤ n < 1, Rotate[B, (n * π), g], D) → HIf(0 ≤ n < 1, Rotate[C, (n * π), g], Rotate[C, π, g]) → ICircleArc(A, G, H) → hCircleArc(A, G, I) → kCircleArc(A, H, I) → pMidpoint(D, C) → JMidpoint(I, E) → KPlane(K, J, A) → bOrthogonalLine(A, b) → iIf(2 ≤ n < 3, Rotate[e, ((-(n - 2)) * Angle[K, A, J]), i], k) → qIf(2 ≤ n < 3, Rotate[D, ((-(n - 2)) * Angle[J, A, K]), i], Rotate[D, (-Angle[J, A, K]), i]) → LIf(2 ≤ n < 3, Rotate[C, ((-(n - 2)) * Angle[J, A, K]), i], Rotate[C, (-Angle[J, A, K]), i]) → MIf(2 ≤ n < 3, Rotate[B, ((-(n - 2)) * Angle[J, A, K]), i], Rotate[B, (-Angle[J, A, K]), i]) → NCircleArc(A, L, N) → rCircleArc(A, M, N) → sLine(A, D) → jLine(A, C) → lOrthogonalPlane(D, j) → mPlane(D, A, E) → oPlane(D, A, C) → tIntersectPath(t, m) → f_1IntersectPath(o, m) → g_1Circle(D, 0.2, j) → c_1Intersect(g_1, c_1) → O, PIntersect(f_1, c_1) → Q, RCircleSector(D, P, R) → d_1If(0 ≤ n < 1, Rotate[d_1, (n * π), g], Rotate[d_1, π, g]) → e_1If(2 ≤ n < 3, Rotate[d_1, ((-(n - 2)) * Angle[J, A, K]), i], Rotate[d_1, (-Angle[J, A, K]), i]) → h_1OrthogonalPlane(E, xAxis) → uIntersectPath(o, u) → i_1IntersectPath(xOyPlane, u) → j_1Circle(E, 0.2, xAxis) → k_1Intersect(i_1, k_1) → S, TIntersect(j_1, k_1) → U, VCircleSector(E, S, U) → p_1If(0 ≤ n < 1, Rotate[p_1, (n * π), g], Rotate[p_1, π, g]) → q_1If(2 ≤ n < 3, Rotate[p_1, ((-(n - 2)) * Angle[J, A, K]), i], Rotate[p_1, (-Angle[J, A, K]), i]) → r_1Plane(A, D, C) → vOrthogonalPlane(C, l) → wIntersectPath(v, w) → l_1IntersectPath(w, xOyPlane) → m_1Circle(C, 0.2, l) → s_1Intersect(l_1, s_1) → W, ZIntersect(m_1, s_1) → A_1, B_1CircleSector(C, Z, A_1) → t_1If(0 ≤ n < 1, Rotate[t_1, (n * π), g], Rotate[t_1, π, g]) → c_2If(2 ≤ n < 3, Rotate[t_1, ((-(n - 2)) * Angle[J, A, K]), i], Rotate[t_1, (-Angle[J, A, K]), i]) → d_2
AI 绘图提示语参考
在一个球体上绘制一个球面三角形,展示其内角和大于180度的特性。首先画出球体的赤道和经线,确定三角形的顶点。然后连接顶点形成球面三角形,并分别画出每个内角的弧。接着,通过旋转和辅助线,标示出内角和的测量过程,最后用不同颜色的弧线突出显示内角和,直观体现球面几何与欧氏几何的差异。
以上提示语为根据原始绘图命令整理而来,仅供参考。