Программирование - это просто
Advertisement
Главная
29.05.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Создаем искусственный интеллект. Урок 8. Рисуем дуги вершин графа пространства состояний. Печать E-mail
Автор megabax   
04.08.2010 г.
unit AIObj

Создаем искусственный интеллект. Урок 8. Рисуем дуги вершин графа пространства состояний.

Исходники у уроку можно скачать здесь.

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

Перед тем как приступить к рисованиям дуг, сделаем кругляшки вершин немного потолще:

procedure TIIProblemSpace.DrawTop(AImage:TImage; index:integer);
var x,y,dx,dy:integer;
begin
    x:=FLeft;
    y:=FTop+index*FDistance;
    dx:=10;
    dy:=10;
    AImage.Canvas.Pen.Width:=3;
    AImage.Canvas.Ellipse(x,y,x+dx,y+dy);
end;

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

procedure TIIProblemSpace.DrawTop(AImage:TImage; index:integer);
var x,y,dx,dy:integer;
begin
    x:=FLeft;
    y:=FTop+index*FDistance;
    dx:=FTopWidth;
    dy:=FTopHeight;
    AImage.Canvas.Pen.Width:=3;
    AImage.Canvas.Ellipse(x,y,x+dx,y+dy);
end;

соответственно, не забудьте объявить поля FTopWidth и FTopHeight в секции protected и инициализировать в конструкторе:

constructor TIIProblemSpace.Create;
begin
inherited Create;
    FItems:=TList.Create;
    FCurrentItem:=nil;
    FEnter:=nil;
    FDistance:=30;
    FLeft:=50;
    FTop:=30;
    FTopWidth:=10;
    FTopHeight:=10;
end;

Теперь напишем процедуру рисования дуги по двум точкам:

procedure DDraw(Canvas : TCanvas; X, Y, X2, Y2 : integer; D : integer);
var
   phi : double;
   cX : Array[0..3] of double;
   cY : Array[0..3] of double;
   bc : array[0..3] of TPoint;
   i:integer; cosp, sinp,xx,yy:double;
begin
   phi := arctan2((Y-Y2),(X-X2));
   cX[3] := X2-X;
   cY[3] := Y2-Y;
   cosp := cos(-phi +3.14159);
   sinp := sin(-phi+3.14159);
   xx := cX[3];
   yy := cY[3];
   cX[3] := xx * cosp - yy*sinp;
   cY[3] := xx*sinp + yy*cosp;
   cX[0] := 0;
   cX[1] := cX[3]/3;
   cX[2] := cX[3]/3*2;
   cY[0] := 0;
   cY[1] := D;
   cY[2] := D;
   cosp := cos(phi+3.14159);
   sinp := sin(phi +3.14159);
   for i :=0 to 3 do
   begin
        xx := cX[i];
        yy := cY[i];
        cX[i] := xx * cosp - yy*sinp;
        cY[i] := xx*sinp + yy*cosp;
    end;
    cX[0] := cX[0] + X;
    cX[1] := cX[1] + X;
    cX[2] := cX[2] + X;
    cX[3] := cX[3] + X;
    cY[0] := cY[0] + Y;
    cY[1] := cY[1] + Y;
    cY[2] := cY[2] + Y;
    cY[3] := cY[3] + Y;
    bc[0]:= Point(Trunc(cX[0]), Trunc(cY[0]));
    bc[1]:= Point(Trunc(cX[1]), Trunc(cY[1]));
    bc[2]:= Point(Trunc(cX[2]), Trunc(cY[2]));
    bc[3]:= Point(Trunc(cX[3]), Trunc(cY[3]));
    Canvas.PolyBezier(bc);
end;

Напишем метод у класса TIIProblemSpace, который рисует дугу между двумя вершинами графа:

procedure TIIProblemSpace.DrawArc(AImage:TImage;index1,index2:integer);
var xr,yr,dx,dy,x,y:integer; ar:double; ari:integer;
y2:integer;
begin
    x:=FLeft;
    y:=FTop+index1*FDistance;
    y2:=FTop+index2*FDistance;
    dx:=FTopWidth;
    dy:=FTopHeight;
    xr:=x+dx*5;
    yr:=FTop+index2*FDistance;
    DDraw(AImage.Canvas, x, y+dy div 2, x, y2+dy div 2,20);
end;
 

И, наконец, тестовый пример:

procedure TfrmII.FormCreate(Sender: TObject);
var PS:TIIProblemSpace;
begin
    PS:=TIIProblemSpace.Create;
    PS.DrawTop(Image,0);
    PS.DrawTop(Image,1);
    PS.DrawTop(Image,2);
    PS.DrawTop(Image,3);
    PS.DrawTop(Image,4);
    PS.DrawTop(Image,5);
    PS.DrawArc(Image,0,1);
    PS.DrawArc(Image,0,2);
    PS.DrawArc(Image,2,3);
    PS.DrawArc(Image,2,4);
    PS.DrawArc(Image,1,5);
end;

Вот результат его работы:

Создаем искусственный интеллект. Урок 8. Рисуем дуги вершин графа пространства состояний.

На следующем уроке мы улучим внешний вид дуг и нарисуем стрелочки.

Исходники у уроку можно скачать здесь.

Последнее обновление ( 04.08.2010 г. )
 
« След.   Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги