Mercurial > hg > map
diff 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 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/utilities/temp.m Mon Nov 28 13:34:28 2011 +0000 @@ -0,0 +1,39 @@ +frequencies=[1000 1250]; +amplitudesdB=[20 23]; +nFrequencies=length(frequencies); + +dt=0.0001; + +toneDuration=.010; +time=dt:dt:toneDuration; + +% fixed ramp, silenceDuration, toneDuration +rampDuration=0.005; +rampTime=dt:dt:rampDuration; +ramp=[0.5*(1+cos(2*pi*rampTime/(2*rampDuration)+pi)) ... + ones(1,length(time)-length(rampTime))]; +ramp=ramp.*fliplr(ramp); + +silenceDuration=0.010; +silenceDurationLength=round(silenceDuration/dt); +initialSilence=zeros(1,silenceDurationLength); + +silenceToneDuration=toneDuration + silenceDuration; +silenceToneDurationLength=round(silenceToneDuration/dt); + +totalDuration=silenceToneDuration*nFrequencies; +totalDurationLength=round(totalDuration/dt); +stimulus=zeros(1,totalDurationLength); +toneBeginPTR=1; + +for i=1:nFrequencies + frequency=frequencies(i); + dBSPL=amplitudesdB(i); + amplitude=28e-6* 10.^(dBSPL/20); + tone=amplitude*sin(2*pi*frequency*time); + tone=tone.*ramp; + stimulus(toneBeginPTR:toneBeginPTR+silenceToneDurationLength-1)=... + [initialSilence tone]; + toneBeginPTR=toneBeginPTR+silenceToneDurationLength; +end +figure(2), plot( stimulus')