正六边形内含正三角形阴影区域

GeoGebra 命令及参数

1. Sequence(((r * cos((i * 60°) + ang)), (r * sin((i * 60°) + ang))), i, 1, 6, 1) → l1
2. Polygon(l2) → t1
3. Polygon(l1) → poly1
4. PolyLine(Append[l1, Element[l1, 1]]) → f
5. PolyLine(Append[l2, Element[l2, 1]]) → g
6. Textfield(L) → InputBox1
7. Segment(Element[l1, 1], Element[l1, 2]) → h
8. Segment(Element[l2, 1], Element[l2, 2]) → i
9. Angle(Element[l1, 3], Element[l1, 2], Element[l1, 1]) → α
10. Length(l1) → n
11. Sequence(Angle[Element[l1, Mod[i + 2, 6] + 1], Element[l1, Mod[i + 1, 6] + 1], Element[l1, Mod[i, 6] + 1]], i, 1, 6, 1) → l3