Home > @d_opvt > private > vtsimul.m

vtsimul

PURPOSE ^

VTSIMUL Sets up various constants and structures for use with AMgetdata

SYNOPSIS ^

This is a script file.

DESCRIPTION ^

 VTSIMUL Sets up various constants and structures for use with AMgetdata

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 % VTSIMUL Sets up various constants and structures for use with AMgetdata
0002 
0003 % Satrajit Ghosh, SpeechLab, Boston University. (c)2001
0004 % $Header: /mnt/localhd/cvsdir/MODELLING/NEWDIVA/@d_opvt/private/vtsimul.m,v 1.1.1.1 2006/10/06 18:20:23 brumberg Exp $
0005 
0006 % $NoKeywords: $
0007 
0008 % Setup globals
0009 global RELEASE
0010 
0011 OFF        = 0;
0012 ON            = 1;
0013 RIGID        = 0;
0014 YIELDING    = 1;
0015 FLOW        = 0;
0016 PRESSURE = 1;
0017 CLOSE        = 0;
0018 OPEN        = 1;
0019 SHORT_CIRCUIT    = 0;
0020 RL_CIRCUIT        = 1;
0021 BESSEL_FUNCTION= 2;
0022 
0023 TIME_VARYING    = 1;
0024 STATIONARY        = 0;
0025 
0026 UNIFROM_TUBE    = 0;
0027 FROM_FILE        = 1;
0028 T2MODEL            = 2;
0029 P3MODEL            = 3;
0030 ART_MODEL        = 4;
0031 
0032 Utube_par = struct(...
0033    'area',6.0,...
0034    'length',17.5,...
0035    'nss',17,...
0036    'anc',0);
0037 T2model_par = struct(...
0038    'A1',1.5,...
0039    'x1',8.5,...
0040    'A2',8.0,...
0041    'x2',8.5,...
0042    'anc',0);
0043 P3model_par = struct(...
0044    'At',2.6,...
0045    'Xt',8.0,...
0046    'Al',4.0,...
0047    'anc',0);
0048 
0049 AMmodel_par = struct(...
0050    'vowel',0,...
0051    'ampar',zeros(1,7),...
0052    'anc',0);
0053 
0054 nss = 17;
0055 af(1,:) = 6*ones(1,nss);
0056 af(2,:) = (17.5/nss)*ones(1,nss);
0057 AS2Fmodel_par = struct(...
0058    'nss',nss,...
0059    'af',af,...
0060    'length',17.5,...
0061    'nts',nss,...
0062    'anc',0);
0063 
0064 tract_cfg = struct(...
0065    'rad_boundary',RL_CIRCUIT,...
0066    'wall',YIELDING,...
0067    'nasal_tract',OFF,...
0068    'glt_boundary',CLOSE);
0069 
0070 phys_const = struct(...
0071    'ro',1.14e-3,...            % air density
0072    'c',3.5e+4,...                % sound velocity
0073    'wall_resi',1600,...
0074    'wall_mass',1.5,...
0075    'wall_comp',3e+5);
0076 
0077 data = struct(...
0078    'TC',tract_cfg,...
0079    'PC',phys_const,...
0080    'UTmpar',Utube_par,...
0081    'T2mpar',T2model_par,...
0082    'P3mpar',P3model_par,...
0083    'AMpar',AMmodel_par,...
0084    'AS2Fpar',AS2Fmodel_par);

Generated on Tue 27-Mar-2007 12:06:24 by m2html © 2003