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

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

Теперь мы хотим написать программу, которая печатает на одном чертеже графики с порядковыми номерами в заданном диапазоне, располагая их по т штук в ряду.

Сначала определим вращающийся единичный вектор.

Rphi[phi_] := {Cos[phi],Sin[phi]}

После этого можно дать определение функции PolarXYAB для наших циклоид.

PolarXYAB[t_,r 1_,r2_,a_,omega_]= r1+r2*Rphi[t]+a*Rphi[omega*t]

Теперь определим функцию, рисующую отдельный график.

gg[n_] := Block[{plot,r1=parTable[[n]] [[2]],r2=parTable[[n]] [ [3]],
a=parTable[[n]] [[4]]},
plot=ParametricPlot[PolarXYAB[t,r1,r2,a,omega],
{t,0.2 Denominator[omega]Pi}, Axes > False,
PlotLabel > "n="oToString [n] ] ]

Теперь можем нарисовать, например, первые 15 циклоид, параметры которых соответствуют порядковым номерам с 1 по 15 в нашей таблице. (Они все будут круговыми циклоидами.)

Вот как это делается.

Block[{n,m=5,omega=1/7},
Show[GraphicsArray[
Table[Table[gg[n=(a-l)*m+b],{b,m}],{a,3}]]]]

Перед вами промелькнут 15 графиков, а в конце вы увидите вот что.

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

Чтобы начертить графики 16 и 17, в программе изменяется лишь m и начальный порядковый номер.

Block[{n,m=2,omega=1/7},
Show[GraphicsArray[
Table[Table[gg[n=15+(a-1)*m+b],{b,m}],{a,1}]]]]

В конце вы увидите следующее.

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

Это развернутые циклоиды.

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