Dans un café de Bristol

Un carrelage irrégulier dans un café de Bristol induit des chercheurs de l'université de Bristol à mettre au point cet effet.

Vous pouvez changer la fonction f (ici une sinusoïde).

f(x)=

liste1 = Sequence(Polygon[(0, (2 * k)), (0, (2 * k) + 1), 4], k, 0, 10)
f(x) = sin((π * x / 4))
liste2 = Sequence(Translate[liste1, (k, f(k))], k, 1, 14)
liste3 = Sequence(Line[(k, 0), (k, 1)], k, 1, 14)
ChampTexte1 = Textfield(f)