Анимация

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

Модератор: Admin

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

Анимация

Сообщение Кли » Пн дек 05, 2016 3:28 pm

Помогите пожалуйста, сделать из квадрата в параллелограмм с заливкой
Скриншот 05-12-2016 162709.png
Скриншот 05-12-2016 162709.png (19.33 КБ) 1178 просмотров

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

Re: Анимация

Сообщение Кли » Пн дек 12, 2016 6:43 pm

или вместо plot, написать line?

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

Re: Анимация

Сообщение Кли » Ср дек 14, 2016 3:00 pm

Скриншот 14-12-2016 155959.png
Скриншот 14-12-2016 155959.png (18.64 КБ) 1096 просмотров

или так?

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

Re: Анимация

Сообщение Кли » Чт дек 15, 2016 1:09 pm

у меня анимация не получается

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

Re: Анимация

Сообщение Кли » Чт дек 15, 2016 10:44 pm

Квадрат с вершинами (1,1), (-1,1), (-1,-1), (1,-1) в параллелограмм с вершинами (-1,1), (0,1),(1,-1), (0,-1) с заливкой, т.е разные стороны разными цветами
s3:=plot([[1,1],[-1,1]],color=yellow,thickness=3):
s4:=plot([[-1,1],[-1,-1]],color=magenta,thickness=3):
s5:=plot([[-1,-1],[1,-1]],color=green,thickness=3):
s6:=plot([[1,-1],[1,1]],color=red,thickness=3):
s7:=display(s3,s4,s5,s6):
d2:=animate(polygonplot,[[[-1,1],[t-1,-1],[1,-1],[1-t,-1]],color=white],t=0..1):
display(s6,d2);
анимация получилась, но заливка не делается

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

Re: Анимация

Сообщение Kitonum » Пт дек 16, 2016 1:18 am

А такой вариант подойдёт?
restart;
with(plots): with(plottools):
P1:=[-1,1]: P2:=[1,1]: P3:=[1,-1]: P4:=[-1,-1]:
f1:=a->polygon([P1,P1*(1-a),P2-[1,0]*a], color=yellow):
S1:=animate(display,['f1'(a)], a=0..1, frames=60):
f2:=a->polygon([P3,P3*(1-a),P2-[1,0]*a], color=red):
S2:=animate(display,['f2'(a)], a=0..1, frames=60):
f3:=a->polygon([P3,P3*(1-a),P4+[1,0]*a], color=green):
S3:=animate(display,['f3'(a)], a=0..1, frames=60):
f4:=a->polygon([P1,P1*(1-a),P4+[1,0]*a], color=magenta):
S4:=animate(display,['f4'(a)], a=0..1, frames=60):
display(S1,S2,S3,S4);
Изображение

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

Re: Анимация

Сообщение Кли » Пт дек 16, 2016 3:58 pm

да, спасибо, вы профессионал своего дела