unit1.dfm

人工神经网络在模式识别

object Form1: TForm1
  Left = 174
  Top = 122
  Width = 925
  Height = 682
  Caption = 'AIR-robot BPNN - C++ - Learn    Version 2.3 '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 7
    Top = 29
    Width = 161
    Height = 13
    Caption = 'The number of input Layer Nodes:'
  end
  object Label2: TLabel
    Left = 7
    Top = 98
    Width = 137
    Height = 13
    Caption = 'The number of hidden layers:'
  end
  object Label3: TLabel
    Left = 7
    Top = 131
    Width = 118
    Height = 13
    Caption = 'Hidden layer Node Array:'
  end
  object Label4: TLabel
    Left = 7
    Top = 254
    Width = 168
    Height = 13
    Caption = 'The number of output Layer Nodes:'
  end
  object Label5: TLabel
    Left = 6
    Top = 61
    Width = 150
    Height = 13
    Caption = 'The number of training samples:'
  end
  object Label6: TLabel
    Left = 7
    Top = 314
    Width = 70
    Height = 13
    Caption = 'Learning Rate:'
  end
  object Label7: TLabel
    Left = 4
    Top = 356
    Width = 83
    Height = 13
    Caption = 'Inertia Parameter:'
  end
  object Label8: TLabel
    Left = 7
    Top = 396
    Width = 105
    Height = 13
    Caption = 'The times of Learning:'
  end
  object Label9: TLabel
    Left = 415
    Top = 354
    Width = 73
    Height = 13
    Caption = 'Trained Times='
  end
  object Label10: TLabel
    Left = 415
    Top = 387
    Width = 37
    Height = 13
    Caption = 'RMSE='
  end
  object Label11: TLabel
    Left = 598
    Top = 82
    Width = 24
    Height = 13
    Caption = 'times'
  end
  object Label12: TLabel
    Left = 420
    Top = 82
    Width = 119
    Height = 13
    Caption = 'Update the monitor every'
  end
  object Label13: TLabel
    Left = 720
    Top = 16
    Width = 43
    Height = 13
    Caption = 'Message'
  end
  object Label14: TLabel
    Left = 8
    Top = 8
    Width = 121
    Height = 13
    Caption = 'Step 1. Network Settings '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label15: TLabel
    Left = 8
    Top = 288
    Width = 116
    Height = 13
    Caption = 'Step 2. Learing Settings '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label16: TLabel
    Left = 8
    Top = 432
    Width = 170
    Height = 13
    Caption = 'Step3. Open the training sample file '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label17: TLabel
    Left = 416
    Top = 8
    Width = 103
    Height = 13
    Caption = 'Step 4. Start Training '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label18: TLabel
    Left = 416
    Top = 488
    Width = 118
    Height = 13
    Caption = 'Step 5. Trouble Shooting'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label19: TLabel
    Left = 8
    Top = 496
    Width = 153
    Height = 13
    Caption = '1. Open training sample from file:'
  end
  object Label20: TLabel
    Left = 8
    Top = 528
    Width = 165
    Height = 13
    Caption = '2. Save neural network data to file:'
  end
  object Label21: TLabel
    Left = 8
    Top = 560
    Width = 133
    Height = 13
    Caption = '3. Save training result to file:'
  end
  object Button1: TButton
    Left = 7
    Top = 455
    Width = 98
    Height = 27
    Caption = 'Open file'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 184
    Top = 29
    Width = 72
    Height = 21
    TabOrder = 1
    Text = '2'
  end
  object Edit2: TEdit
    Left = 184
    Top = 92
    Width = 72
    Height = 21
    TabOrder = 2
    Text = '2'
    OnChange = Edit2Change
  end
  object Edit3: TEdit
    Left = 184
    Top = 254
    Width = 72
    Height = 21
    TabOrder = 3
    Text = '1'
  end
  object StringGrid1: TStringGrid
    Left = 184
    Top = 131
    Width = 217
    Height = 104
    DefaultColWidth = 80
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing]
    TabOrder = 4
  end
  object Memo1: TMemo
    Left = 714
    Top = 44
    Width = 195
    Height = 299
    Lines.Strings = (
      'Memo1')
    TabOrder = 5
  end
  object Edit4: TEdit
    Left = 183
    Top = 61
    Width = 72
    Height = 21
    TabOrder = 6
    Text = '4'
  end
  object Edit5: TEdit
    Left = 184
    Top = 316
    Width = 72
    Height = 21
    TabOrder = 7
    Text = '0.3'
  end
  object Edit6: TEdit
    Left = 183
    Top = 356
    Width = 74
    Height = 21
    TabOrder = 8
    Text = '0.6'
  end
  object Edit7: TEdit
    Left = 185
    Top = 396
    Width = 79
    Height = 21
    TabOrder = 9
    Text = '2000'
  end
  object Edit8: TEdit
    Left = 535
    Top = 348
    Width = 78
    Height = 21
    TabOrder = 10
  end
  object Edit9: TEdit
    Left = 535
    Top = 380
    Width = 78
    Height = 21
    TabOrder = 11
  end
  object Chart1: TChart
    Left = 412
    Top = 107
    Width = 267
    Height = 228
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      '')
    BottomAxis.Title.Caption = 'Trained Times'
    LeftAxis.AxisValuesFormat = '#,########0.########'
    LeftAxis.ExactDateTime = False
    LeftAxis.LabelStyle = talValue
    LeftAxis.Title.Caption = 'RMSE'
    Legend.Visible = False
    View3D = False
    TabOrder = 12
    object Series1: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clRed
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
  end
  object Edit10: TEdit
    Left = 545
    Top = 76
    Width = 48
    Height = 21
    TabOrder = 13
    Text = '100'
  end
  object Button2: TButton
    Left = 414
    Top = 516
    Width = 131
    Height = 27
    Caption = 'AIR-robot'#39's Homepage'
    TabOrder = 14
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 418
    Top = 556
    Width = 207
    Height = 27
    Caption = 'Mail to M. T. Li ([e-mail])'
    TabOrder = 15
    OnClick = Button3Click
  end
  object Edit11: TEdit
    Left = 184
    Top = 496
    Width = 193
    Height = 21
    TabOrder = 16
  end
  object Button4: TButton
    Left = 416
    Top = 32
    Width = 97
    Height = 25
    Caption = 'Start'
    Enabled = False
    TabOrder = 17
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 528
    Top = 32
    Width = 81
    Height = 25
    Caption = 'Stop'
    Enabled = False
    TabOrder = 18
    OnClick = Button5Click
  end
  object Edit12: TEdit
    Left = 184
    Top = 528
    Width = 193
    Height = 21
    TabOrder = 19
  end
  object Edit13: TEdit
    Left = 184
    Top = 560
    Width = 193
    Height = 21
    TabOrder = 20
  end
  object OpenDialog1: TOpenDialog
    Filter = 'All Files|*.*'
    Left = 264
    Top = 32
  end
  object SaveDialog1: TSaveDialog
    Filter = 'All Files|*.*'
    Left = 304
    Top = 32
  end
  object SaveDialog2: TSaveDialog
    Filter = 'All Files|*.*'
    Left = 344
    Top = 32
  end
end