Нейронные сети
лабораторные работы, Программирование и информатика Объем работы: 10 стр. Год сдачи: 2011 Стоимость: 135 руб. Просмотров: 237 | | |
Оглавление
Введение
Содержание
Заказать работу
Написание программы, реализующей обучение многослойного нейрона для распознавание цифр от 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}
Листинг программы
Формы приложения
После офорления заказа Вам будут доступны содержание, введение, список литературы*
*- если автор дал согласие и выложил это описание.