Математический маятник(физика)

[WOOLF]

Если неошибся форумом то памагите Умы Делфи,подскажите чего не так в программе,пачему маятник не двигается?если можна то выложите правильность кода..
сюда не смог выложить ошибку впаривало) поэтому вотссылка на скачку программы 1.6mb

http://ifolder.ru/12095418

[DomiNick]

Как ни странно, на самом деле всё выводится.....
Просто сдвиг столь мал, что его невозможно увидеть на экране...

Обратите внимание, что значения "F1(f)" и "F2(f)" всегда меньше нуля - маятник качается, но его отклонение меньше одного пикселя и кажется что он неподвижен...

Нужно ввести что-то вроде масштабирования... Например так:

Procedure TForm1.MoveImage(x, y: Real);
Begin
    With Image.Canvas Do
    Begin

    ...

    MoveTo(Image.Width-250, Image.Height-300);
    LineTo(Round(Image.Width-250+StrToInt(Edit5.Text)*x{/(Vo/(sqrt(g/l)))*220}), Round(Image.Height-80-StrToInt(Edit5.Text)*y));
    Pen.Color:=clRed;
    Brush.Color:=clRed;
    Ellipse(Round(Image.Width-256+StrToInt(Edit5.Text)*x), Round(Image.Height-86-StrToInt(Edit5.Text)*y), Round(Image.Width-244+StrToInt(Edit5.Text)*x), Round(Image.Height-74-StrToInt(Edit5.Text)*y));
    Pen.Width:=1;

    ...

    End;
End;

Ещё бы посоветовал добавить "FormClose":

Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Begin
t:=0;
End;

UpDate

Так как числа слишком мелкие, лучше будет использовать StrToFloat()... *

[WOOLF]

Спасибо,ща буду проверять,а ты запускал все норм летает?
и еще откуда тут взялось Edit5???

[DomiNick]

Я же говорю - надо коэффициент сделать - для того чтоб его менять можно было Edit5 добавил...
Формула, кстати, какая-то странная, цифры микроскопические получаются...

[WOOLF]

Спасиб за инфу