Как сделать движение по кругу?

[Alina]

Как сделать движение по кругу в Lazarus?

[Снег Север]

Движение по кругу - это изменение координат некоторой точки во времени по закону:

Код: Выделить всё

x := x0 + r*cos(t);
y := y0 + r*sin(t);

где x0,y0 - координаты центра окружности, r - радиус окружности, t - время

[SSerge]

t - время

Ага, время )) Угол поворота в радианах это

[скалогрыз]

сделать движение по кругу так же просто как и модель солнечно системы!

Но самое главное это начать с таймера!
Снег Северу и SSerge спасибо за подсказки!

проект в .zip файле

[zub]

скалогрыз
TTimer не очень подходит на роль космического таймера, надо либо менять на чтото более точное, либо вносить в программу изменения
Думаю со следующими изменениями модель получится гораздо точнее

Код: Выделить всё

--- unit1.pas
+++ unit1.pas
@@ -27,6 +27,7 @@ type

var
   Form1: TForm1;
+  l:Integer=100;

implementation

@@ -39,8 +40,17 @@ var
   x, y : single;
begin
   a:=a+pi/45;
-  x:=cos(a)*100;
-  y:=sin(a)*100;
+  x:=cos(a)*l;
+  y:=sin(a)*l;
+  if l>Shape2.Width div 2 then
+                              dec(l)
+                          else
+                              begin
+                                Shape2.Width:=Shape2.Width+10;
+                                Shape2.Left:=Shape2.Left-5;
+                                Shape2.Height:=Shape2.Height+10;
+                                Shape2.Top:=Shape2.Top-5;
+                              end;
   Shape1.Left := round(x) + (Shape2.Left+Shape2.Width div 2)-Shape1.Width div 2;
   Shape1.Top  := round(y) + (Shape2.Top+Shape2.Height div 2)-Shape1.Height div 2;
end;


По уточненным данным нибиру неизбежно падает на солнце и оно взрывается((

[pupsik]

zub
))

п.с.
коли уж про планеты... Неужто они по кругу летают?
Да и модель чет странная. Ну..у я понимаю уЧенные порезали кол-во планет... но..о не на столько...

[alexs]

А разве на таком масштабе будет виден реальная орбита?
А если масштаб верный - то это уже двойная звезда (Жёлтый Супер-Гигант и Синий Карлик)
И вообще - уже вечер и пятница не за горами