eval(demosdt('echoon'))

% Demonstration of the identification capabilities of the SDT
% for the case of the GARTEUR SM-AG-19 Testbed.
%
% The test results used in this demo were kindly provided by one of the 11
% participants of the GARTEUR SM-AG-19 action group.

% initialization

clear variables global;comgui('close all');
iiplot; % initializes the interface and declares proper global variables
load gartid
iicom(';submagpha;w0'); comgui('wplace ur');


load sdt_gart FEnode FEelt
femesh('selgroup11'); femesh('plotel0');
fecom(';sub 1;view3;showline');comgui('wplace br');
cf=feplot; set(cf.o(1),'marker','o','markersize',3)

% estimate transfer functions

iicom('cax2');
IIpo =[    6.5053e+00   9.4621e-03;
	   8.9839e+00   2.0770e-02;
	   1.6392e+01   1.2346e-02;
	   3.3496e+01   7.4180e-03;
	   3.3992e+01   1.1965e-02;
	   3.6129e+01   8.1992e-03;
	   4.9444e+01   2.2174e-02;
	   5.0202e+01   4.8315e-03;
	   5.5622e+01   1.0656e-03;
	   6.4155e+01   1.2166e-02];
idcom(';wmin 4 65;est')

% visualize the associated deformations

fecom(';cax1;scd.2')
cf.def(1)={imag(IIres).',XFdof(:,1),IIpo};
feplot('initsens',XFdof(:,1));

% This very short demo loaded
%  - measured data IIw IIxf XFopt XFdof IDopt (displayed in figure 1)
%  - test model FEnode FEelt (see the GARTTE demo) (displayed in figure 3)
%  - identified the result in the 4-65 Hz band
%  - displayed the identified modeshapes IIres in figure 3.
%  
% In a true application the IIpo matrix would be found iteratively as
% demonstrated in DEMO_ID.

%-----------------------------------------------------------------
eval(demosdt('echooff'))

%       Etienne Balmes  07/28/95, 08/21/98
%       Copyright (c) 1990-2003 by SDTools, All Rights Reserved.
%       $Revision: 1.2 $  $Date: 2003/09/01 15:25:18 $