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

@238 · Регистрация: 03.04.2012

Студворк — интернет-сервис помощи студентам

Пытаюсь сотворить анимацию, в которой несколько окружностей падают в центр.
Одну падающую сделал как
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)
.
Как ни стараюсь, получить несколько окружностей, чтобы была видна динамика движения - они к центру ускоряются, не получается.
.
Что я делаю не так?
.

@Buckminster · 07.04.2012, 16:32

например, так:

Code
1
2
3
4
5
6
7
8
9
10
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

можно использовать в качестве основы для экспериментов...

@238 · 10.04.2012, 13:33 **[ТС]**

Посмотрел анимацию, всё работает, перечитал описание своей проблемы вверху и сразу вспомнил:

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

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

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

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

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

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

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

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

Продолжу мечты:
по краям картинки окружности близко друг к другу,
ближе к центру интервалы между окружностями увеличиваются - и так непрерывно, пока открыта страница,
окружности создаются на краю. исчезают в центре.
.

@Buckminster · 13.04.2012, 02:28

т.е. что-то вроде этого:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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

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

@238 · 18.04.2012, 22:33 **[ТС]**

Да, очень наглядно получилось.
Всё получилось отлично.
А с изменением цвета от красного до бледного есть иллюзия ускорения.
.
Спасибо,
уже пригодно к использованию.
Буду разбираться, как самому творить подобные анимации.
.

@Buckminster · 18.04.2012, 23:08

good luck

Сообщение от 238

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

успехов...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@238 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 5

	Несколько кривых в анимации - как? 03.04.2012, 17:00. Показов 3649. Ответов 5 Метки нет (Все метки) Пытаюсь сотворить анимацию, в которой несколько окружностей падают в центр. Одну падающую сделал как animate(implicitplot, [x^2+y^2 = (1^(3/2)-(32^(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

@238 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 5
	10.04.2012, 13:33 [ТС]
	Посмотрел анимацию, всё работает, перечитал описание своей проблемы вверху и сразу вспомнил: Действительно, несколько окружностей падает в центр, то есть всё так, как я просил - да вот не то в голове было. . О чём мечтал: На странице моего сайта либо в уголочке картинка с анимацией, либо анимация на весь экран, подложена под тест. Непрерывно окружности падают в центр, с ускорением к центру - на первом рисунке скорость падения в центр, $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{dr}{dt}= \frac{1}{\sqrt{r}}$ на втором рисунке точка падает с расстояния 10 ед., $https://www.cyberforum.ru/cgi-bin/latex.cgi?r={({10}^{\frac{3}{2}}-{\frac{3}{2}}^{}t})^{\frac{2}{3}}$ видно, что расстояние до центра изменяется быстрее при приближении к 0. Продолжу мечты: по краям картинки окружности близко друг к другу, ближе к центру интервалы между окружностями увеличиваются - и так непрерывно, пока открыта страница, окружности создаются на краю. исчезают в центре. . Миниатюры 0

@238 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 5
	18.04.2012, 22:33 [ТС]
	Да, очень наглядно получилось. Всё получилось отлично. А с изменением цвета от красного до бледного есть иллюзия ускорения. . Спасибо, уже пригодно к использованию. Буду разбираться, как самому творить подобные анимации. . 0