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

25.09.2016, 19:35. **Показов** 2087. **Ответов** 1

Author24 — интернет-сервис помощи студентам

как закрасить, чтобы цвет не выходила за пределы окружности

@one man · 26.09.2016, 19:52

В Maple много вариантов закрашивания. Например, для параметрического задания функций очень удобный инструмент polygonplot.
Посмотрите хелп, выберите нужные углы...

> restart; with(plots):
n := 100:
a := polygonplot([seq([9*cos((1/6)*Pi+2*Pi*i/(3*n)), 4*sin((1/6)*Pi+2*Pi*i/(3*n))], i = 1 .. n)], color = blue):
b := plot([9*cos(t), 4*sin(t), t = 0 .. 2*Pi], color = red):
display(a, b, axes = normal, view = [-10 .. 10, -10 .. 10]);

Кли
		1
	Закрашивание областей 25.09.2016, 19:35. Показов 2087. Ответов 1 Метки нет (Все метки) как закрасить, чтобы цвет не выходила за пределы окружности Миниатюры

@one man 156 / 337 / 62 Регистрация: 09.06.2015 Сообщений: 1,305
	26.09.2016, 19:52	2
	В Maple много вариантов закрашивания. Например, для параметрического задания функций очень удобный инструмент polygonplot. Посмотрите хелп, выберите нужные углы... > restart; with(plots): n := 100: a := polygonplot([seq([9cos((1/6)Pi+2Pii/(3n)), 4sin((1/6)Pi+2Pii/(3n))], i = 1 .. n)], color = blue): b := plot([9cos(t), 4sin(t), t = 0 .. 2*Pi], color = red): display(a, b, axes = normal, view = [-10 .. 10, -10 .. 10]); 1