WAV Sound bearbeiten < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) reagiert/warte auf Reaktion  | | Datum: | 13:39 So 23.12.2012 | | Autor: | belle |
| Aufgabe | Wie wird eine WAV importiert, so das man an den
Abtastwerten arbeiten und den sound dann wieder als WAV
exportieren kann? |
WAV-Sound-Object Manipulation
Eine WAV-Sound-Datei wird importiert. (tuba)
Zum Einen wird das abspielbare Audio importiert und
zum Zweiten die Abtastsignale (tubadat).
Das originale Audio kann abgespielt werden.
An den Daten sollen Veränderungen vorgenommen
werden. (passiert erstmal nicht, da die Fage hier nur
den Import und Export des WAV behandelt).
Mit ListPlay jetzt die Daten abspielen.
Nach einer noch zu erfolgenden Bearbeitung sollen die
Daten dieses Audios wieder als WAV-Sound gespeichert
werden.
Wie man im Diagramm und beim Abspielen von tubadat
sieht und hört, ist der als Data importierte Sound
bereits sehr verzerrt. (Obwohl ja noch nichts
verändert worden ist)
tuba = ExampleData[{"Sound", "Tuba"}]
tubadat = ExampleData[{"Sound", "Tuba"}, "Data"]
ListPlay[tubadat, SampleRate -> 22050]
Export["TubaDat.txt", tubadat];
Wie wird eine WAV importiert, so das man an den
Abtastwerten arbeiten und den sound dann wieder als
WAV speichern kann?
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 21:08 Mi 30.01.2013 | | Autor: | hieron |
tuba = ExampleData[{"Sound", "Tuba"}]
tubadat = ExampleData[{"Sound", "Tuba"}, "Data"]
(* Option PlayRange richtig angeben damit die Amplituden nicht [mm] \
[/mm]
"abgeschnitten" werden, daher das "Knistern" *)
(* Beispiel1: kein Knistern *)
ListPlay[tubadat, SampleRate -> 22050, PlayRange -> {-1, 1}]
(* Beispiel2: kein Knistern und tiefer *)
ListPlay[tubadat, SampleRate -> 11025, PlayRange -> All]
(* Beispiel3: mit Knistern *)
ListPlay[tubadat, SampleRate -> 11025, PlayRange -> Automatic]
(* export + import *)
mytuba = ListPlay[tubadat, SampleRate -> 22050, PlayRange -> All]
Export["tuba.wav", mytuba]
Import["tuba.wav"]
(* oder als Daten importieren, grosses file!!! *)
Import["tuba.wav", "Data"]
(* ins "richtige" verzeichnis exportieren *)
(* aktuelles notebookVerzeichnis + dateiName *)
filename = FileNameJoin[{NotebookDirectory[], "mysound.wav"}]
(* dann exportieren *)
Export[filename, mytuba]
Import[filename]
lg hieron
|
|
|
|
