В лучшем случае получаем кучу предупреждений и вот что.
Мораль: графики многих неявных функций легко строятся с помощью функции implicitPlot, однако существуют невинно выглядящие мехматовские “приколы”, при построении которых либо теряются дуги, отдельные точки, отрезки, либо же гра фики не строятся совсем. Иногда проблем удается избежать, если изменить метод по строения графика (от решения уравнения перейти к построению линии уровня или наоборот). Однако это помогает далеко не всегда. Тогда приходится брать мехматов ские учебники. Они не покажутся такими недоступными, если вы будете читать их, а система Mathematica будет делать то, что там написано! Очень часто всего лишь не скольких подстановок (их может выполнить система Mathematica) достаточно, чтобы перейти к параметрическому заданию графика.
Несколько графиков на одном чертеже — функция GraphicsArray
Как вы уже знаете, функция GraphicsArray позволяет на одном листе (чертеже) нарисовать несколько графиков, расположив их в одну строку или в виде двухмерного массива. Однако если вы все графики вычерчиваете с помощью одной функции, на пример ParametricPlot, удобно предварительно установить те значения ее опций, которые совпадают у большинства графиков. Пусть, например, мы хотим установить опции AspectRatio->Automatic и Axes->False. Вот как это делается.
SetOptions[ParametricPlot,AspectRatio->Automatic,Axes->False];
Теперь можем определить нужные нам графики и при необходимости задать зна чения тех опций, которые отличаются от установленных ранее. Пусть, например, на первом и третьем графиках вычерчиваются оси координат. Тогда для этих графиков устанавливаем Axes->True.
Block[{$DisplayFunction=Identity}, pl=ParametricPlot[{Cos[t],Sin[t] }, {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[21]+Sin[5 t],Cos[2 t]+Cos[5 t]},{t,0,2Pi}]; p7=ParametricPlot[{Sin[2t]Sin[5 t],Cos[2 t]Sin[5 t]},{t,0,2Pi}]; p8=ParametricPlot[{Cos[t]+1/2 Cos[7 t]+l/3 Cos[-17 t+Pi/2],
Sin[ t]+1/2 Sin[7 t]+l/3 Sin[-17 t+Pi/2]},{t,0,2Pi}];]
После этого формируем массив графиков и отображаем его.
Show[GraphicsArray [{{pi, р2, рЗ, р4 }, {р5, рб, р7, р8}} ]];
[
i