Проблема с математикой. (Осторожно! Возможно матан!)

[alextrof94]

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

alextrof94, если рассматривать верхний график, как график ускорения, то все работает по графику

UPD А может и нет...
Не должно тормозить в центре.
Скорость в центре должна быть максимальной.

У некоторых переменных заменил тип на double, для большей верности. Для большей точности, теперь храню изменяемое значение в переменной tanimation.value, а расчитываю valueperframe и к tanimation.value прибавляю, затем к свойству объекта применяю изменение, т.е. Х.Y:=tanimation.value;

[BDA]

Попробуйте:

value := (sin(2 * pi * iter / iterall - pi / 2) + 1) * (valuestop - valuestart) * pi / ((2 + pi) * iterall);

[alextrof94]

BDA, Не работает. Движение происходит вообще не правильно:
Начинает ооочень медленно, сдвигается на пару пикселей, возвращается.
Значения всегда:
iterall=100
valuestart=0
valuestop=500
(интервал у таймера 50, а всего время выполнения 5 сек)

[BDA]

Так, вроде, более похоже:

value := round((sin(2 * pi * iter / iterall - pi / 2) + 1) * (vstop - vstart) / iterall);

UPD
Пожалуйста

[alextrof94]

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

Так, вроде, более похоже:

value := round((sin(2 * pi * iter / iterall - pi / 2) + 1) * (vstop - vstart) / iterall);

Да, человек, спасибо огромное) "Она живая! Живая!"

[alextrof94]

Жаль плюсики ставить не могу, а так бы поставил на каждое сообщение)

[alextrof94]

Сабж закрыт. Спасибо тем, кто помог)
Выкладываю исходники и, собственно, полученное приложение, может кому понадобится.
Тип анимации находится в отдельном модуле "animationtype".

Использование:

uses animationtype;
...
var a:tanimation;
...
begin
if a.create(panel1,'left',1000,0,100,0) then 
showmessage('выполнение')
else
showmessage('невозможно');
end;

[phomm]

type tanimation = record
//skip
obj: tobject;
...
if (obj is tpanel) then
begin
      if parametr='left' then
        (obj as tpanel).Left:=round(vstart);
      if parametr='top' then
        (obj as tpanel).top:=round(vstart);
      if parametr='width' then
        (obj as tpanel).width:=round(vstart);
      if parametr='height' then
        (obj as tpanel).height:=round(vstart);
    end;

Очень странный подход. Зачем какой-то тобжект , если используете свойства контрола, сразу и обозначьте его как TControl - и проблем не будет с расширяемостью, и приведение типов выкинуть за ненадобностью.

[alextrof94]

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

type tanimation = record
//skip
obj: tobject;
...
if (obj is tpanel) then
begin
      if parametr='left' then
        (obj as tpanel).Left:=round(vstart);
      if parametr='top' then
        (obj as tpanel).top:=round(vstart);
      if parametr='width' then
        (obj as tpanel).width:=round(vstart);
      if parametr='height' then
        (obj as tpanel).height:=round(vstart);
    end;

Очень странный подход. Зачем какой-то тобжект , если используете свойства контрола, сразу и обозначьте его как TControl - и проблем не будет с расширяемостью, и приведение типов выкинуть за ненадобностью.

И тебе спасибо) Я давно гуглил как это можно объединить, но вот про tcontrol не находил, так и юзал с ifами)