unit1.~dfm

小弟撰寫的類神經pca對圖片的壓縮與解壓縮,對來源圖片training過後,可使用該張圖像的特性(eigenvalue和eigenvetex)來對別張圖解壓縮,非常有趣的方式,再設定threashol

object Form1: TForm1
  Left = 262
  Top = 187
  Width = 602
  Height = 465
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 16
    Top = 112
    Width = 256
    Height = 257
  end
  object Image2: TImage
    Left = 312
    Top = 112
    Width = 256
    Height = 257
  end
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 70
    Height = 13
    Caption = 'Output number'
  end
  object Label2: TLabel
    Left = 24
    Top = 64
    Width = 50
    Height = 13
    Caption = 'Block Size'
  end
  object Label3: TLabel
    Left = 224
    Top = 16
    Width = 62
    Height = 13
    Caption = 'Learning rate'
  end
  object Label4: TLabel
    Left = 216
    Top = 64
    Width = 72
    Height = 13
    Caption = 'Learning Times'
  end
  object Image3: TImage
    Left = 16
    Top = 112
    Width = 256
    Height = 257
  end
  object Output: TEdit
    Left = 88
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 0
    Text = '8'
  end
  object Rate: TEdit
    Left = 304
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 1
    Text = '0.001'
  end
  object Times: TEdit
    Left = 304
    Top = 64
    Width = 121
    Height = 21
    TabOrder = 2
    Text = '1'
  end
  object Block: TEdit
    Left = 88
    Top = 64
    Width = 121
    Height = 21
    TabOrder = 3
    Text = '8'
  end
  object MainMenu1: TMainMenu
    Left = 472
    Top = 56
    object Open1: TMenuItem
      Caption = 'Open'
      OnClick = Open1Click
    end
    object Define1: TMenuItem
      Caption = 'Define'
      OnClick = Define1Click
    end
    object Train1: TMenuItem
      Caption = 'Train'
      OnClick = Train1Click
    end
    object Decode1: TMenuItem
      Caption = 'Decode'
      OnClick = Decode1Click
    end
    object Test1: TMenuItem
      Caption = 'Test Image'
      OnClick = Test1Click
    end
    object GO1: TMenuItem
      Caption = 'Go'
      OnClick = GO1Click
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      OnClick = Exit1Click
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 440
    Top = 56
  end
end