Условия задачи таковы:Кольцо шириною 30, внешняя окружность которого проходит как минимум через три точки Т, содержащее максимум точек ТТ.
Господа, помогите пожалуйста, кто чем может, я не могу понять как заставить выводить все генерации графически, программа выводит самую оптимальную и все тут.
Как заставить выводить ее все вариации и где больше всего точек лежит в кольце то и окрашивать в иной цвет + выводить информацию об этом.
Код обработчика:| Код |
procedure TForm1.btnSearchClick(Sender: TObject);
var g: Boolean;
pen1: TPen;
f:textfile;
p,q,qt,res,REST:array of integer;
i,j,count, a, b, c, d, shift,m, n, pCount: integer;
rect: TRect;
begin
kol:=0;
SetLength(x, 20);
SetLength(y, 20);
SetLength(xt, 20);
SetLength(yt, 20);
for i:= 0 to points do
begin
x[i] := strtoint(stgCoords.Cells[0,i+1]);
y[i] := strtoint(stgCoords.Cells[1,i+1]);
end;
for j := 0 to points do
begin
xt[j] := strtoint(stgCoordsT.Cells[0,j+1]);
yt[j] := strtoint(stgCoordsT.Cells[1,j+1]);
end;
stgParall.Cells[0,0] := 'X';
stgParall.Cells[1,0] := 'Y';
SetLength(res, 4);
for i:=0 to 2 do res[i]:=i;
res[3]:=0;
SetLength(q, 3);
for i:=0 to 2 do q[i]:=i;
//гланый цикл
g:= true;
while g do
begin
// поиск координат центра окружности проходящих через три точки
Z := (2*(x[q[0]]*(y[q[2]]-y[q[1]])+x[q[1]]*(y[q[0]]-y[q[2]])+x[q[2]]*(y[q[1]]-y[q[0]])));
if z <> 0 then // если точки не находятся на одной линии
begin
X0 := ((y[q[2]]-y[q[1]])*(sqr(x[q[0]])+sqr(y[q[0]]))+
(y[q[0]]-y[q[2]])*(sqr(x[q[1]])+sqr(y[q[1]])) +
(y[q[1]]-y[q[0]])*(sqr(x[q[2]])+sqr(y[q[2]])))/z;
y0 := ((x[q[1]]-x[q[2]])*(sqr(x[q[0]])+sqr(y[q[0]]))+
(x[q[2]]-x[q[0]])*(sqr(x[q[1]])+sqr(y[q[1]])) +
(x[q[0]]-x[q[1]])*(sqr(x[q[2]])+sqr(y[q[2]])))/z;
// радиус внешней окружности
R1:= sqrt(sqr(y0-y[q[0]])+sqr(x0-x[q[0]]));
// радиус внутренней окружности
r2:=r1-30;
// подсчитывается количество точек, попадающих на кольцо
pCount := 0;
for i:= 0 to points do
begin
if (q[0]<>i)and (q[1]<>i)and(q[2]<>i) then
begin
ToPoint:= sqrt(sqr(y0-y[i])+sqr(x0-x[i]));
if (ToPoint>=r2) and (ToPoint<=r1) then pCount:= pCount + 1;
end;
end;
// если количество точек попавших на текущее кольцо, больше,
// чем в предыдущей генерации, перезаписываем массив результатов
if pCount > res[3] then
begin
res[3]:= pCount;
for i:= 0 to 2 do
res[i]:=q[i];
X0Res:= X0;
Y0Res:= Y0;
R1Res:= R1;
end;
end;
GenSoch(q,g,points); // генерируется следующее сочетание
end;
begin
for j := 0 to points do
begin
if
((xt[j]<x[res[0]]) and (xt[j]>x[res[0]]-30) or
(xt[j]< x[res[1]]) and (xt[j]>x[res[1]]-30) or
(xt[j]< x[res[2]]) and (xt[j]>x[res[2]]-30) or
(yt[j]< y[res[0]]) and (yt[j]>y[res[0]]-30) or
(yt[j]< y[res[1]]) and (yt[j]>y[res[1]]-30) or
(yt[j]< y[res[2]]) and (yt[j]> y[res[2]]-30))
then
kol:=kol+1;
end;
end;
//заполнение таблицы результатов
for i:=1 to 3 do
begin
stgParall.cells[0,i]:= inttostr(x[res[i-1]]);
stgParall.cells[1,i]:= inttostr(y[res[i-1]]);
end;
kol1.Caption:='Количество ТТ в кольце = '+ inttostr(kol);
shift := 30;
form3.visible := true;
end;
|
Код графики:| Код |
// отображение всех точек из таблицы
imgparall.Canvas.Brush.color := clred;
imgparall.Canvas.Pen.color := clGreen;
imgparall.Canvas.Pen.Style := psSolid;
for i:=0 to points do
imgparall.Canvas.Ellipse(x[i] + shift-3,imgparall.Height-1 - y[i] - shift-3,
x[i] + shift+3,imgparall.Height-1 - y[i] - shift+3);
imgparall.Canvas.Brush.style := bsClear;
imgparall.Canvas.Ellipse(round(x0res - R1Res + shift),round(imgparall.Height-1 - Y0Res - R1Res - shift),
round(x0Res + shift+R1Res),round(imgparall.Height-1 - y0Res - shift+R1Res));
imgparall.Canvas.Ellipse(round(x0res - R1Res+30 + shift),round(imgparall.Height-1 - Y0Res - R1Res+30 - shift),
round(x0Res + shift+R1Res - 30),round(imgparall.Height-1 - y0Res-30 - shift+R1Res));
imgparall.Canvas.Brush.color := clblack;
imgparall.Canvas.Pen.color := clGreen;
imgparall.Canvas.Pen.Style := psSolid;
for j:=0 to points do
imgparall.Canvas.Ellipse(xt[j] + shift-3,imgparall.Height-1 - yt[j] - shift-3,
xt[j] + shift+3,imgparall.Height-1 - yt[j] - shift+3);
end;
|
Заранее всем спасибо за советы! |
)