unit1.dfm

这是一个关于遗传算法求最大值的问题

object Form1: TForm1
  Left = 185
  Top = 112
  Width = 806
  Height = 571
  Caption = #36951#20256#31639#27861#35745#31639#23454#20363
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clRed
  Font.Height = -21
  Font.Name = #26999#20307'_GB2312'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 21
  object Label1: TLabel
    Left = 32
    Top = 496
    Width = 252
    Height = 14
    Caption = #12298#20154#24037#26234#33021#12299#35838#31243#35774#35745' '#35745#31185#20108#29677' '#29579#20399#33395
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 208
    Top = 448
    Width = 85
    Height = 16
    Caption = #21464#24322#27010#29575#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 576
    Top = 448
    Width = 119
    Height = 16
    Caption = #26368#22823#36827#21270#19990#20195#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 392
    Top = 448
    Width = 85
    Height = 16
    Caption = #31181#32676#35268#27169#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 24
    Top = 448
    Width = 85
    Height = 16
    Caption = #20132#21449#27010#29575#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object RichEdit1: TRichEdit
    Left = 16
    Top = 16
    Width = 761
    Height = 73
    BevelInner = bvNone
    BevelOuter = bvNone
    Color = clMenuBar
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    Lines.Strings = (
      #20248#21270#38382#39064#65306
      '  '#26497#22823#20540#38382#39064' max f(x)=x2,x'#8712' [0,31]'#65288#20026#31616#21270#38382#39064#65292#21482#32771#34385'x'#21462#25972#25968#65289' ')
    ParentFont = False
    TabOrder = 0
  end
  object Chart1: TChart
    Left = 16
    Top = 104
    Width = 761
    Height = 313
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #36951#20256#31639#27861#35745#31639#23454#20363#21160#24577#28436#31034#22270)
    LeftAxis.Automatic = False
    LeftAxis.AutomaticMaximum = False
    LeftAxis.Maximum = 1000.000000000000000000
    Legend.Alignment = laBottom
    View3D = False
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 1
    object Series1: TFastLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clRed
      Title = #26368#20248#20010#20307#36866#24212#24230
      LinePen.Color = clRed
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
    object Series2: TFastLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clGreen
      Title = #24179#22343#36866#24212#24230
      LinePen.Color = clGreen
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
    object Series3: TFastLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = 4194368
      Title = #26368#24046#20010#20307#36866#24212#24230
      LinePen.Color = 4194368
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
  object Edit1: TEdit
    Left = 112
    Top = 440
    Width = 73
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    Text = '0.75'
  end
  object Edit2: TEdit
    Left = 296
    Top = 440
    Width = 73
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    Text = '0.005'
  end
  object Edit4: TEdit
    Left = 696
    Top = 440
    Width = 73
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Text = '100'
  end
  object BitBtn1: TBitBtn
    Left = 504
    Top = 488
    Width = 177
    Height = 33
    Caption = #24320#22987#35745#31639
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#26032#39759
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = BitBtn1Click
    Kind = bkRetry
  end
  object Edit3: TEdit
    Left = 480
    Top = 440
    Width = 73
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    Text = '30'
  end
end