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

         

в разных системах координат на



Пример 27


Пример 9.13. Несколько графиков в разных системах координат на одном чертеже.

Иногда на одном листе (чертеже) нужно начертить несколько графиков, притом в разных системах координат. Предположим, на одном листе нужно начертить четыре графика, расположив их в два ряда по два графика, т.е. два графика в верхнем ряду и два — в нижнем. Два графика создадим с помощью функции ParametricPlot, a два — с помощью функции PolarPlot. Сначала загружаем нужный графический пакет.

<<Graphics `Graphics`

А теперь задаем радиус-вектор как функцию угла

Сlearг[r]

г[theta_]=Sin[8 theta/7];



и определяем первый график.

ppl=ParametricPlot[{г[theta]Cos[theta],r[theta]Sin[theta]},

{theta,0,14Pi},AspectRatio->Automatic,DisplayFunction->Identity] ;

После этого точно так же готовим второй график.
Clear[r] r[theta_]=theta*Cos[ theta]; pp2=ParametricPlot[{r[theta]Cos[theta],r[theta]Sin[theta]}, {theta,-19Pi/2,19Pi/2},AspectRatio->Automatic,PlotPoints->200, DisplayFunction->Identity];
Аналогично строим третий график, но в полярных координатах с помощью функции PolarPlot.
Clear[r] r[theta_]=Exp[Cos[ theta]]-2Cos[4theta]+Sin[theta/12]Л5; pp3=PolarPlot[r[theta],{theta,0,24Pi},AspectRatio->Automatic, PlotPoints->200,PlotRange->{{-4,5},{-4.5,4.5}}, DisplayFunction->Identity];
Последний, четвертый, график тоже строим в полярных координатах с помощью функции PolarPlot.
Cleart[r] pp4=PolarPlot[{Sqrt[l/theta],-Sqrt[I/theta]},{theta,0.1,lOPi}, AspectRatio->Automatic,PlotPoints~>200, PlotRange->All,DisplayFunction->Identity] ;
Наконец, группируем четыре графика в двухмерный массив с помощью функции GraphicsArray и отображаем все четыре графика (полученный массив из двух строк по два графика в строке) с помощью функции show.

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