|
tomwalters@0
|
1 % tool
|
|
tomwalters@0
|
2 %
|
|
tomwalters@0
|
3 % INPUT VALUES:
|
|
tomwalters@0
|
4 %
|
|
tomwalters@0
|
5 % RETURN VALUE:
|
|
tomwalters@0
|
6 %
|
|
tomwalters@0
|
7 %
|
|
bleeck@3
|
8 % (c) 2011, University of Southampton
|
|
bleeck@3
|
9 % Maintained by Stefan Bleeck (bleeck@gmail.com)
|
|
bleeck@3
|
10 % download of current version is on the soundsoftware site:
|
|
bleeck@3
|
11 % http://code.soundsoftware.ac.uk/projects/aimmat
|
|
bleeck@3
|
12 % documentation and everything is on http://www.acousticscale.org
|
|
tomwalters@0
|
13
|
|
tomwalters@0
|
14
|
|
tomwalters@0
|
15 function res=genrow
|
|
tomwalters@0
|
16
|
|
tomwalters@0
|
17
|
|
tomwalters@0
|
18 s1=signal(0.3,16000); %erster Ton
|
|
tomwalters@0
|
19 s2=signal(0.3,16000); % zweiter Ton
|
|
tomwalters@0
|
20 s3=signal(0.3,16000); %
|
|
tomwalters@0
|
21 s4=signal(0.3,16000); %
|
|
tomwalters@0
|
22 s5=signal(0.3,16000); %
|
|
tomwalters@0
|
23 s6=signal(0.3,16000); %
|
|
tomwalters@0
|
24
|
|
tomwalters@0
|
25
|
|
tomwalters@0
|
26 s1=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000');
|
|
tomwalters@0
|
27 s2=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-2');
|
|
tomwalters@0
|
28 s3=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-4');
|
|
tomwalters@0
|
29 s4=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-6');
|
|
tomwalters@0
|
30 s5=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-8');
|
|
tomwalters@0
|
31 s6=genharmonics(s1,'fundamental','100','min_fre','500','max_fre','3000','type','decreaseoddamplitude','changeby','-10');
|
|
tomwalters@0
|
32
|
|
tomwalters@0
|
33 rms1=rms(s1);
|
|
tomwalters@0
|
34 rms2=rms(s2);
|
|
tomwalters@0
|
35 rms3=rms(s3);
|
|
tomwalters@0
|
36 rms4=rms(s4);
|
|
tomwalters@0
|
37 rms5=rms(s5);
|
|
tomwalters@0
|
38 rms6=rms(s6);
|
|
tomwalters@0
|
39
|
|
tomwalters@0
|
40 rmsmax=max([rms1 rms2 rms3 rms4 rms5 rms6]);
|
|
tomwalters@0
|
41
|
|
tomwalters@0
|
42 s1=RampAmplitude(s1,0.05); % baue eine Rampe
|
|
tomwalters@0
|
43 s2=RampAmplitude(s2,0.05); % baue eine Rampe
|
|
tomwalters@0
|
44 s3=RampAmplitude(s3,0.05); % baue eine Rampe
|
|
tomwalters@0
|
45 s4=RampAmplitude(s4,0.05); % baue eine Rampe
|
|
tomwalters@0
|
46 s5=RampAmplitude(s5,0.05); % baue eine Rampe
|
|
tomwalters@0
|
47 s6=RampAmplitude(s6,0.05); % baue eine Rampe
|
|
tomwalters@0
|
48
|
|
tomwalters@0
|
49 s1=s1*(rmsmax/rms1);
|
|
tomwalters@0
|
50 s2=s2*(rmsmax/rms2);
|
|
tomwalters@0
|
51 s3=s3*(rmsmax/rms3);
|
|
tomwalters@0
|
52 s4=s4*(rmsmax/rms4);
|
|
tomwalters@0
|
53 s5=s5*(rmsmax/rms5);
|
|
tomwalters@0
|
54 s6=s6*(rmsmax/rms6);
|
|
tomwalters@0
|
55
|
|
tomwalters@0
|
56 signal res;
|
|
tomwalters@0
|
57 res=s1;
|
|
tomwalters@0
|
58 res=append(res,s2);
|
|
tomwalters@0
|
59 res=append(res,s3);
|
|
tomwalters@0
|
60 res=append(res,s4);
|
|
tomwalters@0
|
61 res=append(res,s5);
|
|
tomwalters@0
|
62 res=append(res,s6);
|
|
tomwalters@0
|
63 res=setname(res,'five sounds');
|
|
tomwalters@0
|
64
|
