积极 AI Logo 积极 AI

用几何直观比较分数大小（含作图步骤）

用几何直观比较分数大小（含作图步骤）
几何画板及绘图内容加载中，请稍等……
2020-12-28 13:44
数列概率统计不等式几何作图函数图像
该范例通过构造并比较图形位置关系，演示如何用几何方式直观判断两个分数（或等价比值）的大小。核心数学概念包括：有理数表示、分数的大小比较、与分割/对应刻度相关的几何构造；同时会用到分数表达（如 BarFraction）与线/圆等几何元素的交点来建立可比较的度量基础。作图要点可从构造摘要提炼：使用 If 与 Division 完成条件判断与分数/比值计算；借助 Intersect 与 Point 确定关键交点与比较用的几何位置；结合 Circle 与 Translate/Sequence 生成相关位置或辅助轨迹/序列状态；并用 BarFraction、Improp（以及相关对象如 list1、list2 等列表与文本标注 text*）把分数值以条形分数与标注形式呈现在图上，同时设置 a_1、b、g、n、d、m 等参数对象来驱动比较。适合中学阶段（初中到高中）用于分数大小比较、数形结合与几何作图综合练习，也可作为概率统计或代数可视化的引入示例。

GeoGebra 命令及参数

  1. If(m, (a_1 * b), If[d, a_1 / b, If[a, a_1 + b, If[s, a_1 - b]]]) → i
  2. If(m, (n * g), If[d, n / g, If[a, n + g, If[s, n - g]]]) → j
  3. Division(a_1, n) → list8
  4. Intersect(xAxis, yAxis) → A
  5. Point(yAxis) → B
  6. Sequence(Rotate[B, (((-i) * 360) * ° / n), A], i, 0, n) → list1
  7. Circle(A, B) → c
  8. Sequence(Rotate[D, (((-i) * 360) * ° / If[m, (n * g), If[d, n / g, If[a, n + g, If[s, n - g]]]]), C], i, 0, If[m, (n * g), If[d, n / g, If[a, n + g, If[s, n - g]]]]) → list4
  9. Circle(C, D) → f
  10. Sequence(Sector[c, Element[list1, i + 1], Element[list1, i]], i, 1, n) → list2
  11. Sequence(Sector[f, Element[list4, i + 1], Element[list4, i]], i, 1, If[m, (n * g), If[d, n / g, If[a, n + g, If[s, n - g]]]]) → list5
  12. Division(i, j) → list11
  13. If(n > a_1, Sequence[Sector[c, Element[list1, i + 1], Element[list1, i]], i, 1, a_1], Sequence[Sector[c, Element[list1, i + 1], Element[list1, i]], i, 1, a_1]) → list3
  14. Circle(E, G) → p
  15. Circle(F, H) → q
  16. Sequence(Rotate[G, (((-i) * 360) * ° / o), E], i, 0, o) → list14
  17. Sequence(Sector[p, Element[list14, i + 1], Element[list14, i]], i, 1, o) → list12
  18. If(l > o, Sequence[Sector[p, Element[list14, i + 1], Element[list14, i]], i, 1, l], Sequence[Sector[p, Element[list14, i + 1], Element[list14, i]], i, 1, l]) → list15
  19. Sequence(Sector[p, Element[list14, i + 1], Element[list14, i]], i, 1, o) → list16
  20. Sequence(Rotate[H, (((-i) * 360) * ° / If[u, (o * t), If[w, o / t, If[a, o + t, If[s, o - t]]]]), F], i, 0, If[u, (o * t), If[w, o / g, If[a, o + t, If[s, o - t]]]]) → list17
  21. Sequence(Sector[q, Element[list17, i + 1], Element[list17, i]], i, 1, If[u, (o * t), If[w, o / t, If[a, o + t, If[s, o - t]]]]) → list18
  22. If(u, (l * r), If[w, l / r, If[a, a_1 + b, If[s, a_1 - b]]]) → b_1
  23. If(u, (o * t), If[w, o / t, If[a, n + g, If[s, n - g]]]) → c_1
  24. Division(b_1, c_1) → list20
  25. Sequence(Element[list10, i] - (0, 8), i, 1, Length[list10]) → list22
  26. If(j ≥ i, Sequence[Sector[f, Element[list4, n + 1], Element[list4, n]], n, 1, i], Sequence[Sector[f, Element[list4, i + 1], Element[list4, i]], i, 1, Element[list11, 2]]) → list6
  27. If(i > j, Sequence[Circle[Element[list10, i], 0.8], i, 0, Element[list11, 1], 1]) → list9
  28. If(b_1 > c_1, Sequence[Circle[Element[list22, i], 0.8], i, 0, Element[list20, 1], 1]) → list21
  29. Translate({list3, list15}, (v, 0)) → list13
  30. Translate({list6}, (0, g_1)) → list23
  31. BarFraction(a_1, n, I) → list24, list25
  32. BarFraction(l, o, J) → list26, list27
  33. If(m ≟ 1, (a_1 * b), a_1 / b) → r_5
  34. If(m ≟ 1, (n * g), n / g) → s_5
  35. If(u ≟ 1, (o * t), o / t) → v_5
  36. If(u ≟ 1, (l * r), l / r) → t_5
  37. Translate(list24, (v, ((1 / 20 * v) * (v - 8)))) → list25'
  38. Translate(list26, (v, ((1 / 20 * v) * (v - 8)))) → list26'
  39. If(c_1 ≥ b_1, Sequence[Sector[q, Element[list17, o + 1], Element[list17, o]], o, 1, b_1], Sequence[Sector[q, Element[list17, i + 1], Element[list17, i]], i, 1, Element[list20, 2]]) → list19
  40. Improp(v_5, t_5, L) → list31_3, list31, list32
  41. If(t_5 > v_5, Sequence[Polygon[P - (0, i), P - (0, i) + (3, 0), P - (0, i) + (3, 0.5), P - (0, i) + (0, 0.5)], i, 0, Element[list32, 1] - 1]) → list30
  42. If(t_5 > v_5, Sequence[Polygon[P - (0, i), P - (0, i) + (3, 0), P - (0, i) + (3, 0.5), P - (0, i) + (0, 0.5)], i, 0, Element[list32, 1] - 1]) → list33
  43. Improp(s_5, r_5, K) → list28, list29, list34
  44. If(r_5 > s_5, Sequence[Polygon[O - (0, i), O - (0, i) + (3, 0), O - (0, i) + (3, 0.5), O - (0, i) + (0, 0.5)], i, 0, Element[list34, 1] - 1]) → list35
  45. If(r_5 > s_5, Sequence[Polygon[O - (0, i), O - (0, i) + (3, 0), O - (0, i) + (3, 0.5), O - (0, i) + (0, 0.5)], i, 0, Element[list34, 1] - 1]) → list36
  46. If(i > j, Sequence[Circle[Element[list10, i], 0.8], i, 0, Element[list11, 1], 1]) → list37
  47. If(b_1 > c_1, Sequence[Circle[Element[list22, i], 0.8], i, 0, Element[list20, 1], 1]) → list38
  48. Translate(list28, (0, (1.045 * g_1))) → list28'

AI 绘图提示语参考

绘制一个用于比较两个分数大小的几何示意图。以原点为圆心画两个同心圆，分别代表两个分数。每个圆被等分成若干扇形，扇形的数量对应分母，填充的扇形数量对应分子，通过对比两个圆中填充扇形的面积来直观比较分数大小。同时，在圆下方绘制两个条形图，每个条形图被分割成与分母相同的等份，并填充与分子对应的份数，以条形长度辅助比较。此外，在图形一侧用数字标注两个分数的数值及其比值，并添加文字说明比较结果。整体布局清晰，便于教学演示。
以上提示语为根据原始绘图命令整理而来，仅供参考。