MP3ファイルのインポートとエキスポート 

MP3は，消費者のオーディオのストリーミング，保存，転送，再生に広く使われている不可逆的圧縮スキームであり，Web上でも使うことができる．

MP3ファイルをインポートする．

In[1]:=

X Import["ExampleData/car.mp3"]

Out[1]=

よりコンパクトに保存するためにMP3にエキスポートする．

In[2]:=

X snd = ExampleData[{"Sound", "Apollo11PhoneCall"}]

Out[2]=

In[3]:=

X Grid[{# , Quantity[N@FileByteCount[Export["file." <> #, snd]]/2^10, "Kilobytes"]} & /@ {"wav", "mp3"}, Frame -> All, ItemStyle -> Directive[FontFamily -> "Verdana"], Dividers -> {{True, Thickness[2]}, Automatic}]

Out[3]=

MP3にエキスポートするときに異なる圧縮レベルを使うことができる．圧縮レベルが高いとファイルは小さくなるが，サウンドが変質する可能性がある．

In[4]:=

X t = Table[{l, N@FileByteCount[Export["file.mp3", snd, "CompressionLevel" -> l]]/ 2^10}, {l, 0, 1, .02}];

In[5]:=

X ListLinePlot[t, Frame -> True, FrameLabel -> {"MP3 compression level", "kB"}, ImageSize -> 300, PlotRange -> All, PlotStyle -> AbsoluteThickness[3], LabelStyle -> Bold]

Out[5]=