Показывал студентам всякие приемы работы в среде Mathematica
Ввел такое: ParametricPlot[{2Sin[Sqrt[5] t],3Cos[Sqrt[2]t]},{t,0,100},Axes->False]

Получил такое:


Реакция была синхронной и почти одинаковой. Только они сказали: "Подушка!", а я: "Простыня!"

Так что, уважаемые текстильщики, если нужны образцы рисунков - обращайтесь. Контактные данные в профиле...