积极 AI Logo 积极 AI

截角方反棱柱的顶点平均距离依赖性

截角方反棱柱的顶点平均距离依赖性
几何画板及绘图内容加载中，请稍等……
2020-01-13 20:52
多边形立体几何最值优化几何作图滑块动画
本范例展示了截角方反棱柱的顶点平均距离如何随截断参数变化。通过调整截断参数，观察顶点分布的极端情况。使用了Join, Unique, Length, Text, Sum, Sphere, Ray, Zip, UnicodeToLetter, TableText等命令。适合高中数学教学，特别是解析几何和立体几何领域。

GeoGebra 命令及参数

  1. Join(Zip[lP0(x(a)) + ((lP0(y(a)) - lP0(x(a))) * {t, 1 - t}), a, segN]) → lVV
  2. Unique(lVV) → lP'
  3. Length(lP') → n
  4. Length(lVV(1)) → R2
  5. Text("" + p3) → txt_p
  6. Sum(Flatten[Sequence[Append[Sequence[Element[txt_p, i], i, m1(k), m2(k)], " "], k, 1, 5]]) → txtUm1
  7. Sphere(O, R1) → sp1
  8. Sphere(O, R2) → sp2
  9. Ray(B, AA) → h
  10. Text(text12, C, false, true) → text8
  11. Zip(Polygon[a], a, v_poly08) → poly08
  12. Zip(Segment[lP0(x(a)), lP0(y(a))], a, segN1) → seg1
  13. Zip(Segment[lP0(x(a)), lP0(y(a))], a, segN2) → seg2
  14. Zip(Polygon[a], a, v_poly04) → poly04
  15. Zip(Polygon[a], a, v_poly06) → poly06
  16. UnicodeToLetter(34) → u34
  17. Zip(Segment[lVV(x(a)), lVV(y(a))], a, segNΔ4) → segΔ4
  18. Zip(Segment[lVV(x(a)), lVV(y(a))], a, segNΔ8) → segΔ8
  19. Zip(Segment[lVV(x(a)), lVV(y(a))], a, segNΔ6) → segΔ6
  20. TableText(Append["\;\;\; \fgcolor{#08E8DE}{4-gons}", segΔ4], Append["\;\;\; \fgcolor{#B5A642}{6-gons}", segΔ4], Append["\;\;\; \fgcolor{#007FFF}{8-gons}", segΔ8], "v") → text3a