Fractals in GeoGebra

Two fractals in GeoGebra: Menger Sponge (link) and Sierpinski Triangle.

GeoGebra Sierpinski:

A1={Polygon[(0,0),(10,0), 3]}
A2=Join[Zip[{polygon[point[A, 0], point[A,1/6], 3], polygon[point[A,1/6], point[A,1/3],3], polygon[point[A, 5/6], point[A, 1/2], 3]}, A, A1]]
B2=Join[{},{Zip[polygon[point[A, 1/6], point[A,1/2], 3], A, A1]}]
Copy A2&B2 to A3&B3.

— Tim (@timteachesmath) July 13, 2019