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

[HiGh]

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

[HiGh]

Есть прогресс: получил уравнение проекции линии пересечения этих поверхностей на плоскость 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

[aar]

Вот так:

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

[HiGh]

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

[Irmantas]

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]

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