*
*


CAPTCHA Image   Reload Image
X

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

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

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

Год сдачи: 2011

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

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

 

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

Оглавление
Введение
Содержание
Заказать работу
Написание программы, реализующей обучение многослойного нейрона для распознавание цифр от 0 до 9.
Листинг программы

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
RadioGroup1: TRadioGroup;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button5: TButton;
Button6: TButton;
OpenDialog1: TOpenDialog;
Label6: TLabel;
ComboBox1: TComboBox;
Button7: TButton;
Button8: TButton;
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);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const
n = 100;

var
Form1: TForm1;
Move: Boolean;
X: array [0..100,0..100] of Real;
W1: array [0..100,0..100,0..11] of Real;
W2: array [0..11,0..3] of Real;
B1: array [0..11] of Real;
B2: array [0..3] of Real;
Y1: array [0..11] of Real;
Y2: array [0..3] of Real;
a: real = 0.5;
temp: real = 0.5;
T: array [0..3] of Real;
Ret:integer;
implementation

{$R *.dfm}
Листинг программы
Формы приложения

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

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


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


Телефон


ICQ


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



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

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