积极 AI Logo 积极 AI

矩形周长与面积计算 by Eduardo Neto

矩形周长与面积计算 by Eduardo Neto
几何画板及绘图内容加载中，请稍等……
2017-08-29 03:46
多边形解析几何
①本范例演示矩形的周长与面积计算；②涉及核心数学概念包括周长、面积、矩形性质、相似变换、线性回归、内切圆、相关性；③作图要点：运用了Sort, Polygon, Sequence, Rotate, Flatten, Max等GeoGebra命令及对象如panneeded, panner, permtimer, B, A, D, C, xvalues, xmin, yvalues, ymin, poly1, a, d, b, c, list8, list5, list7, list12, list6, list13, F, list14, list11, E, Area, perm, button1, button2, opacity, arealist, list1, areatimer, list2, list3, list4, e, areanumbers, list9；④适合初中及以上学生及数学爱好者学习几何计算与变换

GeoGebra 命令及参数

  1. Sort({x(A), x(B), x(C), x(D)}) → xvalues
  2. Sort({y(A), y(B), y(C), y(D)}) → yvalues
  3. Polygon(A, D, B, C) → poly1, a, d, b, c
  4. Sequence(Point[{xmin + c - i, ymin}], i, 1, c) → list8
  5. Sequence(Point[{xmin, ymin + i}], i, 0, a) → list5
  6. Sequence(Rotate[Point[{xmin + c, ymin + a - i}], (permtimer * ((-π)) / 2), (xmin + c, ymin)], i, 1, a) → list7
  7. Rotate(list5, (permtimer * ((-π)) / 2), list7(a)) → list12
  8. Sequence(Rotate[Point[{xmin + i, ymin + a}], (permtimer * ((-π)) / 2), list7(a)], i, 1, c) → list6
  9. Rotate(list12, (permtimer * ((-π)) / 2), list6(c)) → list13
  10. Rotate(list13, (permtimer * ((-π)) / 2), F) → list14
  11. Rotate(list6, (permtimer * ((-π)) / 2), list6(c)) → list11
  12. Sequence(Point[{Min[xvalues] + i, Min[yvalues] - 4}], i, 0, Area - 1) → arealist
  13. Flatten(Sequence[Sequence[Point[{Min[xvalues] + i, Min[yvalues] + j}], i, 0, c - 1], j, 0, a - 1]) → list1
  14. Sequence((list1(i) * (1 - areatimer)) + (arealist(i) * areatimer), i, 1, Area) → list2
  15. Sequence(Polygon[list2(i), list2(i) + (1, 0), 4], i, 1, Area) → list3
  16. Sequence(Polygon[arealist(i), arealist(i) + (1, 0), 4], i, 1, Area) → list4
  17. Sequence(Text[i, arealist(i) + (0.1, 0.2)], i, 1, Area) → areanumbers
  18. Flatten({Reverse[list8], Reverse[list7], Reverse[list11], Reverse[list14]}) → list9
  19. Sequence(Point[{Min[xvalues] + i, Min[yvalues] - 2}], i, 0, perm) → permlist
  20. Sequence((permlist(i) * permmover) + (list9(i) * (1 - permmover)), i, 1, Length[list9]) → list10
  21. Sequence(Segment[list10(i), list10(i + 1)], i, 1, perm) → list15
  22. Max(a + 1, ((R - L) * 17.4 / 32) + BOT) → T