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

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



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



Как вы уже знаете, функция GraphicsArray позволяет на одном листе (чертеже) нарисовать несколько графиков, расположив их в одну строку или в виде двухмерного массива. Однако если вы все графики вычерчиваете с помощью одной функции, например ParametricPlot, удобно предварительно установить те значения ее опций, которые совпадают у большинства графиков. Пусть, например, мы хотим установить опции AspectRatio->Automatic и Axes->False. Вот как это делается.

SetOptions[ParametricPlot,AspectRatio->Automatic,Axes->False] ;

Теперь можем определить нужные нам графики и при необходимости задать значения тех опций, которые отличаются от установленных ранее. Пусть, например, на первом и третьем графиках вычерчиваются оси координат. Тогда для этих графиков устанавливаем Axes->True.
Block[{$DisplayFunction=Identity}, pl=ParametricPlot[{Cos[t],Sinft]},{t,0,2Pi},Axes->True]; p2=ParametricPlot[{2Cos[t],Sin[t]),{t,0,2Pi}]; p3=ParametricPlot[{ (2Cos [t] -1) Cos [t-] , (2Cos [t]-1) Sin [t] }, {t,0,2Pi},Axes->True]; p4=ParametricPlot[{t Cos[t],t Sin[t]},{t,0,12Pi}]; p5=ParametricPlot[{t Cos[t]Sin[t],t Sin[t]Л2},{t,0,8Pi}]; p6=ParametricPlot[{Sin[2t]+Sin[5t],Cos[2t]+Cos[5 t]},{t,0,2Pi}]; p7=ParametricPlot[{Sin[2t]Sin[5t],Cos[2t]Sin[5t]},{t,0,2Pi}]; p8=ParametricPlot[{Cos[t]+l/2Cos[7t]+l/3 Cos[-17t+Pi/2], Sin[t]+l/2 Sin[7 t]+l/3Sin[-17t+Pi/2]},{t,0,2Pi}];]
После этого формируем массив фафиков и отображаем его.



Содержание раздела