Купить Matlab  |  Mathematica  |  Mathcad  |  Maple  |  Statistica  |  Другие пакеты Поиск по сайту
Internet-класс  |  Примеры  |  Методики  |  Форум  |  Download
https://hub.exponenta.ru/


Методы решения математических задач в Maple
С. Е. Савотченко, Т.Г. Кузьмичева

Вернуться на страницу <Методические разработки>
В начало

§3.2 Трехмерные графики. Анимация

График поверхности, заданной явной функцией.

График функции можно нарисовать, используя команду plot3d(f(x,y), x=x1…x2, y=y1…y2, options). Параметры этой команды частично совпадают с параметрами команды plot. К часто используемым параметрам команды plot3d относится light=[angl1, angl2, c1, c2, c3] – задание подсветки поверхности, создаваемой источником света из точки со сферическими координатами (angl1, angl2). Цвет определяется долями красного (c1), зеленого (c2) и синего (c3) цветов, которые находятся в интервале [0,1]. Параметр style=opt задает стиль рисунка: POINT –точки, LINE – линии, HIDDEN – сетка с удалением невидимых линий, PATCH – заполнитель (установлен по умолчанию), WIREFRAME – сетка с выводом невидимых линий, CONTOUR – линии уровня, PATCHCONTOUR – заполнитель и линии уровня. Параметр shading=opt задает функцию интенсивности заполнителя, его значение равно xyz – по умолчанию, NONE – без раскраски.

 

График поверхности, заданной параметрически.

Если требуется построить поверхность, заданную параметрически: x=x(u,v), y=y(u,v), z=z(u,v), то эти функции перечисляются в квадратных скобках в команде: plot3d([x(u,v), y(u,v), z(u,v)], u=u1..u2, v=v1..v2).

 

График поверхности, заданной неявно.

Трехмерный график поверхности, заданной неявно уравнением , строится с помощью команды пакета plot: implicitplot3d(F(x,y,z)=c, x=x1..x2, y=y1..y2, z=z1..z2), где указывается уравнение поверхности и размеры рисунка по координатным осям.

 

График пространственных кривых.

В пакете plot имеется команда spacecurve для построения пространственной кривой, заданной параметрически: . Параметры команды:

> spacecurve([x(t),y(t),z(t)],t=t1..t2),

где переменная t изменяется от t1 до t2.

 

Анимация.

Maple позволяет выводить на экран движущиеся изображения с помощью команд animate (двумерные) и animate3d (трехмерные) из пакета plot. Среди параметров команды animate3d есть frames – число кадров анимации (по умолчанию frames=8).

Трехмерные изображения удобнее настраивать не при помощи опций команды plot3d, а используя контекстное меню программы. Для этого следует щелкнуть правой кнопкой мыши по изображению. Тогда появится контекстное меню настройки изображения. Команды этого меню позволяют изменять цвет изображения, режимы подсветки, устанавливать нужный тип осей, тип линий и управлять движущимся изображением.

Контекстное меню настройки изображения:

Задание 2.

  1. Выполнить построение двух поверхностей и в пределах . Установите переменный цвет поверхностей как функцию .
  2. > plot3d({x*sin(2*y)+y*cos(3*x), sqrt(x^2+y^2)-7}, x=-Pi..Pi, y=-Pi..Pi, grid=[30,30], axes=FRAMED, color=x+y);

  3. Построить поверхность вместе с линиями уровня:
  4. > plot3d(1/(x^2+y^2)+0.2/((x+1.2)^2+(y-1.5)^2)+ 0.3/((x-0.9)^2+(y+1.1)^2), x=-2..2, y=-2..2.5, view=[-2..2, -2..2.5, 0..6], grid=[60,60], shading=NONE, light=[100,30,1,1,1], axes=NONE, orientation=[65,20], style=PATCHCONTOUR);

  5. Построить примерную форму электронного облака атома. Форма электронного облака определяется двумя квантовыми числами: число l – определяет тип орбитали, число m – определяет магнитный момент электрона. При m=0 форма электронного облака задается полиномами Лежандра первого рода: . Следует построить параметрически заданную поверхность: , , , где . Вначале положите l=3. Наберите команды:
  6. > l:=3:

    > P:=(x,n)->1/(2^n*n!)*diff((x^2-1)^n,x$n);

    >Y:=(phi)->abs(sqrt((2*l+1)/(4*Pi))*

    subs(x=cos(phi),P(x,l)));

    > X0:=Y(phi)*sin(phi)*cos(theta);

    > Y0:=Y(phi)*sin(phi)*sin(theta);

    > Z0:=Y(phi)*cos(phi);

    > plot3d([X0,Y0,Z0],phi=0..Pi,theta=0..2*Pi,

    scaling=CONSTRAINED, title="Электронное облако");

    После этого постройте формы электронного облака для l=1 и l=2.

  7. Построить шар :
  8. > with(plots): implicitplot3d(x^2+y^2+z^2=4,

    x=-2..2, y=-2..2, z=-2..2, scaling=CONSTRAINED);

  9. Построить пространственную кривую: , ,
  10. > with(plots):

    > spacecurve([sin(t),cos(t),exp(t)], t=1..5, color=blue, thickness=2, axes=BOXED);

  11. Нарисовать движущийся объект. Вначале наберите в командной строке:
  12. > animate3d(cos(t*x)*sin(t*y), x=-Pi..Pi,

    y=-Pi..Pi, t=1..2);

    Щелкните по появившемуся изображению правой кнопкой мыши. В появившемся контекстном меню выполните команду Animation® Continuous. Затем снова вызовите контекстное меню и выполните команду Animation® Play. Для того, чтобы остановить движение, выполните команду Animation® Stop. Затем с помощью мыши поверните рисунок под другим углом и сделайте его вновь движущимся.

  13. Выполните все контрольные задания. Результаты выполнения заданий покажите преподавателю. Сохраните файл со всеми выполненными заданиями на диск. Ответьте на все контрольные вопросы.

Далее

В начало
Вернуться на страницу <Методические разработки>

| На первую страницу | Поиск | Купить Matlab

Исправляем ошибки: Нашли опечатку? Выделите ее мышкой и нажмите Ctrl+Enter


Copyright © 1993-2024. Компания Softline. Все права защищены.

Дата последнего обновления информации на сайте: 04.03.17
Сайт начал работу 01.09.00