udlgopprmsvm.pas

来自「ADaM is a data mining and image processi」· PAS 代码 · 共 57 行

unit UDlgOpPrmSVM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UDlgBaseOperatorParameter, ComCtrls, StdCtrls, ExtCtrls,
  lmdstdcA, LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel,
  LMDBaseEdit, LMDCustomEdit, LMDCustomMaskEdit, LMDMaskEdit;

type
  TdlgOpPrmSpvSVM = class(TDlgBaseOperatorParameter)
    TabSheet1: TTabSheet;
    rgKernel: TRadioGroup;
    Label1: TLabel;
    spinExponent: TLMDSpinEdit;
    rgAttTrans: TRadioGroup;
    edGamma: TLMDMaskEdit;
    Label2: TLabel;
    TabSheet2: TTabSheet;
    edEpsilon: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edTolerance: TEdit;
    Label3: TLabel;
    edComplexity: TEdit;
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  procedure   ApplyModifications(); override;
  procedure   SetParameters(); override;    
  end;

var
  dlgOpPrmSpvSVM: TdlgOpPrmSpvSVM;

implementation

uses UCompSpvSVM, UCalcSpvSMOAttTransformation;

{$R *.dfm}

{ TdlgOpPrmSpvSVM }

procedure TdlgOpPrmSpvSVM.ApplyModifications;
var prm: TOpPrmSVM;
begin
 prm:= self.OpPrm as TOpPrmSVM;
 //standard est z閞o -- polynome
 prm.FeatureSpaceNormalization:= false;
 prm.UseRBF:= false;
 //c'est tr鑣 mal fait mais au moins on est totalement en accord avec WEKA
 case self.rgKernel.ItemIndex of
  //polynome normalis