view aim-mat/tools/genrow.m @ 0:74dedb26614d

Initial checkin of AIM-MAT version 1.5 (6.4.2011).

% tool
% 
%   INPUT VALUES:
%  
%   RETURN VALUE:
%
% 
% (c) 2003-2008, University of Cambridge, Medical Research Council 
% Maintained by Tom Walters ([e-mail]), written by Stefan Bleeck ([e-mail])
% http://www.pdn.cam.ac.uk/cnbh/aim2006
% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $
% $Revision: 585 $


function res=genrow


s1=signal(0.3,16000); %erster Ton
s2=signal(0.3,16000); % zweiter Ton
s3=signal(0.3,16000); % 
s4=signal(0.3,16000); % 
s5=signal(0.3,16000); % 
s6=signal(0.3,16000); % 


s1=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000');
s2=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-2');
s3=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-4');
s4=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-6');
s5=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-8');
s6=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-10');

rms1=rms(s1);
rms2=rms(s2);
rms3=rms(s3);
rms4=rms(s4);
rms5=rms(s5);
rms6=rms(s6);

rmsmax=max([rms1 rms2 rms3 rms4 rms5 rms6]);

s1=RampAmplitude(s1,0.05); % baue eine Rampe
s2=RampAmplitude(s2,0.05); % baue eine Rampe
s3=RampAmplitude(s3,0.05); % baue eine Rampe
s4=RampAmplitude(s4,0.05); % baue eine Rampe
s5=RampAmplitude(s5,0.05); % baue eine Rampe
s6=RampAmplitude(s6,0.05); % baue eine Rampe

s1=s1*(rmsmax/rms1);
s2=s2*(rmsmax/rms2);
s3=s3*(rmsmax/rms3);
s4=s4*(rmsmax/rms4);
s5=s5*(rmsmax/rms5);
s6=s6*(rmsmax/rms6);

signal res;
res=s1;
res=append(res,s2);
res=append(res,s3);
res=append(res,s4);
res=append(res,s5);
res=append(res,s6);
res=setname(res,'five sounds');