比较随机商的大小

比较随机商的大小
几何画板及绘图内容加载中,请稍等……
2015-05-19 01:35
这个范例演示了如何通过随机生成商进行比较。核心数学概念包括除法和概率统计。通过使用GeoGebra命令如Sequence、Intersect、Point等,可以构造出一系列随机商,并进行排序。适合初中及以上学生学习除法和概率统计。

GeoGebra 命令及参数

  1. Sequence(Random[2, 9], i, 1, n) → factor1
  2. Sequence((Element[factor1, i] * Random[2, 9]), i, 1, n) → product
  3. Sequence(Element[product, i] / Element[factor1, i], i, 1, n) → answer
  4. Intersect(xAxis, yAxis) → A
  5. Point(xAxis) → B
  6. Segment(A, B) → a
  7. Sequence(Polygon[A + ((20 / (n - 1) * i), 0), A + (4, 0) + ((20 / (n - 1) * i), 0), 4], i, 0, n - 1) → rects
  8. Vector(C, D) → u
  9. If(IsInRegion[ONE, Element[rects, 1]], 1, (IsInRegion[ONE, Element[rects, 2]] * 2) + (IsInRegion[ONE, Element[rects, 3]] * 3) + (IsInRegion[ONE, Element[rects, 4]] * 4) + (IsInRegion[ONE, Element[rects, 5]] * 5)) → order1
  10. If(IsInRegion[TWO, Element[rects, 1]], 1, (IsInRegion[TWO, Element[rects, 2]] * 2) + (IsInRegion[TWO, Element[rects, 3]] * 3) + (IsInRegion[TWO, Element[rects, 4]] * 4) + (IsInRegion[TWO, Element[rects, 5]] * 5)) → order2
  11. If(IsInRegion[THREE, Element[rects, 1]], 1, (IsInRegion[THREE, Element[rects, 2]] * 2) + (IsInRegion[THREE, Element[rects, 3]] * 3) + (IsInRegion[THREE, Element[rects, 4]] * 4) + (IsInRegion[THREE, Element[rects, 5]] * 5)) → order3
  12. If(IsInRegion[FOUR, Element[rects, 1]], 1, (IsInRegion[FOUR, Element[rects, 2]] * 2) + (IsInRegion[FOUR, Element[rects, 3]] * 3) + (IsInRegion[FOUR, Element[rects, 4]] * 4) + (IsInRegion[FOUR, Element[rects, 5]] * 5)) → order4
  13. If(IsInRegion[FIVE, Element[rects, 1]], 1, (IsInRegion[FIVE, Element[rects, 2]] * 2) + (IsInRegion[FIVE, Element[rects, 3]] * 3) + (IsInRegion[FIVE, Element[rects, 4]] * 4) + (IsInRegion[FIVE, Element[rects, 5]] * 5)) → order5
  14. Remove(First[{order1, order2, order3, order4, order5}, n], {0, 0, 0, 0, 0}) → PlacedAnswers