nuevo codigo pentagono en forma de baldosas
El 29 de julio, vi un tweet que una 15 tipo de Pentágono mosaico había sido descubierto por Casey Mann, Jennifer McLoud-Mann y David Von Derau en la Universidad de Washington, Bothell. Inmediatamente agregado a mi demostración de embaldosados del Pentágono, luego pasó a la página de mosaico pentagonal de Wikipedia para actualizar mi imagen 2009 de la demo. Una semana más tarde la imagen fue publicada ampliamente en lugares como The Guardian y npr.org.
El pentágono azulejos con un motivo de 12 pentágonos.
Aquí hay algo de código para mostrarlo.
motif = Polygon /@ pent15;
colors = ;
Graphics[{EdgeForm[Black], Table[{colors[[Mod[x, 3, 1], Mod[y, 3, 1]]], Translate[motif, x offset15[[1]] + y offset15[[2]]]},
{x, 0, 2}, {y, -5, 8}]}, PlotRange -> , ImageSize -> {660, 220}