Задача Штейнера

[BuSiNkA_Lapochka]

Привет всем!
необходима подсказка
необходимо узнать координаты точек заданных случайно, вот программа как я их задаю

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var    a,b,c,d,e,f,l,m: tpoint;
k,i:integer;
begin        {заполнили белам фон}
form1.Canvas.Brush.Color := clWhite;
form1.Canvas.FillRect(form1.ClientRect);
 {задали случайно 10 точек}
for k:=1 to 10 do
canvas.Pixels[random(50),random(50)]:= clred;
{определим координаты точек}


end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VIK_aka_TOR]

закидываем рандомные числа в массив... и затем выводим их на канвас... )))
а иначе наверное по отрисованному только если сканить каждый пиксель канваса и сравнивать... с основным цветом...

 {задали случайно 10 точек}
for i := 1 to 10 do
begin
   a[i,1] := random(50);
   a[i,2] := random(50);
end;
for k:=1 to 10 do
canvas.Pixels[a[i,1],a[i,2]]:= clred;

p.s. массив двумерный... )

[BuSiNkA_Lapochka]

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

1. Задаются начальные точки n случайным образом.
2. Определяются их координаты на плоскости (х,у)
3. Определяется самое наибольшее и наименьшее значение х, проводиться прямая параллельная оси ОХ
4. Определяется самое наибольшее и наименьшее значение у, проводиться прямая параллельная оси ОУ
5. Полученный прямоугольник разбивается на к=9 прямоугольников
6. В каждом из прямоугольников ищется точка штейнера с помощью адаптивного алгоритма
7. В результате получаем n=9 точек Штейнера
8. Определяются их координаты на плоскости (х,у)
9. Определяется самое наибольшее и наименьшее значение х, проводиться прямая параллельная оси ОХ
10. Определяется самое наибольшее и наименьшее значение у, проводиться прямая параллельная оси ОУ
11. Полученный прямоугольник разбивается на l=k-3 прямоугольников
12. В каждом из прямоугольников ищется точка штейнера с помощью адаптивного алгоритма
13. В результате получаем n=6 точек Штейнера
14. Далее выполняем шаги 2 – 4.
15. Полученный прямоугольник разбивается на l=k-6 прямоугольников
16. В каждом из прямоугольников ищется точка штейнера с помощью адаптивного алгоритма
17. В результате получаем n=3 точки Штейнера
18. Далее выполняем шаги 2 – 4.
19. В полученном прямоугольнике ищем точку Штейнера с помощью адаптивного алгоритма
20. В результате получаем искомую точку.

[VIK_aka_TOR]

сама идея в задании... все поэтапно... по пунктам...)) как и написано...)
заносить данные в массивы... выбирать максимумы... рисование этого... ну и сам подсчет точки Штейнера... неведомый мне.. его лучше всего занести в функцию... да и не только его...

[BuSiNkA_Lapochka]

А как найти максимумы и провести через них прямые?

[VIK_aka_TOR]

получение максимальных значений координат... из двумерного массива где они и хранятся...

xmax := mas[1,1];
ymax := mas[1,2];
for i:= 1 to n do
begin
if xmax < mas[i,1] then
   xmax := mas[i,1];
if ymas < mas[i,2] then
   ymax := mas[i,2];
end;

ну и собственно рисование...

Canvas.MoveTo(xmax, ymax); // параллель ОУ
Canvas.LineTo(xmax, 0);

Canvas.MoveTo(xmax, ymax); // параллель ОХ
Canvas.LineTo(0, ymax);

если с координатами ничего не напутал...)
ну и цвет линий задается так, само собой перед нарисовкой линии...)

Canvas.Pen.Color := clLime; // лаймовый цвет...

[BuSiNkA_Lapochka]

СПАСИБО огромнейшее все работает )))))))))