Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

procedure TFrmPerceptron.BtnOutputClick(Sender: TObject); var z:array[1..InputLayerUnits] of shortint; m,i,j:byte;

Output:array[1..InputLayerUnits] of real; sum:real; begin for m:=1 to InputLayerUnits do begin if (Percept_FieldPerc.Brushes[m]=Percept_FieldPerc.RectBrush) then begin z[m]:=1; end else if

(Percept_FieldPerc.Brushes[m]=Percept_FieldPerc.BackGroundBrush) then begin z[m]:=-1; end; end; for i := 1 to OutputLayerUnits do begin sum:=0; for j := 1 to InputLayerUnits do begin sum:=sum+w[i,j]*z[j]; end;

Output[i]:=sum; end; if (Output[1]>Output[2]) then begin

LabelOdd.Font.Color:=clRed;

LabelEven.Font.Color:=clWindowText; end else begin if (Output[2]>Output[1]) then begin

LabelEven.Font.Color:=clRed;

LabelOdd.Font.Color:=clWindowText; end; end; end; end.

Программа, моделирующая сеть обратного распространения

unit UBack;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs,

StdCtrls, Percept_Field, Buttons, ExtCtrls; const FirstLayerUnits=35;

SecondLayerUnits=20;

ThirdLayerUnits=2; numberpatterns=36;

NumLayers=3; epsilon=0.000001; eta=0.05; alpha=0.5;

type

TFrmBack = class(TForm)

BitBtnClose: TBitBtn;

Percept_FieldBack: TPercept_Field;

GroupBoxTrain: TGroupBox;

ComboBoxABC: TComboBox;

ComboBoxDigits: TComboBox;

Рекомендуем скачать другие рефераты по теме: тесты с ответами, реферат этикет.





Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата