движение окружности по окружности

[MyQwErTy]

у меня есть задание: Нарисовать упрощенную модель атома водорода, т.е. большой красный круг в центре (имитирующий протон) и вращающийся вокруг него маленький синий круг (имитирующий электрон).
кто-нибудь знает формулу по которой можно рассчитать следующее положение синего круга??

[wall66]

x=центр+округлить(радиус*cos(время) )
y=центр+округлить(радиус*sin(время) )

[wall66]

если нужны относительные координаты (от текущего положения) то берешь два времени и вычитаешь из координат второго координаты первого

[MyQwErTy]

а причем тут время??

[MyQwErTy]

program Project1;

{$APPTYPE CONSOLE}

 uses
  wingraph,
  graphics;
 var r,i,x1,y1,x2,y2:integer;
 j:real;
begin
r:=50;
createform('Курсовая, графическая часть',1000,700);
 j:=pi/4;
for i:=1 to 100 do
  begin
 clear;
  setbrushcolor(cLRed);
ellipse(450,300,550,400);
    setbrushcolor(cLblue);
    x1:=450+round((r+1.5)*cos((i-1)*7.2+j));
    y1:=100+round((r+1.5)*sin((i-1)*7.2+j));
    x2:=550+round((r+1.5)*cos((i-1)*7.2+j));
    y2:=200+round((r+1.5)*sin((i-1)*7.2+j));
    ellipse(x1,y1,x2,y2);
    j:=j+0.01
  end;
execute;
end.

вот текст, но результата нет, синий круг не движется, посмотрите код, если ли там ошибки

[_Dmitry]

Подобная задача уже была на форуме...
http://www.programmersforum.ru/showthread.php?t=13441

[MyQwErTy]

вот нашел формулы:
x:=(GetMaxX div 2)+trunc(R*sin(ToRad*alpha));
y:=(GetMaxY div 2)-trunc(R*cos(ToRad*alpha));
где R=150 это радиус
и ToRad= Pi/180
alpha:=0
кто мне может объяснить значение константы ToRAd и переменной alpha??, если можно поподробней

[Карась]

Я вообще незнаю зачем искать какието исходники.
Тут нужно всеволишь знать функцию синуса и как ей пользоваться.

Глобальная тема про синус и движение по окружности находиться тут:
http://programmersforum.ru/showthread.php?t=25052

кто мне может объяснить значение константы ToRAd и переменной alpha??, если можно поподробней

В Делфи в качестве аргумента функции нужно подставлять угол в радианах. Но так как всем привычней работать с градусами, то делают преобразование. Собственно ToRad (уже из названия понятно) както относиться в этому преобразованию.
Что касается alpha это логично предположить что это угол поворота....

Адд:
Формулы для определения коорднинат:

x := Round(R * Sin(a * ToRad));
y := Round(R * Cos(a * ToRad));

Где

Const R = 50;
        ToRad = 3.1415926/180;

Var
  Form1: TForm1;
  a : Integer = 0;
  x, y : Integer;

Для приращения угла:

a := a + 1;
If a > 359 Then a := 0;

Рисование кружочка по точечкам:

Form1.Canvas.Pixels[x + 100,y + 100] := ClRed;

[wall66]

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

а причем тут время??

движение происходит путем изменения координат с течением времени, в качестве этой переменной подойдет любая постепенно увеличивающаяся (или уменьшающаяся) величина...

советую сначала доучиться в школе...

[MyQwErTy]

советую сначала доучиться в школе...

я то ещё не доучился, в 9-ый пошел