Форум программистов, компьютерный форум, киберфорум
Наши страницы
Maple
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
238
0 / 0 / 0
Регистрация: 03.04.2012
Сообщений: 5
1

Несколько кривых в анимации - как?

03.04.2012, 17:00. Просмотров 1630. Ответов 5
Метки нет (Все метки)

Пытаюсь сотворить анимацию, в которой несколько окружностей падают в центр.
Одну падающую сделал как
animate(implicitplot, [x^2+y^2 = (1^(3/2)-(3*2^(1/2)*(1/2))*t)^(4/3), x = -1 .. 1, y = -1 .. 1], t = 0 .. (1/3)*1^(3/2)*sqrt(2), scaling = constrained)
.
Как ни стараюсь, получить несколько окружностей, чтобы была видна динамика движения - они к центру ускоряются, не получается.
.
Что я делаю не так?
.
0
Миниатюры
Несколько кривых в анимации - как?  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2012, 17:00
Ответы с готовыми решениями:

Запустить таймер и нарисовать несколько линий как в анимации
Есть такой график на форме и его нужно нарисовать таким образом Чтобы каждая линия выводилась...

Несколько 3d-кривых на Scatter Plot
Можно ли построить и как несколько пространственных кривых на графике типа 3D Scatter Plot?...

Unity3D-несколько одинаковых моделей с разными анимациями - как перенести клипы анимации в одну модель
Добрый день. С помощью mixamo создал клипы анимации для персонажа. В данный момент это, условно,...

Нарисовать в графики (несколько кривых в одном окне)
нарисовать в матлабе график y=sin(x+k) k=0.1pi:0.1pi:0.5pi на графике должно быть 5 графиков

Построить несколько кривых на одном графике с разными осями
Здравствуйте. Есть такая задача: Имеются данные на зависимости f(x,y1), f(x,y2): x: 0 4 8 10 12...

5
Buckminster
1024 / 696 / 65
Регистрация: 30.01.2012
Сообщений: 714
07.04.2012, 16:32 2
например, так:
Код
restart:
with(plots):
f := t -> exp(-t):
F := proc(t, dt)
     display(plot([f(t - dt)*cos(phi), f(t - dt)*sin(phi), phi = 0..2*Pi], color = "Pink"),
             plot([f(t)*cos(phi), f(t)*sin(phi), phi = 0..2*Pi], color = "DeepPink"),
             plot([f(t + dt)*cos(phi), f(t + dt)*sin(phi), phi = 0..2*Pi], color = "Red"));
end proc:
plotsetup(gif):
animate(F, [t, 0.1], t = -4..0, frames = 40);
animation
Несколько кривых в анимации - как?


можно использовать в качестве основы для экспериментов...
1
238
0 / 0 / 0
Регистрация: 03.04.2012
Сообщений: 5
10.04.2012, 13:33  [ТС] 3
Посмотрел анимацию, всё работает, перечитал описание своей проблемы вверху и сразу вспомнил:

Действительно, несколько окружностей падает в центр, то есть всё так, как я просил - да вот не то в голове было.
.
О чём мечтал:

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

Непрерывно окружности падают в центр, с ускорением к центру -

на первом рисунке скорость падения в центр,

http://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{dr}{dt}= \frac{1}{\sqrt{r}}

на втором рисунке точка падает с расстояния 10 ед.,

http://www.cyberforum.ru/cgi-bin/latex.cgi?r={({10}^{\frac{3}{2}}-{\frac{3}{2}}^{}t})^{\frac{2}{3}}

видно, что расстояние до центра изменяется быстрее при приближении к 0.

Продолжу мечты:
по краям картинки окружности близко друг к другу,
ближе к центру интервалы между окружностями увеличиваются - и так непрерывно, пока открыта страница,
окружности создаются на краю. исчезают в центре.
.
0
Миниатюры
Несколько кривых в анимации - как?   Несколько кривых в анимации - как?  
Buckminster
1024 / 696 / 65
Регистрация: 30.01.2012
Сообщений: 714
13.04.2012, 02:28 4
т.е. что-то вроде этого:

Код
restart:
with(plots):
r := 10: t1 := 20: dt := 3:
f := t -> (r^1.5-1.5*t)^(2/3):
RGBf := t -> COLOR(RGB, 1.0, 0.9*t/t1, 0.9*t/t1):
plotf := t -> plot([f(t)*cos(p), f(t)*sin(p), p=0..2*Pi], x = -r..r, y = -r..r, color = RGBf(t)):
F := proc(t)
     local ti, plotv := [];
     for ti from t-20*dt by dt to max(t+10*dt, r) do
       plotv := [op(plotv), plotf(ti)];
     end do;
     display(plotv);
end proc:

plotsetup(gif):
animate(F, [t], t = 0..t1, frames = 20, scaling = constrained);
animation
Несколько кривых в анимации - как?


управляя параметрами, можно добиваться различных эффектов...
0
238
0 / 0 / 0
Регистрация: 03.04.2012
Сообщений: 5
18.04.2012, 22:33  [ТС] 5
Да, очень наглядно получилось.
Всё получилось отлично.
А с изменением цвета от красного до бледного есть иллюзия ускорения.
.
Спасибо,
уже пригодно к использованию.
Буду разбираться, как самому творить подобные анимации.
.
0
Buckminster
1024 / 696 / 65
Регистрация: 30.01.2012
Сообщений: 714
18.04.2012, 23:08 6
good luck
Цитата Сообщение от 238 Посмотреть сообщение
Буду разбираться, как самому творить подобные анимации
успехов...
0
18.04.2012, 23:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2012, 23:08

Алгоритмы.Анимации. Написать прогу для изображения анимации
нужно чтобы она двигалась во все стороны. вот эта фигура

Как построить график резонансных кривых?
Всем привет. Подскажите пожалуйста, как построить график резонансных кривых? (уравнения резонанса)

Как упростить выражение кривых второго порядка?
Добрый день. Есть выражение кривой второго порядка, оно упрощается до эллипса, гиперболы и т.д...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru