Re: Frequency shifting an audio file tia sal22
- To: mathgroup at smc.vnet.net
- Subject: [mg102991] Re: Frequency shifting an audio file tia sal22
- From: "Hans Michel" <hmichel at cox.net>
- Date: Thu, 3 Sep 2009 07:11:23 -0400 (EDT)
- References: <h7l90h$3bc$1@smc.vnet.net>
>From your mathematica notebook I don't clearly see how I helped.
But you want
40 beats per centisecond = 4000 beats per second.
Just repeat your list
Table[myInterpolation[x], {x, 0, 1, 1./200}]
Something like
rep = PadRight[Table[myInterpolation[x], {x, 0, 1, 1./200}], 40000,
Table[myInterpolation[x], {x, 0, 1, 1./200}]]
Then
Sound[SampledSoundList[rep, 44100]]
or
ListPlay[rep, SampleRate -> 44100]
"Rick T" <ratulloch at gmail.com> wrote in message
news:h7l90h$3bc$1 at smc.vnet.net...
> Greetings all
>
> Frequency shifting an audio file tia sal22
>
> Thanks to the help of Sjoerd and Hans I have an audio file that is 1
> second long, but would like to create it
> so that it will play the same signal 4000 times a second at cd quality
> (44100). I can create the 1 second file
> but I couldn't find a way to do a frequency shift. So instead of
> creating a 1
> cycle signal it creates a file that has the original signal repeated
> 4000 times in 1 second. Is this possible?
>
> tia sal22
>
> Link to mathematica file.
> http://tools.onewithall.net/mathematica/math_question2.nb
>