*
*


CAPTCHA Image   Reload Image
X

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

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

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

Год сдачи: 2012

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

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

 

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

Оглавление
Введение
Содержание
Заказать работу
написать программу, реализующей обучение сети Кохонена, распознавания цифр от 0 до 9.
Листинг программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan, DB, DBTables;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Button3: TButton;
XPManifest1: TXPManifest;
Image1: TImage;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
SaveDialog1: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
const
n = 225;
var
d0,d1,d2,d3,d4,d5,d6,d7,d8,d9:real;
dd0,dd1,dd2,dd3,dd4,dd5,dd6,dd7,dd8,dd9:real;
Form1: TForm1;
Move: boolean;
W: array [0..225,0..225,0..9] of Real;
X: array [0..225,0..225] of Real;
a: Real;
implementation
uses ConvUtils;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i,j,k:byte;
begin
//Расстояния;
d1:=0;
d2:=0;
d3:=0;
d4:=0;
d5:=0;
d6:=0;
d7:=0;
d8:=0;
d9:=0;
d0:=0;
a:=0.9;
for i:=1 to n do
for j:=1 to n do
Image1.Canvas.Pixels[j,i]:=ClWhite;
//Задаём малые случайные значения синаптических весов нейронов;
for i:=1 to n do
for j:=1 to n do
for k:=0 to 9 do
begin
W[i,j,k]:=random(n)/1000;
end;
end;
....
...
..
.
Листинг программы
Формы исполняемого приложения

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

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


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


Телефон


ICQ


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



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

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