Движение круга по эллипсу

@smay · Регистрация: 07.12.2013

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

Всем привет. Нужно нарисовать движение планеты по эллипсу вокруг солнца. Подскажите пожалуйста формулу движения по эллипсу. Я вот придумал такое:

Pascal

1
2
3

  for x:=? to ? do begin
        y:=round((y0-round((x*x)/a))/b);
        circle(x,y,3);

Но что подставить на места '?', a и b не знаю, что бы я не подставил, не могу угадать так, что бы было под форму, даже рядом.
Уравнение эллипса x^2/a + y^2/b = 1 тут подойдет же?

@volvo · 06.02.2016, 21:29

Чтобы

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

нарисовать движение планеты по эллипсу вокруг солнца

лучше воспользоваться другим методом.

Как-то вот так

, не важно, что тут С++ и OpenGL, главное - формулы, запрограммировать можно на любом языке

@smay · 06.02.2016, 22:08 **[ТС]**

volvo, с гравитацией это не совсем то... Я уже сделал сам, извините за потраченное время)

Pascal

program bublik;
 
uses
  graphABC;
 
var
  x, y,n,i: integer;
  k:real;
  K1, B: Array[1..901] of Integer;
  C: Array[1..901] of Color;
begin
  Window.SetSize(640, 640);
  k := 1;
  LockDrawing;
  for i := 1 to 900 do
  begin
    K1[i] := random(0,640);
    B[i] := random(0,640);
    C[i] := rgb(random(255), random(255), random(255));
  end;
  
  for n:=1 to 10 do begin
  i := 1;
  while k < 360 do 
  begin
    clearwindow(clblack);
    for i:=1 to 900 do
     putpixel(K1[i], B[i], C[i]);
    X := 300 + round(Sin(K) * 250 + 50); {ширина эллипса}
    Y := 300 + round(Cos(K) * 100 + 40);
    setbrushcolor(clSkyBlue);
    circle(x, y, 15);
    k := k + 0.009;
    setbrushcolor(clYellow);
    circle(300,300, 30);
    Redraw;
  end;
  end;
end.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	06.02.2016, 21:29	2
	Чтобы Сообщение от smay нарисовать движение планеты по эллипсу вокруг солнца лучше воспользоваться другим методом. Как-то вот так , не важно, что тут С++ и OpenGL, главное - формулы, запрограммировать можно на любом языке 1

	06.02.2016, 22:08