https://community.wolfram.com RSS Feed for Wolfram Community showing questions tagged with Audio, Sound and Music sorted by active. https://community.wolfram.com/groups/-/m/t/3635801 I have a few code samples which freeze or crash my kernel on evaluation, can anybody confirm that this isn't a local issue for me? Discrete: AudioGenerator[{"Color", AudioGenerator[TimeSeries[{1}, {1}]]}] Continuous: AudioGenerator[{"Color", AudioGenerator[{"Sawtooth", .4, 5}]}] Joseph Stocke 2026-02-06T21:20:51Z https://community.wolfram.com/groups/-/m/t/3061982 I'm interested in Wolfram because I want to use Neural Nets and ML for creative purposes and from what I can see its probably the most powerful tool out there (conceptually at least) but this isn't useful if I can't make art with it. While there are examples that show the power of Wolfram language, as a professional artist I want to know how I might use this potential in a practical way. Can I use a Wolfram product to make sound installations like I do with Max MSP for example. Can I generate high res images for data projection? Can the audio work in real-time and integrate with a Mac audio system? What is the quality of the FFT conversions, audio compression and audio filtering etc etc. Can I use Wolfram products to communicate with a DAW for example using the audio manager or a system like Jack I/O? I don't necessarily expect specific answers to these questions - I'm wanting to assess how useful Wolfram stuff is generally speaking. Are there other artists out there wanting to use Wolfram products in a serious way and not just the "lets have fun with audio" kind of way - ditto for images and video? So comments suggestions, examples of work would be great. Thanks Peter Mcilwain 2023-11-08T03:40:12Z https://community.wolfram.com/groups/-/m/t/3560240 I'm running an investigation with my students where we're trying to query the Wolfram Knowledgebase to give me a list of data properties associated with a particular (chosen) MusicAct. For example, the number of songs on all of the studio albums produced by "The Offspring". I can get the number of songs for all of the albums, but I am struggling to reduce this to only the studio albums (of "MusicAlbumType" - "MusicAlbum"). The command I have used for retrieving the album song length is below. Any help is much appreciated! EntityValue[ EntityValue[Entity["MusicAct", "TheOffspring::7k2n5"], "Albums"], "CanonicalNumberOfSongs"] // EntityList Stephen Alderton 2025-10-14T10:30:43Z https://community.wolfram.com/groups/-/m/t/3454636 Is it possible to make multichannel audio recordings (beyond stereo L/R) in Mathematica? I have a 4-channel audio interface ("Listen AudioConnect 4x4") attached but am only getting single channel results. Context: As a retirement project I am making a test system for loudspeakers in which I make simultaneous measurements of response at different sensors (sound pressure, voltage, current, displacement) to a stimulus generated in Mathematica and synchronously played back on the same audio interface. I have done this in the past prior to the introduction of Audio, but it required using a Matlab toolbox (and MatLink, no longer supported) for the data acquisition. In the new system I would like to do this entirely within Mathematica, but I can't seem to get enough input data channels to record. Daniel Warren 2025-05-03T19:31:15Z https://community.wolfram.com/groups/-/m/t/3392429 The issue is the following and has stumped me for a good half day now: In documentation, it is clearly stated that there should be 52 entries for VoiceStyleData[], ranging a bunch of languages. However 3 different machines I tried, with different licences, I am consistently getting only 8 and only in English. Reference: https://reference.wolframcloud.com/language/ref/VoiceStyleData.html My output: ![My whole output][1] Any ideas how to particularly install the German voices would be greatly appreciated. Thank you in advance. [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Screenshot2025-02-11232042.png&userId=3392415 Nikola Hajdin 2025-02-11T22:23:10Z https://community.wolfram.com/groups/-/m/t/3391123 When I create and export a Midi File, I see the set name on my disc, but when loading that Midi file into my DAW (Ableton Live), I do not get the name, but all imported files get named 'Track 0'. This is because the Export function does not provide an option for a Title, which is the name that my DAW would take as track name. At least, I cannot find that option. Does anyone have a script for inserting a Title into a Midi file that is being made / exported? Unless there is an option for the Export command, it is a bit complicated as the total length of the Midi file has to be embedded in the Metadata of the Midi file. I forgot how this all works, so if someone has a working function, that would be very helpful. B. C. 2025-02-10T20:57:48Z https://community.wolfram.com/groups/-/m/t/109249 How can I store and send sound outputs generated from the Play command towards each of the 7.1 channels of a home theater. I tried to export the channels to a file with a wave extension, but I didn't succeed in hearing the sounds. Thanks for your advice. Gerardo Fernandez 2013-08-29T06:21:56Z https://community.wolfram.com/groups/-/m/t/3311950 Hello, I successfully use streaming from $DefaultAudioInputDevice. audio0 = AudioStream[$DefaultAudioInputDevice, SampleRate -> 7119, SoundVolume -> 1]; AudioRecord[audio0]; Pause[180] AudioStop[audio0]; In future I want to stream audio from Google Chrome Tab. Please, what device do I need to use? Regards - Leo Leo Baumann 2024-10-30T18:03:29Z https://community.wolfram.com/groups/-/m/t/3252066 Hi there, The attached Mathematica notebook file is coded on MacOS using Mathematica 14.0, but does not work on RP 4 and RP 5: [a related thread on the Raspberry forum][1]. I noticed that only the first output block works in Wolfram Player. As far as I know, the Mathematica on RP is a full version of Mathematica. Also, Wolfram Player must be able to execute the output cell. But why are some code snippets in input cells and the graphics in output cells incompatible in different environments? Is this a bug that will be fixed? [1]: https://forums.raspberrypi.com/viewtopic.php?t=375393 PyoungRyang Ko 2024-08-20T10:44:30Z https://community.wolfram.com/groups/-/m/t/1210299 There are many descriptions of the computation of MFCC vectors in the literature. They are, of course, the same conceptually but differ in a myriad of details including but not limited to the boundaries of the filters in the filter bank, the use (or not) of pre-emphasis, and the parameters of the DFT and the DCT transformations. The documentation of the computation of MFCC by AudioLocalMeasurements is, shall we say, spare. In order to make use of Mathematica's MFCC vectors one obviously needs to know what when into their computation. These details should be provided in sufficient specificity that one can reproduce the MFCC output of AudioLocalMeasurements using more basic Mathematica functions such as Log, PeriodogramArray, Fourier, FourierDCT, etc. Perhaps there is someone in this community who knows these details and would be willing to post them. Thanks in advance for their help. Cheers, Scott Scott Guthery 2017-10-29T20:01:29Z https://community.wolfram.com/groups/-/m/t/3222554 I am new to Mathematica and Wolfram language, having just downloaded it yesterday. I am trying to learn more about the vibrations of my CNC in hopes of using this information to help fine tune machining parameters to mitigate chatter. I am following the example found here... [enter link description here][1] but am having difficulty with the Periodogram graph. I am using a recording of a fan as a test.![enter image description here][2] I have attached a screenshot of the error. Any help would be greatly appreciated. [1]: https://blog.wolfram.com/2017/03/02/how-to-use-your-smartphone-for-vibration-analysis-part-1-the-wolfram-language/ [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Screenshot%28869%29.png&userId=3222513 T M 2024-07-16T15:14:52Z https://community.wolfram.com/groups/-/m/t/3202207 Hello I beginner using Mathematica 14. I used Import to get an MP3 audio file. I did plot the signal which is a 2-Channel signal. My next step is to get a periodogram and I am assuming it works with MP3, but I am having difficulty providing what exact parameters are required. I thought I would just Input Periodogram [*Audiofile*] but it is not working. It looks like I am missing some basis information Any Help? Many thanks Adam Cherad 2024-06-29T18:03:25Z https://community.wolfram.com/groups/-/m/t/1738397 I am a beginner in mathematica. Currently i am working on audio file my problem is when i extract audio information using BinaryReadList and try to plot it works with mono wav file but cannot get with sterio file. Can anyone help me where i went wrong or how i can get it right. Here a1.wav is a single(mono) channel audio while bird.wav is dual(sterio) channel. Motilal khoirom 2019-07-16T17:39:43Z https://community.wolfram.com/groups/-/m/t/908835 ##Abstract Often, the voice of a person through a microphone is not well understandable because of the external noise. The goal of this project is to intelligently remove the interference of the noise that appears through a microphone. To achieve the intelligent noise cancellation we dynamically distinguish and remove the "noisy" regions in the sound spectrogram with respect to different parameters. ##Introduction Audio File is a wave which represents different frequency waves' overlay. Fourier transformation was applied in order to get the structure in frequency range. By the Fourier transformation we got frequency characteristic of noise. Then a model was applied supposing that the noise amplitude is small, and to remove it exponential cut offs can be used. The experiment showed that partitioning the audio with a factor, applying th changes and composing the audio back is faster than performing the changes on the original audio. The finally result is the Audio data with reasonably less noise. Below we describe the code ___ Check for proper audio and extract "SampleRate", "Length" and "Type". getAudioMeasurements[a_] := Module[{sr, t, l, err = None}, If[!AudioQ[a], err = generateError[a]]; If[err =!= None, Return[err]]; (*Extract the sample rate and set to 44100 if the extraction was not successful*) sr = AudioMeasurements[a, "SampleRate"]; If[!IntegerQ[sr], err=generateError[a]]; (*If the samplerate is not an integer it is not a valid audio*) (*Extract the sample rate and set to Real32 if the extraction was not successful*) t = AudioMeasurements[a, "Type"]; If[!MatchQ[t, supportedAudioTypes], err=generateError[a]];(*If the type is not an one of the supperted ones it is not a valid audio*) (*Extract the length of an audio and return $Failed if the extraction was not successful*) l=AudioMeasurements[a, "Length"]; If[!IntegerQ[l], generateError[a]]; {sr, t, l} ] Compute the window size(wSize) and offset(getOffset) If wSize and/or getOffset are not given, they are being calculated with respect to well known factors . getWindowSize[wSize_, sr_] := With[{wTime = 2048./44100}, If[wSize === Automatic, Round[wTime * sr], wSize] ] getOffset[wSize_, offsetGiven_] := With[{ratio = .25}, If[offsetGiven === Automatic, Round[wSize * ratio], offsetGiven] ] Here we import exponential function which cuts off the frequencies that are below or above the mean frequency value.Joining matrix with conjugate matrix exempt from imagination part.As a result of transformation the result of inverse Fourier is not changing.But the result of counting value is changing. expfunc[aa_,thresh_]:=Map[If[Abs[#]>=thresh,#,#*Exp[1-(thresh/(Abs[#]+0.01*thresh))^4]] &, aa]; separateSpectArray[array_, thresh_] := Map[expfunc[-(thresh/(Abs[#]+0.01*thresh))^2] &, array] After the changes in spectrogram we return to the audio data via using Inverse Fourier transformation. conjugateTwoPartsSpectArray := Compile[{array, offset, win, wSize, l}, Module[{res={}, concat}, concat = Developer`ToPackedArray[Join[array,Take[Conjugate[Reverse[array,{2}]], All, {If[EvenQ[wSize], 2, 1, 2], -2}], 2]]; res = ConstantArray[0., wSize + Ceiling[l]]; ParallelDo[res[[1 + (i-1)*offset ;; (i-1)*offset + wSize]] += Re[InverseFourier[concat[[i]], FourierParameters->{1,-1}]]*win, {i, Range[Length[concat]]} ]; res ]] #Use given Function to remove noise ___ Denoise function divide audio file into several parts and apply Denoise part function on the every part. Our process perform the following operations: - 1.Calculate Spectrogram of audio file with Fourier transformation - 2.Apply Exponential cut offs - 3.Get audio file from spectrogram using Inverse Fourier ![Speed comparison: Process whole data vs. Process chunks of data][1] In order to calculate the size of the window HannWindow function is used as default window. The advantage of the Hann window has very low aliasing. The Hann function is typically used as a window function in digital signal processing to select samples series subset in order to perform a Fourier transform or other calculations. $$\begin{cases} \alpha +\alpha (-\cos (2 \pi x))+\cos (2 \pi x) & -\frac{1}{2}\leq x\leq \frac{1}{2} \\ 0 & \text{True} \end{cases}$$ denoisePart[audio_, wType_:HannWindow, wSizeGiven_:Automatic, offsetGiven_:Automatic, testFunction_:False]:= Module[{l, sr, t, win=wType, wSize, offset, averThresh, spectArraySep, spectArraySepModify, spectArray,spectArrayModify, result}, With[{err = getAudioMeasurements[audio]}, If[err === $Failed, Return[err], {sr, t, l} = err]]; wSize = Quiet@getWindowSize[wSizeGiven, sr]; offset = Quiet@getOffset[wSize, offsetGiven]; win = Quiet@generateWindow[win, wSize]]; Then we used SpectrogramArray to get its spectrogram in an array form spectArray = Quiet@Developer`ToPackedArray[SpectrogramArray[audio,wSize,offset,win]] After that calculate main square value of argument with average threshold is computed If[!testFunction, averThresh = Quiet@computeAverageThreshold[spectArray[[All, 1 ;; Floor[wSize/2 + 1]]]]; spectArraySep = Quiet@separateSpectArray[spectArray[[All, 1 ;; Floor[wSize/2 + 1]]], averThresh]; spectArraySepModify = Quiet@Map[# &, spectArraySep, {2}] , spectArraySepModify = spectArray[[All, 1 ;; Floor[wSize/2 + 1]]] ]; Then we apply inverse Fourier to got the data of audio from Spectrogram spectArrayModify = Quiet@conjugateTwoPartsSpectArray[spectArraySepModify, offset, win, wSize, l]; ###Finally, We got our results result = Developer`ToPackedArray[Take[spectArrayModify, l] / (Total[win^2] / offset)]; result = Audio[result, If[t ==="Real", "Real", "Real32"], SampleRate->sr]; If[!AudioQ[result], Return[$Failed]]; result We also use palatalization functions to make faster denoise process. An optimal factor is calculated during the experiments, which allows to partition the audio in such parts, so that denoising process is fastest. One can specify all the parameters for the denoising function, though it works in optimal way with defaults values. denoise[audio_, secondsInPartitions_:Automatic, wType_:HannWindow, wSizeGiven_:Automatic, offsetGiven_:Automatic, testFunction_:False]:= Module[{audioList, optFactor = 3.9508808651665794`, optSecondsInPartitions, d, useOpt = True}, If[!AudioQ[audio], Return[$Failed]]; d = AudioMeasurements[audio, "Duration"]; optSecondsInPartitions = (d * 1.0)/optFactor; useOpt = If[Internal`RealValuedNumericQ[secondsInPartitions] && secondsInPartitions > 0 && secondsInPartitions < d, False, True]; audioList = AudioPartition[audio, If[useOpt, optSecondsInPartitions, secondsInPartitions]]; AudioTrim[AudioJoin[ParallelMap[denoisePart[#, wType, wSizeGiven, offsetGiven, testFunction]&,audioList]]] ] denoise[audio_, OptionsPattern[]] := denoise[audio, OptionValue[SecondsInPartition], HannWindow, Automatic, Automatic, False] [1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Capture21.PNG&userId=900441 [2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Capture22.PNG&userId=900441 Minas Ghazaryan 2016-08-19T15:48:41Z https://community.wolfram.com/groups/-/m/t/3161083 My friend and I are both having the same problem. My microphone works fine in all other apps, except Mathematica can't detect any input devices. Has anyone found a solution to this? Windows 11 Pro. Permissions for the microphone are set correctly. I tried various devices. Yes, the drivers are up to date. Again, but me and my friend are having the same issue on separate computers. I have v14 he has v13.3 Sam B 2024-04-19T20:31:05Z https://community.wolfram.com/groups/-/m/t/3105676 My USB microphone shows up in the PulseAudio volume control and also works well with Audacity, arecord etc. However, Mathematica can't see the mic -- $AudioInputDevices gives me a null list. How can I set up the mic to work as an audio input device in Mathematica? (Raspberry Pi OS Bookworm ) Thanks, Praveen Praveen Bharadhwaj 2024-01-19T04:18:27Z https://community.wolfram.com/groups/-/m/t/3072329 I tried to import a 3d object into Masematica. However, it stopped advancing from the running screen. Other 3d object files could be imported. If the file size is too large, can it not be imported? Attached files that could not be imported. Megumi Kitano 2023-11-27T06:04:35Z https://community.wolfram.com/groups/-/m/t/3005287 Hallo, I am looking for someone who would help me with the code for the image processing. It´s for the visuals for music project and the initial thought is to process the sound-wave pictures created from respective tracks to art generated by wolfram. (the weirder the merrier ). I am not sure how time consuming or demanding such a task is, so please advise me also regarding the fee. (and your work also will be credited). Hope this info is satisfactory for now, if not, please let me know . And sorry for my English . thank you very much Barbora Barbora Briestenska 2023-09-04T08:37:38Z https://community.wolfram.com/groups/-/m/t/2985965 I want to play without interruption sequences of numerous (say) sine waves. This works fine : Sound[{Play[Sin[1000 t], {t, 0, 0.2}], Play[Sin[2000 t], {t, 0, 0.2}], Play[Sin[3000 t], {t, 0, 0.2}]}] Why this doesn't ? Sound[Table[Play[Sin[k 1000 t], {t, 0, 0.2}], {k, 1, 3}]] Thanks in advance. André Hautot 2023-08-08T13:02:14Z https://community.wolfram.com/groups/-/m/t/2973753 Hoping for some insight from the signal processing folks. &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/3529fe82-5014-46c3-bc0d-4e624746cc4e Gareth Russell 2023-07-21T17:23:33Z