Закрашивание области

Форум пользователей пакета Maple

Модератор: Admin

Кли
Сообщения: 90
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Закрашивание области

Сообщение Кли » Сб дек 17, 2016 3:51 pm

Помогите закрасить область,
a1:=implicitplot(x^2+y^2=6*y,x=-10..10,y=-10..10,grid=[100,100]):
a2:=implicitplot(x^2+y^2=8*y,x=-10..10,y=-10..10,grid=[100,100]):
a3:=plot(x,x=0..5):
g1:=NULL: c:=0:
for i from 0 to 3 by 0.01 do
c:=c+1:
q(c):=plot([i,t,t=sqrt(36-i*i)..sqrt(64-i*i)]):
g1:=g1,q(c):
end do:

g2:=NULL: c:=0:
for i from 3 to 4 by 0.01 do
c:=c+1:
q(c):=plot([i,t,t=i..sqrt(16*i-i*i)]):
g2:=g2,q(c):
end do:

display(g1,g2,a1,a2,a3);
нужно еще что-то или что?

Kitonum
Сообщения: 2022
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Закрашивание области

Сообщение Kitonum » Сб дек 17, 2016 8:19 pm

Я немного подправил ваш код, теперь работает правильно:

restart;
with(plots):
a1:=implicitplot(x^2+y^2=6*y,x=-10..10,y=-10..10,grid=[100,100]):
a2:=implicitplot(x^2+y^2=8*y,x=-10..10,y=-10..10,grid=[100,100]):
a3:=plot(x,x=0..5):
y1:=solve(i^2+y^2=6*y,y)[1]: y2:=solve(i^2+y^2=8*y,y)[1]:

g1:=NULL: c:=0:
for i from 0 to 3 by 0.01 do
c:=c+1:
q(c):=plot([i,t,t=y1..y2]):
g1:=g1,q(c):
end do:

g2:=NULL: c:=0:
for i from 3 to 4 by 0.01 do
c:=c+1:
q(c):=plot([i,t,t=i..y2]):
g2:=g2,q(c):
end do:

display(g1,g2,a1,a2,a3);

Всё это можно написать короче, если использовать полярные координаты и опцию filledregions в команде plots[implicitplot]. Я подкорректировал цвета для большей выразительности:

restart;
with(plots):
A:=plot([6*sin(phi), 8*sin(phi)], phi=0..Pi, color=[red,blue], thickness=3, coords=polar):
B:=plot(x, x=0..5, color=green, thickness=3):
C:=plot([0, t, t=0..8.4], color=brown, thickness=3):
R:=implicitplot((r-6*sin(phi))*(r-8*sin(phi)), r = 0 .. 8, phi = Pi/4 .. Pi/2, coloring = [yellow, white], color=white, filledregions = true, coords=polar, gridrefine=5):
display(R, A, B, C, scaling=constrained);
Изображение

Кли
Сообщения: 90
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Re: Закрашивание области

Сообщение Кли » Сб дек 17, 2016 8:47 pm

спасибо

Кли
Сообщения: 90
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Re: Закрашивание области

Сообщение Кли » Сб дек 17, 2016 10:14 pm

подскажите как здесь быть? как убрать лишнее?
Скриншот 17-12-2016 211517.png
Скриншот 17-12-2016 211517.png (32.25 КБ) 945 просмотров

Kitonum
Сообщения: 2022
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Закрашивание области

Сообщение Kitonum » Вс дек 18, 2016 2:12 pm

Здесь Вам нужно самому разобраться по аналогии с предыдущим вариантом.

Кли
Сообщения: 90
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Re: Закрашивание области

Сообщение Кли » Вс дек 18, 2016 3:16 pm

получилось, спасибо