Заполнение окружности окружностями меньшего радиуса

[Chester751]

Ребят, помогите пожалуйста! Не знаю просто с чего начать) или у кого исходник есть похожий) суть задачи заключается в следующем: Заполнить окружность большего радиуса одинаковыми окружностями меньшего радиуса. причем надо заполнять рандомно. окружности не должны пересекаться, но прижиматься друг к другу поплотнее) или поясните как делать, а то я ваще не въезжаю как сделать такой генератор. нужно для курсовой...=(

[Serge_Bliznykov]

язык, среда разработки, на чём рисуете окружности, примерный эскиз, как Вы себе представляете "окружности должны прижиматься друг к другу поплотнее", в чём заключается "рандомность" внутренних окружностей - тогда будет повод для разговора...

[Аватар]

Чет кажется, что на любом языке рандомность и прижиматься друг к другу поплотнее не совместимые понятия. Рандомно можно забить непересекающимися окружностями, насчет поплотнее - как получится. Заполнение закончится тогда, когда места не останется. И держать для этого двумерный массив координат, куда можно поместить центр следующей окружности. В котором и выбирать рандомно. Выбрав - исключать для следующего выбора эту точку и окружающие по радиусу точки. Примерно так. Лучше даже не массив, а список

[type_Oleg]

Вот, одну положили. А вторую как можно?
Только в положение 1 или 2, или можно 3 ?

[Serge_Bliznykov]

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

[Poma][a]

Не! Серж у меня заразился в задании сказано, что маленькие окружности имеют одинаковый радиус. А вот его, наверное, и нужно рандомно генерировать..

Я бы выбирал рандомную точку на окружности и рисовал окружность.. Затем брал ще одну точку на окружности и сдвигал ее пока эти две окружности не будут соприкасаться.. Вот так мы заполним первый ряд. А дальше надо думать.

[Chester751]

ну например как здесь : http://www2.stetson.edu/~efriedma/cirincir/

я даже не знаю...=(
хотя б как сделать генератор=(

среда программирования делфи... или паскаль (немножко ещё знаю си и ассемблер - но думаю что в них не разберусь)... мне главное научиться делать такое или что нить подобное=)

то есть вот в делфи я кинул на форму button, image, ну и естественно edit (куда писать радиус маленьких окружностей)

Затем програмный сам код и сразу первая сложность(в смысле не знаю как это реализовать):после рисования большой окружности рисуем 1-ую маленькую окружность, её координаты центра выбираются РАНДОМНО внутри области большой окружности - как это всё реализовать?

сложность номер 2:после того как рисуется 1-ая маленькая окружность, вторая рисуется рядом с ней, относительно её расположения(в противном случае цикл заканчивается) - как написать проверку на наложение двух окружностей?

То есть должно получиться такое: вводится радиус маленькой окружности, затем кнопка для рисования этого всего. Рисуется это всё в image.

[type_Oleg]

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

- как написать проверку на наложение двух окружностей? ...

Рисование двух окружностей.

 Image1.Canvas.Ellipse(x1,y1,x2,y2);
 Image1.Canvas.Ellipse(x3,y3,x4,y4);

При равных диаметрах всех маленьких окружностей:
x1-x2=x3-x4=y1-y2=y3-y4 = R
Вот и выводите отсюда условие для соприкосновения окружностей. Расстояние между центрами должно быть равно 2R (соприкасаются) или хотя бы не менее 2R

[Chester751]

пока сделал вот что

больше не знаю

P.S. там формула длинная с корнем - это типа проверка на то что не вылезал за пределы большой окружности

[Chester751]

Ребят, помогите пожалуйста с массивом! или с кодом, как его улучшить!

Задание по курсовой! вообщем суть такая: набить маленькими шариками огромный шар чтоб шарики внутри не пересекались и не выходили за границу, но находились в нём плотненько - то есть чтобы не оставалось места где бы ещё можно было поместить шарик. короче нужно только найти координаты этих шаров! я попробовал так сделать, но массив нужно тут побольше (а комп с массивом больше 40000 не хочет работать). посоветуйте что сделать!

или же как код улучшить!

вот собственно код

procedure TForm1.Button1Click(Sender: TObject);
var
  mas,mas1 : array[1..3,1..30000] of integer;
  j, m,b, d: Integer;
  x,y,k,r,z,kk,ii,i: Integer;
  a ,teta : Extended;
   fi ,dx: Real;
   ver: Boolean;
   im,predel: integer;

begin

  with StringGrid1 do
  for i:=FixedCols to ColCount-1 do
  for j:=FixedRows to RowCount-1 do
    Cells[i, j]:='';



  R1:=(TrackBar2.Position);
  R2:=(TrackBar3.Position);
begin
  nn:=1;
   Randomize;
  d:=1;
 // predel:= 18000;
  predel:= Round(Sqr(R1*R1)/Sqr(R2*R2));

  for im:=1 to predel do
  begin
    x:=Random(2*R1-R2)-R1;
    y:=Random(2*R1-R2)-R1;
    z:=Random(2*R1-R2)-R1;
        if (sqr(x)+sqr(y)+sqr(z))<=Sqr(R1-R2) then
    begin
      mas[1,d]:=x;
      mas[2,d]:=y;
      mas[3,d]:=z;
      d:=d+1;
    end;
 end;

    m:=0;

     for ii:=1 to d-1 do
  begin
    ver:=false;
    //Проверяем очередную окружность на непересечение с уже нарисованными
    for j:=1 to m do
    if sqr(mas1[1,j] - mas[1,ii])+sqr(mas1[2,j] - mas[2,ii])+sqr(mas1[3,j] - mas[3,ii])<=Sqr(2*R2) then
    begin
      ver:=True; //пересекается
      break;
    end;

    if Not ver then
    //если не пересекается ни с одной ранее нарисованной
    begin
      inc(m);
      mas1[1,m]:=mas[1,ii];
      mas1[2,m]:=mas[2,ii];
      mas1[3,m]:=mas[3,ii];
    
    

    stringgrid1.Cells[0,nn]:=IntToStr(nn);
    stringgrid1.Cells[1,nn]:=IntToStr(mas1[1,m]);
    stringgrid1.Cells[2,nn]:=IntToStr(mas1[2,m]);
    stringgrid1.Cells[3,nn]:=IntToStr(mas1[3,m]);

    nn:=nn+1;
    end;
  end;


    



        if (sqr(x)+sqr(y)+sqr(z))<=Sqr(R1-R2) then
    begin
    stringgrid1.Cells[0,nn]:=IntToStr(nn);
    stringgrid1.Cells[1,nn]:=IntToStr(x);
    stringgrid1.Cells[2,nn]:=IntToStr(y);
    stringgrid1.Cells[3,nn]:=IntToStr(z);
    nn:=nn+1;
    end;



end;