tomwalters@0: % tool
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
bleeck@3: % (c) 2011, University of Southampton
bleeck@3: % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3: % download of current version is on the soundsoftware site: 
bleeck@3: % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3: % documentation and everything is on http://www.acousticscale.org
tomwalters@0: 
tomwalters@0: 
tomwalters@0: function res=genrow
tomwalters@0: 
tomwalters@0: 
tomwalters@0: s1=signal(0.3,16000); %erster Ton
tomwalters@0: s2=signal(0.3,16000); % zweiter Ton
tomwalters@0: s3=signal(0.3,16000); % 
tomwalters@0: s4=signal(0.3,16000); % 
tomwalters@0: s5=signal(0.3,16000); % 
tomwalters@0: s6=signal(0.3,16000); % 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: s1=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000');
tomwalters@0: s2=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-2');
tomwalters@0: s3=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-4');
tomwalters@0: s4=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-6');
tomwalters@0: s5=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-8');
tomwalters@0: s6=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-10');
tomwalters@0: 
tomwalters@0: rms1=rms(s1);
tomwalters@0: rms2=rms(s2);
tomwalters@0: rms3=rms(s3);
tomwalters@0: rms4=rms(s4);
tomwalters@0: rms5=rms(s5);
tomwalters@0: rms6=rms(s6);
tomwalters@0: 
tomwalters@0: rmsmax=max([rms1 rms2 rms3 rms4 rms5 rms6]);
tomwalters@0: 
tomwalters@0: s1=RampAmplitude(s1,0.05); % baue eine Rampe
tomwalters@0: s2=RampAmplitude(s2,0.05); % baue eine Rampe
tomwalters@0: s3=RampAmplitude(s3,0.05); % baue eine Rampe
tomwalters@0: s4=RampAmplitude(s4,0.05); % baue eine Rampe
tomwalters@0: s5=RampAmplitude(s5,0.05); % baue eine Rampe
tomwalters@0: s6=RampAmplitude(s6,0.05); % baue eine Rampe
tomwalters@0: 
tomwalters@0: s1=s1*(rmsmax/rms1);
tomwalters@0: s2=s2*(rmsmax/rms2);
tomwalters@0: s3=s3*(rmsmax/rms3);
tomwalters@0: s4=s4*(rmsmax/rms4);
tomwalters@0: s5=s5*(rmsmax/rms5);
tomwalters@0: s6=s6*(rmsmax/rms6);
tomwalters@0: 
tomwalters@0: signal res;
tomwalters@0: res=s1;
tomwalters@0: res=append(res,s2);
tomwalters@0: res=append(res,s3);
tomwalters@0: res=append(res,s4);
tomwalters@0: res=append(res,s5);
tomwalters@0: res=append(res,s6);
tomwalters@0: res=setname(res,'five sounds');
tomwalters@0: