积极 AI Logo 积极 AI

协同笛卡尔素数整数V1.1

协同笛卡尔素数整数V1.1
几何画板及绘图内容加载中，请稍等……
2019-08-13 18:50
三角函数解析几何概率统计几何作图滑块动画
①本范例演示了笛卡尔坐标系中素数整数的协同分布与可视化；②涉及核心数学概念包括素数判定、笛卡尔坐标系、随机实验、减法运算及散点图；③作图要点：使用Segment, Join, Flatten, Point等命令构建图形，涉及对象sv, ev, xp, yp, zp, inc, fine, ps_{01}, a, c, text1, A, B, seg_{real025}, C, D, seg_{real075}, text3, button1, L_{Fib}, Origin, List_{Prime-Ints}, b, d, L_3b, L_1c, L_1a, L_1w, L_1b, L_2b, ps_{02}, L_2a, text4, E, L_{zeros}, View_1；④适合高中数学教学及数论爱好者探索。

GeoGebra 命令及参数

  1. Segment(A, B) → seg_{real025}
  2. Segment(C, D) → seg_{real075}
  3. Join(Sequence[Sequence[Sequence[If[true, Text["(" + (k) + " + " + (j) + " + " + (i) + ") = " + (k + j + i) + " ", (k + xp, j + yp, i + zp), true, true]], i, sv, ev, inc], j, sv, ev, inc], k, sv, ev, inc]) → L_3b
  4. Join(Sequence[Sequence[Sequence[If[k + j + i ∈ List_{Prime-Ints}, Vector[Origin, (k + xp, j + yp, i + zp)]], i, sv, ev, inc], j, sv, ev, inc], k, sv, ev, inc]) → L_1c
  5. Join(Sequence[Sequence[Sequence[If[k + j + i ∈ List_{Prime-Ints}, Sphere[(k + xp, j + yp, i + zp), abs(ps_{01})]], i, sv, ev, inc], j, sv, ev, inc], k, sv, ev, inc]) → L_1a
  6. Flatten(Join[Sequence[Sequence[RemoveUndefined[Sequence[If[k + j + i ∈ List_{Prime-Ints}, k + j + i], i, sv, ev, inc]], j, sv, ev, inc], k, sv, ev, inc]]) → L_1w
  7. Join(Sequence[Sequence[RemoveUndefined[Sequence[If[k + j + i ∈ List_{Prime-Ints} ≠ 0, Text["(" + (k) + " + " + (j) + " + " + (i) + ") = " + (k + j + i) + " ", (ps_{01} + k + xp, ps_{01} + j + yp, ps_{01} + i + zp), true, true]], i, sv, ev, inc]], j, sv, ev, inc], k, sv, ev, inc]) → L_1b
  8. Join(Sequence[Sequence[RemoveUndefined[Sequence[If[k + j + i ∈ List_{Prime-Ints} ≠ 1, Text["(" + (k) + " + " + (j) + " + " + (i) + ") = " + (k + j + i) + " ", (ps_{01} + k + xp, ps_{01} + j + yp, ps_{01} + i + zp), true, true]], i, sv, ev, inc]], j, sv, ev, inc], k, sv, ev, inc]) → L_2b
  9. Join(Sequence[Sequence[RemoveUndefined[Sequence[If[k + j + i ∈ List_{Prime-Ints} ≠ 1, Sphere[(k, j, i), abs(ps_{02} - 0.01)]], i, sv, ev, inc]], j, sv, ev, inc], k, sv, ev, inc]) → L_2a
  10. Point(zAxis) → E
  11. Join(Sequence[Sequence[RemoveUndefined[Sequence[If[k + j + i ≟ 0, Sphere[(k, j, i), abs(ps_{02} - 0.009)]], i, sv, ev, inc]], j, sv, ev, inc], k, sv, ev, inc]) → L_{zeros}