Mercurial > hg > map
comparison utilities/temp.m @ 38:c2204b18f4a2 tip
End nov big change
author | Ray Meddis <rmeddis@essex.ac.uk> |
---|---|
date | Mon, 28 Nov 2011 13:34:28 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
37:771a643d5c29 | 38:c2204b18f4a2 |
---|---|
1 frequencies=[1000 1250]; | |
2 amplitudesdB=[20 23]; | |
3 nFrequencies=length(frequencies); | |
4 | |
5 dt=0.0001; | |
6 | |
7 toneDuration=.010; | |
8 time=dt:dt:toneDuration; | |
9 | |
10 % fixed ramp, silenceDuration, toneDuration | |
11 rampDuration=0.005; | |
12 rampTime=dt:dt:rampDuration; | |
13 ramp=[0.5*(1+cos(2*pi*rampTime/(2*rampDuration)+pi)) ... | |
14 ones(1,length(time)-length(rampTime))]; | |
15 ramp=ramp.*fliplr(ramp); | |
16 | |
17 silenceDuration=0.010; | |
18 silenceDurationLength=round(silenceDuration/dt); | |
19 initialSilence=zeros(1,silenceDurationLength); | |
20 | |
21 silenceToneDuration=toneDuration + silenceDuration; | |
22 silenceToneDurationLength=round(silenceToneDuration/dt); | |
23 | |
24 totalDuration=silenceToneDuration*nFrequencies; | |
25 totalDurationLength=round(totalDuration/dt); | |
26 stimulus=zeros(1,totalDurationLength); | |
27 toneBeginPTR=1; | |
28 | |
29 for i=1:nFrequencies | |
30 frequency=frequencies(i); | |
31 dBSPL=amplitudesdB(i); | |
32 amplitude=28e-6* 10.^(dBSPL/20); | |
33 tone=amplitude*sin(2*pi*frequency*time); | |
34 tone=tone.*ramp; | |
35 stimulus(toneBeginPTR:toneBeginPTR+silenceToneDurationLength-1)=... | |
36 [initialSilence tone]; | |
37 toneBeginPTR=toneBeginPTR+silenceToneDurationLength; | |
38 end | |
39 figure(2), plot( stimulus') |