Задача про упругие соударения шаров Опции

[Юзер]

Подскажите алгоритм или исходник для задачи.Задача про упругие столкновения N-того количества шаров о друг друга и отенки сосудов.Или направте где эта тема уже рассматривалась.

Сообщение отредактировано: Юзер - 24.03.2010 18:39

[volvo]

Я пробывал как volvo написал сделать но увы не выходит,не получается одними только изменениями в InitBalls даже добится чтобы шары появлялись в разных часях экрана

Ну как же не получается? Все получается. Вот так, например, у тебя будут только красные шары и только в левой части экрана (скорости Vx и Vy сброшены в 0, чтобы ты увидел, что это именно так)

procedure InitBalls;
var
  i, j: integer;
  isIntersect: boolean;
  TX, TY: TData;
Begin
  Randomize;

  n := Nn div 2;
  for i := 1 to n do
    with Balls[ i ] do
    begin
      repeat
        TX := random((GetMaxX div 2) - D) + r;
        TY := random(GetMaxY - D + r);

        isIntersect := False;
        for j := 1 to i - 1 do
          if sqrt(sqr(TX - Balls[j].X) + sqr(TY - Balls[j].Y)) < D then
          begin
            isIntersect := True; break;
          end;
      until not isIntersect;

      XOld := TX; YOld := TY;

      Color := Red;
      Vx := 0; { -Vmax+Random*2*Vmax; }
      Vy := 0; { -Vmax+Random*2*Vmax; }
      dVx := 0;
      dVy := 0;
    end;
End; { InitBalls }

Добавь сюда же еще один такой же цикл, в котором координаты X генерируются в правой части (TX := random((GetMaxX div 2) - D) + r + (GetMaxX div 2)), и замени цвет шаров на синий - вот и будут у тебя слева - все красные, а справа - все синие шары.

А ты говоришь "не получается".