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

На сайте buhler-ahs.ru система увлажнения воздуха. | Смотрите на сайте автомат выдува. | Организация железнодорожных перевозок на сайте http://www.magellantrans.ru. | Partse.ru предлагает: запчасти на Toyota Carina в Екатеринбурге!

Пример 1



Пример 1




Функция GraphicsArray может быть полезна при подборе параметров.

Пример 9.18. Подбор параметров с помощью функции GraphicsArray. Предположим, вам нужно среди двухпараметрического множества кривых (напоминающих цветы) вида (R cos(az), R sin(fe)), где R = sin 5r, выбрать ту, которая ближе всего к окружности при условии, что параметры а и b принимают целые значения, причем 1<а<9 и 1<6<6. Можно, конечно, пересмотреть все 54 кривые по одной. Но если вы не уверены, что среди них есть окружность, лучше расположить все графики на одном чертеже. Однако в отличие от предыдущих примеров, где количество графиков было небольшим, в данном случае формирование массива лучше всего поручить системе Mathematica. Для этого как нельзя лучше приспособлена функция Table. Именно с ее помощью удобнее всего сначала сформировать двухмерный массив шириной 6 и высотой 9 графиков. Затем эти графики лучше всего отобразить на одном чертеже и выбрать (на глаз) те, которые, как вам кажется, наиболее подходят для вашей цели. Отобранные графики затем можно будет рассмотреть в деталях и выбрать наиболее подходящий из них. Вот как это делается в нашем случае.
Block[{k=5},Block[{a,b,r=Sin[k*z]}, Block[{XY={r*Cos[a*z],r*Sin[b*z]}), Show[GraphicsArray[ Table[Table[ParametricPlot[XY,{z,0,2 Pi}], {b,6}],{a,9}]]]]]]
Когда будете выполнять эту программу, перед вами промелькнет 54 графика, которые рассмотреть вы, конечно, не успеете. Зато в конце вы увидите следующую картинку.








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



Книжный магазин