Задача на построение графиков.

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

Модератор: Admin

HiGh
Сообщения: 4
Зарегистрирован: Вс мар 02, 2008 7:58 pm

Задача на построение графиков.

Сообщение HiGh » Пн мар 03, 2008 2:46 am

С помощью maple найти объем тел, ограниченных следующими поверхностями или заданных фигурами вращения.( Ну это я сам постораюсь найти, сложнее для меня следущая чатсть задания).
1 Построить график сечения поверхностей.
2 Построить трехмерный график полученного тела (a произвольная)
система:
x^2+y^2+z^2=a^2
x^2+y^2=ax

HiGh
Сообщения: 4
Зарегистрирован: Вс мар 02, 2008 7:58 pm

Сообщение HiGh » Пн мар 03, 2008 4:07 am

Есть прогресс: получил уравнение проекции линии пересечения этих поверхностей на плоскость XOY , но выдает ошибки
> plot(1/(cos^2(u)),u=0..2*Pi,cords=polar,axes=normal,color=black);

>

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Error, (in plot/options2d) unknown or bad argument: cords = polar

Need Help :D

aar
Сообщения: 100
Зарегистрирован: Чт авг 10, 2006 11:27 am

Сообщение aar » Пн мар 03, 2008 10:03 am

Вот так:

plot(1/cos(u)^2, u = 0 .. 2*Pi, coords = polar, axes = normal, color = black)

HiGh
Сообщения: 4
Зарегистрирован: Вс мар 02, 2008 7:58 pm

Сообщение HiGh » Пн мар 03, 2008 11:14 am

Вообщем я использовал сферические координаты получилась вот такая система:
a*cos(u)^2=1
a=p
А как записать 3д график не знаю. И Объем никак не могу найти =(

Irmantas
Сообщения: 589
Зарегистрирован: Ср апр 27, 2005 8:49 pm
Откуда: Литва, Каунас

Сообщение Irmantas » Пн мар 03, 2008 4:30 pm

restart: with(plots):

P1:=x^2+y^2+z^2=a^2: P1;
P2:=x^2+y^2=a*x: P2;

Xs:=a*sin(alpha)*sin(beta);
Ys:=a*cos(alpha)*sin(beta);
Zs:=a*cos(beta);

Xc:=a/2*cos(alpha);
Yc:=a/2*sin(alpha);
Zc:=z;

subs(x=Xc,y=Yc,P2)*4;

t:=simplify(subs({x=Xs,y=Ys},P2)/a^2/sin(beta)):
a:=2:

LXs:=subs(t,Xs); LYs:=subs(t,Ys); LZs:=a*sqrt(1-sin(alpha)^2);
L:=spacecurve({[LXs,LYs,LZs],[LXs,LYs,-LZs]},alpha=0..Pi,numpoints=1000,color=red,thickness=2):
K1:=plot3d(a,-Pi/2..Pi/2,0..Pi,style=patchnogrid,coords=spherical,numpoints=8000):
K2:=plot3d(a*cos(alpha),alpha=0..2*Pi,z=-a..a,color=blue, numpoints=8000, coords=cylindrical,style=patchnogrid):

display(K1,K2,L,scaling=constrained);

Odlno4ka
Сообщения: 1
Зарегистрирован: Чт июн 19, 2008 11:37 am

Сообщение Odlno4ka » Чт июн 19, 2008 11:39 am

вот тут можно получить граифк или диаграмму и просто вставить в свой проект ссылку на график вот и все http://www.widgenie.com