Задание 1.2

1. Построить график неявной функции (гиперболы):

.

> with(plots):

> implicitplot(x^2/4-y^2/2=16, x=-20..20,

y=-16..16,

color=green, thickness=2);

2. Построить на одном рисунке графики астроиды , () вписанной в эллипс . Выведите название линий Astroida и Ellips жирным шрифтом вместе с его уравнением курсивом. Для этого наберите следующие строки:

> with(plots):

> eq:=x^2/16+y^2/4=1:

> el:=implicitplot(eq, x=-4..4, y=-2..2, scaling=CONSTRAINED,

color=green, thickness=3):

> as:=plot([4*cos(t)^3,2*sin(t)^3, t=0..2*Pi],

color=blue, scaling=CONSTRAINED, thickness=2):

> eq1:=convert(eq,string):

> t1:=textplot([1.5,2.5,eq1], font=[TIMES,

ITALIC, 10], align=RIGHT):

> t2:=textplot([0.2,2.5,"Ellips:"], font=[TIMES,

BOLD,10], align=RIGHT):

> t3:=textplot([1.8,0.4,Astroida], font=[TIMES,

BOLD,10], align=LEFT):

> display([as,el,t1,t2,t3]);

3. Построить область, ограниченную линиями: , , .

> with(plots):

> inequal({x+y>0, x-y<=1, y=2}, x=-3..3, y=-3..3,

optionsfeasible=(color=red),

optionsopen=(color=blue,thickness=2),

optionsclosed=(color=green, thickness=3),

optionsexcluded=(color=yellow));

Поиск по сайту: