unit1.dfm

此程序采用K均值的方法对样本数据进行模式分类

object Form1: TForm1
  Left = 236
  Top = 148
  Width = 696
  Height = 549
  Caption = #27169#24335#35782#21035#20316#19994
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 281
    Top = 20
    Width = 2
    Height = 442
    Cursor = crHSplit
    Color = clBtnFace
    ParentColor = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 493
    Width = 688
    Height = 22
    Panels = <
      item
        Text = #20998#31867#36845#20195#27425#25968#65306'0 '#27425
        Width = 50
      end>
    SimplePanel = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 20
    Width = 281
    Height = 442
    Align = alLeft
    Caption = #25991#20214#36733#20837#21407#22987#26679#26412#25968#25454
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object ListView1: TListView
      Left = 2
      Top = 15
      Width = 277
      Height = 425
      Align = alClient
      Columns = <
        item
          Caption = #24207#21495
        end
        item
          Alignment = taCenter
          Caption = 'X1'
        end
        item
          Alignment = taCenter
          Caption = 'X2'
        end
        item
          Alignment = taCenter
          Caption = 'X3'
        end
        item
          Alignment = taCenter
          Caption = 'X4'
        end>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      GridLines = True
      ParentFont = False
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 20
    Align = alTop
    BevelOuter = bvNone
    Caption = 'K-Means'#32858#31867#20998#26512#35774#35745#31243#24207
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object Panel2: TPanel
    Left = 0
    Top = 462
    Width = 688
    Height = 31
    Align = alBottom
    TabOrder = 3
    object SpeedButton1: TSpeedButton
      Left = 112
      Top = 3
      Width = 84
      Height = 25
      Caption = #26679#26412#36733#20837
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
        3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000
        000077777777777777773303333333333333337FFF333333333F370993333333
        3399377773F33333337733033933333339333F7FF7FFFFFFF7FF77077797CCC7
        977777777777777777773303339C333C9333337F3377F3377F33370333C93339
        C333377F33773FF77F33330333C39993C3333F7FFF7F777F7FFF770777C77777
        C77777777777777777773303333C333C3333337F33373FF7333337033333CCC3
        3333377F33337773333333033333333333333F7FFFFFFFFFFFFF770777777777
        7777777777777777777733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object SpeedButton3: TSpeedButton
      Left = 472
      Top = 3
      Width = 73
      Height = 25
      Caption = #36864'    '#20986
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
        BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
        BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
        BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
        BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
        EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
        EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
        EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
        EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773}
      NumGlyphs = 2
      OnClick = SpeedButton3Click
    end
    object SpeedButton2: TSpeedButton
      Left = 288
      Top = 3
      Width = 84
      Height = 25
      Caption = #26679#26412#20998#31867
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
        3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000
        000077777777777777773303333333333333337FF333333F33333709333333C3
        333337773F3FF373F333330393993C3C33333F7F7F77F7F7FFFF77079797977C
        77777777777777777777330339339333C333337FF73373F37F33370C333C3933
        933337773F3737F37FF33303C3C33939C9333F7F7F7FF7F777FF7707C7C77797
        7C97777777777777777733033C3333333C33337F37F33333373F37033C333333
        33C3377F37333333337333033333333333333F7FFFFFFFFFFFFF770777777777
        7777777777777777777733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 283
    Top = 20
    Width = 405
    Height = 442
    Align = alClient
    Caption = #20998#31867#32467#26524
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    object Splitter2: TSplitter
      Left = 2
      Top = 161
      Width = 401
      Height = 2
      Cursor = crVSplit
      Align = alTop
      Color = clBtnFace
      ParentColor = False
    end
    object Splitter3: TSplitter
      Left = 2
      Top = 305
      Width = 401
      Height = 2
      Cursor = crVSplit
      Align = alBottom
      Color = clBtnFace
      ParentColor = False
    end
    object GroupBox3: TGroupBox
      Left = 2
      Top = 15
      Width = 401
      Height = 146
      Align = alTop
      Caption = #31532#19968#31867
      TabOrder = 0
      object ListView2: TListView
        Left = 2
        Top = 29
        Width = 397
        Height = 115
        Align = alClient
        Columns = <
          item
            Caption = #24207#21495
          end
          item
            Alignment = taCenter
            Caption = 'X1'
          end
          item
            Alignment = taCenter
            Caption = 'X2'
          end
          item
            Alignment = taCenter
            Caption = 'X3'
          end
          item
            Alignment = taCenter
            Caption = 'X4'
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        GridLines = True
        ParentFont = False
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Panel3: TPanel
        Left = 2
        Top = 15
        Width = 397
        Height = 14
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Label1: TLabel
          Left = 0
          Top = 0
          Width = 397
          Height = 14
          Align = alTop
          Alignment = taCenter
          Caption = #20849#35745'  0  '#20010#26679#26412
          Color = clMedGray
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
      end
    end
    object GroupBox5: TGroupBox
      Left = 2
      Top = 307
      Width = 401
      Height = 133
      Align = alBottom
      Caption = #31532#19977#31867
      TabOrder = 1
      object Panel5: TPanel
        Left = 2
        Top = 15
        Width = 397
        Height = 14
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label3: TLabel
          Left = 0
          Top = 0
          Width = 397
          Height = 14
          Align = alTop
          Alignment = taCenter
          Caption = #20849#35745'  0  '#20010#26679#26412
          Color = clMedGray
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
      end
      object ListView4: TListView
        Left = 2
        Top = 29
        Width = 397
        Height = 102
        Align = alClient
        Columns = <
          item
            Caption = #24207#21495
          end
          item
            Alignment = taCenter
            Caption = 'X1'
          end
          item
            Alignment = taCenter
            Caption = 'X2'
          end
          item
            Alignment = taCenter
            Caption = 'X3'
          end
          item
            Alignment = taCenter
            Caption = 'X4'
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        GridLines = True
        ParentFont = False
        TabOrder = 1
        ViewStyle = vsReport
      end
    end
    object GroupBox4: TGroupBox
      Left = 2
      Top = 163
      Width = 401
      Height = 142
      Align = alClient
      Caption = #31532#20108#31867
      TabOrder = 2
      object ListView3: TListView
        Left = 2
        Top = 30
        Width = 397
        Height = 110
        Align = alClient
        Columns = <
          item
            Caption = #24207#21495
          end
          item
            Alignment = taCenter
            Caption = 'X1'
          end
          item
            Alignment = taCenter
            Caption = 'X2'
          end
          item
            Alignment = taCenter
            Caption = 'X3'
          end
          item
            Alignment = taCenter
            Caption = 'X4'
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        GridLines = True
        ParentFont = False
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Panel4: TPanel
        Left = 2
        Top = 15
        Width = 397
        Height = 15
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Label2: TLabel
          Left = 0
          Top = 0
          Width = 397
          Height = 14
          Align = alTop
          Alignment = taCenter
          Caption = #20849#35745'  0  '#20010#26679#26412
          Color = clMedGray
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
      end
    end
  end
  object OpenDialog1: TOpenDialog
    FileName = 'iris.txt'
    Filter = 'txt'#25991#20214'|*.txt|dat'#25991#20214'|*.dat'
    Left = 24
    Top = 576
  end
end