Мультимедиа: геометрия, графика, кино, звук


Пример 4



Пример 4




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

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

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

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

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

Теперь определим функцию, рисующую отдельный график.
gg[n_]:=Block[{plot,rl=parTable[[n]] [[2]],r2=parTable[[n]] [ [3]], a=parTable[[n]] [[4]]}, plot=ParametricPlot[PolarXYAB[t,rl,r2,a,omega], {t,0,2 Denominator[omega]Pi}, Axes->False, PlotLabel->"n="oToString [n] ] ]
Теперь можем нарисовать, например, первые 15 циклоид, параметры которых соответствуют порядковым номерам с 1 по 15 в нашей таблице. (Они все будут круговыми циклоидами.) Вот как это делается.
Block[{n,m=5,omega=l/7}, Show[GraphicsArray[ Table[Table[gg[n=(a-l)*m+b],{b,m}],{a,3}]]]]
Перед вами промелькнут 15 графиков, а в конце вы увидите вот что.








Начало  Назад  Вперед