PROGRAM MAPEL 18

restart; with(plots); with(plottools); with(geometry); A := polygonplot([[-.25, -.43], [.25, -.43], [.5, 0], [.25, .43], [-.25, .43], [-.5, 0]], color = cyan); B := plot([.25*cos(t), 0.58e-1*sin(t)-.43, t = Pi .. 0*Pi], thickness = 2, color = black); B1 := rotate(B, (1/3)*Pi); B2 := rotate(B1, (1/3)*Pi); B3 := rotate(B2, (1/3)*Pi); B4 := rotate(B3, (1/3)*Pi); B5 := rotate(B4, (1/3)*Pi); B6 := rotate(B5, (1/3)*Pi); display({A, B1, B2, B3, B4, B5, B6});