Beginfig (1) u: = 1cm; Pair T; T = DIR (60); Pair a []; pair b []; A0 = (0, 0); b0 = (u, 0); for i = 1 Upto 6: Pair C []; pair d []; c0 = a [i-1]; d0 = b [i-1]; for j = 1 UPTO 5: C [J] = C [J-1] D [J-1]; DRAW C [J-1] - C [J]; D [J] = (XPART T * XPART D [J-1] - YPART T * YPART D [J-1], XPart T * YPART D [J-1] Ypart T * XPART D [J-1]); Endfor; A [i] = a [i-1] b [i-1]; b [i] = (xPart T * XPART B [I-1] YPART T * YPART B [I-1], XPART T * YPART B [I-1] - YPART T * XPART B [I-1]); Endfor; Dotlabel.lrt (" 0 ", 1/2 [A0, A3] (- 5, 5)); Endfig; Draw five sides each time, a total of seven hexagons. It is a small honeycomb.
Graphics:
