*
*


CAPTCHA Image   Reload Image
X

Нейронные сети

лабораторные работы, программирование и информатика

Объем работы: 6 стр.

Год сдачи: 2012

Стоимость: 130 руб.

Просмотров: 163

 

Не подходит работа?
Узнай цену на написание.

Оглавление
Введение
Содержание
Заказать работу
написать программу, обучающую однонейронный персептрон распознаванию изображения «крестик». Входные образы представляют собой черно-белые графические изображения, разбитые на квадраты (20х20). На основе пиксельной карты строится матрица входящего вектора, состоящая из 0 (квадрат не закрашен) и 1 (квадрат закрашен).
Листинг программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
DrawGrid1: TDrawGrid;
Button1: TButton;
DrawGrid2: TDrawGrid;
Button2: TButton;
Button5: TButton;
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure Button1Click(Sender: TObject);
procedure DrawGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure DrawGrid2SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
function Save(filename:string):boolean;
private
{ Private declarations }
public
{ Public declarations }
end;
mat=array[0..19,0..19] of integer;
matr=array[0..19,0..19] of real;
var
Form1: TForm1;
matrica:mat;
wmatrica:matr;
implementation

{$R *.dfm}

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with (Sender as TDrawGrid).Canvas do
begin
if matrica[ARow,ACol]=1 then Brush.Color:=clBlue;
FillRect(rect);
end;
end;

procedure TForm1.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
matrica[Arow,Acol]:=abs(1-matrica[Arow,Acol])
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
xmin,xmax,ymin,ymax:integer;
tmp:mat;
const n=20;
begin
xmin:=n;
xmax:=-1;
ymin:=n;
ymax:=-1;
.......
.....
...
..
.
Листинг программы
Формы исполняемого приложения

После офорления заказа Вам будут доступны содержание, введение, список литературы*
*- если автор дал согласие и выложил это описание.

Работу высылаем в течении суток после поступления денег на счет
ФИО*


E-mail для получения работы *


Телефон


ICQ


Дополнительная информация, вопросы, комментарии:



CAPTCHA Image
Сусловиямиприбретения работы согласен.

 
Добавить страницу в закладки
Отправить ссылку другу