| Математический форум Math Help Planet http://mathhelpplanet.com/ |
|
| Вычертить область заданную неравенствами http://mathhelpplanet.com/viewtopic.php?f=33&t=27259 |
Страница 1 из 1 |
| Автор: | kss_13 [ 27 окт 2013, 18:25 ] |
| Заголовок сообщения: | Вычертить область заданную неравенствами |
ρ≥1-cosφ ρ≤3-sinφ 0≤φ≤0.75pi |
|
| Автор: | Avgust [ 27 окт 2013, 19:05 ] |
| Заголовок сообщения: | Re: Вычертить область заданную неравенствами |
with(plots): g1 := plot([1-cos(t), t, t = 0 .. 3*Pi*(1/4)], color = black, coords = polar): g2 := plot([3-sin(t), t, t = 0 .. 3*Pi*(1/4)], color = blue, coords = polar): display(g1, g2); По этой проге вычерчивается Ваша замечательная фигура:
|
|
| Автор: | kss_13 [ 27 окт 2013, 19:33 ] |
| Заголовок сообщения: | Re: Вычертить область заданную неравенствами |
Спасибо, сошлось с моим ответом. |
|
| Страница 1 из 1 | Часовой пояс: UTC + 3 часа [ Летнее время ] |
| Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |
|