内切圆与外接圆的动态演示

GeoGebra 命令及参数

1. Flatten(Sequence[Sequence[(i * B) + (j * C), i, 0, 1, step], j, 0, 1, step]) → l1
2. Polygon(A, B, C) → t1, c, a, b
3. Sequence(If[IsInRegion[Element[l1, k], t1], Element[l1, k]], k, 1, Length[l1]) → l2
4. AngularBisector(A, C, B) → f
5. AngularBisector(C, A, B) → g
6. Intersect(f, g) → D
7. Min(anim, 0.99) → d
8. Distance(D, a) → r
9. If(Distance[E, a] > (d * r) ∧ Distance[E, b] > (d * r) ∧ Distance[E, c] > (d * r), Circle[E, (d * r)]) → e
10. Sequence(If[Distance[Element[l2, k], a] > (d * r) ∧ Distance[Element[l2, k], b] > (d * r) ∧ Distance[Element[l2, k], c] > (d * r), Circle[Element[l2, k], (d * r)]], k, 1, Length[l2]) → l3
11. Sequence(If[Distance[Element[l2, k], a] > (d * r) ∧ Distance[Element[l2, k], b] > (d * r) ∧ Distance[Element[l2, k], c] > (d * r), {Circle[Element[l2, k], (d * r)], Element[l2, k]}], k, 1, Length[l2]) → l4
12. Circle(D, (d * r)) → h