Re: WAV file Export and Import
- To: mathgroup at smc.vnet.net
- Subject: [mg107605] Re: WAV file Export and Import
- From: divisor <congruentialuminaire at yahoo.com>
- Date: Fri, 19 Feb 2010 03:34:58 -0500 (EST)
- References: <hk8nff$8a4$1@smc.vnet.net>
Hello Hugh:
Did you figure this out? And why should [[1,1,1]] have the source
data?
TIA.
Roger Williams
Franklin Laboratory
On Feb 2, 12:24 am, Hugh Goyder <h.g.d.goy... at cranfield.ac.uk> wrote:
> I am trying toExportand ImportWAVfiles. Unfortunately, in the
> example below the file that Iexportbecomes garbled and is not the
> same when re - Imported. Am I doing something wrong? Is there a work
> around? You can tell from both the sound and the data that something
> is going wrong. The imported data is completely different to that
> which is generated initially.
>
> Version 7 Windows
>
> Thanks in advance
>
> Hugh Goyder
>
> d = Table[8*Sin[100*2*Pi*t], {t, 0, 2. - 1/4000., 1/4000.}];
>
> Length[d]
>
> ListPlot[Take[d, {1, 100}]]
>
> d1 = Sound[SampledSoundList[d, 4000]]
>
> Export["try1.WAV", d1]
>
> g = Import["try1.WAV", "SampleRate" -> 4000]
>
> ListPlot[Take[g[[1, 1, 1]], {1, 100}], Joined -> False,
> PlotRange -> All]