unit1.dfm

本程序实做MLP(Multi-layer perceptron)算法

object Form1: TForm1
  Left = 248
  Top = 126
  Width = 578
  Height = 842
  Caption = 'MLP 2007.10.26 '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 153
    Height = 129
    Caption = #35712#21462#27284#26696
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 56
      Width = 60
      Height = 13
      Caption = #36039#26009#27604#25976#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 80
      Width = 60
      Height = 13
      Caption = #36039#26009#32173#24230#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 104
      Width = 36
      Height = 13
      Caption = #32676#25976#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 72
      Top = 52
      Width = 74
      Height = 21
      TabOrder = 0
      Text = #65311
    end
    object Edit2: TEdit
      Left = 71
      Top = 76
      Width = 74
      Height = 21
      TabOrder = 1
      Text = #65311
    end
    object Edit3: TEdit
      Left = 71
      Top = 101
      Width = 74
      Height = 21
      TabOrder = 2
      Text = #65311
    end
    object btnReadTrainFile: TButton
      Left = 24
      Top = 16
      Width = 113
      Height = 25
      Caption = #35712#27284'Train'#36039#26009
      TabOrder = 3
      OnClick = btnReadTrainFileClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 144
    Width = 153
    Height = 201
    Caption = #38577#34255#23652#35373#23450
    Enabled = False
    TabOrder = 1
    object Label4: TLabel
      Left = 8
      Top = 24
      Width = 36
      Height = 13
      Caption = #23652#25976#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit4: TEdit
      Left = 40
      Top = 19
      Width = 49
      Height = 21
      TabOrder = 0
      Text = '1'
    end
    object btnSetLevelNum: TButton
      Left = 100
      Top = 16
      Width = 43
      Height = 25
      Caption = #35373#23450
      TabOrder = 1
      OnClick = btnSetLevelNumClick
    end
    object StringGrid1: TStringGrid
      Left = 8
      Top = 56
      Width = 137
      Height = 105
      ColCount = 1
      FixedCols = 0
      RowCount = 1
      FixedRows = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
      ParentShowHint = False
      ScrollBars = ssVertical
      ShowHint = False
      TabOrder = 2
      ColWidths = (
        52)
      RowHeights = (
        24)
    end
    object btnSetLevel: TButton
      Left = 32
      Top = 168
      Width = 89
      Height = 25
      Caption = #24314#31435#38577#34255#23652
      TabOrder = 3
      OnClick = btnSetLevelClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 176
    Top = 304
    Width = 385
    Height = 305
    Caption = 'Wight'#20540#35373#23450
    Enabled = False
    TabOrder = 2
    object btnRandomW: TButton
      Left = 16
      Top = 24
      Width = 65
      Height = 25
      Caption = #20098#25976#35373#23450
      TabOrder = 0
      OnClick = btnRandomWClick
    end
    object btnSetW: TButton
      Left = 320
      Top = 312
      Width = 65
      Height = 25
      Caption = #25163#21205#35373#23450
      TabOrder = 1
      Visible = False
      OnClick = btnSetWClick
    end
    object gridWight: TStringGrid
      Left = 8
      Top = 64
      Width = 361
      Height = 233
      ColCount = 1
      FixedCols = 0
      RowCount = 1
      FixedRows = 0
      TabOrder = 2
      OnMouseDown = gridWightMouseDown
      RowHeights = (
        24)
    end
    object ComboBox1: TComboBox
      Left = 88
      Top = 24
      Width = 137
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      OnChange = ComboBox1Change
    end
    object btnSaveWight: TButton
      Left = 248
      Top = 24
      Width = 57
      Height = 25
      Caption = #26283#23384
      TabOrder = 4
      OnClick = btnSaveWightClick
    end
    object btnLoadWight: TButton
      Left = 312
      Top = 24
      Width = 51
      Height = 25
      Caption = #22238#35206
      TabOrder = 5
      OnClick = btnLoadWightClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 16
    Top = 352
    Width = 153
    Height = 257
    Caption = #35347#32244#38283#22987
    Enabled = False
    TabOrder = 3
    object Label5: TLabel
      Left = 8
      Top = 24
      Width = 48
      Height = 13
      Caption = #23416#32722#29575#65306
    end
    object Label6: TLabel
      Left = 8
      Top = 48
      Width = 36
      Height = 13
      Caption = #27425#25976#65306
    end
    object Label7: TLabel
      Left = 8
      Top = 136
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #26178#38291':'
    end
    object Label8: TLabel
      Left = 8
      Top = 160
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #35672#21029#29575':'
    end
    object Label10: TLabel
      Left = 8
      Top = 184
      Width = 49
      Height = 13
      AutoSize = False
      Caption = 'RMSE:'
    end
    object Edit5: TEdit
      Left = 64
      Top = 20
      Width = 81
      Height = 21
      TabOrder = 0
      Text = '0.5'
    end
    object Edit6: TEdit
      Left = 64
      Top = 44
      Width = 81
      Height = 21
      TabOrder = 1
      Text = '1000'
    end
    object btnEXE: TButton
      Left = 16
      Top = 96
      Width = 113
      Height = 25
      Caption = #22519#34892
      TabOrder = 2
      OnClick = btnEXEClick
    end
    object RadioButton1: TRadioButton
      Left = 8
      Top = 72
      Width = 49
      Height = 17
      Caption = #20381#24207
      Checked = True
      TabOrder = 3
      TabStop = True
    end
    object RadioButton2: TRadioButton
      Left = 64
      Top = 72
      Width = 81
      Height = 17
      Caption = #20098#24207#36039#26009
      TabOrder = 4
    end
    object Edit7: TEdit
      Left = 72
      Top = 132
      Width = 73
      Height = 21
      TabOrder = 5
    end
    object Edit8: TEdit
      Left = 72
      Top = 156
      Width = 73
      Height = 21
      TabOrder = 6
    end
    object Edit10: TEdit
      Left = 72
      Top = 180
      Width = 73
      Height = 21
      TabOrder = 7
    end
    object btnShowCluster: TButton
      Left = 24
      Top = 216
      Width = 113
      Height = 25
      Caption = #39023#31034#20998#32676#24773#27841
      TabOrder = 8
      OnClick = btnShowClusterClick
    end
  end
  object GroupBox5: TGroupBox
    Left = 368
    Top = 616
    Width = 193
    Height = 89
    Caption = #28204#35430#36039#26009
    Enabled = False
    TabOrder = 4
    object Label9: TLabel
      Left = 8
      Top = 60
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #36776#35672#29575':'
    end
    object btnReadTestFile: TButton
      Left = 8
      Top = 24
      Width = 97
      Height = 25
      Caption = #35712#27284'Test'#36039#26009
      TabOrder = 0
      OnClick = btnReadTestFileClick
    end
    object Edit9: TEdit
      Left = 76
      Top = 56
      Width = 73
      Height = 21
      TabOrder = 1
    end
  end
  object Chart1: TChart
    Left = 16
    Top = 616
    Width = 337
    Height = 177
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Legend.Visible = False
    Title.Text.Strings = (
      'RMSE(Red)  & Recognize(Green)')
    View3D = False
    TabOrder = 5
    PrintMargins = (
      15
      24
      15
      24)
    object Series1: TLineSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Y'
      YValues.Order = loNone
    end
    object Series2: TFastLineSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      LinePen.Color = clGreen
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Y'
      YValues.Order = loNone
    end
  end
  object btnDataCut: TButton
    Left = 368
    Top = 728
    Width = 193
    Height = 49
    Caption = #20998#21106#36039#26009'('#35347#32244#33287#28204#35430')'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #27161#26999#39636
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    OnClick = btnDataCutClick
  end
  object Chart2: TChart
    Left = 176
    Top = 8
    Width = 377
    Height = 265
    Title.Text.Strings = (
      #36039#26009#20301#32622)
    AxisBehind = False
    AxisVisible = False
    TabOrder = 7
    object Series3: TPoint3DSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      ShowInLegend = False
      LinePen.Visible = False
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = True
      XValues.Name = 'X'
      XValues.Order = loNone
      YValues.Name = 'Y'
      YValues.Order = loNone
      ZValues.Name = 'Z'
      ZValues.Order = loNone
    end
    object Series4: TPoint3DSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      ShowInLegend = False
      LinePen.Visible = False
      Pointer.Draw3D = False
      Pointer.HorizSize = 3
      Pointer.InflateMargins = True
      Pointer.Style = psCircle
      Pointer.VertSize = 3
      Pointer.Visible = True
      XValues.Name = 'X'
      XValues.Order = loNone
      YValues.Name = 'Y'
      YValues.Order = loNone
      ZValues.Name = 'Z'
      ZValues.Order = loNone
    end
  end
  object Panel1: TPanel
    Left = 256
    Top = 272
    Width = 209
    Height = 33
    Enabled = False
    TabOrder = 8
    object RadioButton4: TRadioButton
      Left = 8
      Top = 8
      Width = 81
      Height = 17
      Caption = #26399#24453#20998#32676
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = RadioButton4Click
    end
    object RadioButton3: TRadioButton
      Left = 112
      Top = 8
      Width = 81
      Height = 17
      Caption = #23526#38555#20998#32676
      TabOrder = 1
      OnClick = RadioButton4Click
    end
  end
  object OpenDialog1: TOpenDialog
  end
end