130
end;
procedure TfrmIris.btnWaveletClick(Sender: TObject);
var wname, variavel: string;
Tamanho,i,j: Integer;
w_ap, w_hz, w_vt, w_dg, w_eq, w_qa: String;
inicio, termino: TTime;
retorno: Variant;
begin
screen.Cursor:= crSQLWait;
Beep;
Matlab.Execute('clear');
Lista.Clear;
edtINICIO.Text:='';
edtINICIO.Refresh;
edtTERMINO.Text:='';
edtTERMINO.Refresh;
edtTEMPOGASTO.Text:='';
edtTEMPOGASTO.Refresh;
w_ap:=BoolToStr(edtAPROXIMACAO.Checked);
w_hz:=BoolToStr(edtHORIZONTAL.Checked);
w_vt:=BoolToStr(edtVERTICAL.Checked);
w_dg:=BoolToStr(edtDIAGONAL.Checked);
w_eq:=BoolToStr(edtEQUALIZA.Checked);
w_qa:=BoolToStr(chkQUALIDADE.Checked);
Variavel := '[D, qualidade, Q] = iris('''+wavelet.Items[wavelet.ItemIndex]+
''','+IntToStr(niveis.ItemIndex+1)+','+w_ap+','+w_hz+','+w_vt+','+w_dg+','+
w_eq+','+w_qa+');';
inicio:=Time;
edtINICIO.Text:=TimeToStr(inicio);
edtINICIO.Refresh;
Matlab.Execute(variavel);
Tamanho:=755;
zr := VarArrayCreate([0, Tamanho, 0, Tamanho], varDouble);
zi := VarArrayCreate([0, Tamanho, 0, Tamanho], varDouble);
Matlab.GetFullMatrix('D', 'base', VarArrayRef(zr), VarArrayRef(zi));
for i := 0 to Tamanho do
for j := 0 to Tamanho do
Distancia[i,j]:=zr[i, j];
zr := VarArrayCreate([0, Tamanho], varDouble);
zi := VarArrayCreate([0, Tamanho], varDouble);
Matlab.GetFullMatrix('qualidade', 'base', VarArrayRef(zr), VarArrayRef(zi));
for i := 0 to Tamanho do
Qualidade[i]:=zr[i];
zr := VarArrayCreate([0, Tamanho, 0, 1], varDouble);
zi := VarArrayCreate([0, Tamanho, 0, 1], varDouble);
Matlab.GetFullMatrix('Q', 'base', VarArrayRef(zr), VarArrayRef(zi));
for i := 0 to Tamanho do
for j := 0 to 1 do
Resultado[i,j]:=zr[i, j];
termino:=Time;
edtTERMINO.Text:=TimeToStr(termino);
edtTEMPOGASTO.Text:=TimeToStr(termino-inicio);
if chk_salvar.Checked then
SalvarProcessamento;
btnRecallPrecision.Enabled:=True;
btnReconhece.Enabled:=True;
btnAcertoGeral.Enabled:=True;
Beep;
screen.Cursor:= crDefault;
btnAcertoGeral.Click;
end;
procedure TfrmIris.btnRecallPrecisionClick(Sender: TObject);
var Tamanho, nivel, i, j: Integer;
Variavel: String;
retorno: Variant;
begin
screen.Cursor:= crSQLWait;
Beep;
Variavel:='ativo=exist('+QuotedStr('D')+');';
retorno:=Matlab.Execute(Variavel);
Variavel:=VarToStr(retorno);