Tag Info

New answers tagged

1

This two-years-old question encouraged me to create a Mathematica activity for my Acoustics students, but it became so interesting, that I created SIX Mathematica activities, that start from manually ploting a spectrum, continue with importing a WAV file and approximating with a Fourier series (as was asked in this question) and finish with the complex ...


4

This is probably not the best idea, but there is a post by Szabolcs that describes some undocumented features of record sound. You can string these together to play the sound, record it back, then save to a file. First, here is a shortened version of your rep function, followed by the "start record", then the call to rep. rep[extra___String] := Speak["Go! " ...


0

Wrapping ListPlay with Evaluate we get the expected output (v 9.0.1.0 Windows 8 x64): Manipulate[Evaluate@ListPlay[list, PlayRange -> {-1., 1.}], {x, 0, 1}]


1

Here is a way of doing a sound loop with a scheduled task. The task is started and stopped with a Toggler that looks like a play/pause button. sound = Play[(2 t) Sin[2 Pi 2000 t], {t, 0, 1}]; DynamicModule[{state = "pause"}, Grid[{{ Toggler[Dynamic @ state, {"pause" -> Style["\[RightPointer]", 24], "play" -> ...


2

The short code run = True; Button["stop", run = False] While[True, Print[run]; Pause[1]; If[! run, Break[]]] prints the value of run as long as it is True. Clicking the Button labeled stop sets run to False and terminates the loop. Replacing Print[run]; Pause[1] by code to play the tones should behave the same. run = True; Button["stop", run = False] ...



Top 50 recent answers are included