анимация pointplot3d

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

Модератор: Admin

Andrey
Сообщения: 667
Зарегистрирован: Пн июн 10, 2002 2:05 pm

анимация pointplot3d

Сообщение Andrey » Чт май 10, 2012 12:48 pm

Друзья!

Не часто дергаю Мапл, но, похоже, на нем эта задачка проще всего решается.

Есть две серии точек в трехмерном простанстве. Нужно отобразить их разным цветом на трехмерном графике, и повернуть в режиме анимации. Для каждой группы я это легко могу сделать

Код: Выделить всё

> points:= {seq([cos(Pi*T/40),sin(Pi*T/40),T/40],T=0..40)}:
> opt:=axes=boxed,color=red,symbol=diamond:
> animate(pointplot3d,[points,opt,orientation=[A,135]],A=0..180,frames=50);
>
> points:= {seq([-cos(Pi*T/40),sin(Pi*T/40),T/40],T=0..40)}:
> opt:=axes=boxed,color=blue,symbol=diamond:
> animate(pointplot3d,[points,opt,orientation=[A,135]],A=0..180,frames=50);


А вот как сделать, чтобы на одном графике отображались сразу обе группы?

proterr
Сообщения: 1
Зарегистрирован: Вс май 27, 2012 11:08 pm

Сообщение proterr » Вс май 27, 2012 11:44 pm

кому то нравится Майли Сайрус http://www.disneyfilms.ru/content/maili ... ka-disneya ?