Анимация

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

Модератор: Admin

Кли
Сообщения: 90
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Анимация

Сообщение Кли » Сб мар 18, 2017 3:52 pm

Добрый вечер!!! Как сделать анимацию пружины для клоуна и как сделать, чтобы крышка коробки открывалась?
with(plots):
with(plottools):
a1:=sphere([0,1,10],5.9,color=white):
a2:=sphere([3,6,9],0.5,color=black):
a3:=pointplot3d([-0.6,7,11],color=red,symbolsize=20):
a4:=sphere([-4,5,9],0.5,color=black):
a5:=cone([0,1,0],4.5,6,color=red):
a6:=semitorus([0,1,17],-Pi..0,2,3,color=green,capped=false):
a7:=animate(spacecurve,[[cos(a*t),1+sin(a*t),t+15],t=0..a],a=0..4*Pi,color=black):
a8:=cuboid([-10,-8,-1],[10,10,25],transparency=0.5):
a9:=display(a1,a2,a3,a4,a5,a6):
a10:=animate(translate,[a9,0,0,t],t=0..-18):
display(a8,a10);

Kitonum
Сообщения: 2032
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Анимация

Сообщение Kitonum » Пн мар 20, 2017 1:11 pm

Но Ваш код работает без всяких ошибок. Если это не та анимация, которую Вы ожидаете, то Вам следует подробно объяснить, что именно должно двигаться. Ваш код содержит достаточно много разных объектов и совсем не очевидно, что же должно происходить?

Кли
Сообщения: 90
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Re: Анимация

Сообщение Кли » Пн мар 20, 2017 4:56 pm

Мне нужно чтоб клоун был на пружине(кривая) и качался вместе с ней(клоуном), и чтоб крышка куба открывался, и из него выскакивал клоун

Kitonum
Сообщения: 2032
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Анимация

Сообщение Kitonum » Пн мар 20, 2017 11:32 pm

Код анимации:

restart;
with(plots):
with(plottools):
a1:=sphere([0,1,10],5.9,color=white):
a2:=sphere([3,6,9],0.5,color=black):
a3:=pointplot3d([-0.6,7,11],color=red,symbolsize=20):
a4:=sphere([-4,5,9],0.5,color=black):
a5:=cone([0,1,0],4.5,6,color=red):
a6:=semitorus([0,1,17],-Pi..0,2,3,color=green,capped=false):
a7:=animate(spacecurve,[[2*cos(t),1+2*sin(t),a*t-1],t=0..16*Pi,numpoints=500],a=0..0.5,color=black):
a8:=polygonplot3d([op(cuboid([-10,-8,-1],[10,10,20]))[1..5]], transparency=0.3):
a9:=reflect(display(a1,a2,a3,a4,a5,a6), [[0,0,8.5],[1,0,8.5],[0,1,8.5]]):
a10:=animate(translate,[a9,0,0,t],t=0..25):
a11:=polygonplot3d([[10., 10., 20.], [-10., 10., 20.], [-10., -8., 20.], [10., -8., 20.]],transparency=0.3):
a12:=animate(rotate,[a11,t,[[-10,10,20],[-10,-8,20]]], t=0..Pi/2):
display(a7,a8,a10,a12, scaling=constrained, axes=none);

Изображение

Кли
Сообщения: 90
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Re: Анимация

Сообщение Кли » Пн мар 20, 2017 11:33 pm

спасибо большое