Моделирование движения шаров Опции

[18192123]

Вот такое задание:
Даны два шарика диаметром М. Промоделировать движение шариков по всей плоскости экрана. Шарики могут двигаться по прямым линиям. Изменение угла движения после столкновения с границей экрана или друг с другом может быть случайной величиной. Шарик не может вылететь за пределы квадрата. Пользователь может варьировать скорости движения шариков с помощью стрелок управления курсором.

Хотелось бы разобраться в коде программы... ( дело в том, что код не мой)
Объясните пожалуйста назначение каждой из процедур в тексте приведённой ниже программы!

[18192123]

Если у меня положения центров шаров будут находиться с помощью такой процедуры:

procedure move (var x, y: integer; angle : single; speed : integer);
begin
 x := round(x + speed*cos(angle));
 y := round(y + speed*sin(angle));
end;

то как должны выглядеть процедуры
procedure charge_on_oppositeX
procedure charge_on_oppositeY, которые я использую для изменения направления движения шариков на противоположные при столкновении с границей?

Я сделала предположение ,что так:

procedure charge_on_oppositeX (var x : integer; speed : integer; angle : single);
var dx : integer;
begin
 dx := round(speed*cos(angle)); dx := -dx;
 x := x + dx;
end;

результат - шарики ,когда сталкиваются с границей , движутся вдоль неё и замирают в углу.

[Lapp]

как должны выглядеть процедуры ..., которые я использую для изменения направления движения шариков на противоположные при столкновении с границей?
Я сделала предположение ,что так:
...
результат - шарики ,когда сталкиваются с границей , движутся вдоль неё и замирают в углу.

Нет, не так. Эти процедуры долхны менять угол, а не положение!
Примерно так:
по Х: angle:=180-angle;
по Y: angle:=-angle;
Иначе эффект действительно будет похожим на то, что ты говоришь

PS
Если в названиях процедур ты подразумевала "изменить", то это слово пишется change. А слово charge означает нечто другое.. И предлог лучше to, а не on. Это так, к слову..

Добавлено через 15 мин.
Вообще-то правильние было бы написать не 180, а Pi ..
Извиняюсь.

[18192123]

Примерно так:
по Х: angle:=180-angle;
по Y: angle:=-angle;

С этим получилось , но в результате , если один из шаров сталкивается с границей, то и второй , где бы он не находился в этот момент, меняет свой угол движения.

Как я полагаю, причина в этом:

function angleX (angle : single):single;
begin
 angleX := (pi - angle);
end;

function angleY (angle : single): single;
begin
 angleY := -angle;
end;

Procedure border (var x, y: integer; r : integer; speed: integer{; angle : single});
begin
 if (x + r >= GetMaxX-1) or (x - r <= 1) then angle := angleX(angle);
 if (y + r >= GetMaxY-1) or (y - r <= 1) then angle := angleY(angle);
end;

а это вызов процедур ,описанных выше:

begin
 draw (x1, y1, r1, white);
 draw (x2, y2, r2, red );
 delay(15100);
 escape (x1, y1, r1, bgC);
 escape (x2, y2, r2, bgC);
 move (x1, y1, angle, speed1);
 move (x2, y2, angle, speed2);
 border (x1, y1, r1, speed1{,angle} );
 border (x2, y2, r2, speed2{, angle});
 balls_hit_2;
end;

если менять скорость обоих шариков одновременно , то , когда шарики сталкиваются, то они просто сцепливаются.... - не знаю, как это исправить?)
столкновение шаров предусмотрено в следующих процедурах:

function value(const r: integer):real;
begin
 value := 4/3*pi*r*r*r;
end;

procedure after_hit (spee1, speed2 : integer; x1, y1, x2, y2 : integer; angle : single);
var m1, m2 : real;
    begin
 m1 := value(r1);
 m2 := value(r2);
speed1 := round((2*m2*speed2 + (m1-m2)*speed1)/(m1+m2));
speed2 := round((2*m1*speed1 + (m2-m1)*speed2)/(m1+m2));
x1 := round(x1 + speed1*cos(angle));
y1 := round(y1 + speed1*sin(angle));
x2 := round(x2 + speed2*cos(angle));
y2 := round(y2 + speed2*sin(angle));
end;


function balls_hit (const r1,r2 : integer; x1,y1,x2,y2 : integer) : boolean;
var
  dist : real;
  t1, t2, t3, t4, t5: real;
begin
  t1 := abs(x2-x1); t2 := sqr(t1);
  t3 := abs(y2-y1); t4 := sqr(t3);
  t5 := t2 + t4;
  dist := sqrt(t5);

  balls_hit := (dist < (r1 + r2));
end;

procedure balls_hit_2;
begin
 if balls_hit(r1,r2,x1,y1,x2,y2) then  after_hit (speed1, speed2, x1, y1,x2, y2,angle);
end;

Сообщение отредактировано: 18192123 - 19.04.2007 14:09