bp.~dfm

BP批处理源代码

object Form1: TForm1
  Left = 5
  Top = 110
  Width = 995
  Height = 609
  Caption = 'Form1'
  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 Label1: TLabel
    Left = 21
    Top = 56
    Width = 130
    Height = 13
    AutoSize = False
    Caption = '输入层样本数'
  end
  object Label2: TLabel
    Left = 21
    Top = 135
    Width = 130
    Height = 13
    AutoSize = False
    Caption = '隐含层层数'
  end
  object Label3: TLabel
    Left = 21
    Top = 213
    Width = 130
    Height = 13
    AutoSize = False
    Caption = '第一隐含层神经元数'
  end
  object Label4: TLabel
    Left = 21
    Top = 292
    Width = 130
    Height = 13
    AutoSize = False
    Caption = '第二隐含层神经元数'
  end
  object Label5: TLabel
    Left = 21
    Top = 371
    Width = 130
    Height = 13
    AutoSize = False
    Caption = '输出层样本数'
  end
  object Label6: TLabel
    Left = 21
    Top = 449
    Width = 130
    Height = 13
    AutoSize = False
    Caption = '动量因子'
  end
  object Image1: TImage
    Left = 360
    Top = 56
    Width = 385
    Height = 313
  end
  object Label7: TLabel
    Left = 21
    Top = 528
    Width = 130
    Height = 13
    AutoSize = False
    Caption = '学习步长'
  end
  object Edit1: TEdit
    Left = 192
    Top = 48
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 192
    Top = 127
    Width = 121
    Height = 21
    TabOrder = 1
    Text = '1'
  end
  object Edit3: TEdit
    Left = 192
    Top = 205
    Width = 121
    Height = 21
    TabOrder = 2
    Text = '5'
  end
  object Edit4: TEdit
    Left = 192
    Top = 284
    Width = 121
    Height = 21
    TabOrder = 3
    Text = '5'
  end
  object Edit5: TEdit
    Left = 192
    Top = 363
    Width = 121
    Height = 21
    TabOrder = 4
    Text = 'Edit5'
  end
  object Button1: TButton
    Left = 816
    Top = 48
    Width = 130
    Height = 25
    Caption = '顺序样本培训'
    TabOrder = 5
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 816
    Top = 164
    Width = 130
    Height = 25
    Caption = '批处理样本平培训'
    TabOrder = 6
    OnClick = Button2Click
  end
  object Edit6: TEdit
    Left = 192
    Top = 441
    Width = 121
    Height = 21
    TabOrder = 7
    Text = '0.2'
  end
  object Button3: TButton
    Left = 816
    Top = 280
    Width = 130
    Height = 25
    Caption = '神经元矩阵'
    TabOrder = 8
  end
  object Button4: TButton
    Left = 816
    Top = 512
    Width = 130
    Height = 25
    Caption = '神经网络预报'
    TabOrder = 9
  end
  object Button5: TButton
    Left = 816
    Top = 396
    Width = 130
    Height = 25
    Caption = '保存神经元矩阵'
    TabOrder = 10
  end
  object RichEdit1: TRichEdit
    Left = 352
    Top = 384
    Width = 425
    Height = 145
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'RichEdit1')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 11
  end
  object Edit7: TEdit
    Left = 192
    Top = 520
    Width = 121
    Height = 21
    TabOrder = 12
    Text = '0.75'
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Button2Click
    Left = 752
    Top = 32
  end
  object OpenDialog1: TOpenDialog
    Left = 384
    Top = 16
  end
  object SaveDialog1: TSaveDialog
    Left = 480
    Top = 24
  end
end