Exporting sounds as WAV files

问题

I never worked too much with sounds in Mma.

I have

t = Sound[List["Violin",SoundNote[-6]]]

How could I Export t as a .WAV file?

When I try the obvious

Export["c:\\test.wav",t]

I get

In this old thread Szabolcs said that it can't be done. Perhaps things have improved since 2007!

回答1:

I think that it still can't be done. Mathematica supports creating and modifying MIDI objects, but leaves the sound generation from the midi to the underlying operating system. For now, you'll have to export to midi then use the midi interface on your system or an online service to convert to a sampled sound format.

For example (from the documentation)

t = Sound[SoundNote[DeleteCases[3 Range[31] Reverse[#], 0] - 48, .1] & /@ 
   Transpose[CellularAutomaton[90, {{1}, 0}, 30]]]
Export["test.mid", t]

Uploaded to http://free-midi-converter.com/Midi/Create gives the link.

It can also be converted with TiMidity which is available on all major operating systems with the command (assuming you've run the above)

Run["timidity test.mid -Ow -o test.wav"]

which can be imported back into Mathematica using Import["test.wav"].

This conversion can be automated if need be...

---

Apparently VLC can also convert midi to wav, which might be an easier option for some propriety operating systems! See also the options given here.

来源：https://stackoverflow.com/questions/7592596/exporting-sounds-as-wav-files