Иллюстрированный самоучитель по Mathematica 5

Несколько графиков на одном чертеже (функция GraphicsArray)

Когда будете выполнять эту программу, перед вами промелькнет 54 графика, которые рассмотреть вы, конечно, не успеете. Зато в конце вы увидите следующую картинку.

Иллюстрированный самоучитель по Mathematica 5 › Мультимедиа: геометрия, графика, кино, звук › Несколько графиков на одном чертеже (функция GraphicsArray)

Я думаю, вы без труда найдете здесь окружность.

Конечно, в рассмотренном примере нам немного повезло. Ведь параметры были последовательными натуральными числами. Благодаря этому было так легко организовать перебор их значений с помощью параметра функции Table. Но что делать, если нужно вычертить, скажем, четыре десятка кривых, параметры которых просто заданы таблицей?

Пример 9.19. Циклоиды.

Пусть семейство циклоид задается параметрическим уравнением:

Иллюстрированный самоучитель по Mathematica 5 › Мультимедиа: геометрия, графика, кино, звук › Несколько графиков на одном чертеже (функция GraphicsArray), где е – фиксированный единичный вектор, а Rф – поворот вокруг начала координат на угол φ. Пусть параметры г,, г2 и а заданы таблицей (всего 40 наборов параметров в таблице).

№n/n r1 r2 а
1 2 -1 1
2 3 -1 1
3 3 -2 2
4 4 -1 1

Как начертить все нужные нам кривые, не задавая в их уравнениях параметры вручную? Для этого придется превратить таблицу в список наборов параметров.

Иллюстрированный самоучитель по Mathematica 5 › Мультимедиа: геометрия, графика, кино, звук › Несколько графиков на одном чертеже (функция GraphicsArray)

Заметьте, что порядковый номер включен в набор параметров первым элементом. Это значительно облегчает поиск нужного набора параметров в таблице.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.